| 56 |
Label6: TLabel; |
Label6: TLabel; |
| 57 |
ReadTimeOut: TEdit; |
ReadTimeOut: TEdit; |
| 58 |
Label7: TLabel; |
Label7: TLabel; |
| 59 |
|
KakikomiTabSheet: TTabSheet; |
| 60 |
|
CookieGroupBox: TGroupBox; |
| 61 |
|
Label8: TLabel; |
| 62 |
|
FixedCookieEdit: TEdit; |
| 63 |
|
Label9: TLabel; |
| 64 |
procedure OkBottonClick(Sender: TObject); |
procedure OkBottonClick(Sender: TObject); |
| 65 |
procedure FormCreate(Sender: TObject); |
procedure FormCreate(Sender: TObject); |
| 66 |
procedure CDeleteButtonClick(Sender: TObject); |
procedure CDeleteButtonClick(Sender: TObject); |
| 121 |
//FusianaSet |
//FusianaSet |
| 122 |
LocalTrapAtt.Checked := GikoSys.Setting.LocalTrapAtt; |
LocalTrapAtt.Checked := GikoSys.Setting.LocalTrapAtt; |
| 123 |
RemoteTrapAtt.Checked := GikoSys.Setting.RemoteTrapAtt; |
RemoteTrapAtt.Checked := GikoSys.Setting.RemoteTrapAtt; |
| 124 |
|
// Cookie |
| 125 |
|
FixedCookieEdit.Text := GikoSys.Setting.FixedCookie; |
| 126 |
end; |
end; |
| 127 |
|
|
| 128 |
procedure TKuroutOption.SaveSetting; |
procedure TKuroutOption.SaveSetting; |
| 141 |
else |
else |
| 142 |
GikoSys.Setting.TimeAdjustSec := 0; |
GikoSys.Setting.TimeAdjustSec := 0; |
| 143 |
GikoSys.Setting.TimeAdjust := PutPostTimeRadioButton.Checked; |
GikoSys.Setting.TimeAdjust := PutPostTimeRadioButton.Checked; |
| 144 |
//2ch言語サポート |
//2ch言語サポート |
| 145 |
GikoSys.Setting.GengoSupport := GengoSupport.Checked; |
GikoSys.Setting.GengoSupport := GengoSupport.Checked; |
| 146 |
GikoSys.SetGikoMessage; |
GikoSys.SetGikoMessage; |
| 147 |
//ローカル・リモートフシアナ警告 |
//ローカル・リモートフシアナ警告 |
| 148 |
GikoSys.Setting.LocalTrapAtt := LocalTrapAtt.Checked; |
GikoSys.Setting.LocalTrapAtt := LocalTrapAtt.Checked; |
| 149 |
GikoSys.Setting.RemoteTrapAtt := RemoteTrapAtt.Checked; |
GikoSys.Setting.RemoteTrapAtt := RemoteTrapAtt.Checked; |
| 150 |
|
// Cookie |
| 151 |
|
GikoSys.Setting.FixedCookie := FixedCookieEdit.Text; |
| 152 |
|
|
| 153 |
|
|
| 154 |
GikoSys.Setting.KuroutSettingTabIndex := PageControl1.ActivePageIndex; |
GikoSys.Setting.KuroutSettingTabIndex := PageControl1.ActivePageIndex; |
| 155 |
end; |
end; |