Changeset 147 for trunk/Packages/Common/UScaleDPI.pas

Timestamp:

Aug 31, 2022, 9:03:29 AM (2 years ago)

Author:

chronos

Message:

• Fixed: Font size was not scaled in source code form.

File:

• trunk/Packages/Common/UScaleDPI.pas (modified) (4 diffs)

trunk/Packages/Common/UScaleDPI.pas

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