Changeset 31 for PersistentForm/UPersistentForm.pas
- Timestamp:
- Jun 24, 2010, 4:18:03 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
PersistentForm/UPersistentForm.pas
r29 r31 30 30 var 31 31 RestoredLeft, RestoredTop, RestoredWidth, RestoredHeight: Integer; 32 RestoredWindowState: TWindowState; 32 33 begin 33 34 with TRegistryEx.Create do … … 48 49 if Form.Top > (Screen.Height - 50) then 49 50 Form.Top := Screen.Height - 50; 50 Form.WindowState := TWindowState(ReadIntegerWithDefault('WindowState', Integer(wsNormal)));51 if Form.WindowState = wsMaximized then begin51 RestoredWindowState := TWindowState(ReadIntegerWithDefault('WindowState', Integer(wsNormal))); 52 if RestoredWindowState = wsMaximized then begin 52 53 RestoredWidth := ReadIntegerWithDefault('RestoredWidth', Form.RestoredWidth); 53 54 RestoredHeight := ReadIntegerWithDefault ('RestoredHeight', Form.RestoredHeight); … … 56 57 Form.SetRestoredBounds(RestoredLeft, RestoredTop, RestoredWidth, RestoredHeight); 57 58 end; 59 Form.WindowState := RestoredWindowState; 58 60 59 61 if ReadBoolWithDefault('Visible', False) then Form.Show;
Note:
See TracChangeset
for help on using the changeset viewer.