| 195 |
Label8: TLabel; |
Label8: TLabel; |
| 196 |
BeCodeEdit: TEdit; |
BeCodeEdit: TEdit; |
| 197 |
BeAutoLoginCheckBox: TCheckBox; |
BeAutoLoginCheckBox: TCheckBox; |
| 198 |
|
GroupBox19: TGroupBox; |
| 199 |
|
Label17: TLabel; |
| 200 |
|
MaxRecordCountEdit: TEdit; |
| 201 |
|
Label18: TLabel; |
| 202 |
procedure FormCreate(Sender: TObject); |
procedure FormCreate(Sender: TObject); |
| 203 |
procedure FormDestroy(Sender: TObject); |
procedure FormDestroy(Sender: TObject); |
| 204 |
procedure ApplyButtonClick(Sender: TObject); |
procedure ApplyButtonClick(Sender: TObject); |
| 247 |
procedure OddResNumCheckBoxClick(Sender: TObject); |
procedure OddResNumCheckBoxClick(Sender: TObject); |
| 248 |
procedure ResRangeHoldCheckBoxClick(Sender: TObject); |
procedure ResRangeHoldCheckBoxClick(Sender: TObject); |
| 249 |
procedure CroutOptionClick(Sender: TObject); |
procedure CroutOptionClick(Sender: TObject); |
| 250 |
|
procedure MaxRecordCountEditExit(Sender: TObject); |
| 251 |
private |
private |
| 252 |
{ Private 宣言 } |
{ Private 宣言 } |
| 253 |
FClose: Boolean; |
FClose: Boolean; |
| 275 |
implementation |
implementation |
| 276 |
|
|
| 277 |
uses |
uses |
| 278 |
Giko, Editor, Setting, ActnList, KuroutSetting; |
Giko, Editor, Setting, ActnList, KuroutSetting, Math; |
| 279 |
|
|
| 280 |
const |
const |
| 281 |
FONT_TEXT: string = '%s %d pt'; |
FONT_TEXT: string = '%s %d pt'; |
| 343 |
ReadPortEditExit(Sender); |
ReadPortEditExit(Sender); |
| 344 |
WritePortEditExit(Sender); |
WritePortEditExit(Sender); |
| 345 |
AddressHistoryCountEditExit(Sender); |
AddressHistoryCountEditExit(Sender); |
| 346 |
|
MaxRecordCountEditExit(Sender); |
| 347 |
PreviewWaitEditExit(Sender); |
PreviewWaitEditExit(Sender); |
| 348 |
|
|
| 349 |
if not CheckFolder then begin |
if not CheckFolder then begin |
| 361 |
ReadPortEditExit(Sender); |
ReadPortEditExit(Sender); |
| 362 |
WritePortEditExit(Sender); |
WritePortEditExit(Sender); |
| 363 |
AddressHistoryCountEditExit(Sender); |
AddressHistoryCountEditExit(Sender); |
| 364 |
|
MaxRecordCountEditExit(Sender); |
| 365 |
PreviewWaitEditExit(Sender); |
PreviewWaitEditExit(Sender); |
| 366 |
|
|
| 367 |
if not CheckFolder then begin |
if not CheckFolder then begin |
| 856 |
BeUserIDEdit.Text := GikoSys.Setting.BeUserID; |
BeUserIDEdit.Text := GikoSys.Setting.BeUserID; |
| 857 |
BeCodeEdit.Text := GikoSys.Setting.BeCode; |
BeCodeEdit.Text := GikoSys.Setting.BeCode; |
| 858 |
BeAutoLoginCheckBox.Checked := GikoSys.Setting.BeAutoLogin; |
BeAutoLoginCheckBox.Checked := GikoSys.Setting.BeAutoLogin; |
| 859 |
|
//履歴の最大保存数 |
| 860 |
|
MaxRecordCountEdit.Text := IntToStr(GikoSys.Setting.MaxRecordCount); |
| 861 |
end; |
end; |
| 862 |
|
|
| 863 |
procedure TOptionDialog.SaveSetting; |
procedure TOptionDialog.SaveSetting; |
| 1136 |
//Be2ch |
//Be2ch |
| 1137 |
GikoSys.Setting.BeUserID := BeUserIDEdit.Text; |
GikoSys.Setting.BeUserID := BeUserIDEdit.Text; |
| 1138 |
GikoSys.Setting.BeCode := BeCodeEdit.Text; |
GikoSys.Setting.BeCode := BeCodeEdit.Text; |
| 1139 |
GikoSys.Setting.BeAutoLogin := BeAutoLoginCheckBox.Checked; |
GikoSys.Setting.BeAutoLogin := BeAutoLoginCheckBox.Checked; |
| 1140 |
|
//履歴の最大保存数 |
| 1141 |
|
GikoSys.Setting.MaxRecordCount := Max(StrToInt64Def(MaxRecordCountEdit.Text,100),1); |
| 1142 |
end; |
end; |
| 1143 |
|
|
| 1144 |
procedure TOptionDialog.SettingApply; |
procedure TOptionDialog.SettingApply; |
| 1503 |
end; |
end; |
| 1504 |
|
|
| 1505 |
Board := TBoard.Create( nil, 'about://sample/' ); |
Board := TBoard.Create( nil, 'about://sample/' ); |
| 1506 |
ThreadItem := TThreadItem.Create( nil, 'about://sample/test/read.cgi/sample/' ); |
ThreadItem := TThreadItem.Create( nil, Board, 'about://sample/test/read.cgi/sample/' ); |
| 1507 |
|
|
| 1508 |
try |
try |
| 1509 |
Board.Title := 'サンプル板'; |
Board.Title := 'サンプル板'; |
| 1639 |
end; |
end; |
| 1640 |
end; |
end; |
| 1641 |
|
|
| 1642 |
|
procedure TOptionDialog.MaxRecordCountEditExit(Sender: TObject); |
| 1643 |
|
begin |
| 1644 |
|
if not GikoSys.IsNumeric(MaxRecordCountEdit.Text) then |
| 1645 |
|
MaxRecordCountEdit.Text := '100' |
| 1646 |
|
else if StrToIntDef(MaxRecordCountEdit.Text, 100) <= 0 then |
| 1647 |
|
MaxRecordCountEdit.Text := '1'; |
| 1648 |
|
end; |
| 1649 |
|
|
| 1650 |
end. |
end. |
| 1651 |
|
|