Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Setting.pas

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

revision 1.89 by h677, Wed Mar 30 14:09:02 2005 UTC revision 1.90 by h677, Thu Mar 31 13:01:55 2005 UTC
# Line 440  type Line 440  type
440                  //認証用ユーザID・パスワード                  //認証用ユーザID・パスワード
441                  FBeUserID: String;                  FBeUserID: String;
442                  FBeCode: String;                  FBeCode: String;
443                  FBeAutoLogin: Boolean;                  FBeAutoLogin: Boolean;
444            FBeLogin: Boolean;
445    
446                  function GetMainCoolSet(Index: Integer): TCoolSet;                  function GetMainCoolSet(Index: Integer): TCoolSet;
447                  function GetBoardCoolSet(Index: Integer): TCoolSet;                  function GetBoardCoolSet(Index: Integer): TCoolSet;
# Line 752  type Line 753  type
753                  property BeUserID: string read FBeUserID write FBeUserID;                  property BeUserID: string read FBeUserID write FBeUserID;
754                  property BeCode: string read FBeCode write FBeCode;                  property BeCode: string read FBeCode write FBeCode;
755                  property BeAutoLogin: Boolean read FBeAutoLogin write FBeAutoLogin;                  property BeAutoLogin: Boolean read FBeAutoLogin write FBeAutoLogin;
756            property BeLogin: Boolean read FBeLogin write FBeLogin;
757  end;  end;
758    
759    
# Line 1328  begin Line 1330  begin
1330                  FMute := ini.ReadBool('Function', 'Mute', false);                  FMute := ini.ReadBool('Function', 'Mute', false);
1331                  FUseUndecided := ini.ReadBool('ThreadList', 'UseUndecided', False);                  FUseUndecided := ini.ReadBool('ThreadList', 'UseUndecided', False);
1332    
1333                  //Be2ch          //Be2ch
1334                  //認証用ユーザID・パスワード          //認証用ユーザID・認証コード
1335                  FBeUserID := ini.ReadString('Be', 'UserID', '');                  FBeUserID := ini.ReadString('Be', 'UserID', '');
1336                  FBeCode := Decrypt(ini.ReadString('Be', 'Password', ''));                  FBeCode := Decrypt(ini.ReadString('Be', 'Code', ''));
1337                  FBeAutoLogin := ini.ReadBool('Be', 'AutoLogin', False);                  FBeAutoLogin := ini.ReadBool('Be', 'AutoLogin', False);
1338                  ini.UpdateFile;                  ini.UpdateFile;
1339          finally          finally
# Line 1684  begin Line 1686  begin
1686    
1687                  //認証用ユーザID・パスワード                  //認証用ユーザID・パスワード
1688                  ini.WriteString('Be', 'UserID', FBeUserID);                  ini.WriteString('Be', 'UserID', FBeUserID);
1689                  ini.WriteString('Be', 'Password', Encrypt(FBeCode));                  ini.WriteString('Be', 'Code', Encrypt(FBeCode));
1690                  ini.WriteBool('Be', 'AutoLogin', FBeAutoLogin);                  ini.WriteBool('Be', 'AutoLogin', FBeAutoLogin);
1691    
1692                  ini.UpdateFile;                  ini.UpdateFile;

Legend:
Removed from v.1.89  
changed lines
  Added in v.1.90

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