Changeset 44 for trunk/Forms/UFormMain.pas

Timestamp:

Dec 2, 2021, 2:21:36 PM (3 years ago)

Author:

chronos

Message:

• Fixed: Autosize cool bar bands.

File:

• trunk/Forms/UFormMain.pas (modified) (3 diffs)

trunk/Forms/UFormMain.pas

@@ -49 +49 @@
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
+    procedure FormResize(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure MenuItemToolbarClick(Sender: TObject);
@@ -95 +96 @@
 end;
 
+procedure TFormMain.FormResize(Sender: TObject);
+begin
+  CoolBar1.AutosizeBands;
+end;
+
 procedure TFormMain.FormShow(Sender: TObject);
 begin
@@ -101 +107 @@
   Core.ThemeManager1.UseTheme(Self);
   Core.PersistentForm1.Load(Self);
+  Core.ScaleDPI1.ScaleControl(CoolBar1, Core.ScaleDPI1.DesignDPI);
+  CoolBar1.AutosizeBands;
 
   FormContacts := TFormContacts.Create(nil);