| 4 |
|
|
| 5 |
uses |
uses |
| 6 |
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, |
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, |
| 7 |
Dialogs, StdCtrls, ComCtrls, GikoSystem, GikoUtil, ExtCtrls; |
Dialogs, StdCtrls, ComCtrls, GikoSystem, GikoUtil, ExtCtrls, StrUtils; |
| 8 |
|
|
| 9 |
type |
type |
| 10 |
TKuroutOption = class(TForm) |
TKuroutOption = class(TForm) |
| 79 |
SentIniFileSizeUpDown: TUpDown; |
SentIniFileSizeUpDown: TUpDown; |
| 80 |
Label13: TLabel; |
Label13: TLabel; |
| 81 |
Label14: TLabel; |
Label14: TLabel; |
| 82 |
|
ExtListLabeledEdit: TLabeledEdit; |
| 83 |
|
Label15: TLabel; |
| 84 |
procedure OkBottonClick(Sender: TObject); |
procedure OkBottonClick(Sender: TObject); |
| 85 |
procedure FormCreate(Sender: TObject); |
procedure FormCreate(Sender: TObject); |
| 86 |
procedure CDeleteButtonClick(Sender: TObject); |
procedure CDeleteButtonClick(Sender: TObject); |
| 93 |
procedure BDownButtonClick(Sender: TObject); |
procedure BDownButtonClick(Sender: TObject); |
| 94 |
procedure MoveHistoryMaxEditExit(Sender: TObject); |
procedure MoveHistoryMaxEditExit(Sender: TObject); |
| 95 |
procedure AHandredLabeledEditExit(Sender: TObject); |
procedure AHandredLabeledEditExit(Sender: TObject); |
| 96 |
|
procedure ExtListLabeledEditExit(Sender: TObject); |
| 97 |
private |
private |
| 98 |
{ Private 宣言 } |
{ Private 宣言 } |
| 99 |
procedure SetValue; |
procedure SetValue; |
| 155 |
// 誤反応対策 |
// 誤反応対策 |
| 156 |
ReplaceDatCheckBox.Checked := GikoSys.Setting.ReplaceDat; |
ReplaceDatCheckBox.Checked := GikoSys.Setting.ReplaceDat; |
| 157 |
SentIniFileSizeUpDown.Position := GikoSys.Setting.SentIniFileSize; |
SentIniFileSizeUpDown.Position := GikoSys.Setting.SentIniFileSize; |
| 158 |
|
ExtListLabeledEdit.Text := GikoSys.Setting.ExtList; |
| 159 |
end; |
end; |
| 160 |
|
|
| 161 |
procedure TKuroutOption.SaveSetting; |
procedure TKuroutOption.SaveSetting; |
| 197 |
// 誤反応対策 |
// 誤反応対策 |
| 198 |
GikoSys.Setting.ReplaceDat := ReplaceDatCheckBox.Checked; |
GikoSys.Setting.ReplaceDat := ReplaceDatCheckBox.Checked; |
| 199 |
GikoSys.Setting.SentIniFileSize := SentIniFileSizeUpDown.Position; |
GikoSys.Setting.SentIniFileSize := SentIniFileSizeUpDown.Position; |
| 200 |
|
GikoSys.Setting.ExtList := ExtListLabeledEdit.Text; |
| 201 |
end; |
end; |
| 202 |
|
|
| 203 |
procedure TKuroutOption.RecvBufferSizeExit(Sender: TObject); |
procedure TKuroutOption.RecvBufferSizeExit(Sender: TObject); |
| 228 |
PostTimeEditExit(Sender); |
PostTimeEditExit(Sender); |
| 229 |
MoveHistoryMaxEditExit(Sender); |
MoveHistoryMaxEditExit(Sender); |
| 230 |
AHandredLabeledEditExit(Sender); |
AHandredLabeledEditExit(Sender); |
| 231 |
|
ExtListLabeledEditExit(Sender); |
| 232 |
PostColumnData(); |
PostColumnData(); |
| 233 |
SaveSetting; |
SaveSetting; |
| 234 |
end; |
end; |
| 443 |
|
|
| 444 |
end; |
end; |
| 445 |
|
|
| 446 |
|
procedure TKuroutOption.ExtListLabeledEditExit(Sender: TObject); |
| 447 |
|
begin |
| 448 |
|
if AnsiEndsStr(';', ExtListLabeledEdit.Text) then begin |
| 449 |
|
ExtListLabeledEdit.Text := |
| 450 |
|
Copy(ExtListLabeledEdit.Text, 0, |
| 451 |
|
Length(ExtListLabeledEdit.Text) - 1); |
| 452 |
|
end; |
| 453 |
|
end; |
| 454 |
|
|
| 455 |
end. |
end. |