| 276 |
|
|
| 277 |
//ログフォルダ |
//ログフォルダ |
| 278 |
FLogFolder: string; |
FLogFolder: string; |
| 279 |
|
FLogFolderP: string; //パス名がパス区切り記号で終わっている。 |
| 280 |
FNewLogFolder: string; |
FNewLogFolder: string; |
| 281 |
|
|
| 282 |
//リストカラムヘッダーサイズ |
//リストカラムヘッダーサイズ |
| 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; |
| 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; |
| 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 |
| 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 |
|
|