Changeset 511 for Common/UScaleDPI.pas

Timestamp:

Apr 11, 2018, 11:32:10 AM (6 years ago)

Author:

chronos

Message:

• Fixed: Common package various fixes.

File:

• Common/UScaleDPI.pas (modified) (3 diffs)

Common/UScaleDPI.pas

@@ -215 +215 @@
   I: Integer;
 begin
+  ImgList.BeginUpdate;
   NewWidth := ScaleX(ImgList.Width, FromDPI.X);
   NewHeight := ScaleY(ImgList.Height, FromDPI.Y);
@@ -248 +249 @@
     Temp[i].Free;
   end;
+  ImgList.EndUpdate;
 end;
 
@@ -316 +318 @@
         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);
+      AutoSize := True;
+    end;
     EndUpdate;
   end;