[JVCL-Checkins] SF.net SVN: jvcl:[13208] trunk/jvcl/run/JvJVCLUtils.pas

[<ob...@us...>]

Revision: 13208
          http://jvcl.svn.sourceforge.net/jvcl/?rev=13208&view=rev
Author:   obones
Date:     2012-02-23 10:50:12 +0000 (Thu, 23 Feb 2012)
Log Message:
-----------
Mantis 5621: If no values are here, use the ones from design time

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

Modified: trunk/jvcl/run/JvJVCLUtils.pas
===================================================================
--- trunk/jvcl/run/JvJVCLUtils.pas	2012-02-23 10:39:11 UTC (rev 13207)
+++ trunk/jvcl/run/JvJVCLUtils.pas	2012-02-23 10:50:12 UTC (rev 13208)
@@ -3817,6 +3817,7 @@
   Placement: TWindowPlacement;
   WinState: TWindowState;
   DataFound: Boolean;
+  OriginalShowCmd: UINT;
 
   procedure ChangePosition(APosition: TPosition);
   begin
@@ -3846,6 +3847,7 @@
   try
     Placement.Length := SizeOf(TWindowPlacement);
     GetWindowPlacement(Form.Handle, @Placement);
+    OriginalShowCmd := Placement.ShowCmd;
     if not IsWindowVisible(Form.Handle) then
       Placement.ShowCmd := SW_HIDE;
     if [fpSize, fpLocation] * Options <> [] then
@@ -3934,7 +3936,7 @@
         (Application.MainForm = nil)) and ((Form.FormStyle = fsMDIForm) or
         ((Form.FormStyle = fsNormal) and (Form.Position = poDefault))) then
         WinState := wsMaximized;
-      Placement.ShowCmd := AppStorage.ReadInteger(AppStorage.ConcatPaths([StorePath, siShowCmd]), SW_HIDE);
+      Placement.ShowCmd := AppStorage.ReadInteger(AppStorage.ConcatPaths([StorePath, siShowCmd]), OriginalShowCmd);
       case Placement.ShowCmd of
         SW_SHOWNORMAL, SW_RESTORE, SW_SHOW:
           WinState := wsNormal;

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