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

Timestamp:

Jan 19, 2018, 10:32:39 AM (7 years ago)

Author:

chronos

Message:

• Fixed: Main toolbar DPI scaling.

File:

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

trunk/Packages/Common/UScaleDPI.pas

@@ -284 +284 @@
   WinControl: TWinControl;
   ToolBarControl: TToolBar;
-  OldAnchors: TAnchors;
-  OldAutoSize: Boolean;
+  //OldAnchors: TAnchors;
+  //OldAutoSize: Boolean;
 begin
   //if Control is TMemo then Exit;
@@ -316 +316 @@
         MinWidth := ScaleX(MinWidth, FromDPI.X);
         MinHeight := ScaleY(MinHeight, FromDPI.Y);
-        Width := ScaleX(Width, FromDPI.X);
+        // Workaround to bad band width auto sizing
+        //Width := ScaleX(Width, FromDPI.X);
+        Width := ScaleX(Control.Width + 28, FromDPI.X);
         //Control.Invalidate;
       end;
+    // Workaround for bad autosizing of coolbar
+    if AutoSize then begin
+      AutoSize := False;
+      Height := ScaleY(Height, FromDPI.Y);
+    end;
     EndUpdate;
   end;