最小化時にタスクトレイに入れる設定で、最大化したまま、最小化して、終了すると、

次回通常サイズで起動する不具合の修正

diff --git a/Giko.pas b/Giko.pas
index 3469e7d..971e6b6 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -1550,6 +1550,7 @@ var
        wp                      : TWindowPlacement;
        tmpBool : Boolean;
     doc:IHTMLDocument2;
+    WindowPlacement: TWindowPlacement;
 begin
     // \83^\83X\83N\83g\83\8c\83C\82Ì\83A\83C\83R\83\93\8dí\8f\9c
     if (FIconData.uID <> 0) then begin
@@ -1573,6 +1574,9 @@ begin
        except
        end;
        try
+        WindowPlacement.length := SizeOf(TWindowPlacement);
+        GetWindowPlacement(Self.Handle, @WindowPlacement);
+
                //\8dÅ\91å\89»\81E\83E\83B\83\93\83h\83E\88Ê\92u\95Û\91¶
                wp.length := sizeof(wp);
                GetWindowPlacement(Handle, @wp);
@@ -1580,8 +1584,8 @@ begin
                GikoSys.Setting.WindowLeft := wp.rcNormalPosition.Left;
                GikoSys.Setting.WindowHeight := wp.rcNormalPosition.Bottom - wp.rcNormalPosition.Top;
                GikoSys.Setting.WindowWidth := wp.rcNormalPosition.Right - wp.rcNormalPosition.Left;
-               GikoSys.Setting.WindowMax := WindowState = wsMaximized;
-
+               GikoSys.Setting.WindowMax := (WindowState = wsMaximized) or
+                                        (WindowPlacement.flags = WPF_RESTORETOMAXIMIZED);
                GikoSys.Setting.ListStyle := ListView.ViewStyle;
                GikoSys.Setting.CabinetVisible := GikoDM.CabinetVisibleAction.Checked;
                GikoSys.Setting.CabinetWidth := CabinetPanel.Width;