ブラウザの最大化に BrowserMaxAndFocusAction を使うように修正。

diff --git a/Giko.pas b/Giko.pas
index b5d631c..2431dbb 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -4250,15 +4250,11 @@ begin
        if GikoSys.Setting.BrowserAutoMaximize = gbmClick then begin
                if GikoSys.Setting.ListOrientation = gloHorizontal then begin
                        if GikoSys.Setting.ListWidthState = glsMin then begin
-                               BrowserMaxAction.Execute;
-                               if GikoForm.Visible then
-                                       Browser.SetFocus;
+                               BrowserMaxAndFocusAction.Execute;
                        end;
                end else begin
                        if GikoSys.Setting.ListHeightState = glsMin then begin
-                               BrowserMaxAction.Execute;
-                               if GikoForm.Visible then
-                                       Browser.SetFocus;
+                               BrowserMaxAndFocusAction.Execute;
                        end;
                end;
        end;
@@ -4293,15 +4289,11 @@ begin
        if GikoSys.Setting.BrowserAutoMaximize = gbmDoubleClick then begin
                if GikoSys.Setting.ListOrientation = gloHorizontal then begin
                        if GikoSys.Setting.ListWidthState = glsMin then begin
-                               BrowserMaxAction.Execute;
-                               if GikoForm.Visible then
-                                       Browser.SetFocus;
+                               BrowserMaxAndFocusAction.Execute;
                        end;
                end else begin
                        if GikoSys.Setting.ListHeightState = glsMin then begin
-                               BrowserMaxAction.Execute;
-                               if GikoForm.Visible then
-                                       Browser.SetFocus;
+                               BrowserMaxAndFocusAction.Execute;
                        end;
                end;
        end;
@@ -6891,15 +6883,11 @@ begin
 
                if GikoSys.Setting.ListOrientation = gloHorizontal then begin
                        if GikoSys.Setting.ListWidthState = glsMin then begin
-                               BrowserMaxAction.Execute;
-                               if GikoForm.Visible then
-                                       Browser.SetFocus;
+                               BrowserMaxAndFocusAction.Execute;
                        end;
                end else begin
                        if GikoSys.Setting.ListHeightState = glsMin then begin
-                               BrowserMaxAction.Execute;
-                               if GikoForm.Visible then
-                                       Browser.SetFocus;
+                               BrowserMaxAndFocusAction.Execute;
                        end;
                end;
        end;
@@ -9507,15 +9495,11 @@ begin
        end else if (X = FMouseDownPos.X) and (Y = FMouseDownPos.Y) then begin
                if GikoSys.Setting.ListOrientation = gloHorizontal then begin
                        if GikoSys.Setting.ListWidthState = glsMin then begin
-                               BrowserMaxAction.Execute;
-                               if GikoForm.Visible then
-                                       Browser.SetFocus;
+                               BrowserMaxAndFocusAction.Execute;
                        end;
                end else begin
                        if GikoSys.Setting.ListHeightState = glsMin then begin
-                               BrowserMaxAction.Execute;
-                               if GikoForm.Visible then
-                                       Browser.SetFocus;
+                               BrowserMaxAndFocusAction.Execute;
                        end;
                end;
        end;