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.15 - (show annotations) (download) (as text)
Sat Apr 14 16:52:57 2007 UTC (17 years ago) by h677
Branch: MAIN
CVS Tags: v1_56_0_707, v1_56_0_705, v1_56_0_704, v1_56_0_703, v1_56_0_702, v1_56_0_701, v1_56_0_700, v1_56_0_706, v1_56_0_708, v1_56_0_699, v1_56_0_698
Branch point for: bRESPOPUP
Changes since 1.14: +16 -1 lines
File MIME type: text/x-pascal
ブラウザのページUp/Downアクションの追加
イメージ以外のリンクURLを取得するアクションを追加

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, StrUtils;
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 GroupBox4: TGroupBox;
78 SentIniFileSizeEdit: TEdit;
79 SentIniFileSizeUpDown: TUpDown;
80 Label13: TLabel;
81 Label14: TLabel;
82 ExtListLabeledEdit: TLabeledEdit;
83 Label15: TLabel;
84 procedure OkBottonClick(Sender: TObject);
85 procedure FormCreate(Sender: TObject);
86 procedure CDeleteButtonClick(Sender: TObject);
87 procedure CAddButtonClick(Sender: TObject);
88 procedure BAddButtonClick(Sender: TObject);
89 procedure BDeleteButtonClick(Sender: TObject);
90 procedure CUpButtonClick(Sender: TObject);
91 procedure CDownButtonClick(Sender: TObject);
92 procedure BUpButtonClick(Sender: TObject);
93 procedure BDownButtonClick(Sender: TObject);
94 procedure MoveHistoryMaxEditExit(Sender: TObject);
95 procedure AHandredLabeledEditExit(Sender: TObject);
96 procedure ExtListLabeledEditExit(Sender: TObject);
97 private
98 { Private 鐃緒申鐃緒申 }
99 procedure SetValue;
100 procedure SaveSetting;
101 procedure RecvBufferSizeExit(Sender: TObject);
102 procedure PostTimeEditExit(Sender: TObject);
103 procedure PostTimeCheckBoxClick(Sender: TObject);
104 procedure SetColumnData();
105 procedure PostColumnData();
106 public
107 { Public 鐃緒申鐃緒申 }
108 end;
109
110 var
111 KuroutOption: TKuroutOption;
112
113 implementation
114
115 uses
116 Giko, Setting;
117
118 {$R *.dfm}
119
120 procedure TKuroutOption.SetValue;
121 begin
122 //鐃緒申鐃?鐃?鐃?鐃?鐃?鐃?鐃?鐃?
123 RecvBufferSize.Text := IntToStr(Gikosys.Setting.RecvBufferSize);
124 //HTTP1.1鐃?鐃?
125 ProtocolCheckBox.Checked := GikoSys.Setting.Protocol;
126 //鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申HTTP1.1鐃?鐃?
127 ProxyProtocolCheckBox.Checked := Gikosys.Setting.ProxyProtocol;
128 ReadTimeOut.Text := IntToStr(GikoSys.Setting.ReadTimeOut);
129
130 //鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申
131 PostTimeCheckBox.Checked := GikoSys.Setting.UseMachineTime;
132 PostTimeEdit.Text := IntToStr(GikoSys.Setting.TimeAdjustSec);
133 if GikoSys.Setting.TimeAdjust then
134 PutPostTimeRadioButton.Checked := True
135 else
136 BackPostTimeRadioButton.Checked := True;
137
138 SetColumnData();
139
140 PageControl1.ActivePageIndex := GikoSys.Setting.KuroutSettingTabIndex;
141
142 //2chAnnai
143 GengoSupport.Checked := GikoSys.Setting.GengoSupport;
144 //FusianaSet
145 LocalTrapAtt.Checked := GikoSys.Setting.LocalTrapAtt;
146 RemoteTrapAtt.Checked := GikoSys.Setting.RemoteTrapAtt;
147 // Cookie
148 FixedCookieEdit.Text := GikoSys.Setting.FixedCookie;
149 // 鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申
150 MoveHistoryMaxEdit.Text := IntToStr( GikoSys.Setting.MoveHistorySize );
151 //鐃?鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃?鐃緒申
152 AHandredLabeledEdit.Text := IntToStr( GikoSys.Setting.HeadResCount );
153 // 鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?鐃緒申鐃?
154 AddKeywordCheckBox.Checked := GikoSys.Setting.AddKeywordLink;
155 // 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
156 ReplaceDatCheckBox.Checked := GikoSys.Setting.ReplaceDat;
157 SentIniFileSizeUpDown.Position := GikoSys.Setting.SentIniFileSize;
158 ExtListLabeledEdit.Text := GikoSys.Setting.ExtList;
159 end;
160
161 procedure TKuroutOption.SaveSetting;
162 begin
163 //鐃緒申鐃?鐃?鐃?鐃?鐃?鐃?鐃?鐃?
164 Gikosys.Setting.RecvBufferSize := StrToIntDef(RecvBufferSize.Text, Gikosys.Setting.RecvBufferSize);
165 GikoSys.Setting.ReadTimeOut := StrToIntDef(ReadTimeOut.Text, GikoSys.Setting.ReadTimeOut);
166 //HTTP1.1鐃?鐃?
167 GikoSys.Setting.Protocol := ProtocolCheckBox.Checked;
168 //鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申HTTP1.1鐃?鐃?
169 Gikosys.Setting.ProxyProtocol := ProxyProtocolCheckBox.Checked;
170 //鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申
171 GikoSys.Setting.UseMachineTime := PostTimeCheckBox.Checked;
172 if GikoSys.IsNumeric(PostTimeEdit.Text) then
173 GikoSys.Setting.TimeAdjustSec := StrToIntDef(PostTimeEdit.Text, GikoSys.Setting.TimeAdjustSec)
174 else
175 GikoSys.Setting.TimeAdjustSec := 0;
176 GikoSys.Setting.TimeAdjust := PutPostTimeRadioButton.Checked;
177 //2ch鐃緒申鐃緒申鐃?鐃?鐃?鐃?
178 GikoSys.Setting.GengoSupport := GengoSupport.Checked;
179 GikoSys.SetGikoMessage;
180 //鐃緒申鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?鐃緒申
181 GikoSys.Setting.LocalTrapAtt := LocalTrapAtt.Checked;
182 GikoSys.Setting.RemoteTrapAtt := RemoteTrapAtt.Checked;
183 // Cookie
184 GikoSys.Setting.FixedCookie := FixedCookieEdit.Text;
185
186 // 鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申
187 GikoSys.Setting.MoveHistorySize :=
188 StrToIntDef( MoveHistoryMaxEdit.Text, 20 );
189
190 //鐃?鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃?鐃緒申
191 GikoSys.Setting.HeadResCount :=
192 StrToIntDef( AHandredLabeledEdit.Text , 1);
193
194 GikoSys.Setting.KuroutSettingTabIndex := PageControl1.ActivePageIndex;
195 // 鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?鐃緒申鐃?
196 GikoSys.Setting.AddKeywordLink := AddKeywordCheckBox.Checked;
197 // 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
198 GikoSys.Setting.ReplaceDat := ReplaceDatCheckBox.Checked;
199 GikoSys.Setting.SentIniFileSize := SentIniFileSizeUpDown.Position;
200 GikoSys.Setting.ExtList := ExtListLabeledEdit.Text;
201 end;
202
203 procedure TKuroutOption.RecvBufferSizeExit(Sender: TObject);
204 begin
205 if not GikoSys.IsNumeric(RecvBufferSize.Text) then
206 RecvBufferSize.Text := '4096';
207 if StrToInt(RecvBufferSize.Text) < 256 then
208 RecvBufferSize.Text := '4096';
209 end;
210
211 procedure TKuroutOption.PostTimeEditExit(Sender: TObject);
212 begin
213 if not GikoSys.IsNumeric(PostTimeEdit.Text) then
214 PostTimeEdit.Text := '0';
215 end;
216
217 procedure TKuroutOption.PostTimeCheckBoxClick(Sender: TObject);
218 begin
219 PostTimeLabel.Enabled := PostTimeCheckBox.Checked;
220 PostTimeEdit.Enabled := PostTimeCheckBox.Checked;
221 PutPostTimeRadioButton.Enabled := PostTimeCheckBox.Checked;
222 BackPostTimeRadioButton.Enabled := PostTimeCheckBox.Checked;
223 end;
224
225 procedure TKuroutOption.OkBottonClick(Sender: TObject);
226 begin
227 RecvBufferSizeExit(Sender);
228 PostTimeEditExit(Sender);
229 MoveHistoryMaxEditExit(Sender);
230 AHandredLabeledEditExit(Sender);
231 ExtListLabeledEditExit(Sender);
232 PostColumnData();
233 SaveSetting;
234 end;
235
236 procedure TKuroutOption.FormCreate(Sender: TObject);
237 begin
238 SetValue;
239 PostTimeCheckBoxClick(Sender);
240
241 end;
242 procedure TKuroutOption.SetColumnData();
243 var
244 i, j : Integer;
245 flag : Boolean;
246 begin
247
248 //===== 鐃緒申鐃緒申鐃?鐃? =====
249 for i := 0 to GikoSys.Setting.CategoryColumnOrder.Count - 1 do begin
250 for j := 1 to Length( GikoCategoryColumnCaption ) - 1 do begin
251 if GikoSys.Setting.CategoryColumnOrder[ i ] = TGikoCategoryColumnID( j ) then begin
252 CVisibledListBox.AddItem(GikoCategoryColumnCaption[ j ], nil);
253 break;
254 end;
255 end;
256 end;
257
258 for i := 1 to Length( GikoCategoryColumnCaption ) - 1 do begin
259 flag := false;
260 for j := 0 to GikoSys.Setting.CategoryColumnOrder.Count - 1 do begin
261 if GikoSys.Setting.CategoryColumnOrder[ j ] = TGikoCategoryColumnID( i ) then begin
262 flag := true;
263 break;
264 end;
265 end;
266 if not flag then
267 CUnVisibledListBox.AddItem(GikoCategoryColumnCaption[ i ], nil);
268 end;
269
270 //===== 鐃?鐃緒申鐃緒申鐃?鐃? =====
271 for i := 0 to GikoSys.Setting.BoardColumnOrder.Count - 1 do begin
272 for j := 1 to Length( GikoBoardColumnCaption ) - 1 do begin
273 if GikoSys.Setting.BoardColumnOrder[ i ] = TGikoBoardColumnID( j ) then begin
274 BVisibledListBox.AddItem(GikoBoardColumnCaption[ j ], nil);
275 Break;
276 end;
277 end;
278 end;
279
280 for i := 1 to Length( GikoBoardColumnCaption ) - 1 do begin
281 flag := false;
282 for j := GikoSys.Setting.BoardColumnOrder.Count - 1 downto 0 do begin
283 if GikoSys.Setting.BoardColumnOrder[ j ] = TGikoBoardColumnID( i ) then begin
284 flag := true;
285 Break;
286 end;
287 end;
288 if not flag then
289 BUnVisibledListBox.AddItem(GikoBoardColumnCaption[ i ], nil);
290
291 end;
292 end;
293 procedure TKuroutOption.CDeleteButtonClick(Sender: TObject);
294 var
295 i: Integer;
296 begin
297 for i := 0 to CVisibledListBox.Count - 1 do begin
298 if CVisibledListBox.Selected[i] then begin
299 CUnVisibledListBox.AddItem( CVisibledListBox.Items.Strings[ i ], nil);
300 CVisibledListBox.DeleteSelected;
301 break;
302 end;
303 end;
304 end;
305
306 procedure TKuroutOption.CAddButtonClick(Sender: TObject);
307 var
308 i: Integer;
309 begin
310 for i := 0 to CUnVisibledListBox.Count - 1 do begin
311 if CUnVisibledListBox.Selected[i] then begin
312 CVisibledListBox.AddItem( CUnVisibledListBox.Items.Strings[ i ], nil);
313 CUnVisibledListBox.DeleteSelected;
314 break;
315 end;
316 end;
317 end;
318
319 procedure TKuroutOption.BAddButtonClick(Sender: TObject);
320 var
321 i: Integer;
322 begin
323 for i := 0 to BUnVisibledListBox.Count - 1 do begin
324 if BUnVisibledListBox.Selected[i] then begin
325 BVisibledListBox.AddItem( BUnVisibledListBox.Items.Strings[ i ], nil);
326 BUnVisibledListBox.DeleteSelected;
327 break;
328 end;
329 end;
330 end;
331
332 procedure TKuroutOption.BDeleteButtonClick(Sender: TObject);
333 var
334 i: Integer;
335 begin
336 for i := 0 to BVisibledListBox.Count - 1 do begin
337 if BVisibledListBox.Selected[i] then begin
338 BUnVisibledListBox.AddItem( BVisibledListBox.Items.Strings[ i ], nil);
339 BVisibledListBox.DeleteSelected;
340 break;
341 end;
342 end;
343 end;
344
345 procedure TKuroutOption.CUpButtonClick(Sender: TObject);
346 var
347 i: Integer;
348 begin
349 for i := 1 to CVisibledListBox.Count - 1 do begin
350 if CVisibledListBox.Selected[i] then begin
351 CVisibledListBox.Items.Exchange(i, i -1);
352 break;
353 end;
354 end;
355 end;
356
357 procedure TKuroutOption.CDownButtonClick(Sender: TObject);
358 var
359 i: Integer;
360 begin
361 for i := 0 to CVisibledListBox.Count - 2 do begin
362 if CVisibledListBox.Selected[i] then begin
363 CVisibledListBox.Items.Exchange(i, i + 1);
364 break;
365 end;
366 end;
367 end;
368
369 procedure TKuroutOption.BUpButtonClick(Sender: TObject);
370 var
371 i: Integer;
372 begin
373 for i := 1 to BVisibledListBox.Count - 1 do begin
374 if BVisibledListBox.Selected[i] then begin
375 BVisibledListBox.Items.Exchange(i, i -1);
376 break;
377 end;
378 end;
379 end;
380
381 procedure TKuroutOption.BDownButtonClick(Sender: TObject);
382 var
383 i: Integer;
384 begin
385 for i := 0 to BVisibledListBox.Count - 2 do begin
386 if BVisibledListBox.Selected[i] then begin
387 BVisibledListBox.Items.Exchange(i, i + 1);
388 break;
389 end;
390 end;
391 end;
392
393
394 procedure TKuroutOption.PostColumnData();
395 var
396 i, j : Integer;
397 begin
398 GikoForm.ActiveListColumnSave;
399
400 //===== 鐃緒申鐃緒申鐃?鐃? =====
401 for i := GikoSys.Setting.CategoryColumnOrder.Count -1 downto 1 do
402 GikoSys.Setting.CategoryColumnOrder.Delete(i);
403
404 for i := 0 to CVisibledListBox.Count - 1 do begin
405 for j := 1 to Length( GikoCategoryColumnCaption ) - 1 do begin
406 if CVisibledListBox.Items.Strings[ i ] = GikoCategoryColumnCaption[ j ] then begin
407 GikoSys.Setting.CategoryColumnOrder.Add( TGikoCategoryColumnID(j) );
408 break;
409 end;
410 end;
411 end;
412
413 //===== 鐃?鐃緒申鐃緒申鐃?鐃? =====
414 for i := GikoSys.Setting.BoardColumnOrder.Count - 1 downto 1 do
415 GikoSys.Setting.BoardColumnOrder.Delete(i);
416
417 for i := 0 to BVisibledListBox.Count - 1 do begin
418 for j := 1 to Length( GikoBoardColumnCaption ) - 1 do begin
419 if BVisibledListBox.Items.Strings[ i ] = GikoBoardColumnCaption[ j ] then begin
420 GikoSys.Setting.BoardColumnOrder.Add( TGikoBoardColumnID(j) );
421 Break;
422 end;
423 end;
424 end;
425 //鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃?鐃?
426 GikoForm.SetActiveList(GikoForm.ActiveList);
427 end;
428 // 鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃?
429 procedure TKuroutOption.MoveHistoryMaxEditExit(Sender: TObject);
430 begin
431 if not GikoSys.IsNumeric(MoveHistoryMaxEdit.Text) then
432 MoveHistoryMaxEdit.Text := '20';
433 if StrToInt(MoveHistoryMaxEdit.Text) < 1 then
434 MoveHistoryMaxEdit.Text := '1';
435 end;
436 // 鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃?
437 procedure TKuroutOption.AHandredLabeledEditExit(Sender: TObject);
438 begin
439 if not GikoSys.IsNumeric(AHandredLabeledEdit.Text) then
440 AHandredLabeledEdit.Text := '1';
441 if StrToInt(AHandredLabeledEdit.Text) < 1 then
442 AHandredLabeledEdit.Text := '1';
443
444 end;
445
446 procedure TKuroutOption.ExtListLabeledEditExit(Sender: TObject);
447 begin
448 if AnsiEndsStr(';', ExtListLabeledEdit.Text) then begin
449 ExtListLabeledEdit.Text :=
450 Copy(ExtListLabeledEdit.Text, 0,
451 Length(ExtListLabeledEdit.Text) - 1);
452 end;
453 end;
454
455 end.

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