Changeset 143 for trunk/Forms/FormTest.pas
- Timestamp:
- May 29, 2023, 7:30:31 PM (11 months ago)
- File:
-
- 1 moved
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/FormTest.pas
r142 r143 1 unit UFormTest;1 unit FormTest; 2 2 3 3 interface … … 5 5 uses 6 6 Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ComCtrls, StdCtrls, 7 ActnList, Menus, UTestCase;7 ActnList, Menus, TestCase; 8 8 9 9 type … … 39 39 end; 40 40 41 var42 FormTest: TFormTest;43 44 41 45 42 implementation … … 48 45 49 46 uses 50 UCore, UFormTestCase;47 Core, FormTestCase; 51 48 52 49 { TFormTest } … … 112 109 procedure TFormTest.FormClose(Sender: TObject; var CloseAction: TCloseAction); 113 110 begin 114 Core. PersistentForm1.Save(Self);111 Core.Core.PersistentForm1.Save(Self); 115 112 end; 116 113 … … 148 145 procedure TFormTest.FormCreate(Sender: TObject); 149 146 begin 150 Core. Translator1.TranslateComponentRecursive(Self);151 Core. ThemeManager1.UseTheme(Self);147 Core.Core.Translator1.TranslateComponentRecursive(Self); 148 Core.Core.ThemeManager1.UseTheme(Self); 152 149 end; 153 150 154 151 procedure TFormTest.FormShow(Sender: TObject); 155 152 begin 156 Core. PersistentForm1.Load(Self);153 Core.Core.PersistentForm1.Load(Self); 157 154 ReloadList; 158 155 UpdateInterface;
Note:
See TracChangeset
for help on using the changeset viewer.