Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

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

revision 1.457 by yoffy, Mon Oct 11 15:59:17 2004 UTC revision 1.458 by genyakun, Tue Oct 12 01:21:35 2004 UTC
# Line 1715  begin Line 1715  begin
1715          //Samba24のファイルチェック          //Samba24のファイルチェック
1716          GikoSys.SambaFileExists();          GikoSys.SambaFileExists();
1717    
                                 //にちゃん語ファイル読み出し  
   
1718          // マウスジェスチャー          // マウスジェスチャー
1719          MouseGesture := TMouseGesture.Create;          MouseGesture := TMouseGesture.Create;
1720          GikoSys.Setting.Gestures.LoadGesture(          GikoSys.Setting.Gestures.LoadGesture(
# Line 1727  begin Line 1725  begin
1725          MouseGesture.OnGestureEnd := OnGestureEnd;          MouseGesture.OnGestureEnd := OnGestureEnd;
1726          if GikoSys.Setting.GestureEnabled then          if GikoSys.Setting.GestureEnabled then
1727                  MouseGesture.SetHook( Handle );                  MouseGesture.SetHook( Handle );
1728    
1729            //2ch言語読み出し
1730            if GikoSys.Setting.GengoSupport then begin
1731                    GikoSys.Setting.Gengo := TStringList.Create;
1732                    GikoSys.Setting.Gengo.LoadFromFile(GikoSys.GetConfigDir + 'language.ini');
1733            end;
1734  end;  end;
1735    
1736  // CoolBar の設定を変数に保存  // CoolBar の設定を変数に保存
# Line 1914  begin Line 1918  begin
1918                          TabAutoSaveAction.Execute;                          TabAutoSaveAction.Execute;
1919                  end;                  end;
1920          end;          end;
1921            //2ch言語ファイルFree
1922            if GikoSys.Setting.GengoSupport then begin
1923                    GikoSys.Setting.Gengo.Free;
1924            end;
1925          //Application.HookMainWindow(Hook);          //Application.HookMainWindow(Hook);
1926          Application.UnhookMainWindow(Hook);          Application.UnhookMainWindow(Hook);
1927          Application.Terminate;          Application.Terminate;
# Line 6872  begin Line 6880  begin
6880                  //ログアウト                  //ログアウト
6881                  GikoSys.Dolib.Disconnect;                  GikoSys.Dolib.Disconnect;
6882                  LoginAction.Checked := False;                  LoginAction.Checked := False;
6883                    if GikoSys.Setting.GengoSupport then begin
6884                            AddMessageList(GikoSys.Setting.Gengo.Names[1], nil, gmiOK);
6885                    end;
6886                  AddMessageList('ログアウトしました', nil, gmiOK);                  AddMessageList('ログアウトしました', nil, gmiOK);
6887                  LoginAction.Caption := 'ログイン(&L)';                  LoginAction.Caption := 'ログイン(&L)';
6888          end else begin          end else begin
# Line 6892  begin Line 6903  begin
6903                                  end;                                  end;
6904                                  if GikoSys.Dolib.Connect then begin                                  if GikoSys.Dolib.Connect then begin
6905                                          LoginAction.Checked := True;                                          LoginAction.Checked := True;
6906                                    if GikoSys.Setting.GengoSupport then begin
6907                                            AddMessageList(GikoSys.Setting.Gengo.Names[2] + GikoSys.Setting.UserID, nil, gmiOK);
6908                                    end;
6909                                          AddMessageList('ログインしました - ' + GikoSys.Setting.UserID, nil, gmiOK);                                          AddMessageList('ログインしました - ' + GikoSys.Setting.UserID, nil, gmiOK);
6910                                          LoginAction.Caption := 'ログアウト(&L)';                                          LoginAction.Caption := 'ログアウト(&L)';
6911                      LoginToolButton.Style := tbsCheck;                      LoginToolButton.Style := tbsCheck;

Legend:
Removed from v.1.457  
changed lines
  Added in v.1.458

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