Changeset 44 for trunk/Forms

Timestamp:

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

Author:

chronos

Message:

• Fixed: Autosize cool bar bands.

Location:

trunk/Forms

Files:

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

trunk/Forms/UFormMain.lfm

@@ -5 +5 @@
   Width = 1178
   Caption = 'vCard Studio'
-  ClientHeight = 762
+  ClientHeight = 766
   ClientWidth = 1178
   DesignTimePPI = 144
@@ -13 +13 @@
   OnCreate = FormCreate
   OnDestroy = FormDestroy
+  OnResize = FormResize
   OnShow = FormShow
   LCLVersion = '2.0.12.0'
@@ -40 +41 @@
       Height = 33
       Top = 5
-      Width = 159
+      Width = 135
       Align = alNone
       AutoSize = True
@@ -71 +72 @@
       end
       object ToolButton4: TToolButton
-        Left = 124
-        Top = 0
+        Left = 1
+        Top = 33
         Action = Core.AFileClose
       end
@@ -82 +83 @@
       Height = 33
       Top = 5
-      Width = 71
+      Width = 35
       Align = alNone
       AutoSize = True
@@ -96 +97 @@
       Transparent = True
       object ToolButton5: TToolButton
-        Left = 36
-        Top = 0
+        Left = 1
+        Top = 33
         Action = Core.ASettings
       end

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);