| 10 |
|
|
| 11 |
type |
type |
| 12 |
TOptionDialog = class(TForm) |
TOptionDialog = class(TForm) |
|
OkBotton: TButton; |
|
| 13 |
CancelBotton: TButton; |
CancelBotton: TButton; |
|
OptionTab: TPageControl; |
|
|
ConnectSheet: TTabSheet; |
|
|
Font1Sheet: TTabSheet; |
|
| 14 |
ApplyButton: TButton; |
ApplyButton: TButton; |
| 15 |
FontDialog: TFontDialog; |
FontDialog: TFontDialog; |
| 16 |
ColorDialog: TColorDialog; |
ColorDialog: TColorDialog; |
|
ReadProxyGroupBox: TGroupBox; |
|
|
ReadAddressLabel: TLabel; |
|
|
ReadPortLabel: TLabel; |
|
|
ReadProxyCheck: TCheckBox; |
|
|
ReadProxyAddressEdit: TEdit; |
|
|
ReadPortEdit: TEdit; |
|
|
ReadProxyUserIDEdit: TEdit; |
|
|
ReadProxyPasswordEdit: TEdit; |
|
|
ReadUserIDLabel: TLabel; |
|
|
ReadPasswordLabel: TLabel; |
|
|
FolderSheet: TTabSheet; |
|
|
FolderGroupBox: TGroupBox; |
|
|
LogFolderEdit: TEdit; |
|
|
LogFolderButton: TButton; |
|
|
Label1: TLabel; |
|
|
Label2: TLabel; |
|
|
ThreadSheet: TTabSheet; |
|
|
SoundSheet: TTabSheet; |
|
|
SoundEventGroupBox: TGroupBox; |
|
|
SoundListView: TListView; |
|
|
SoundReferButton: TButton; |
|
|
SoundFileEdit: TEdit; |
|
| 17 |
OpenDialog: TOpenDialog; |
OpenDialog: TOpenDialog; |
| 18 |
WriteProxyGroupBox: TGroupBox; |
Label26: TLabel; |
| 19 |
WriteAddressLabel: TLabel; |
CroutOption: TButton; |
| 20 |
WritePortLabel: TLabel; |
OptionTab: TPageControl; |
| 21 |
WriteUserIDLabel: TLabel; |
ConnectSheet: TTabSheet; |
| 22 |
WritePasswordLabel: TLabel; |
ReadProxyGroupBox: TGroupBox; |
| 23 |
WriteProxyCheck: TCheckBox; |
ReadAddressLabel: TLabel; |
| 24 |
WriteProxyAddressEdit: TEdit; |
ReadPortLabel: TLabel; |
| 25 |
WritePortEdit: TEdit; |
ReadUserIDLabel: TLabel; |
| 26 |
WriteProxyUserIDEdit: TEdit; |
ReadPasswordLabel: TLabel; |
| 27 |
WriteProxyPasswordEdit: TEdit; |
ReadProxyCheck: TCheckBox; |
| 28 |
BoardSheet: TTabSheet; |
ReadProxyAddressEdit: TEdit; |
| 29 |
GroupBox4: TGroupBox; |
ReadPortEdit: TEdit; |
| 30 |
Label13: TLabel; |
ReadProxyUserIDEdit: TEdit; |
| 31 |
UserIDSheet: TTabSheet; |
ReadProxyPasswordEdit: TEdit; |
| 32 |
GroupBox3: TGroupBox; |
WriteProxyGroupBox: TGroupBox; |
| 33 |
Label9: TLabel; |
WriteAddressLabel: TLabel; |
| 34 |
Label10: TLabel; |
WritePortLabel: TLabel; |
| 35 |
UserIDEdit: TEdit; |
WriteUserIDLabel: TLabel; |
| 36 |
PasswordEdit: TEdit; |
WritePasswordLabel: TLabel; |
| 37 |
SoundPlayButton: TBitBtn; |
WriteProxyCheck: TCheckBox; |
| 38 |
AutoLoginCheckBox: TCheckBox; |
WriteProxyAddressEdit: TEdit; |
| 39 |
Tora3URLLabel: TLabel; |
WritePortEdit: TEdit; |
| 40 |
Label12: TLabel; |
WriteProxyUserIDEdit: TEdit; |
| 41 |
Label5: TLabel; |
WriteProxyPasswordEdit: TEdit; |
| 42 |
CabinetFontBotton: TButton; |
Font1Sheet: TTabSheet; |
| 43 |
CabinetColorBotton: TButton; |
Bevel1: TBevel; |
| 44 |
CabinetDefaultButton: TButton; |
Bevel2: TBevel; |
| 45 |
CabinetMemo: TMemo; |
Label19: TLabel; |
| 46 |
ListMemo: TMemo; |
Bevel5: TBevel; |
| 47 |
ListFontBotton: TButton; |
Label20: TLabel; |
| 48 |
ListColorBotton: TButton; |
Label21: TLabel; |
| 49 |
ListDefaultBotton: TButton; |
Label22: TLabel; |
| 50 |
HintFontButton: TButton; |
Label23: TLabel; |
| 51 |
HintBackButton: TButton; |
lblSFont: TLabel; |
| 52 |
HintDefaultButton: TButton; |
CabinetFontBotton: TButton; |
| 53 |
HintMemo: TMemo; |
CabinetColorBotton: TButton; |
| 54 |
EditorMemo: TMemo; |
CabinetDefaultButton: TButton; |
| 55 |
EditorFontBotton: TButton; |
CabinetMemo: TMemo; |
| 56 |
EditorColorBotton: TButton; |
ListMemo: TMemo; |
| 57 |
EditorDefaultBotton: TButton; |
ListFontBotton: TButton; |
| 58 |
BrowserTabMemo: TMemo; |
ListColorBotton: TButton; |
| 59 |
BruwserTabFontButton: TButton; |
ListDefaultBotton: TButton; |
| 60 |
BrowserTabDefaultButton: TButton; |
HintFontButton: TButton; |
| 61 |
Bevel1: TBevel; |
HintBackButton: TButton; |
| 62 |
Bevel2: TBevel; |
HintDefaultButton: TButton; |
| 63 |
GroupBox1: TGroupBox; |
HintMemo: TMemo; |
| 64 |
GroupBox2: TGroupBox; |
EditorMemo: TMemo; |
| 65 |
URLAppCheckBox: TCheckBox; |
EditorFontBotton: TButton; |
| 66 |
AppFolderLabel: TLabel; |
EditorColorBotton: TButton; |
| 67 |
AppFolderEdit: TEdit; |
EditorDefaultBotton: TButton; |
| 68 |
AppFolderButton: TButton; |
BrowserTabMemo: TMemo; |
| 69 |
OpenMailerCheckBox: TCheckBox; |
BruwserTabFontButton: TButton; |
| 70 |
TabSheet1: TTabSheet; |
BrowserTabDefaultButton: TButton; |
|
PopupPositionRadioGroup: TRadioGroup; |
|
|
TabAddRadioGroup: TRadioGroup; |
|
|
TabSheet2: TTabSheet; |
|
|
GroupBox7: TGroupBox; |
|
|
URLDisplayCheckBox: TCheckBox; |
|
|
Label3: TLabel; |
|
|
Label11: TLabel; |
|
|
TabStopAddressBarCheckBox: TCheckBox; |
|
|
AddressHistoryCountEdit: TEdit; |
|
|
LinkAddCheckBox: TCheckBox; |
|
|
GroupBox8: TGroupBox; |
|
|
PreviewVisibleCheckBox: TCheckBox; |
|
|
PreviewSizeComboBox: TComboBox; |
|
|
Label14: TLabel; |
|
|
Label15: TLabel; |
|
|
PreviewWaitEdit: TEdit; |
|
|
Label16: TLabel; |
|
|
ShowMailCheckBox: TCheckBox; |
|
|
TabSheet3: TTabSheet; |
|
|
GroupBox9: TGroupBox; |
|
|
ThreadListIconCheckBox: TCheckBox; |
|
|
NonAcquiredCountCheckBox: TCheckBox; |
|
|
GroupBox6: TGroupBox; |
|
|
LogDeleteMessageCheckBox: TCheckBox; |
|
|
GroupBox10: TGroupBox; |
|
|
UnActivePopupCheckBox: TCheckBox; |
|
|
GroupBox11: TGroupBox; |
|
|
RecvBufferSize: TEdit; |
|
|
Label17: TLabel; |
|
|
ProxyProtocolCheckBox: TCheckBox; |
|
|
ProtocolCheckBox: TCheckBox; |
|
|
Label18: TLabel; |
|
|
Label19: TLabel; |
|
|
Bevel5: TBevel; |
|
|
Label20: TLabel; |
|
|
Label21: TLabel; |
|
|
Label22: TLabel; |
|
|
Label23: TLabel; |
|
|
CSSTabSheet: TTabSheet; |
|
|
lblSFont: TLabel; |
|
|
GroupBox12: TGroupBox; |
|
|
CSSCheckBox: TCheckBox; |
|
|
CSSListLabel: TLabel; |
|
|
CSSListView: TListView; |
|
|
GroupBox13: TGroupBox; |
|
|
PostTimeCheckBox: TCheckBox; |
|
|
Label24: TLabel; |
|
|
Label25: TLabel; |
|
|
PostTimeEdit: TEdit; |
|
|
PostTimeLabel: TLabel; |
|
|
Label27: TLabel; |
|
|
PutPostTimeRadioButton: TRadioButton; |
|
|
BackPostTimeRadioButton: TRadioButton; |
|
|
ResPopupBoldCheckBox: TCheckBox; |
|
|
NGwordSheet: TTabSheet; |
|
|
GroupBox14: TGroupBox; |
|
|
RloCheckBox: TCheckBox; |
|
|
ReplaceulCheckBox: TCheckBox; |
|
|
PopUpAbonCheckBox: TCheckBox; |
|
|
CSSBrowser: TWebBrowser; |
|
|
CSSFontCheckBox: TCheckBox; |
|
|
CSSBackColorCheckBox: TCheckBox; |
|
|
CSSFontButton: TButton; |
|
|
CSSBackColorButton: TButton; |
|
|
ShowNGLineCheckBox: TCheckBox; |
|
|
AddResAnchorCheckBox: TCheckBox; |
|
|
ResRangeHoldCheckBox: TCheckBox; |
|
|
BoardURLComboBox: TComboBox; |
|
|
AddURLButton: TButton; |
|
|
RemoveURLButton: TButton; |
|
|
GroupBox15: TGroupBox; |
|
|
ShowDialogForEndCheckBox: TCheckBox; |
|
| 71 |
OddResNumCheckBox: TCheckBox; |
OddResNumCheckBox: TCheckBox; |
| 72 |
OddResNumColorBox: TColorBox; |
OddResNumColorBox: TColorBox; |
| 73 |
ForcedLoginCheckBox: TCheckBox; |
CSSTabSheet: TTabSheet; |
| 74 |
ForcedLoginLabel: TLabel; |
GroupBox12: TGroupBox; |
| 75 |
|
CSSListLabel: TLabel; |
| 76 |
|
CSSCheckBox: TCheckBox; |
| 77 |
|
CSSListView: TListView; |
| 78 |
|
CSSBrowser: TWebBrowser; |
| 79 |
|
CSSFontCheckBox: TCheckBox; |
| 80 |
|
CSSBackColorCheckBox: TCheckBox; |
| 81 |
|
CSSFontButton: TButton; |
| 82 |
|
CSSBackColorButton: TButton; |
| 83 |
|
TabSheet3: TTabSheet; |
| 84 |
|
GroupBox9: TGroupBox; |
| 85 |
|
ThreadListIconCheckBox: TCheckBox; |
| 86 |
|
NonAcquiredCountCheckBox: TCheckBox; |
| 87 |
GroupBox16: TGroupBox; |
GroupBox16: TGroupBox; |
| 88 |
CreationTimeLogsCheckBox: TCheckBox; |
CreationTimeLogsCheckBox: TCheckBox; |
| 89 |
FutureThreadCheckBox: TCheckBox; |
FutureThreadCheckBox: TCheckBox; |
|
DeleteSyriaCheckBox: TCheckBox; |
|
|
TabSheet4: TTabSheet; |
|
|
SambaGroupBox: TGroupBox; |
|
|
UseSambaCheckBox: TCheckBox; |
|
|
Label26: TLabel; |
|
|
ResAnchorGroupBox: TGroupBox; |
|
|
ResAnchorCheckBox: TCheckBox; |
|
|
AllTabCloseCheckBox: TCheckBox; |
|
| 90 |
GroupBox5: TGroupBox; |
GroupBox5: TGroupBox; |
| 91 |
BrowserMaxLabel: TLabel; |
BrowserMaxLabel: TLabel; |
| 92 |
BrowserMaxCombo: TComboBox; |
BrowserMaxCombo: TComboBox; |
| 93 |
GroupBox17: TGroupBox; |
GroupBox17: TGroupBox; |
| 94 |
SelectIntervalLabel: TLabel; |
SelectIntervalLabel: TLabel; |
|
SelectIntervalEdit: TEdit; |
|
| 95 |
Label4: TLabel; |
Label4: TLabel; |
| 96 |
Label6: TLabel; |
Label6: TLabel; |
| 97 |
TabAutoSaveLoad: TGroupBox; |
SelectIntervalEdit: TEdit; |
|
TabLoadSave: TCheckBox; |
|
|
ResRangeHoldComboBox: TComboBox; |
|
| 98 |
GroupBox18: TGroupBox; |
GroupBox18: TGroupBox; |
| 99 |
DatOchiSortCombo: TComboBox; |
DatOchiSortCombo: TComboBox; |
| 100 |
CroutOption: TButton; |
ThreadSheet: TTabSheet; |
| 101 |
|
GroupBox1: TGroupBox; |
| 102 |
|
ShowMailCheckBox: TCheckBox; |
| 103 |
|
ResRangeHoldCheckBox: TCheckBox; |
| 104 |
|
ResRangeHoldComboBox: TComboBox; |
| 105 |
|
GroupBox2: TGroupBox; |
| 106 |
|
AppFolderLabel: TLabel; |
| 107 |
|
URLAppCheckBox: TCheckBox; |
| 108 |
|
AppFolderEdit: TEdit; |
| 109 |
|
AppFolderButton: TButton; |
| 110 |
|
OpenMailerCheckBox: TCheckBox; |
| 111 |
|
GroupBox6: TGroupBox; |
| 112 |
|
LogDeleteMessageCheckBox: TCheckBox; |
| 113 |
|
ResAnchorGroupBox: TGroupBox; |
| 114 |
|
ResAnchorCheckBox: TCheckBox; |
| 115 |
|
TabSheet1: TTabSheet; |
| 116 |
|
PopupPositionRadioGroup: TRadioGroup; |
| 117 |
|
TabAddRadioGroup: TRadioGroup; |
| 118 |
|
GroupBox8: TGroupBox; |
| 119 |
|
Label14: TLabel; |
| 120 |
|
Label15: TLabel; |
| 121 |
|
Label16: TLabel; |
| 122 |
|
PreviewVisibleCheckBox: TCheckBox; |
| 123 |
|
PreviewSizeComboBox: TComboBox; |
| 124 |
|
PreviewWaitEdit: TEdit; |
| 125 |
|
GroupBox10: TGroupBox; |
| 126 |
|
UnActivePopupCheckBox: TCheckBox; |
| 127 |
|
ResPopupBoldCheckBox: TCheckBox; |
| 128 |
|
TabSheet2: TTabSheet; |
| 129 |
|
GroupBox7: TGroupBox; |
| 130 |
|
Label3: TLabel; |
| 131 |
|
Label11: TLabel; |
| 132 |
|
URLDisplayCheckBox: TCheckBox; |
| 133 |
|
AddressHistoryCountEdit: TEdit; |
| 134 |
|
TabStopAddressBarCheckBox: TCheckBox; |
| 135 |
|
LinkAddCheckBox: TCheckBox; |
| 136 |
|
GroupBox15: TGroupBox; |
| 137 |
|
ShowDialogForEndCheckBox: TCheckBox; |
| 138 |
|
AllTabCloseCheckBox: TCheckBox; |
| 139 |
|
SambaGroupBox: TGroupBox; |
| 140 |
|
UseSambaCheckBox: TCheckBox; |
| 141 |
|
TabAutoSaveLoad: TGroupBox; |
| 142 |
|
TabLoadSave: TCheckBox; |
| 143 |
|
SoundSheet: TTabSheet; |
| 144 |
|
SoundEventGroupBox: TGroupBox; |
| 145 |
|
SoundListView: TListView; |
| 146 |
|
SoundReferButton: TButton; |
| 147 |
|
SoundFileEdit: TEdit; |
| 148 |
|
SoundPlayButton: TBitBtn; |
| 149 |
|
FolderSheet: TTabSheet; |
| 150 |
|
FolderGroupBox: TGroupBox; |
| 151 |
|
Label1: TLabel; |
| 152 |
|
Label2: TLabel; |
| 153 |
|
Label5: TLabel; |
| 154 |
|
LogFolderEdit: TEdit; |
| 155 |
|
LogFolderButton: TButton; |
| 156 |
|
NGwordSheet: TTabSheet; |
| 157 |
|
GroupBox14: TGroupBox; |
| 158 |
|
RloCheckBox: TCheckBox; |
| 159 |
|
ReplaceulCheckBox: TCheckBox; |
| 160 |
|
PopUpAbonCheckBox: TCheckBox; |
| 161 |
|
ShowNGLineCheckBox: TCheckBox; |
| 162 |
|
AddResAnchorCheckBox: TCheckBox; |
| 163 |
|
DeleteSyriaCheckBox: TCheckBox; |
| 164 |
|
UserIDSheet: TTabSheet; |
| 165 |
|
Tora3URLLabel: TLabel; |
| 166 |
|
Label12: TLabel; |
| 167 |
|
GroupBox3: TGroupBox; |
| 168 |
|
Label9: TLabel; |
| 169 |
|
Label10: TLabel; |
| 170 |
|
ForcedLoginLabel: TLabel; |
| 171 |
|
UserIDEdit: TEdit; |
| 172 |
|
PasswordEdit: TEdit; |
| 173 |
|
AutoLoginCheckBox: TCheckBox; |
| 174 |
|
ForcedLoginCheckBox: TCheckBox; |
| 175 |
|
GroupBox4: TGroupBox; |
| 176 |
|
Label13: TLabel; |
| 177 |
|
BoardURLComboBox: TComboBox; |
| 178 |
|
AddURLButton: TButton; |
| 179 |
|
RemoveURLButton: TButton; |
| 180 |
|
OkBotton: TButton; |
| 181 |
procedure FormCreate(Sender: TObject); |
procedure FormCreate(Sender: TObject); |
| 182 |
procedure FormDestroy(Sender: TObject); |
procedure FormDestroy(Sender: TObject); |
| 183 |
procedure ApplyButtonClick(Sender: TObject); |
procedure ApplyButtonClick(Sender: TObject); |
| 215 |
procedure BrowserTabDefaultButtonClick(Sender: TObject); |
procedure BrowserTabDefaultButtonClick(Sender: TObject); |
| 216 |
procedure AddressHistoryCountEditExit(Sender: TObject); |
procedure AddressHistoryCountEditExit(Sender: TObject); |
| 217 |
procedure PreviewWaitEditExit(Sender: TObject); |
procedure PreviewWaitEditExit(Sender: TObject); |
| 218 |
procedure RecvBufferSizeExit(Sender: TObject); |
procedure CSSCheckBoxClick(Sender: TObject); procedure CSSFontButtonClick(Sender: TObject); |
|
procedure CSSCheckBoxClick(Sender: TObject); |
|
|
procedure PostTimeEditExit(Sender: TObject); |
|
|
procedure PostTimeCheckBoxClick(Sender: TObject); |
|
|
procedure CSSFontButtonClick(Sender: TObject); |
|
| 219 |
procedure CSSBackColorButtonClick(Sender: TObject); |
procedure CSSBackColorButtonClick(Sender: TObject); |
| 220 |
procedure CSSFontCheckBoxClick(Sender: TObject); |
procedure CSSFontCheckBoxClick(Sender: TObject); |
| 221 |
procedure CSSBackColorCheckBoxClick(Sender: TObject); |
procedure CSSBackColorCheckBoxClick(Sender: TObject); |
| 296 |
ForcedLoginLabel.Caption := '- チェックを入れるのはセキュリティ上好ましくありません。' + #13#10 |
ForcedLoginLabel.Caption := '- チェックを入れるのはセキュリティ上好ましくありません。' + #13#10 |
| 297 |
+ ' やむを得ない時だけにしてください。'; |
+ ' やむを得ない時だけにしてください。'; |
| 298 |
CSSCheckBoxClick(Sender); |
CSSCheckBoxClick(Sender); |
|
PostTimeCheckBoxClick(Sender); |
|
| 299 |
BrowserMaxLabel.Caption := |
BrowserMaxLabel.Caption := |
| 300 |
'ブラウザが最小化されているときに以下の操作でブラウザを最大化します。'#13#10 + |
'ブラウザが最小化されているときに以下の操作でブラウザを最大化します。'#13#10 + |
| 301 |
'また、ホイールクリックにより最大化をキャンセルすることが出来ます。'; |
'また、ホイールクリックにより最大化をキャンセルすることが出来ます。'; |
| 321 |
procedure TOptionDialog.OkBottonClick(Sender: TObject); |
procedure TOptionDialog.OkBottonClick(Sender: TObject); |
| 322 |
begin |
begin |
| 323 |
FClose := True; |
FClose := True; |
|
RecvBufferSizeExit(Sender); |
|
| 324 |
ReadPortEditExit(Sender); |
ReadPortEditExit(Sender); |
| 325 |
WritePortEditExit(Sender); |
WritePortEditExit(Sender); |
| 326 |
AddressHistoryCountEditExit(Sender); |
AddressHistoryCountEditExit(Sender); |
| 327 |
PreviewWaitEditExit(Sender); |
PreviewWaitEditExit(Sender); |
|
PostTimeEditExit(Sender); |
|
| 328 |
|
|
| 329 |
if not CheckFolder then begin |
if not CheckFolder then begin |
| 330 |
FClose := False; |
FClose := False; |
| 338 |
|
|
| 339 |
procedure TOptionDialog.ApplyButtonClick(Sender: TObject); |
procedure TOptionDialog.ApplyButtonClick(Sender: TObject); |
| 340 |
begin |
begin |
|
RecvBufferSizeExit(Sender); |
|
| 341 |
ReadPortEditExit(Sender); |
ReadPortEditExit(Sender); |
| 342 |
WritePortEditExit(Sender); |
WritePortEditExit(Sender); |
| 343 |
AddressHistoryCountEditExit(Sender); |
AddressHistoryCountEditExit(Sender); |
| 344 |
PreviewWaitEditExit(Sender); |
PreviewWaitEditExit(Sender); |
|
PostTimeEditExit(Sender); |
|
| 345 |
|
|
| 346 |
if not CheckFolder then begin |
if not CheckFolder then begin |
| 347 |
FClose := False; |
FClose := False; |
| 528 |
idx: Integer; |
idx: Integer; |
| 529 |
FileList: TStringList; |
FileList: TStringList; |
| 530 |
begin |
begin |
|
//受信バッファサイズ |
|
|
RecvBufferSize.Text := IntToStr(Gikosys.Setting.RecvBufferSize); |
|
|
//HTTP1.1使用 |
|
|
ProtocolCheckBox.Checked := GikoSys.Setting.Protocol; |
|
|
//プロキシ接続HTTP1.1使用 |
|
|
ProxyProtocolCheckBox.Checked := Gikosys.Setting.ProxyProtocol; |
|
| 531 |
|
|
| 532 |
//読み込み用プロキシ |
//読み込み用プロキシ |
| 533 |
ReadProxyCheck.Checked := GikoSys.Setting.ReadProxy; |
ReadProxyCheck.Checked := GikoSys.Setting.ReadProxy; |
| 788 |
DatOchiSortCombo.ItemIndex := 0; |
DatOchiSortCombo.ItemIndex := 0; |
| 789 |
end; |
end; |
| 790 |
|
|
|
//書き込み時マシン時間使用設定 |
|
|
PostTimeCheckBox.Checked := GikoSys.Setting.UseMachineTime; |
|
|
PostTimeEdit.Text := IntToStr(GikoSys.Setting.TimeAdjustSec); |
|
|
if GikoSys.Setting.TimeAdjust then |
|
|
PutPostTimeRadioButton.Checked := True |
|
|
else |
|
|
BackPostTimeRadioButton.Checked := True; |
|
| 791 |
//あぼ〜ん |
//あぼ〜ん |
| 792 |
RloCheckBox.Checked := GikoSys.Setting.AbonDeleterlo; |
RloCheckBox.Checked := GikoSys.Setting.AbonDeleterlo; |
| 793 |
ReplaceulCheckBox.Checked := GikoSys.Setting.AbonReplaceul; |
ReplaceulCheckBox.Checked := GikoSys.Setting.AbonReplaceul; |
| 807 |
tmp: string; |
tmp: string; |
| 808 |
// Item: TListItem; |
// Item: TListItem; |
| 809 |
begin |
begin |
|
//受信バッファサイズ |
|
|
Gikosys.Setting.RecvBufferSize := StrToInt(RecvBufferSize.Text); |
|
|
//HTTP1.1使用 |
|
|
GikoSys.Setting.Protocol := ProtocolCheckBox.Checked; |
|
|
//プロキシ接続HTTP1.1使用 |
|
|
Gikosys.Setting.ProxyProtocol := ProxyProtocolCheckBox.Checked; |
|
|
|
|
| 810 |
GikoSys.Setting.OptionDialogTabIndex := OptionTab.TabIndex; |
GikoSys.Setting.OptionDialogTabIndex := OptionTab.TabIndex; |
| 811 |
|
|
| 812 |
GikoSys.Setting.ReadProxy := ReadProxyCheck.Checked; |
GikoSys.Setting.ReadProxy := ReadProxyCheck.Checked; |
| 1032 |
end; |
end; |
| 1033 |
end; |
end; |
| 1034 |
|
|
|
//書き込み時マシン時間使用設定 |
|
|
GikoSys.Setting.UseMachineTime := PostTimeCheckBox.Checked; |
|
|
if GikoSys.IsNumeric(PostTimeEdit.Text) then |
|
|
GikoSys.Setting.TimeAdjustSec := StrToInt(PostTimeEdit.Text) |
|
|
else |
|
|
GikoSys.Setting.TimeAdjustSec := 0; |
|
|
GikoSys.Setting.TimeAdjust := PutPostTimeRadioButton.Checked; |
|
|
|
|
|
|
|
| 1035 |
GikoSys.Setting.WriteSystemSettingFile; |
GikoSys.Setting.WriteSystemSettingFile; |
| 1036 |
GikoSys.Setting.WriteBoardURLSettingFile; |
GikoSys.Setting.WriteBoardURLSettingFile; |
| 1037 |
// GikoForm.SetBrowserTabState; |
// GikoForm.SetBrowserTabState; |
| 1303 |
PreviewWaitEdit.Text := '9999'; |
PreviewWaitEdit.Text := '9999'; |
| 1304 |
end; |
end; |
| 1305 |
|
|
|
procedure TOptionDialog.RecvBufferSizeExit(Sender: TObject); |
|
|
begin |
|
|
if not GikoSys.IsNumeric(RecvBufferSize.Text) then |
|
|
RecvBufferSize.Text := '4096'; |
|
|
if StrToInt(RecvBufferSize.Text) < 256 then |
|
|
RecvBufferSize.Text := '4096'; |
|
|
end; |
|
|
|
|
| 1306 |
procedure TOptionDialog.CSSCheckBoxClick(Sender: TObject); |
procedure TOptionDialog.CSSCheckBoxClick(Sender: TObject); |
| 1307 |
begin |
begin |
| 1308 |
CSSListLabel.Enabled := CSSCheckBox.Checked; |
CSSListLabel.Enabled := CSSCheckBox.Checked; |
| 1309 |
CSSListView.Enabled := CSSCheckBox.Checked; |
CSSListView.Enabled := CSSCheckBox.Checked; |
| 1310 |
end; |
end; |
| 1311 |
|
|
|
procedure TOptionDialog.PostTimeEditExit(Sender: TObject); |
|
|
begin |
|
|
if not GikoSys.IsNumeric(PostTimeEdit.Text) then |
|
|
PostTimeEdit.Text := '0'; |
|
|
end; |
|
|
|
|
|
procedure TOptionDialog.PostTimeCheckBoxClick(Sender: TObject); |
|
|
begin |
|
|
PostTimeLabel.Enabled := PostTimeCheckBox.Checked; |
|
|
PostTimeEdit.Enabled := PostTimeCheckBox.Checked; |
|
|
PutPostTimeRadioButton.Enabled := PostTimeCheckBox.Checked; |
|
|
BackPostTimeRadioButton.Enabled := PostTimeCheckBox.Checked; |
|
|
end; |
|
| 1312 |
procedure TOptionDialog.SetAbonpropertys; |
procedure TOptionDialog.SetAbonpropertys; |
| 1313 |
begin |
begin |
| 1314 |
//あぼ〜ん |
//あぼ〜ん |