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.90 by h677, Thu Mar 31 13:01:55 2005 UTC revision 1.91 by h677, Sun Jun 5 14:10:30 2005 UTC
# Line 441  type Line 441  type
441                  FBeUserID: String;                  FBeUserID: String;
442                  FBeCode: String;                  FBeCode: String;
443                  FBeAutoLogin: Boolean;                  FBeAutoLogin: Boolean;
444          FBeLogin: Boolean;                  FBeLogin: Boolean;
445                    //履歴の最大保存件数
446                    FMaxRecordCount : Integer;
447    
448                  function GetMainCoolSet(Index: Integer): TCoolSet;                  function GetMainCoolSet(Index: Integer): TCoolSet;
449                  function GetBoardCoolSet(Index: Integer): TCoolSet;                  function GetBoardCoolSet(Index: Integer): TCoolSet;
# Line 753  type Line 755  type
755                  property BeUserID: string read FBeUserID write FBeUserID;                  property BeUserID: string read FBeUserID write FBeUserID;
756                  property BeCode: string read FBeCode write FBeCode;                  property BeCode: string read FBeCode write FBeCode;
757                  property BeAutoLogin: Boolean read FBeAutoLogin write FBeAutoLogin;                  property BeAutoLogin: Boolean read FBeAutoLogin write FBeAutoLogin;
758          property BeLogin: Boolean read FBeLogin write FBeLogin;                  property BeLogin: Boolean read FBeLogin write FBeLogin;
759                    property MaxRecordCount : Integer read FMaxRecordCount write FMaxRecordCount;
760    
761  end;  end;
762    
763    
# Line 1331  begin Line 1335  begin
1335                  FUseUndecided := ini.ReadBool('ThreadList', 'UseUndecided', False);                  FUseUndecided := ini.ReadBool('ThreadList', 'UseUndecided', False);
1336    
1337          //Be2ch          //Be2ch
1338          //認証用ユーザID・認証コード                  //認証用ユーザID・認証コード
1339                  FBeUserID := ini.ReadString('Be', 'UserID', '');                  FBeUserID := ini.ReadString('Be', 'UserID', '');
1340                  FBeCode := Decrypt(ini.ReadString('Be', 'Code', ''));                  FBeCode := Decrypt(ini.ReadString('Be', 'Code', ''));
1341                  FBeAutoLogin := ini.ReadBool('Be', 'AutoLogin', False);                  FBeAutoLogin := ini.ReadBool('Be', 'AutoLogin', False);
1342                    //履歴の最大保存件数
1343                    FMaxRecordCount := Max(ini.ReadInteger('Recode', 'Max', 100), 1);
1344    
1345                  ini.UpdateFile;                  ini.UpdateFile;
1346          finally          finally
1347                  ini.Free;                  ini.Free;
# Line 1689  begin Line 1696  begin
1696                  ini.WriteString('Be', 'Code', Encrypt(FBeCode));                  ini.WriteString('Be', 'Code', Encrypt(FBeCode));
1697                  ini.WriteBool('Be', 'AutoLogin', FBeAutoLogin);                  ini.WriteBool('Be', 'AutoLogin', FBeAutoLogin);
1698    
1699                    //履歴の最大保存件数
1700                    ini.WriteInteger('Recode', 'Max', FMaxRecordCount);
1701    
1702                  ini.UpdateFile;                  ini.UpdateFile;
1703          finally          finally
1704                  ini.Free;                  ini.Free;

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

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