Changeset 174 for trunk/Packages
- Timestamp:
- Jul 19, 2024, 3:51:57 PM (4 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Packages/Common/FormEx.pas
r172 r174 19 19 procedure DoDestroy; override; 20 20 public 21 FullScreen: Boolean; 21 22 PersistentForm: TPersistentForm; static; 22 23 ThemeManager: TThemeManager; static; … … 45 46 inherited; 46 47 PersistentForm.Load(Self); 48 FullScreen := PersistentForm.FormFullScreen; 47 49 end; 48 50 … … 76 78 procedure TFormEx.DoClose(var CloseAction: TCloseAction); 77 79 begin 80 PersistentForm.FormFullScreen := FullScreen; 78 81 PersistentForm.Save(Self); 79 82 inherited;
Note:
See TracChangeset
for help on using the changeset viewer.