- TabSaveDialog および TabOpenDialog が見つからなかったのでコメントアウト。

- スレッドをダブルクリックするとブラウザが最大化する設定になっていても
　最大化されない問題に対処。
　※BrowserMaxAndFocusAction.Execute を呼んだ場合に
　　BrowserMaxAndFocusActionUpdate が Execute の実行を
　　キャンセルしてしまっているようなので、
　　Execute の中身を手動でインライン展開して強引に解決している。識者求む。

diff --git a/Giko.pas b/Giko.pas
index 18877b4..e89f7de 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -872,8 +872,8 @@ type
     procedure FavoriteTreeViewMouseUp(Sender: TObject;
       Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
     procedure OnlyAHundredResUpdate(Sender: TObject);
-    procedure SetFocusForBrowserActionExecute(Sender: TObject);
-    procedure SetFocusForBrowserActionUpdate(Sender: TObject);
+               procedure SetFocusForBrowserActionExecute(Sender: TObject);
+               procedure SetFocusForBrowserActionUpdate(Sender: TObject);
     procedure SetFocusForThreadListActionExecute(Sender: TObject);
     procedure SetFocusForCabinetActionExecute(Sender: TObject);
     procedure BrowserMaxAndFocusActionExecute(Sender: TObject);
@@ -4385,11 +4385,15 @@ begin
                if GikoSys.Setting.BrowserAutoMaximize = gbmDoubleClick then begin
                        if GikoSys.Setting.ListOrientation = gloHorizontal then begin
                                if GikoSys.Setting.ListWidthState = glsMin then begin
-                                       BrowserMaxAndFocusAction.Execute;
+//                                     BrowserMaxAndFocusAction.Execute;
+                                       BrowserMaxAction.Execute;
+                                       SetFocusForBrowserAction.Execute;
                                end;
                        end else begin
                                if GikoSys.Setting.ListHeightState = glsMin then begin
-                                       BrowserMaxAndFocusAction.Execute;
+//                                     BrowserMaxAndFocusAction.Execute;
+                                       BrowserMaxAction.Execute;
+                                       SetFocusForBrowserAction.Execute;
                                end;
                        end;
                end;
@@ -10767,9 +10771,9 @@ begin
        SaveTabList := TStringList.Create;
        try
                GetTabURLs(SaveTabList);
-               if TabSaveDialog.Execute then begin
-                       SaveTabList.SaveToFile(TabSaveDialog.FileName);
-               end;
+//             if TabSaveDialog.Execute then begin
+//                     SaveTabList.SaveToFile(TabSaveDialog.FileName);
+//             end;
        finally
                SaveTabList.Free;
        end;
@@ -10785,9 +10789,9 @@ begin
        URLs := TStringList.Create();
        try
                try
-                       if TabOpenDialog.Execute then begin
-                               URLs.LoadFromFile(TabOpenDialog.FileName);
-                       end;
+//                     if TabOpenDialog.Execute then begin
+//                             URLs.LoadFromFile(TabOpenDialog.FileName);
+//                     end;
                except
                        on EFOpenError do ShowMessage('\83^\83u\83t\83@\83C\83\8b\82ª\8aJ\82¯\82Ü\82¹\82ñ');
                end;