Changeset 482

Timestamp:

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

Author:

chronos

Message:

• Modified: Class type checking enabled back.

Location:

trunk

Files:

• Integrated.lpi (modified) (2 diffs)
• Packages/DpiControls/Dpi.Controls.pas (modified) (7 diffs)
• Packages/DpiControls/DpiControls.lpk (modified) (1 diff)

trunk/Integrated.lpi

@@ -78 +78 @@
       </Item2>
       <SharedMatrixOptions Count="2">
-        <Item1 ID="151739052537" Targets="CevoComponents,Common,DpiControls" Modes="Debug" Value="-g -gl -gh -O1 -dDPI"/>
+        <Item1 ID="151739052537" Targets="CevoComponents,Common,DpiControls" Modes="Debug" Value="-g -gl -gh -CirotR -O1 -dDPI"/>
         <Item2 ID="186701832267" Targets="CevoComponents,Common,DpiControls" Modes="Release" Value="-CX -XX -O3 -dDPI"/>
       </SharedMatrixOptions>
@@ -418 +418 @@
       <CustomOptions Value="-dDEBUG
 -dDPI"/>
-      <OtherDefines Count="2">
-        <Define0 Value="DEBUG"/>
-        <Define1 Value="DPI"/>
-      </OtherDefines>
     </Other>
   </CompilerOptions>

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."/>