Changeset 200 for trunk/Forms/UFormMain.pas

Timestamp:

Aug 31, 2018, 3:38:01 PM (6 years ago)

Author:

chronos

Message:

• Modified: Updated Common package files.
• Fixed: Autosize coolbar during main form resize.

File:

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

trunk/Forms/UFormMain.pas

@@ -125 +125 @@
     procedure EditSearchChange(Sender: TObject);
     procedure FormHide(Sender: TObject);
+    procedure FormResize(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
@@ -228 +229 @@
 end;
 
+procedure TFormMain.FormResize(Sender: TObject);
+begin
+  CoolBar1.AutosizeBands;
+end;
+
 procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);
 begin
@@ -517 +523 @@
     ListViewFilter1.StringGrid.SetFocus;
   end;
+  Core.ScaleDPI1.ScaleControl(CoolBar1, Core.ScaleDPI1.DesignDPI);
+  CoolBar1.AutosizeBands;
 end;