・起動時にフォーカスの設定でエラーが発生してしまうので修正。

diff --git a/Giko.pas b/Giko.pas
index c5c8369..9824285 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -3313,12 +3313,14 @@ begin
        if GikoSys.Setting.ListOrientation = gloHorizontal then begin
                if GikoSys.Setting.ListWidthState = glsMax then begin
                        BrowserMinAction.Execute;
-                       ListView.SetFocus;
+                       if GikoForm.Visible then
+                               ListView.SetFocus;
                end;
        end else begin
                if GikoSys.Setting.ListHeightState = glsMax then begin
                        BrowserMinAction.Execute;
-                       ListView.SetFocus;
+                       if GikoForm.Visible then
+                               ListView.SetFocus;
                end;
        end;
 end;
@@ -3680,11 +3682,10 @@ begin
                        TreeView.TopItem.Expanded := True;                              //\83c\83\8a\81[\83g\83b\83v\8d\80\96Ú\82¾\82¯\82ð\8aJ\82­
                        //\83c\83\8a\81[\82Ì\83g\83b\83v\8d\80\96Ú\82ð\91I\91ð\82·\82é
                        if GetActiveList = nil then begin
-                try
-                       TreeClick( TreeView.Items[0] );
-                except
-                end;
-
+                               try
+                                       TreeClick( TreeView.Items[0] );
+                               except
+                               end;
                        end else begin
                                for i := 0 to TreeView.Items.Count - 1 do begin
                                        if TreeView.Items[i].Data = GetActiveList then begin
@@ -3930,12 +3931,14 @@ begin
                if GikoSys.Setting.ListOrientation = gloHorizontal then begin
                        if GikoSys.Setting.ListWidthState = glsMin then begin
                                BrowserMaxAction.Execute;
-                               Browser.SetFocus;
+                               if GikoForm.Visible then
+                                       Browser.SetFocus;
                        end;
                end else begin
                        if GikoSys.Setting.ListHeightState = glsMin then begin
                                BrowserMaxAction.Execute;
-                               Browser.SetFocus;
+                               if GikoForm.Visible then
+                                       Browser.SetFocus;
                        end;
                end;
        end;