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Á...';
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);
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;
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;
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;
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;
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;
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;
TreeSelectFavoriteAddPupupMenu.Visible := False;
TreeSelectLogDeleteSeparator.Visible := False;
TreeSelectLogDeletePopupMenu.Visible := False;
+ SearchBoardName.Visible := True;
end else begin
TreeSelectThreadPupupMenu.Visible := False;
TreeSelectBoardPupupMenu.Visible := False;
TreeSelectFavoriteAddPupupMenu.Visible := False;
TreeSelectLogDeleteSeparator.Visible := False;
TreeSelectLogDeletePopupMenu.Visible := False;
+ SearchBoardName.Visible := False;
end;
end;