Changeset 148 for trunk/Packages/Common/ScaleDPI.pas

Timestamp:

Jun 5, 2023, 7:40:45 PM (18 months ago)

Author:

chronos

Message:

• Modified: Update Common and VCard package. Remove U prefix from unit names.

File:

• trunk/Packages/Common/ScaleDPI.pas (moved) (moved from trunk/Packages/Common/UScaleDPI.pas ) (5 diffs)

trunk/Packages/Common/ScaleDPI.pas

@@ -1 @@
-unit UScaleDPI;
+unit ScaleDPI;
 
 { See: http://wiki.lazarus.freepascal.org/High_DPI }
@@ -30 +30 @@
   end;
 
-  TOnScaleControl = procedure (Control: TControl) of object;
-
   { TScaleDPI }
 
@@ -39 +37 @@
     FDesignDPI: TPoint;
     FDPI: TPoint;
-    FOnScaleControl: TOnScaleControl;
-    FOnScaleControls: TOnScaleControl;
     procedure SetAutoDetect(AValue: Boolean);
     procedure SetDesignDPI(AValue: TPoint);
@@ -60 +56 @@
   published
     property AutoDetect: Boolean read FAutoDetect write SetAutoDetect;
-    property OnScaleControl: TOnScaleControl read FOnScaleControls
-      write FOnScaleControl;
   end;
 
@@ -376 +370 @@
   end;
 
-  if Assigned(FOnScaleControl) then
-    FOnScaleControl(Control);
-
   //if Control is TForm then
   //  Control.EnableAutoSizing;