Changeset 176 for trunk/Core.pas

Timestamp:

Aug 21, 2024, 11:30:27 AM (4 weeks ago)

Author:

chronos

Message:

• Modified: Use monospace font.
• Modified: Do not extra scale controls dimensions.

File:

• trunk/Core.pas (modified) (2 diffs)

trunk/Core.pas

@@ -271 +271 @@
     if (DesignDPI.X <> DPI.X) or (DesignDPI.Y <> DPI.Y) then begin
       //ApplyToAll(DesignDPI);
-      for I := 0 to Screen.FormCount - 1 do
+      {for I := 0 to Screen.FormCount - 1 do
       if (Screen.Forms[I].WindowState = wsNormal) or
         (Screen.Forms[I].WindowState = wsMinimized) then begin
@@ -277 +277 @@
         ScaleDimensions(Screen.Forms[I], StoredDimension);
       end;
+      }
       ScaleImageList(ImageListMain, DesignDPI);
     end;