| 50 |
GroupBox1: TGroupBox; |
GroupBox1: TGroupBox; |
| 51 |
GengoSupport: TCheckBox; |
GengoSupport: TCheckBox; |
| 52 |
Label5: TLabel; |
Label5: TLabel; |
| 53 |
|
GroupBox2: TGroupBox; |
| 54 |
|
LocalTrapAtt: TCheckBox; |
| 55 |
|
RemoteTrapAtt: TCheckBox; |
| 56 |
procedure OkBottonClick(Sender: TObject); |
procedure OkBottonClick(Sender: TObject); |
| 57 |
procedure FormCreate(Sender: TObject); |
procedure FormCreate(Sender: TObject); |
| 58 |
procedure CDeleteButtonClick(Sender: TObject); |
procedure CDeleteButtonClick(Sender: TObject); |
| 106 |
SetColumnData(); |
SetColumnData(); |
| 107 |
|
|
| 108 |
PageControl1.ActivePageIndex := GikoSys.Setting.KuroutSettingTabIndex; |
PageControl1.ActivePageIndex := GikoSys.Setting.KuroutSettingTabIndex; |
| 109 |
|
|
| 110 |
|
//2chAnnai |
| 111 |
|
GengoSupport.Checked := GikoSys.Setting.GengoSupport; |
| 112 |
|
//FusianaSet |
| 113 |
|
LocalTrapAtt.Checked := GikoSys.Setting.LocalTrapAtt; |
| 114 |
|
RemoteTrapAtt.Checked := GikoSys.Setting.RemoteTrapAtt; |
| 115 |
end; |
end; |
| 116 |
|
|
| 117 |
procedure TKuroutOption.SaveSetting; |
procedure TKuroutOption.SaveSetting; |
| 129 |
else |
else |
| 130 |
GikoSys.Setting.TimeAdjustSec := 0; |
GikoSys.Setting.TimeAdjustSec := 0; |
| 131 |
GikoSys.Setting.TimeAdjust := PutPostTimeRadioButton.Checked; |
GikoSys.Setting.TimeAdjust := PutPostTimeRadioButton.Checked; |
| 132 |
|
//2ch言語サポート |
| 133 |
GikoSys.Setting.GengoSupport := GengoSupport.Checked; |
GikoSys.Setting.GengoSupport := GengoSupport.Checked; |
| 134 |
|
//ローカル・リモートフシアナ警告 |
| 135 |
|
GikoSys.Setting.LocalTrapAtt := LocalTrapAtt.Checked; |
| 136 |
|
GikoSys.Setting.RemoteTrapAtt := RemoteTrapAtt.Checked; |
| 137 |
|
|
| 138 |
GikoSys.Setting.KuroutSettingTabIndex := PageControl1.ActivePageIndex; |
GikoSys.Setting.KuroutSettingTabIndex := PageControl1.ActivePageIndex; |
| 139 |
end; |
end; |
| 164 |
begin |
begin |
| 165 |
RecvBufferSizeExit(Sender); |
RecvBufferSizeExit(Sender); |
| 166 |
PostTimeEditExit(Sender); |
PostTimeEditExit(Sender); |
| 167 |
PostColumnData(); |
PostColumnData(); |
| 168 |
SaveSetting; |
SaveSetting; |
| 169 |
end; |
end; |
| 170 |
|
|