| 94 |
RespopupWaitUpDown: TUpDown; |
RespopupWaitUpDown: TUpDown; |
| 95 |
Label19: TLabel; |
Label19: TLabel; |
| 96 |
RespopupMailToCheckBox: TCheckBox; |
RespopupMailToCheckBox: TCheckBox; |
| 97 |
|
ResRangeLabeledEdit: TLabeledEdit; |
| 98 |
|
ResRangeCountUpDown: TUpDown; |
| 99 |
procedure OkBottonClick(Sender: TObject); |
procedure OkBottonClick(Sender: TObject); |
| 100 |
procedure FormCreate(Sender: TObject); |
procedure FormCreate(Sender: TObject); |
| 101 |
procedure CDeleteButtonClick(Sender: TObject); |
procedure CDeleteButtonClick(Sender: TObject); |
| 112 |
procedure DeltaXLabeledEditExit(Sender: TObject); |
procedure DeltaXLabeledEditExit(Sender: TObject); |
| 113 |
procedure DeltaYLabeledEditExit(Sender: TObject); |
procedure DeltaYLabeledEditExit(Sender: TObject); |
| 114 |
procedure RespopupWaitLabeledEditExit(Sender: TObject); |
procedure RespopupWaitLabeledEditExit(Sender: TObject); |
| 115 |
|
procedure ResRangeLabeledEditExit(Sender: TObject); |
| 116 |
private |
private |
| 117 |
{ Private 宣言 } |
{ Private 宣言 } |
| 118 |
procedure SetValue; |
procedure SetValue; |
| 169 |
MoveHistoryMaxEdit.Text := IntToStr( GikoSys.Setting.MoveHistorySize ); |
MoveHistoryMaxEdit.Text := IntToStr( GikoSys.Setting.MoveHistorySize ); |
| 170 |
// 先頭表示レス数 |
// 先頭表示レス数 |
| 171 |
AHandredUpDown.Position := GikoSys.Setting.HeadResCount; |
AHandredUpDown.Position := GikoSys.Setting.HeadResCount; |
| 172 |
|
// 表示レス数 |
| 173 |
|
ResRangeCountUpDown.Position := GikoSys.Setting.ResRangeExCount; |
| 174 |
// 関連キーワード追加フラグ |
// 関連キーワード追加フラグ |
| 175 |
AddKeywordCheckBox.Checked := GikoSys.Setting.AddKeywordLink; |
AddKeywordCheckBox.Checked := GikoSys.Setting.AddKeywordLink; |
| 176 |
// 誤反応対策 |
// 誤反応対策 |
| 217 |
// 先頭表示レス数 |
// 先頭表示レス数 |
| 218 |
GikoSys.Setting.HeadResCount := |
GikoSys.Setting.HeadResCount := |
| 219 |
StrToIntDef( AHandredLabeledEdit.Text , 1); |
StrToIntDef( AHandredLabeledEdit.Text , 1); |
| 220 |
|
GikoSys.Setting.ResRangeExCount := |
| 221 |
|
StrToIntDef( ResRangeLabeledEdit.Text , 100 ); |
| 222 |
GikoSys.Setting.KuroutSettingTabIndex := PageControl1.ActivePageIndex; |
GikoSys.Setting.KuroutSettingTabIndex := PageControl1.ActivePageIndex; |
| 223 |
// 関連キーワード追加フラグ |
// 関連キーワード追加フラグ |
| 224 |
GikoSys.Setting.AddKeywordLink := AddKeywordCheckBox.Checked; |
GikoSys.Setting.AddKeywordLink := AddKeywordCheckBox.Checked; |
| 521 |
RespopupWaitLabeledEdit.Text := IntToStr(RespopupWaitUpDown.Max); |
RespopupWaitLabeledEdit.Text := IntToStr(RespopupWaitUpDown.Max); |
| 522 |
end; |
end; |
| 523 |
|
|
| 524 |
|
procedure TKuroutOption.ResRangeLabeledEditExit(Sender: TObject); |
| 525 |
|
begin |
| 526 |
|
if not GikoSys.IsNumeric(ResRangeLabeledEdit.Text) then |
| 527 |
|
ResRangeLabeledEdit.Text := '100'; |
| 528 |
|
if StrToInt(ResRangeLabeledEdit.Text) < 100 then |
| 529 |
|
ResRangeLabeledEdit.Text := '100'; |
| 530 |
|
if StrToInt(ResRangeLabeledEdit.Text) > 9999 then |
| 531 |
|
ResRangeLabeledEdit.Text := '9999'; |
| 532 |
|
end; |
| 533 |
|
|
| 534 |
end. |
end. |