Changeset 44 for trunk/Forms


Ignore:
Timestamp:
Dec 2, 2021, 2:21:36 PM (3 years ago)
Author:
chronos
Message:
  • Fixed: Autosize cool bar bands.
Location:
trunk/Forms
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/Forms/UFormMain.lfm

    r34 r44  
    55  Width = 1178
    66  Caption = 'vCard Studio'
    7   ClientHeight = 762
     7  ClientHeight = 766
    88  ClientWidth = 1178
    99  DesignTimePPI = 144
     
    1313  OnCreate = FormCreate
    1414  OnDestroy = FormDestroy
     15  OnResize = FormResize
    1516  OnShow = FormShow
    1617  LCLVersion = '2.0.12.0'
     
    4041      Height = 33
    4142      Top = 5
    42       Width = 159
     43      Width = 135
    4344      Align = alNone
    4445      AutoSize = True
     
    7172      end
    7273      object ToolButton4: TToolButton
    73         Left = 124
    74         Top = 0
     74        Left = 1
     75        Top = 33
    7576        Action = Core.AFileClose
    7677      end
     
    8283      Height = 33
    8384      Top = 5
    84       Width = 71
     85      Width = 35
    8586      Align = alNone
    8687      AutoSize = True
     
    9697      Transparent = True
    9798      object ToolButton5: TToolButton
    98         Left = 36
    99         Top = 0
     99        Left = 1
     100        Top = 33
    100101        Action = Core.ASettings
    101102      end
  • trunk/Forms/UFormMain.pas

    r34 r44  
    4949    procedure FormCreate(Sender: TObject);
    5050    procedure FormDestroy(Sender: TObject);
     51    procedure FormResize(Sender: TObject);
    5152    procedure FormShow(Sender: TObject);
    5253    procedure MenuItemToolbarClick(Sender: TObject);
     
    9596end;
    9697
     98procedure TFormMain.FormResize(Sender: TObject);
     99begin
     100  CoolBar1.AutosizeBands;
     101end;
     102
    97103procedure TFormMain.FormShow(Sender: TObject);
    98104begin
     
    101107  Core.ThemeManager1.UseTheme(Self);
    102108  Core.PersistentForm1.Load(Self);
     109  Core.ScaleDPI1.ScaleControl(CoolBar1, Core.ScaleDPI1.DesignDPI);
     110  CoolBar1.AutosizeBands;
    103111
    104112  FormContacts := TFormContacts.Create(nil);
Note: See TracChangeset for help on using the changeset viewer.