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.87 by genyakun, Mon Feb 21 08:32:04 2005 UTC revision 1.88 by h677, Tue Mar 15 16:24:52 2005 UTC
# Line 276  type Line 276  type
276    
277                  //ログフォルダ                  //ログフォルダ
278                  FLogFolder: string;                  FLogFolder: string;
279            FLogFolderP: string; //パス名がパス区切り記号で終わっている。
280                  FNewLogFolder: string;                  FNewLogFolder: string;
281    
282                  //リストカラムヘッダーサイズ                  //リストカラムヘッダーサイズ
# Line 509  type Line 510  type
510                  function GetLanguageFileName: string;                  function GetLanguageFileName: string;
511                  procedure SetMessages;                  procedure SetMessages;
512                  function GetMessage(AType :Integer): string;                  function GetMessage(AType :Integer): string;
513            procedure WriteLogFolder(AVal : String);
514    
515                  //受信バッファサイズ                  //受信バッファサイズ
516                  property RecvBufferSize: Integer read FRecvBufferSize write FRecvBufferSize;                  property RecvBufferSize: Integer read FRecvBufferSize write FRecvBufferSize;
# Line 629  type Line 631  type
631                  property UnActivePopup: Boolean read FUnActivePopup write FUnActivePopup;                  property UnActivePopup: Boolean read FUnActivePopup write FUnActivePopup;
632                  property ResPopupHeaderBold: Boolean read FResPopupHeaderBold write FResPopupHeaderBold;                  property ResPopupHeaderBold: Boolean read FResPopupHeaderBold write FResPopupHeaderBold;
633    
634                  property LogFolder: string read FLogFolder write FLogFolder;                  property LogFolder: string read FLogFolder write WriteLogFolder;
635            property LogFolderP: string read FLogFolderP;
636                  property NewLogFolder: string read FNewLogFolder write FNewLogFolder;                  property NewLogFolder: string read FNewLogFolder write FNewLogFolder;
637    
638                  property BBSColumnWidth[index: Integer]: Integer read GetBBSColumnWidth write SetBBSColumnWidth;                  property BBSColumnWidth[index: Integer]: Integer read GetBBSColumnWidth write SetBBSColumnWidth;
# Line 1194  begin Line 1197  begin
1197                  //ResAnchorjamp                  //ResAnchorjamp
1198                  ResAnchorJamp := ini.ReadBool('Function', 'ResAnchoJamp', True);                  ResAnchorJamp := ini.ReadBool('Function', 'ResAnchoJamp', True);
1199                  //ログフォルダ                  //ログフォルダ
1200                  FLogFolder := ini.ReadString('Folder', 'LogFolder', ExtractFilePath(Application.ExeName) + 'Log');                  LogFolder := ini.ReadString('Folder', 'LogFolder', ExtractFilePath(Application.ExeName) + 'Log');
1201                  NewLogFolder := '';                  NewLogFolder := '';
1202    
1203                  //板URL                  //板URL
# Line 2191  begin Line 2194  begin
2194      else      else
2195          Result := '';          Result := '';
2196  end;  end;
2197    procedure TSetting.WriteLogFolder(AVal : String);
2198    begin
2199        FLogFolder := AVal;
2200            FLogFolderP := IncludeTrailingPathDelimiter(LogFolder);
2201    end;
2202  end.  end.
2203    
2204    

Legend:
Removed from v.1.87  
changed lines
  Added in v.1.88

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