[JVCL-Checkins] SF.net SVN: jvcl: [11198] trunk/jvcl/run/JvFormPlacement.pas

[<jfu...@us...>]

Revision: 11198
          http://svn.sourceforge.net/jvcl/?rev=11198&view=rev
Author:   jfudickar
Date:     2007-03-02 14:41:26 -0800 (Fri, 02 Mar 2007)

Log Message:
-----------
Mantis 0004002 : JvFormStorage - Form's state is restored when show it after having hidden Form.
(Mantis #0004002)

Modified Paths:
--------------
    trunk/jvcl/run/JvFormPlacement.pas

Modified: trunk/jvcl/run/JvFormPlacement.pas
===================================================================
--- trunk/jvcl/run/JvFormPlacement.pas	2007-03-02 22:31:35 UTC (rev 11197)
+++ trunk/jvcl/run/JvFormPlacement.pas	2007-03-02 22:41:26 UTC (rev 11198)
@@ -325,6 +325,9 @@
   FVersion := 0;
   FVersionCheck := fpvcCheckGreaterEqual;
   FAppStoragePath := cFormNameMask;
+  FSaved := False;
+  FRestored := False;
+  FDestroying := False;
 end;
 
 destructor TJvFormPlacement.Destroy;
@@ -594,7 +597,7 @@
 
 procedure TJvFormPlacement.FormShow(Sender: TObject);
 begin
-  if IsActive then
+  if IsActive and not FRestored then
   try
     RestoreFormPlacement;
   except
@@ -866,9 +869,6 @@
 
 procedure TJvFormPlacement.SaveFormPlacement;
 begin
-  { (marcelb) say what? Store when the component has done a restore previously or if it's inactive?
-    I think it should only store if Active is set to True. Changed accordingly }
-//  if FRestored or not Active then
   if Assigned(AppStorage) then
   begin
     if VersionCheck <> fpvcNocheck then


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.