From 5a39c66a92bd5cb012f61064fbf2467f66954a24 Mon Sep 17 00:00:00 2001 From: yoffy Date: Mon, 24 Nov 2003 10:50:48 +0000 Subject: [PATCH] =?utf8?q?=E3=83=BB=E3=82=AD=E3=83=A3=E3=83=93=E3=83=8D?= =?utf8?q?=E3=83=83=E3=83=88=E3=82=92=E8=A1=A8=E7=A4=BA=E3=81=97=E3=81=9F?= =?utf8?q?=E3=81=BE=E3=81=BE=E7=B5=82=E4=BA=86=E3=81=97=E3=81=A6=E3=82=82?= =?utf8?q?=E3=80=81=20=E3=80=80=E6=AC=A1=E5=9B=9E=E8=B5=B7=E5=8B=95?= =?utf8?q?=E6=99=82=E3=81=AB=E3=82=AD=E3=83=A3=E3=83=93=E3=83=8D=E3=83=83?= =?utf8?q?=E3=83=88=E3=81=8C=E8=A1=A8=E7=A4=BA=E3=81=95=E3=82=8C=E3=81=AA?= =?utf8?q?=E3=81=8F=E3=81=AA=E3=81=A3=E3=81=A6=E3=81=97=E3=81=BE=E3=81=A3?= =?utf8?q?=E3=81=9F=E3=81=AE=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 | 25 ++++++++++++------------- 1 file changed, 12 insertions(+), 13 deletions(-) diff --git a/Giko.pas b/Giko.pas index efcd66a..ae5e144 100644 --- a/Giko.pas +++ b/Giko.pas @@ -1157,8 +1157,6 @@ begin //ŠeŽí‰ÂŽ‹ó‘ԂȂǐݒè //ƒLƒƒƒrƒlƒbƒg - CabinetVisibleAction.Checked := not GikoSys.Setting.CabinetVisible; - CabinetVisibleAction.Execute; CabinetPanel.Width := GikoSys.Setting.CabinetWidth; //ƒƒbƒZ[ƒWƒo[ @@ -1434,18 +1432,19 @@ begin // ‚Q‚¿‚á‚ñ‚Ë‚éƒLƒƒƒrƒlƒbƒg‚̏ó‘Ô•œŒ³(–¢ŽÀ‘•) // ‚¨‚æ‚уXƒŒˆê——ƒyƒCƒ“‚̏ó‘Ô•œŒ³(–¢ŽÀ‘•AŒ»Ý‚͏‰Šú•\Ž¦—p) - i := GikoSys.Setting.CabinetIndex; - ShowBBSTree( BBSs[ 0 ] ); - GikoSys.Setting.CabinetIndex := i; + //i := GikoSys.Setting.CabinetIndex; + //ShowBBSTree( BBSs[ 0 ] ); + //GikoSys.Setting.CabinetIndex := i; // ÅŒã‚É‘I‘ð‚³‚ê‚½ƒLƒƒƒrƒlƒbƒg‚Ì•œŒ³ - if GikoSys.Setting.CabinetVisible then begin - Case GikoSys.Setting.CabinetIndex of - 0: CabinetBBSAction.Execute; - 1: CabinetHistoryAction.Execute; - 2: CabinetFavoriteAction.Execute; - end; - end; + CabinetVisible( False ); + if GikoSys.Setting.CabinetVisible then begin + Case GikoSys.Setting.CabinetIndex of + 0: CabinetBBSAction.Execute; + 1: CabinetHistoryAction.Execute; + 2: CabinetFavoriteAction.Execute; + end; + end; //ƒI[ƒgƒƒOƒCƒ“ if GikoSys.Setting.AutoLogin then @@ -1880,7 +1879,7 @@ begin for i := CabinetSelectPopupMenu.Items.Count - 1 downto 0 do begin try if CabinetSelectPopupMenu.Items[ i ] is TBBSMenuItem then begin - CabinetSelectPopupMenu.Items[ i ].Free; + //CabinetSelectPopupMenu.Items[ i ].Free; CabinetSelectPopupMenu.Items.Delete( i ); CabinetMenu.Delete( i ); end; -- 2.11.0