Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/GikoDataModule.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.20 by h677, Sat Dec 10 11:01:53 2005 UTC revision 1.21 by h677, Mon Dec 12 14:12:56 2005 UTC
# Line 430  uses Line 430  uses
430          ToolBarUtil, NewBoard, HTMLCreate, IndividualAbon,          ToolBarUtil, NewBoard, HTMLCreate, IndividualAbon,
431          GikoBayesian, About, ShellAPI,          GikoBayesian, About, ShellAPI,
432          RoundName, RoundData, Menus, ListViewUtils,          RoundName, RoundData, Menus, ListViewUtils,
433          ThreadControl;          ThreadControl, GikoMessage;
434    
435    
436  {$R *.dfm}  {$R *.dfm}
# Line 1817  begin Line 1817  begin
1817                  //ログアウト                  //ログアウト
1818                  GikoSys.Dolib.Disconnect;                  GikoSys.Dolib.Disconnect;
1819                  LoginAction.Checked := False;                  LoginAction.Checked := False;
1820                  GikoForm.AddMessageList(GikoSys.Setting.GetMessage(Ord(gmLogout)), nil, gmiOK);                  GikoForm.AddMessageList(GikoSys.GetGikoMessage(gmLogout), nil, gmiOK);
1821                  LoginAction.Caption := 'ログイン(&L)';                  LoginAction.Caption := 'ログイン(&L)';
1822          end else begin          end else begin
1823                  TmpCursor := GikoForm.ScreenCursor;                  TmpCursor := GikoForm.ScreenCursor;
# Line 1837  begin Line 1837  begin
1837                                  end;                                  end;
1838                                  if GikoSys.Dolib.Connect then begin                                  if GikoSys.Dolib.Connect then begin
1839                                          LoginAction.Checked := True;                                          LoginAction.Checked := True;
1840                                          GikoForm.AddMessageList(GikoSys.Setting.GetMessage(Ord(gmLogin)) + GikoSys.Setting.UserID, nil, gmiOK);                                          GikoForm.AddMessageList(GikoSys.GetGikoMessage(gmLogin) + GikoSys.Setting.UserID, nil, gmiOK);
1841                                          LoginAction.Caption := 'ログアウト(&L)';                                          LoginAction.Caption := 'ログアウト(&L)';
1842                                          //LoginToolButton.Style := tbsCheck;                                          //LoginToolButton.Style := tbsCheck;
1843                                  end else begin                                  end else begin
# Line 1867  begin Line 1867  begin
1867                                          GikoSys.Dolib.ForcedConnect;                                          GikoSys.Dolib.ForcedConnect;
1868                                          if GikoSys.Dolib.Connect then begin                                          if GikoSys.Dolib.Connect then begin
1869                                                  LoginAction.Checked := True;                                                  LoginAction.Checked := True;
1870                                                  GikoForm.AddMessageList(GikoSys.Setting.GetMessage(Ord(gmForceLogin)) + GikoSys.Setting.UserID, nil, gmiOK);                                                  GikoForm.AddMessageList(GikoSys.GetGikoMessage(gmForceLogin) + GikoSys.Setting.UserID, nil, gmiOK);
1871                                                  LoginAction.Caption := 'ログアウト(&L)';                                                  LoginAction.Caption := 'ログアウト(&L)';
1872                                                  //LoginToolButton.Style := tbsCheck;                                                  //LoginToolButton.Style := tbsCheck;
1873                                                  end else begin                                                  end else begin

Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26