| 96 |
RespopupMailToCheckBox: TCheckBox; |
RespopupMailToCheckBox: TCheckBox; |
| 97 |
ResRangeLabeledEdit: TLabeledEdit; |
ResRangeLabeledEdit: TLabeledEdit; |
| 98 |
ResRangeCountUpDown: TUpDown; |
ResRangeCountUpDown: TUpDown; |
| 99 |
|
UseGobakuCheckBox: TCheckBox; |
| 100 |
procedure OkBottonClick(Sender: TObject); |
procedure OkBottonClick(Sender: TObject); |
| 101 |
procedure FormCreate(Sender: TObject); |
procedure FormCreate(Sender: TObject); |
| 102 |
procedure CDeleteButtonClick(Sender: TObject); |
procedure CDeleteButtonClick(Sender: TObject); |
| 184 |
DeltaYUpDown.Position := GikoSys.Setting.RespopupDeltaY; |
DeltaYUpDown.Position := GikoSys.Setting.RespopupDeltaY; |
| 185 |
RespopupWaitUpDown.Position := GikoSys.Setting.RespopupWait; |
RespopupWaitUpDown.Position := GikoSys.Setting.RespopupWait; |
| 186 |
RespopupMailToCheckBox.Checked := GikoSys.Setting.RespopupMailTo; |
RespopupMailToCheckBox.Checked := GikoSys.Setting.RespopupMailTo; |
| 187 |
|
// 誤爆チェック |
| 188 |
|
UseGobakuCheckBox.Checked := GikoSys.Setting.UseGobakuCheck; |
| 189 |
end; |
end; |
| 190 |
|
|
| 191 |
procedure TKuroutOption.SaveSetting; |
procedure TKuroutOption.SaveSetting; |
| 237 |
GikoSys.Setting.RespopupWait := StrToInt(RespopupWaitLabeledEdit.Text); |
GikoSys.Setting.RespopupWait := StrToInt(RespopupWaitLabeledEdit.Text); |
| 238 |
GikoForm.ResPopupClearTimer.Interval := GikoSys.Setting.RespopupWait; |
GikoForm.ResPopupClearTimer.Interval := GikoSys.Setting.RespopupWait; |
| 239 |
GikoSys.Setting.RespopupMailTo := RespopupMailToCheckBox.Checked; |
GikoSys.Setting.RespopupMailTo := RespopupMailToCheckBox.Checked; |
| 240 |
|
// 誤爆チェック |
| 241 |
|
GikoSys.Setting.UseGobakuCheck := UseGobakuCheckBox.Checked; |
| 242 |
|
|
| 243 |
end; |
end; |
| 244 |
|
|
| 245 |
procedure TKuroutOption.RecvBufferSizeExit(Sender: TObject); |
procedure TKuroutOption.RecvBufferSizeExit(Sender: TObject); |