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

Timestamp:

Sep 20, 2021, 2:37:10 PM (3 years ago)

Author:

chronos

Message:

• Modified: Updated windows installer script to use InnoSetup 6.
• Fixed: Correctly scale toolbar with images.

File:

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

trunk/Packages/Common/UScaleDPI.pas

@@ -313 +313 @@
     //AutoSize := False;
     //Anchors := [];
-    Left := ScaleX(Left, FromDPI.X);
-    Top := ScaleY(Top, FromDPI.Y);
-    //if not (akRight in Anchors) then
-    Width := ScaleX(Width, FromDPI.X);
-    //if not (akBottom in Anchors) then
-    Height := ScaleY(Height, FromDPI.Y);
+    BoundsRect := Bounds(ScaleX(Left, FromDPI.X), ScaleY(Top, FromDPI.Y),
+      ScaleX(Width, FromDPI.X), ScaleY(Height, FromDPI.Y));
     {$IFDEF LCL Qt}
       Font.Size := 0;
@@ -352 +348 @@
     ToolBarControl := TToolBar(Control);
     with ToolBarControl do begin
-      ButtonWidth := ScaleX(ButtonWidth, FromDPI.X);
-      ButtonHeight := ScaleY(ButtonHeight, FromDPI.Y);
+      //SetButtonSize(ScaleX(ButtonWidth, FromDPI.X), ScaleY(ButtonHeight, FromDPI.Y));
     end;
   end;