- Timestamp:
- Feb 10, 2022, 12:05:11 PM (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormMain.pas
r90 r107 110 110 procedure TFormMain.FormShow(Sender: TObject); 111 111 begin 112 SetToolbarHints; 113 Core.Initialize; 114 Core.ThemeManager1.UseTheme(Self); 115 Core.PersistentForm1.Load(Self); 116 Core.ScaleDPI1.ScaleControl(CoolBar1, Core.ScaleDPI1.DesignDPI); 117 CoolBar1.AutosizeBands; 112 FormContacts.BeginUpdate; 113 try 114 SetToolbarHints; 115 Core.Initialize; 116 Core.ThemeManager1.UseTheme(Self); 117 Core.PersistentForm1.Load(Self); 118 Core.ScaleDPI1.ScaleControl(CoolBar1, Core.ScaleDPI1.DesignDPI); 119 CoolBar1.AutosizeBands; 118 120 119 FormContacts.Contacts := TContactsFile(Core.DataFile).Contacts; 120 FormContacts.ManualDock(Self, nil, alClient); 121 FormContacts.Align := alClient; 122 FormContacts.Show; 121 FormContacts.Contacts := TContactsFile(Core.DataFile).Contacts; 122 FormContacts.ManualDock(Self, nil, alClient); 123 FormContacts.Align := alClient; 124 FormContacts.Show; 125 finally 126 FormContacts.EndUpdate; 127 end; 123 128 end; 124 129
Note:
See TracChangeset
for help on using the changeset viewer.