Changeset 143 for trunk/Forms/FormTestCase.pas
- Timestamp:
- May 29, 2023, 7:30:31 PM (11 months ago)
- File:
-
- 1 moved
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/FormTestCase.pas
r142 r143 1 unit UFormTestCase;1 unit FormTestCase; 2 2 3 3 interface … … 16 16 procedure FormShow(Sender: TObject); 17 17 private 18 19 18 public 20 21 19 end; 22 23 var24 FormTestCase: TFormTestCase;25 20 26 21 … … 30 25 31 26 uses 32 UCore;27 Core; 33 28 34 29 { TFormTestCase } … … 37 32 ); 38 33 begin 39 Core. PersistentForm1.Save(Self);34 Core.Core.PersistentForm1.Save(Self); 40 35 end; 41 36 42 37 procedure TFormTestCase.FormCreate(Sender: TObject); 43 38 begin 44 Core. Translator1.TranslateComponentRecursive(Self);45 Core. ThemeManager1.UseTheme(Self);39 Core.Core.Translator1.TranslateComponentRecursive(Self); 40 Core.Core.ThemeManager1.UseTheme(Self); 46 41 end; 47 42 48 43 procedure TFormTestCase.FormShow(Sender: TObject); 49 44 begin 50 Core. PersistentForm1.Load(Self);45 Core.Core.PersistentForm1.Load(Self); 51 46 end; 52 47
Note:
See TracChangeset
for help on using the changeset viewer.