・キャビネットを表示したまま終了しても、

　次回起動時にキャビネットが表示されなくなってしまったので修正。

diff --git a/Giko.pas b/Giko.pas
index efcd66a..ae5e144 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -1157,8 +1157,6 @@ begin
        //\8ae\8eí\89Â\8e\8b\8fó\91Ô\82È\82Ç\90Ý\92è
 
        //\83L\83\83\83r\83l\83b\83g
-       CabinetVisibleAction.Checked := not GikoSys.Setting.CabinetVisible;
-       CabinetVisibleAction.Execute;
        CabinetPanel.Width := GikoSys.Setting.CabinetWidth;
 
        //\83\81\83b\83Z\81[\83W\83o\81[
@@ -1434,18 +1432,19 @@ begin
 
        // \82Q\82¿\82á\82ñ\82Ë\82é\83L\83\83\83r\83l\83b\83g\82Ì\8fó\91Ô\95\9c\8c³(\96¢\8eÀ\91\95)
        // \82¨\82æ\82Ñ\83X\83\8c\88ê\97\97\83y\83C\83\93\82Ì\8fó\91Ô\95\9c\8c³(\96¢\8eÀ\91\95\81A\8c»\8dÝ\82Í\8f\89\8aú\95\\8e¦\97p)
-       i := GikoSys.Setting.CabinetIndex;
-       ShowBBSTree( BBSs[ 0 ] );
-       GikoSys.Setting.CabinetIndex := i;
+       //i := GikoSys.Setting.CabinetIndex;
+       //ShowBBSTree( BBSs[ 0 ] );
+       //GikoSys.Setting.CabinetIndex := i;
 
        // \8dÅ\8cã\82É\91I\91ð\82³\82ê\82½\83L\83\83\83r\83l\83b\83g\82Ì\95\9c\8c³
-       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;
 
        //\83I\81[\83g\83\8d\83O\83C\83\93
        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;