From 5c06cff7240108f67ac32058c82153801c44486e Mon Sep 17 00:00:00 2001 From: yoffy Date: Mon, 5 Apr 2004 11:02:40 +0000 Subject: [PATCH] =?utf8?q?=E3=83=BB=E8=B5=B7=E5=8B=95=E6=99=82=E3=81=AB?= =?utf8?q?=E3=83=95=E3=82=A9=E3=83=BC=E3=82=AB=E3=82=B9=E3=81=AE=E8=A8=AD?= =?utf8?q?=E5=AE=9A=E3=81=A7=E3=82=A8=E3=83=A9=E3=83=BC=E3=81=8C=E7=99=BA?= =?utf8?q?=E7=94=9F=E3=81=97=E3=81=A6=E3=81=97=E3=81=BE=E3=81=86=E3=81=AE?= =?utf8?q?=E3=81=A7=E4=BF=AE=E6=AD=A3=E3=80=82?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- Giko.pas | 21 ++++++++++++--------- 1 file changed, 12 insertions(+), 9 deletions(-) diff --git a/Giko.pas b/Giko.pas index c5c8369..9824285 100644 --- 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; //ƒcƒŠ[ƒgƒbƒv€–Ú‚¾‚¯‚ðŠJ‚­ //ƒcƒŠ[‚̃gƒbƒv€–Ú‚ð‘I‘ð‚·‚é 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; -- 2.11.0