Develop and Download Open Source Software

Browse CVS Repository

Contents of /gikonavigoeson/gikonavi/KuroutSetting.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.13 - (show annotations) (download) (as text)
Sun Feb 18 08:09:21 2007 UTC (17 years, 2 months ago) by h677
Branch: MAIN
CVS Tags: v1_55_0_694, v1_55_0_695
Changes since 1.12: +12 -5 lines
File MIME type: text/x-pascal
セキュリティソフトの誤反応対策機能を追加

1 unit KuroutSetting;
2
3 interface
4
5 uses
6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7 Dialogs, StdCtrls, ComCtrls, GikoSystem, GikoUtil, ExtCtrls;
8
9 type
10 TKuroutOption = class(TForm)
11 PageControl1: TPageControl;
12 TabSheet1: TTabSheet;
13 GroupBox11: TGroupBox;
14 Label17: TLabel;
15 Label18: TLabel;
16 RecvBufferSize: TEdit;
17 ProxyProtocolCheckBox: TCheckBox;
18 ProtocolCheckBox: TCheckBox;
19 GroupBox13: TGroupBox;
20 Label24: TLabel;
21 Label25: TLabel;
22 PostTimeLabel: TLabel;
23 Label27: TLabel;
24 PostTimeCheckBox: TCheckBox;
25 PostTimeEdit: TEdit;
26 PutPostTimeRadioButton: TRadioButton;
27 BackPostTimeRadioButton: TRadioButton;
28 OkBotton: TButton;
29 CancelBotton: TButton;
30 ApplyButton: TButton;
31 ColumnTabSheet: TTabSheet;
32 CategoryColumnGroupBox: TGroupBox;
33 CUnVisibledListBox: TListBox;
34 CVisibledListBox: TListBox;
35 CAddButton: TButton;
36 CDeleteButton: TButton;
37 BoardColumnGroupBox: TGroupBox;
38 BUnVisibledListBox: TListBox;
39 BVisibledListBox: TListBox;
40 BAddButton: TButton;
41 BDeleteButton: TButton;
42 Label1: TLabel;
43 Label2: TLabel;
44 Label3: TLabel;
45 Label4: TLabel;
46 CUpButton: TButton;
47 CDownButton: TButton;
48 BUpButton: TButton;
49 BDownButton: TButton;
50 GroupBox1: TGroupBox;
51 GengoSupport: TCheckBox;
52 Label5: TLabel;
53 Label6: TLabel;
54 ReadTimeOut: TEdit;
55 Label7: TLabel;
56 KakikomiTabSheet: TTabSheet;
57 CookieGroupBox: TGroupBox;
58 Label8: TLabel;
59 FixedCookieEdit: TEdit;
60 Label9: TLabel;
61 GroupBox3: TGroupBox;
62 Label10: TLabel;
63 MoveHistoryMaxEdit: TEdit;
64 Label11: TLabel;
65 AHandredGroupBox: TGroupBox;
66 AHandredLabeledEdit: TLabeledEdit;
67 UpDown1: TUpDown;
68 ThreadGroupBox: TGroupBox;
69 AddKeywordCheckBox: TCheckBox;
70 TabSheet2: TTabSheet;
71 SecurityGroupBox: TGroupBox;
72 GroupBox2: TGroupBox;
73 LocalTrapAtt: TCheckBox;
74 RemoteTrapAtt: TCheckBox;
75 ReplaceDatCheckBox: TCheckBox;
76 Label12: TLabel;
77 procedure OkBottonClick(Sender: TObject);
78 procedure FormCreate(Sender: TObject);
79 procedure CDeleteButtonClick(Sender: TObject);
80 procedure CAddButtonClick(Sender: TObject);
81 procedure BAddButtonClick(Sender: TObject);
82 procedure BDeleteButtonClick(Sender: TObject);
83 procedure CUpButtonClick(Sender: TObject);
84 procedure CDownButtonClick(Sender: TObject);
85 procedure BUpButtonClick(Sender: TObject);
86 procedure BDownButtonClick(Sender: TObject);
87 procedure MoveHistoryMaxEditExit(Sender: TObject);
88 procedure AHandredLabeledEditExit(Sender: TObject);
89 private
90 { Private 鐃緒申鐃緒申 }
91 procedure SetValue;
92 procedure SaveSetting;
93 procedure RecvBufferSizeExit(Sender: TObject);
94 procedure PostTimeEditExit(Sender: TObject);
95 procedure PostTimeCheckBoxClick(Sender: TObject);
96 procedure SetColumnData();
97 procedure PostColumnData();
98 public
99 { Public 鐃緒申鐃緒申 }
100 end;
101
102 var
103 KuroutOption: TKuroutOption;
104
105 implementation
106
107 uses
108 Giko, Setting;
109
110 {$R *.dfm}
111
112 procedure TKuroutOption.SetValue;
113 begin
114 //鐃緒申鐃?鐃?鐃?鐃?鐃?鐃?鐃?鐃?
115 RecvBufferSize.Text := IntToStr(Gikosys.Setting.RecvBufferSize);
116 //HTTP1.1鐃?鐃?
117 ProtocolCheckBox.Checked := GikoSys.Setting.Protocol;
118 //鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申HTTP1.1鐃?鐃?
119 ProxyProtocolCheckBox.Checked := Gikosys.Setting.ProxyProtocol;
120 ReadTimeOut.Text := IntToStr(GikoSys.Setting.ReadTimeOut);
121
122 //鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申
123 PostTimeCheckBox.Checked := GikoSys.Setting.UseMachineTime;
124 PostTimeEdit.Text := IntToStr(GikoSys.Setting.TimeAdjustSec);
125 if GikoSys.Setting.TimeAdjust then
126 PutPostTimeRadioButton.Checked := True
127 else
128 BackPostTimeRadioButton.Checked := True;
129
130 SetColumnData();
131
132 PageControl1.ActivePageIndex := GikoSys.Setting.KuroutSettingTabIndex;
133
134 //2chAnnai
135 GengoSupport.Checked := GikoSys.Setting.GengoSupport;
136 //FusianaSet
137 LocalTrapAtt.Checked := GikoSys.Setting.LocalTrapAtt;
138 RemoteTrapAtt.Checked := GikoSys.Setting.RemoteTrapAtt;
139 // Cookie
140 FixedCookieEdit.Text := GikoSys.Setting.FixedCookie;
141 // 鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申
142 MoveHistoryMaxEdit.Text := IntToStr( GikoSys.Setting.MoveHistorySize );
143 //鐃?鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃?鐃緒申
144 AHandredLabeledEdit.Text := IntToStr( GikoSys.Setting.HeadResCount );
145 // 鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?鐃緒申鐃?
146 AddKeywordCheckBox.Checked := GikoSys.Setting.AddKeywordLink;
147 // 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
148 ReplaceDatCheckBox.Checked := GikoSys.Setting.ReplaceDat;
149 end;
150
151 procedure TKuroutOption.SaveSetting;
152 begin
153 //鐃緒申鐃?鐃?鐃?鐃?鐃?鐃?鐃?鐃?
154 Gikosys.Setting.RecvBufferSize := StrToIntDef(RecvBufferSize.Text, Gikosys.Setting.RecvBufferSize);
155 GikoSys.Setting.ReadTimeOut := StrToIntDef(ReadTimeOut.Text, GikoSys.Setting.ReadTimeOut);
156 //HTTP1.1鐃?鐃?
157 GikoSys.Setting.Protocol := ProtocolCheckBox.Checked;
158 //鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申HTTP1.1鐃?鐃?
159 Gikosys.Setting.ProxyProtocol := ProxyProtocolCheckBox.Checked;
160 //鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申
161 GikoSys.Setting.UseMachineTime := PostTimeCheckBox.Checked;
162 if GikoSys.IsNumeric(PostTimeEdit.Text) then
163 GikoSys.Setting.TimeAdjustSec := StrToIntDef(PostTimeEdit.Text, GikoSys.Setting.TimeAdjustSec)
164 else
165 GikoSys.Setting.TimeAdjustSec := 0;
166 GikoSys.Setting.TimeAdjust := PutPostTimeRadioButton.Checked;
167 //2ch鐃緒申鐃緒申鐃?鐃?鐃?鐃?
168 GikoSys.Setting.GengoSupport := GengoSupport.Checked;
169 GikoSys.SetGikoMessage;
170 //鐃緒申鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?鐃緒申
171 GikoSys.Setting.LocalTrapAtt := LocalTrapAtt.Checked;
172 GikoSys.Setting.RemoteTrapAtt := RemoteTrapAtt.Checked;
173 // Cookie
174 GikoSys.Setting.FixedCookie := FixedCookieEdit.Text;
175
176 // 鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申
177 GikoSys.Setting.MoveHistorySize :=
178 StrToIntDef( MoveHistoryMaxEdit.Text, 20 );
179
180 //鐃?鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃?鐃緒申
181 GikoSys.Setting.HeadResCount :=
182 StrToIntDef( AHandredLabeledEdit.Text , 1);
183
184 GikoSys.Setting.KuroutSettingTabIndex := PageControl1.ActivePageIndex;
185 // 鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?鐃緒申鐃?
186 GikoSys.Setting.AddKeywordLink := AddKeywordCheckBox.Checked;
187 // 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
188 GikoSys.Setting.ReplaceDat := ReplaceDatCheckBox.Checked;
189 end;
190
191 procedure TKuroutOption.RecvBufferSizeExit(Sender: TObject);
192 begin
193 if not GikoSys.IsNumeric(RecvBufferSize.Text) then
194 RecvBufferSize.Text := '4096';
195 if StrToInt(RecvBufferSize.Text) < 256 then
196 RecvBufferSize.Text := '4096';
197 end;
198
199 procedure TKuroutOption.PostTimeEditExit(Sender: TObject);
200 begin
201 if not GikoSys.IsNumeric(PostTimeEdit.Text) then
202 PostTimeEdit.Text := '0';
203 end;
204
205 procedure TKuroutOption.PostTimeCheckBoxClick(Sender: TObject);
206 begin
207 PostTimeLabel.Enabled := PostTimeCheckBox.Checked;
208 PostTimeEdit.Enabled := PostTimeCheckBox.Checked;
209 PutPostTimeRadioButton.Enabled := PostTimeCheckBox.Checked;
210 BackPostTimeRadioButton.Enabled := PostTimeCheckBox.Checked;
211 end;
212
213 procedure TKuroutOption.OkBottonClick(Sender: TObject);
214 begin
215 RecvBufferSizeExit(Sender);
216 PostTimeEditExit(Sender);
217 MoveHistoryMaxEditExit(Sender);
218 AHandredLabeledEditExit(Sender);
219 PostColumnData();
220 SaveSetting;
221 end;
222
223 procedure TKuroutOption.FormCreate(Sender: TObject);
224 begin
225 SetValue;
226 PostTimeCheckBoxClick(Sender);
227
228 end;
229 procedure TKuroutOption.SetColumnData();
230 var
231 i, j : Integer;
232 flag : Boolean;
233 begin
234
235 //===== 鐃緒申鐃緒申鐃?鐃? =====
236 for i := 0 to GikoSys.Setting.CategoryColumnOrder.Count - 1 do begin
237 for j := 1 to Length( GikoCategoryColumnCaption ) - 1 do begin
238 if GikoSys.Setting.CategoryColumnOrder[ i ] = TGikoCategoryColumnID( j ) then begin
239 CVisibledListBox.AddItem(GikoCategoryColumnCaption[ j ], nil);
240 break;
241 end;
242 end;
243 end;
244
245 for i := 1 to Length( GikoCategoryColumnCaption ) - 1 do begin
246 flag := false;
247 for j := 0 to GikoSys.Setting.CategoryColumnOrder.Count - 1 do begin
248 if GikoSys.Setting.CategoryColumnOrder[ j ] = TGikoCategoryColumnID( i ) then begin
249 flag := true;
250 break;
251 end;
252 end;
253 if not flag then
254 CUnVisibledListBox.AddItem(GikoCategoryColumnCaption[ i ], nil);
255 end;
256
257 //===== 鐃?鐃緒申鐃緒申鐃?鐃? =====
258 for i := 0 to GikoSys.Setting.BoardColumnOrder.Count - 1 do begin
259 for j := 1 to Length( GikoBoardColumnCaption ) - 1 do begin
260 if GikoSys.Setting.BoardColumnOrder[ i ] = TGikoBoardColumnID( j ) then begin
261 BVisibledListBox.AddItem(GikoBoardColumnCaption[ j ], nil);
262 Break;
263 end;
264 end;
265 end;
266
267 for i := 1 to Length( GikoBoardColumnCaption ) - 1 do begin
268 flag := false;
269 for j := GikoSys.Setting.BoardColumnOrder.Count - 1 downto 0 do begin
270 if GikoSys.Setting.BoardColumnOrder[ j ] = TGikoBoardColumnID( i ) then begin
271 flag := true;
272 Break;
273 end;
274 end;
275 if not flag then
276 BUnVisibledListBox.AddItem(GikoBoardColumnCaption[ i ], nil);
277
278 end;
279 end;
280 procedure TKuroutOption.CDeleteButtonClick(Sender: TObject);
281 var
282 i: Integer;
283 begin
284 for i := 0 to CVisibledListBox.Count - 1 do begin
285 if CVisibledListBox.Selected[i] then begin
286 CUnVisibledListBox.AddItem( CVisibledListBox.Items.Strings[ i ], nil);
287 CVisibledListBox.DeleteSelected;
288 break;
289 end;
290 end;
291 end;
292
293 procedure TKuroutOption.CAddButtonClick(Sender: TObject);
294 var
295 i: Integer;
296 begin
297 for i := 0 to CUnVisibledListBox.Count - 1 do begin
298 if CUnVisibledListBox.Selected[i] then begin
299 CVisibledListBox.AddItem( CUnVisibledListBox.Items.Strings[ i ], nil);
300 CUnVisibledListBox.DeleteSelected;
301 break;
302 end;
303 end;
304 end;
305
306 procedure TKuroutOption.BAddButtonClick(Sender: TObject);
307 var
308 i: Integer;
309 begin
310 for i := 0 to BUnVisibledListBox.Count - 1 do begin
311 if BUnVisibledListBox.Selected[i] then begin
312 BVisibledListBox.AddItem( BUnVisibledListBox.Items.Strings[ i ], nil);
313 BUnVisibledListBox.DeleteSelected;
314 break;
315 end;
316 end;
317 end;
318
319 procedure TKuroutOption.BDeleteButtonClick(Sender: TObject);
320 var
321 i: Integer;
322 begin
323 for i := 0 to BVisibledListBox.Count - 1 do begin
324 if BVisibledListBox.Selected[i] then begin
325 BUnVisibledListBox.AddItem( BVisibledListBox.Items.Strings[ i ], nil);
326 BVisibledListBox.DeleteSelected;
327 break;
328 end;
329 end;
330 end;
331
332 procedure TKuroutOption.CUpButtonClick(Sender: TObject);
333 var
334 i: Integer;
335 begin
336 for i := 1 to CVisibledListBox.Count - 1 do begin
337 if CVisibledListBox.Selected[i] then begin
338 CVisibledListBox.Items.Exchange(i, i -1);
339 break;
340 end;
341 end;
342 end;
343
344 procedure TKuroutOption.CDownButtonClick(Sender: TObject);
345 var
346 i: Integer;
347 begin
348 for i := 0 to CVisibledListBox.Count - 2 do begin
349 if CVisibledListBox.Selected[i] then begin
350 CVisibledListBox.Items.Exchange(i, i + 1);
351 break;
352 end;
353 end;
354 end;
355
356 procedure TKuroutOption.BUpButtonClick(Sender: TObject);
357 var
358 i: Integer;
359 begin
360 for i := 1 to BVisibledListBox.Count - 1 do begin
361 if BVisibledListBox.Selected[i] then begin
362 BVisibledListBox.Items.Exchange(i, i -1);
363 break;
364 end;
365 end;
366 end;
367
368 procedure TKuroutOption.BDownButtonClick(Sender: TObject);
369 var
370 i: Integer;
371 begin
372 for i := 0 to BVisibledListBox.Count - 2 do begin
373 if BVisibledListBox.Selected[i] then begin
374 BVisibledListBox.Items.Exchange(i, i + 1);
375 break;
376 end;
377 end;
378 end;
379
380
381 procedure TKuroutOption.PostColumnData();
382 var
383 i, j : Integer;
384 begin
385 GikoForm.ActiveListColumnSave;
386
387 //===== 鐃緒申鐃緒申鐃?鐃? =====
388 for i := GikoSys.Setting.CategoryColumnOrder.Count -1 downto 1 do
389 GikoSys.Setting.CategoryColumnOrder.Delete(i);
390
391 for i := 0 to CVisibledListBox.Count - 1 do begin
392 for j := 1 to Length( GikoCategoryColumnCaption ) - 1 do begin
393 if CVisibledListBox.Items.Strings[ i ] = GikoCategoryColumnCaption[ j ] then begin
394 GikoSys.Setting.CategoryColumnOrder.Add( TGikoCategoryColumnID(j) );
395 break;
396 end;
397 end;
398 end;
399
400 //===== 鐃?鐃緒申鐃緒申鐃?鐃? =====
401 for i := GikoSys.Setting.BoardColumnOrder.Count - 1 downto 1 do
402 GikoSys.Setting.BoardColumnOrder.Delete(i);
403
404 for i := 0 to BVisibledListBox.Count - 1 do begin
405 for j := 1 to Length( GikoBoardColumnCaption ) - 1 do begin
406 if BVisibledListBox.Items.Strings[ i ] = GikoBoardColumnCaption[ j ] then begin
407 GikoSys.Setting.BoardColumnOrder.Add( TGikoBoardColumnID(j) );
408 Break;
409 end;
410 end;
411 end;
412 //鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃?鐃?
413 GikoForm.SetActiveList(GikoForm.ActiveList);
414 end;
415 // 鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃?
416 procedure TKuroutOption.MoveHistoryMaxEditExit(Sender: TObject);
417 begin
418 if not GikoSys.IsNumeric(MoveHistoryMaxEdit.Text) then
419 MoveHistoryMaxEdit.Text := '20';
420 if StrToInt(MoveHistoryMaxEdit.Text) < 1 then
421 MoveHistoryMaxEdit.Text := '1';
422 end;
423 // 鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃?
424 procedure TKuroutOption.AHandredLabeledEditExit(Sender: TObject);
425 begin
426 if not GikoSys.IsNumeric(AHandredLabeledEdit.Text) then
427 AHandredLabeledEdit.Text := '1';
428 if StrToInt(AHandredLabeledEdit.Text) < 1 then
429 AHandredLabeledEdit.Text := '1';
430
431 end;
432
433 end.

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26