6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7 Dialogs, StdCtrls, ComCtrls, GikoSystem, GikoUtil;
10 TKuroutOption = class(TForm)
11 PageControl1: TPageControl;
13 GroupBox11: TGroupBox;
16 RecvBufferSize: TEdit;
17 ProxyProtocolCheckBox: TCheckBox;
18 ProtocolCheckBox: TCheckBox;
19 GroupBox13: TGroupBox;
22 PostTimeLabel: TLabel;
24 PostTimeCheckBox: TCheckBox;
26 PutPostTimeRadioButton: TRadioButton;
27 BackPostTimeRadioButton: TRadioButton;
29 CancelBotton: TButton;
31 ColumnTabSheet: TTabSheet;
32 CategoryColumnGroupBox: TGroupBox;
33 CUnVisibledListBox: TListBox;
34 CVisibledListBox: TListBox;
36 CDeleteButton: TButton;
37 BoardColumnGroupBox: TGroupBox;
38 BUnVisibledListBox: TListBox;
39 BVisibledListBox: TListBox;
41 BDeleteButton: TButton;
51 GengoSupport: TCheckBox;
54 LocalTrapAtt: TCheckBox;
55 RemoteTrapAtt: TCheckBox;
59 KakikomiTabSheet: TTabSheet;
60 CookieGroupBox: TGroupBox;
62 FixedCookieEdit: TEdit;
66 MoveHistoryMaxEdit: TEdit;
68 procedure OkBottonClick(Sender: TObject);
69 procedure FormCreate(Sender: TObject);
70 procedure CDeleteButtonClick(Sender: TObject);
71 procedure CAddButtonClick(Sender: TObject);
72 procedure BAddButtonClick(Sender: TObject);
73 procedure BDeleteButtonClick(Sender: TObject);
74 procedure CUpButtonClick(Sender: TObject);
75 procedure CDownButtonClick(Sender: TObject);
76 procedure BUpButtonClick(Sender: TObject);
77 procedure BDownButtonClick(Sender: TObject);
81 procedure SaveSetting;
82 procedure RecvBufferSizeExit(Sender: TObject);
83 procedure PostTimeEditExit(Sender: TObject);
84 procedure PostTimeCheckBoxClick(Sender: TObject);
85 procedure SetColumnData();
86 procedure PostColumnData();
92 KuroutOption: TKuroutOption;
101 procedure TKuroutOption.SetValue;
103 //
\8eó
\90M
\83o
\83b
\83t
\83@
\83T
\83C
\83Y
104 RecvBufferSize.Text := IntToStr(Gikosys.Setting.RecvBufferSize);
106 ProtocolCheckBox.Checked := GikoSys.Setting.Protocol;
107 //
\83v
\83\8d\83L
\83V
\90Ú
\91±HTTP1.1
\8eg
\97p
108 ProxyProtocolCheckBox.Checked := Gikosys.Setting.ProxyProtocol;
109 ReadTimeOut.Text := IntToStr(GikoSys.Setting.ReadTimeOut);
111 //
\8f\91\82«
\8d\9e\82Ý
\8e\9e\83}
\83V
\83\93\8e\9e\8aÔ
\8eg
\97p
\90Ý
\92è
112 PostTimeCheckBox.Checked := GikoSys.Setting.UseMachineTime;
113 PostTimeEdit.Text := IntToStr(GikoSys.Setting.TimeAdjustSec);
114 if GikoSys.Setting.TimeAdjust then
115 PutPostTimeRadioButton.Checked := True
117 BackPostTimeRadioButton.Checked := True;
121 PageControl1.ActivePageIndex := GikoSys.Setting.KuroutSettingTabIndex;
124 GengoSupport.Checked := GikoSys.Setting.GengoSupport;
126 LocalTrapAtt.Checked := GikoSys.Setting.LocalTrapAtt;
127 RemoteTrapAtt.Checked := GikoSys.Setting.RemoteTrapAtt;
129 FixedCookieEdit.Text := GikoSys.Setting.FixedCookie;
130 //
\83\8a\83\93\83N
\88Ú
\93®
\97\9a\97ð
131 MoveHistoryMaxEdit.Text := IntToStr( GikoSys.Setting.MoveHistorySize );
134 procedure TKuroutOption.SaveSetting;
136 //
\8eó
\90M
\83o
\83b
\83t
\83@
\83T
\83C
\83Y
137 Gikosys.Setting.RecvBufferSize := StrToIntDef(RecvBufferSize.Text, Gikosys.Setting.RecvBufferSize);
138 GikoSys.Setting.ReadTimeOut := StrToIntDef(ReadTimeOut.Text, GikoSys.Setting.ReadTimeOut);
140 GikoSys.Setting.Protocol := ProtocolCheckBox.Checked;
141 //
\83v
\83\8d\83L
\83V
\90Ú
\91±HTTP1.1
\8eg
\97p
142 Gikosys.Setting.ProxyProtocol := ProxyProtocolCheckBox.Checked;
143 //
\8f\91\82«
\8d\9e\82Ý
\8e\9e\83}
\83V
\83\93\8e\9e\8aÔ
\8eg
\97p
\90Ý
\92è
144 GikoSys.Setting.UseMachineTime := PostTimeCheckBox.Checked;
145 if GikoSys.IsNumeric(PostTimeEdit.Text) then
146 GikoSys.Setting.TimeAdjustSec := StrToIntDef(PostTimeEdit.Text, GikoSys.Setting.TimeAdjustSec)
148 GikoSys.Setting.TimeAdjustSec := 0;
149 GikoSys.Setting.TimeAdjust := PutPostTimeRadioButton.Checked;
150 //2ch
\8c¾
\8cê
\83T
\83|
\81[
\83g
151 GikoSys.Setting.GengoSupport := GengoSupport.Checked;
152 GikoSys.SetGikoMessage;
153 //
\83\8d\81[
\83J
\83\8b\81E
\83\8a\83\82\81[
\83g̼±Å
\8cx
\8d\90
154 GikoSys.Setting.LocalTrapAtt := LocalTrapAtt.Checked;
155 GikoSys.Setting.RemoteTrapAtt := RemoteTrapAtt.Checked;
157 GikoSys.Setting.FixedCookie := FixedCookieEdit.Text;
159 //
\83\8a\83\93\83N
\88Ú
\93®
\97\9a\97ð
160 GikoSys.Setting.MoveHistorySize :=
161 StrToIntDef( MoveHistoryMaxEdit.Text, 20 );
163 GikoSys.Setting.KuroutSettingTabIndex := PageControl1.ActivePageIndex;
166 procedure TKuroutOption.RecvBufferSizeExit(Sender: TObject);
168 if not GikoSys.IsNumeric(RecvBufferSize.Text) then
169 RecvBufferSize.Text := '4096';
170 if StrToInt(RecvBufferSize.Text) < 256 then
171 RecvBufferSize.Text := '4096';
174 procedure TKuroutOption.PostTimeEditExit(Sender: TObject);
176 if not GikoSys.IsNumeric(PostTimeEdit.Text) then
177 PostTimeEdit.Text := '0';
180 procedure TKuroutOption.PostTimeCheckBoxClick(Sender: TObject);
182 PostTimeLabel.Enabled := PostTimeCheckBox.Checked;
183 PostTimeEdit.Enabled := PostTimeCheckBox.Checked;
184 PutPostTimeRadioButton.Enabled := PostTimeCheckBox.Checked;
185 BackPostTimeRadioButton.Enabled := PostTimeCheckBox.Checked;
188 procedure TKuroutOption.OkBottonClick(Sender: TObject);
190 RecvBufferSizeExit(Sender);
191 PostTimeEditExit(Sender);
196 procedure TKuroutOption.FormCreate(Sender: TObject);
199 PostTimeCheckBoxClick(Sender);
202 procedure TKuroutOption.SetColumnData();
208 //=====
\94Â
\83\8a\83X
\83g =====
209 for i := 0 to GikoSys.Setting.CategoryColumnOrder.Count - 1 do begin
210 for j := 1 to Length( GikoCategoryColumnCaption ) - 1 do begin
211 if GikoSys.Setting.CategoryColumnOrder[ i ] = TGikoCategoryColumnID( j ) then begin
212 CVisibledListBox.AddItem(GikoCategoryColumnCaption[ j ], nil);
218 for i := 1 to Length( GikoCategoryColumnCaption ) - 1 do begin
220 for j := 0 to GikoSys.Setting.CategoryColumnOrder.Count - 1 do begin
221 if GikoSys.Setting.CategoryColumnOrder[ j ] = TGikoCategoryColumnID( i ) then begin
227 CUnVisibledListBox.AddItem(GikoCategoryColumnCaption[ i ], nil);
230 //=====
\83X
\83\8c\83\8a\83X
\83g =====
231 for i := 0 to GikoSys.Setting.BoardColumnOrder.Count - 1 do begin
232 for j := 1 to Length( GikoBoardColumnCaption ) - 1 do begin
233 if GikoSys.Setting.BoardColumnOrder[ i ] = TGikoBoardColumnID( j ) then begin
234 BVisibledListBox.AddItem(GikoBoardColumnCaption[ j ], nil);
240 for i := 1 to Length( GikoBoardColumnCaption ) - 1 do begin
242 for j := GikoSys.Setting.BoardColumnOrder.Count - 1 downto 0 do begin
243 if GikoSys.Setting.BoardColumnOrder[ j ] = TGikoBoardColumnID( i ) then begin
249 BUnVisibledListBox.AddItem(GikoBoardColumnCaption[ i ], nil);
253 procedure TKuroutOption.CDeleteButtonClick(Sender: TObject);
257 for i := 0 to CVisibledListBox.Count - 1 do begin
258 if CVisibledListBox.Selected[i] then begin
259 CUnVisibledListBox.AddItem( CVisibledListBox.Items.Strings[ i ], nil);
260 CVisibledListBox.DeleteSelected;
266 procedure TKuroutOption.CAddButtonClick(Sender: TObject);
270 for i := 0 to CUnVisibledListBox.Count - 1 do begin
271 if CUnVisibledListBox.Selected[i] then begin
272 CVisibledListBox.AddItem( CUnVisibledListBox.Items.Strings[ i ], nil);
273 CUnVisibledListBox.DeleteSelected;
279 procedure TKuroutOption.BAddButtonClick(Sender: TObject);
283 for i := 0 to BUnVisibledListBox.Count - 1 do begin
284 if BUnVisibledListBox.Selected[i] then begin
285 BVisibledListBox.AddItem( BUnVisibledListBox.Items.Strings[ i ], nil);
286 BUnVisibledListBox.DeleteSelected;
292 procedure TKuroutOption.BDeleteButtonClick(Sender: TObject);
296 for i := 0 to BVisibledListBox.Count - 1 do begin
297 if BVisibledListBox.Selected[i] then begin
298 BUnVisibledListBox.AddItem( BVisibledListBox.Items.Strings[ i ], nil);
299 BVisibledListBox.DeleteSelected;
305 procedure TKuroutOption.CUpButtonClick(Sender: TObject);
309 for i := 1 to CVisibledListBox.Count - 1 do begin
310 if CVisibledListBox.Selected[i] then begin
311 CVisibledListBox.Items.Exchange(i, i -1);
317 procedure TKuroutOption.CDownButtonClick(Sender: TObject);
321 for i := 0 to CVisibledListBox.Count - 2 do begin
322 if CVisibledListBox.Selected[i] then begin
323 CVisibledListBox.Items.Exchange(i, i + 1);
329 procedure TKuroutOption.BUpButtonClick(Sender: TObject);
333 for i := 1 to BVisibledListBox.Count - 1 do begin
334 if BVisibledListBox.Selected[i] then begin
335 BVisibledListBox.Items.Exchange(i, i -1);
341 procedure TKuroutOption.BDownButtonClick(Sender: TObject);
345 for i := 0 to BVisibledListBox.Count - 2 do begin
346 if BVisibledListBox.Selected[i] then begin
347 BVisibledListBox.Items.Exchange(i, i + 1);
354 procedure TKuroutOption.PostColumnData();
358 GikoForm.ActiveListColumnSave;
360 //=====
\94Â
\83\8a\83X
\83g =====
361 for i := GikoSys.Setting.CategoryColumnOrder.Count -1 downto 1 do
362 GikoSys.Setting.CategoryColumnOrder.Delete(i);
364 for i := 0 to CVisibledListBox.Count - 1 do begin
365 for j := 1 to Length( GikoCategoryColumnCaption ) - 1 do begin
366 if CVisibledListBox.Items.Strings[ i ] = GikoCategoryColumnCaption[ j ] then begin
367 GikoSys.Setting.CategoryColumnOrder.Add( TGikoCategoryColumnID(j) );
373 //=====
\83X
\83\8c\83\8a\83X
\83g =====
374 for i := GikoSys.Setting.BoardColumnOrder.Count - 1 downto 1 do
375 GikoSys.Setting.BoardColumnOrder.Delete(i);
377 for i := 0 to BVisibledListBox.Count - 1 do begin
378 for j := 1 to Length( GikoBoardColumnCaption ) - 1 do begin
379 if BVisibledListBox.Items.Strings[ i ] = GikoBoardColumnCaption[ j ] then begin
380 GikoSys.Setting.BoardColumnOrder.Add( TGikoBoardColumnID(j) );
385 //
\83X
\83\8c\88ê
\97\97\82Ì
\95`
\89æ
\82Ì
\8dX
\90V
386 GikoForm.SetActiveList(GikoForm.ActiveList);