Changeset 482 for trunk/Packages

Timestamp:

Dec 8, 2023, 10:49:12 AM (11 months ago)

Author:

chronos

Message:

• Modified: Class type checking enabled back.

Location:

trunk/Packages/DpiControls

Files:

• Dpi.Controls.pas (modified) (7 diffs)
• DpiControls.lpk (modified) (1 diff)

trunk/Packages/DpiControls/Dpi.Controls.pas

@@ -437 +437 @@
 function TWinControl.GetBorderStyle: TBorderStyle;
 begin
+  {$objectChecks-}
   Result := TWinControlEx(GetNativeWinControl).BorderStyle;
+  {$objectChecks+}
 end;
 
@@ -472 +474 @@
 procedure TWinControl.SetBorderStyle(AValue: TBorderStyle);
 begin
+  {$objectChecks-}
   TWinControlEx(GetNativeWinControl).BorderStyle := AValue;
+  {$objectChecks+}
 end;
 
@@ -595 +599 @@
   GetNativeControl.OnResize := NativeFormResize;
   GetNativeControl.OnChangeBounds := NativeChangeBounds;
+
+  {$objectChecks-}
   TControlEx(GetNativeControl).OnMouseDown := MouseDownHandler;
   TControlEx(GetNativeControl).OnMouseUp := MouseUpHandler;
@@ -601 +607 @@
   TControlEx(GetNativeControl).OnMouseLeave := MouseLeaveHandler;
   TControlEx(GetNativeControl).OnMouseWheel := MouseWheelHandler;
+  {$objectChecks+}
 end;
 
@@ -894 +901 @@
 function TControl.GetOnDblClick: TNotifyEvent;
 begin
+  {$objectChecks-}
   Result := TControlEx(GetNativeControl).OnDblClick;
+  {$objectChecks+}
 end;
 
 function TControl.GetParentColor: Boolean;
 begin
+  {$objectChecks-}
   Result := TControlEx(GetNativeControl).ParentColor;
+  {$objectChecks+}
 end;
 
 function TControl.GetParentFont: Boolean;
 begin
+  {$objectChecks-}
   Result := TControlEx(GetNativeControl).ParentFont;
+  {$objectChecks+}
 end;
 
@@ -990 +1003 @@
 procedure TControl.SetOnDblClick(AValue: TNotifyEvent);
 begin
+  {$objectChecks-}
   TControlEx(GetNativeControl).OnDblClick := AValue;
+  {$objectChecks+}
 end;
 
 procedure TControl.SetParentColor(AValue: Boolean);
 begin
+  {$objectChecks-}
   TControlEx(GetNativeControl).ParentColor := AValue;
+  {$objectChecks+}
 end;
 
 procedure TControl.SetParentFont(AValue: Boolean);
 begin
+  {$objectChecks-}
   TControlEx(GetNativeControl).ParentFont := AValue;
+  {$objectChecks+}
 end;
 
@@ -1219 +1238 @@
 begin
   inherited;
+  {$objectChecks-}
   TGraphicControlEx(GetNativeGraphicControl).OnPaint := PaintHandler;
+  {$objectChecks+}
 end;
 

trunk/Packages/DpiControls/DpiControls.lpk

@@ -13 +13 @@
         <SyntaxOptions>
           <SyntaxMode Value="Delphi"/>
+          <CStyleOperator Value="False"/>
+          <AllowLabel Value="False"/>
+          <CPPInline Value="False"/>
         </SyntaxOptions>
       </Parsing>
+      <CodeGeneration>
+        <Optimizations>
+          <OptimizationLevel Value="0"/>
+        </Optimizations>
+      </CodeGeneration>
+      <Linking>
+        <Debugging>
+          <GenerateDebugInfo Value="False"/>
+        </Debugging>
+      </Linking>
+      <Other>
+        <CompilerMessages>
+          <IgnoredMessages idx3123="True"/>
+        </CompilerMessages>
+      </Other>
     </CompilerOptions>
     <Description Value="Controls with dimensions independent to screen DPI setting. The controls use internally VCL controls. All positions and sizes are scaled from DPI independent values."/>