Changeset 482 for trunk/Packages/DpiControls/Dpi.Controls.pas

Timestamp:

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

Author:

chronos

Message:

• Modified: Class type checking enabled back.

File:

• trunk/Packages/DpiControls/Dpi.Controls.pas (modified) (7 diffs)

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;