| 93 |
RespopupWaitLabeledEdit: TLabeledEdit; |
RespopupWaitLabeledEdit: TLabeledEdit; |
| 94 |
RespopupWaitUpDown: TUpDown; |
RespopupWaitUpDown: TUpDown; |
| 95 |
Label19: TLabel; |
Label19: TLabel; |
| 96 |
|
RespopupMailToCheckBox: TCheckBox; |
| 97 |
procedure OkBottonClick(Sender: TObject); |
procedure OkBottonClick(Sender: TObject); |
| 98 |
procedure FormCreate(Sender: TObject); |
procedure FormCreate(Sender: TObject); |
| 99 |
procedure CDeleteButtonClick(Sender: TObject); |
procedure CDeleteButtonClick(Sender: TObject); |
| 177 |
DeltaXUpDown.Position := GikoSys.Setting.RespopupDeltaX; |
DeltaXUpDown.Position := GikoSys.Setting.RespopupDeltaX; |
| 178 |
DeltaYUpDown.Position := GikoSys.Setting.RespopupDeltaY; |
DeltaYUpDown.Position := GikoSys.Setting.RespopupDeltaY; |
| 179 |
RespopupWaitUpDown.Position := GikoSys.Setting.RespopupWait; |
RespopupWaitUpDown.Position := GikoSys.Setting.RespopupWait; |
| 180 |
|
RespopupMailToCheckBox.Checked := GikoSys.Setting.RespopupMailTo; |
| 181 |
end; |
end; |
| 182 |
|
|
| 183 |
procedure TKuroutOption.SaveSetting; |
procedure TKuroutOption.SaveSetting; |
| 227 |
GikoSys.Setting.RespopupDeltaY := StrToInt(DeltaYLabeledEdit.Text); |
GikoSys.Setting.RespopupDeltaY := StrToInt(DeltaYLabeledEdit.Text); |
| 228 |
GikoSys.Setting.RespopupWait := StrToInt(RespopupWaitLabeledEdit.Text); |
GikoSys.Setting.RespopupWait := StrToInt(RespopupWaitLabeledEdit.Text); |
| 229 |
GikoForm.ResPopupClearTimer.Interval := GikoSys.Setting.RespopupWait; |
GikoForm.ResPopupClearTimer.Interval := GikoSys.Setting.RespopupWait; |
| 230 |
|
GikoSys.Setting.RespopupMailTo := RespopupMailToCheckBox.Checked; |
| 231 |
end; |
end; |
| 232 |
|
|
| 233 |
procedure TKuroutOption.RecvBufferSizeExit(Sender: TObject); |
procedure TKuroutOption.RecvBufferSizeExit(Sender: TObject); |