Changeset 31 for PersistentForm/UPersistentForm.pas

Timestamp:

Jun 24, 2010, 4:18:03 PM (14 years ago)

Author:

george

Message:

• Opravy a rozšíření funkčností některých tříd

File:

• PersistentForm/UPersistentForm.pas (modified) (3 diffs)

PersistentForm/UPersistentForm.pas

@@ -30 +30 @@
 var
   RestoredLeft, RestoredTop, RestoredWidth, RestoredHeight: Integer;
+  RestoredWindowState: TWindowState;
 begin
   with TRegistryEx.Create do
@@ -48 +49 @@
       if Form.Top > (Screen.Height - 50) then
         Form.Top := Screen.Height - 50;
-      Form.WindowState := TWindowState(ReadIntegerWithDefault('WindowState', Integer(wsNormal)));
-      if Form.WindowState = wsMaximized then begin
+      RestoredWindowState := TWindowState(ReadIntegerWithDefault('WindowState', Integer(wsNormal)));
+      if RestoredWindowState = wsMaximized then begin
         RestoredWidth := ReadIntegerWithDefault('RestoredWidth', Form.RestoredWidth);
         RestoredHeight := ReadIntegerWithDefault ('RestoredHeight', Form.RestoredHeight);
@@ -56 +57 @@
         Form.SetRestoredBounds(RestoredLeft, RestoredTop, RestoredWidth, RestoredHeight);
       end;
+      Form.WindowState := RestoredWindowState;
 
       if ReadBoolWithDefault('Visible', False) then Form.Show;