Changeset 147 for trunk

Timestamp:

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

Author:

chronos

Message:

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

Location:

trunk

Files:

• Forms/UFormSource.pas (modified) (1 diff)
• Packages/Common/Languages/UTestCase.cs.po (modified) (1 diff)
• Packages/Common/UScaleDPI.pas (modified) (4 diffs)

trunk/Forms/UFormSource.pas

@@ -94 +94 @@
     VCardHighlighter.Properties[I] := LowerCase(ContactFields[I].SysName);
   SynEditSource.Highlighter := VCardHighlighter;
+  SynEditSource.Font.Height := Font.Height;
 end;
 

trunk/Packages/Common/Languages/UTestCase.cs.po

@@ -23 +23 @@
 msgid "Passed"
 msgstr "Prošlo"
+

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;