Changeset 200 for trunk/Forms

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.

Location:

trunk/Forms

Files:

• UFormMain.lfm (modified) (6 diffs)
• UFormMain.pas (modified) (3 diffs)

trunk/Forms/UFormMain.lfm

@@ -14 +14 @@
   OnDestroy = FormDestroy
   OnHide = FormHide
+  OnResize = FormResize
   OnShow = FormShow
   LCLVersion = '1.8.2.0'
@@ -104 +105 @@
     Top = 0
     Width = 847
+    AutoSize = True
     Bands = <    
       item
@@ -140 +142 @@
       Height = 28
       Top = 5
-      Width = 132
+      Width = 135
       Align = alNone
       AutoSize = True
@@ -182 +184 @@
       Height = 28
       Top = 5
-      Width = 117
+      Width = 120
       Align = alNone
       AutoSize = True
@@ -222 +224 @@
       Height = 28
       Top = 5
-      Width = 59
+      Width = 62
       Align = alNone
       AutoSize = True
@@ -252 +254 @@
       Height = 28
       Top = 5
-      Width = 88
+      Width = 91
       Align = alNone
       AutoSize = True

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;