Changeset 149 for trunk/Forms/FormNameDetails.pas
- Timestamp:
- Jun 5, 2023, 8:45:38 PM (18 months ago)
- File:
-
- 1 moved
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/FormNameDetails.pas
r148 r149 1 unit UFormNameDetails;1 unit FormNameDetails; 2 2 3 3 interface … … 28 28 end; 29 29 30 var31 FormNameDetails: TFormNameDetails;32 33 30 34 31 implementation … … 37 34 38 35 uses 39 UCore;36 Core; 40 37 41 38 { TFormNameDetails } … … 44 41 var CloseAction: TCloseAction); 45 42 begin 46 Core. PersistentForm1.Save(Self);43 Core.Core.PersistentForm1.Save(Self); 47 44 end; 48 45 49 46 procedure TFormNameDetails.FormCreate(Sender: TObject); 50 47 begin 51 Core. Translator.TranslateComponentRecursive(Self);52 Core. ThemeManager1.UseTheme(Self);48 Core.Core.Translator.TranslateComponentRecursive(Self); 49 Core.Core.ThemeManager1.UseTheme(Self); 53 50 end; 54 51 55 52 procedure TFormNameDetails.FormShow(Sender: TObject); 56 53 begin 57 Core. PersistentForm1.Load(Self);54 Core.Core.PersistentForm1.Load(Self); 58 55 end; 59 56
Note:
See TracChangeset
for help on using the changeset viewer.