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

Timestamp:

Dec 17, 2016, 6:33:13 PM (8 years ago)

Author:

chronos

Message:

• Added: Main application icon.
• Modified: Updated Command and CoolTranslator packages.
• Added: About dialog.

File:

• trunk/Packages/Common/UScaleDPI.pas (modified) (1 diff)

trunk/Packages/Common/UScaleDPI.pas

@@ -309 +309 @@
   end;
 
+  if Control is TCoolBar then
+  with TCoolBar(Control) do begin
+    BeginUpdate;
+    for I := 0 to Bands.Count - 1 do
+      with Bands[I] do begin
+        MinWidth := ScaleX(MinWidth, FromDPI.X);
+        MinHeight := ScaleY(MinHeight, FromDPI.Y);
+        Width := ScaleX(Width, FromDPI.X);
+        //Control.Invalidate;
+      end;
+    EndUpdate;
+  end;
+
   if Control is TToolBar then begin
     ToolBarControl := TToolBar(Control);