This commit was manufactured by cvs2svn to create tag 'v1_62_0_811'.

[gikonavigoeson/gikonavi.git] / Giko.pas

diff --git a/Giko.pas b/Giko.pas
index 94a8bee..c57e798 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -425,6 +425,7 @@ type
     URL2: TMenuItem;
     URLPATHINFO1: TMenuItem;
     URLQUERYSTRING1: TMenuItem;
+    N86: TMenuItem;
                                procedure FormCreate(Sender: TObject);
                procedure FormDestroy(Sender: TObject);
         procedure SaveSettingAll();
@@ -1334,7 +1335,8 @@ begin
        if GikoSys.Setting.AutoLogin then
                GikoDM.LoginAction.Execute;
 
-       GikoSys.Setting.BeLogin := GikoSys.Setting.BeAutoLogin;
+    if GikoSys.Setting.BeAutoLogin then
+        GikoDM.BeLogInOutAction.Execute;
 
        //\83L\83\83\83v\83V\83\87\83\93\82ª\8fã\8f\91\82«\82³\82ê\82Ä\82µ\82Ü\82¤\82Ì\82Å\81A\82±\82±\82Å\8dÄ\90Ý\92è
        FavoriteAddToolButton.Caption := '\92Ç\89Á...';
@@ -1633,7 +1635,8 @@ begin
     GikoSys.Setting.WriteWindowSettingFile;
     // \96¼\91O\82Æ\83\81\81[\83\8b\82Ì\95Û\91¶\82È\82Ì\82Å\83G\83f\83B\83^\82ª\95Â\82¶\82½\8cã\82È\82ç\82¢\82Â\82Å\82à\82¢\82¢
     GikoSys.Setting.WriteNameMailSettingFile;
-
+    // \96`\8c¯\82Ì\8f\91\82Ì\95Û\91¶
+    GikoSys.Setting.WriteBoukenSettingFile;
        //\93ü\97Í\83A\83V\83X\83g\8b@\8d\\82Ì\90Ý\92è\82Ì\95Û\91¶
        InputAssistDM.SaveToFile(GikoSys.GetInputAssistFileName);
 
@@ -3868,6 +3871,7 @@ begin
                TreeSelectFavoriteAddPupupMenu.Visible := False;
                TreeSelectLogDeleteSeparator.Visible := False;
                TreeSelectLogDeletePopupMenu.Visible := False;
+        SearchBoardName.Visible := False;
        end else if TObject(FClickNode.Data) is TBoard then begin
                TreeSelectThreadPupupMenu.Visible := False;
                TreeSelectBoardPupupMenu.Visible := True;
@@ -3878,6 +3882,7 @@ begin
                TreeSelectFavoriteAddPupupMenu.Visible := True;
                TreeSelectLogDeleteSeparator.Visible := False;
                TreeSelectLogDeletePopupMenu.Visible := False;
+        SearchBoardName.Visible := True;
        end else if TObject(FClickNode.Data) is TFavoriteBoardItem then begin
                TreeSelectThreadPupupMenu.Visible := False;
                TreeSelectBoardPupupMenu.Visible := True;
@@ -3888,6 +3893,7 @@ begin
                TreeSelectFavoriteAddPupupMenu.Visible := True;
                TreeSelectLogDeleteSeparator.Visible := False;
                TreeSelectLogDeletePopupMenu.Visible := False;
+        SearchBoardName.Visible := False;
        end else if (TObject(FClickNode.Data) is TThreadItem) then begin
                TreeSelectThreadPupupMenu.Visible := True;
                TreeSelectBoardPupupMenu.Visible := False;
@@ -3898,6 +3904,7 @@ begin
                TreeSelectFavoriteAddPupupMenu.Visible := True;
                TreeSelectLogDeleteSeparator.Visible := True;
                TreeSelectLogDeletePopupMenu.Visible := True;
+        SearchBoardName.Visible := False;
        end else if (TObject(FClickNode.Data) is TFavoriteThreadItem) then begin
                TreeSelectThreadPupupMenu.Visible := True;
                TreeSelectBoardPupupMenu.Visible := False;
@@ -3908,6 +3915,7 @@ begin
                TreeSelectFavoriteAddPupupMenu.Visible := True;
                TreeSelectLogDeleteSeparator.Visible := True;
                TreeSelectLogDeletePopupMenu.Visible := True;
+        SearchBoardName.Visible := False;
        end else if (TObject(FClickNode.Data) is TCategory) then begin
                TreeSelectThreadPupupMenu.Visible := False;
                TreeSelectBoardPupupMenu.Visible := False;
@@ -3918,6 +3926,7 @@ begin
                TreeSelectFavoriteAddPupupMenu.Visible := False;
                TreeSelectLogDeleteSeparator.Visible := False;
                TreeSelectLogDeletePopupMenu.Visible := False;
+        SearchBoardName.Visible := True;
        end else if FClickNode.IsFirstNode then begin
                TreeSelectThreadPupupMenu.Visible := False;
                TreeSelectBoardPupupMenu.Visible := False;
@@ -3928,6 +3937,7 @@ begin
                TreeSelectFavoriteAddPupupMenu.Visible := False;
                TreeSelectLogDeleteSeparator.Visible := False;
                TreeSelectLogDeletePopupMenu.Visible := False;
+        SearchBoardName.Visible := True;
        end else begin
                TreeSelectThreadPupupMenu.Visible := False;
                TreeSelectBoardPupupMenu.Visible := False;
@@ -3938,6 +3948,7 @@ begin
                TreeSelectFavoriteAddPupupMenu.Visible := False;
                TreeSelectLogDeleteSeparator.Visible := False;
                TreeSelectLogDeletePopupMenu.Visible := False;
+        SearchBoardName.Visible := False;
        end;
 end;