Develop and Download Open Source Software

Browse CVS Repository

Contents of /gikonavigoeson/gikonavi/Option.pas

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


Revision 1.1.1.1 - (show annotations) (download) (as text) (vendor branch)
Sat Aug 9 13:51:09 2003 UTC (20 years, 8 months ago) by hi_
Branch: hi
CVS Tags: b33
Changes since 1.1: +0 -0 lines
File MIME type: text/x-pascal
ソキオャコ?ョ

1 unit Option;
2
3 interface
4
5 uses
6 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
7 ComCtrls, StdCtrls, ExtCtrls, Dialogs, FileCtrl, MMSystem,
8 GikoSystem, GikoUtil, Buttons, UrlMon, Menus, ImgList;
9
10 type
11 TOptionDialog = class(TForm)
12 OkBotton: TButton;
13 CancelBotton: TButton;
14 OptionTab: TPageControl;
15 ConnectSheet: TTabSheet;
16 Font1Sheet: TTabSheet;
17 ApplyButton: TButton;
18 FontDialog: TFontDialog;
19 ColorDialog: TColorDialog;
20 ReadProxyGroupBox: TGroupBox;
21 ReadAddressLabel: TLabel;
22 ReadPortLabel: TLabel;
23 ReadProxyCheck: TCheckBox;
24 ReadProxyAddressEdit: TEdit;
25 ReadPortEdit: TEdit;
26 ReadProxyUserIDEdit: TEdit;
27 ReadProxyPasswordEdit: TEdit;
28 ReadUserIDLabel: TLabel;
29 ReadPasswordLabel: TLabel;
30 FolderSheet: TTabSheet;
31 FolderGroupBox: TGroupBox;
32 LogFolderEdit: TEdit;
33 LogFolderButton: TButton;
34 Label1: TLabel;
35 Label2: TLabel;
36 ThreadSheet: TTabSheet;
37 SoundSheet: TTabSheet;
38 SoundEventGroupBox: TGroupBox;
39 SoundListView: TListView;
40 SoundReferButton: TButton;
41 SoundFileEdit: TEdit;
42 OpenDialog: TOpenDialog;
43 WriteProxyGroupBox: TGroupBox;
44 WriteAddressLabel: TLabel;
45 WritePortLabel: TLabel;
46 WriteUserIDLabel: TLabel;
47 WritePasswordLabel: TLabel;
48 WriteProxyCheck: TCheckBox;
49 WriteProxyAddressEdit: TEdit;
50 WritePortEdit: TEdit;
51 WriteProxyUserIDEdit: TEdit;
52 WriteProxyPasswordEdit: TEdit;
53 BoardSheet: TTabSheet;
54 GroupBox4: TGroupBox;
55 BoardURL2chEdit: TEdit;
56 Label13: TLabel;
57 UserIDSheet: TTabSheet;
58 GroupBox3: TGroupBox;
59 Label9: TLabel;
60 Label10: TLabel;
61 UserIDEdit: TEdit;
62 PasswordEdit: TEdit;
63 SoundPlayButton: TBitBtn;
64 AutoLoginCheckBox: TCheckBox;
65 Tora3URLLabel: TLabel;
66 Label12: TLabel;
67 Label5: TLabel;
68 GroupBox5: TGroupBox;
69 ComboBox1: TComboBox;
70 Label6: TLabel;
71 Label7: TLabel;
72 Label8: TLabel;
73 ComboBox2: TComboBox;
74 ComboBox3: TComboBox;
75 Label4: TLabel;
76 Edit1: TEdit;
77 Button1: TButton;
78 CabinetFontBotton: TButton;
79 CabinetColorBotton: TButton;
80 CabinetDefaultButton: TButton;
81 CabinetMemo: TMemo;
82 ListMemo: TMemo;
83 ListFontBotton: TButton;
84 ListColorBotton: TButton;
85 ListDefaultBotton: TButton;
86 HintFontButton: TButton;
87 HintBackButton: TButton;
88 HintDefaultButton: TButton;
89 HintMemo: TMemo;
90 EditorMemo: TMemo;
91 EditorFontBotton: TButton;
92 EditorColorBotton: TButton;
93 EditorDefaultBotton: TButton;
94 BrowserTabMemo: TMemo;
95 BruwserTabFontButton: TButton;
96 BrowserTabDefaultButton: TButton;
97 Bevel1: TBevel;
98 Bevel2: TBevel;
99 GroupBox1: TGroupBox;
100 GroupBox2: TGroupBox;
101 URLAppCheckBox: TCheckBox;
102 AppFolderLabel: TLabel;
103 AppFolderEdit: TEdit;
104 AppFolderButton: TButton;
105 OpenMailerCheckBox: TCheckBox;
106 TabSheet1: TTabSheet;
107 PopupPositionRadioGroup: TRadioGroup;
108 TabAddRadioGroup: TRadioGroup;
109 TabSheet2: TTabSheet;
110 GroupBox7: TGroupBox;
111 URLDisplayCheckBox: TCheckBox;
112 Label3: TLabel;
113 Label11: TLabel;
114 TabStopAddressBarCheckBox: TCheckBox;
115 AddressHistoryCountEdit: TEdit;
116 LinkAddCheckBox: TCheckBox;
117 GroupBox8: TGroupBox;
118 PreviewVisibleCheckBox: TCheckBox;
119 PreviewSizeComboBox: TComboBox;
120 Label14: TLabel;
121 Label15: TLabel;
122 PreviewWaitEdit: TEdit;
123 Label16: TLabel;
124 ShowMailCheckBox: TCheckBox;
125 TabSheet3: TTabSheet;
126 GroupBox9: TGroupBox;
127 ThreadListIconCheckBox: TCheckBox;
128 GroupBox6: TGroupBox;
129 LogDeleteMessageCheckBox: TCheckBox;
130 GroupBox10: TGroupBox;
131 UnActivePopupCheckBox: TCheckBox;
132 GroupBox11: TGroupBox;
133 RecvBufferSize: TEdit;
134 Label17: TLabel;
135 ProxyProtocolCheckBox: TCheckBox;
136 ProtocolCheckBox: TCheckBox;
137 Label18: TLabel;
138 Label19: TLabel;
139 Bevel5: TBevel;
140 Label20: TLabel;
141 Label21: TLabel;
142 Label22: TLabel;
143 Label23: TLabel;
144 TabSheet4: TTabSheet;
145 lblSFont: TLabel;
146 GroupBox12: TGroupBox;
147 CSSCheckBox: TCheckBox;
148 CSSListLabel: TLabel;
149 CSSListView: TListView;
150 GroupBox13: TGroupBox;
151 PostTimeCheckBox: TCheckBox;
152 Label24: TLabel;
153 Label25: TLabel;
154 PostTimeEdit: TEdit;
155 PostTimeLabel: TLabel;
156 Label27: TLabel;
157 PutPostTimeRadioButton: TRadioButton;
158 BackPostTimeRadioButton: TRadioButton;
159 procedure FormCreate(Sender: TObject);
160 procedure FormDestroy(Sender: TObject);
161 procedure ApplyButtonClick(Sender: TObject);
162 procedure CabinetFontBottonClick(Sender: TObject);
163 procedure CabinetColorBottonClick(Sender: TObject);
164 procedure EditorFontBottonClick(Sender: TObject);
165 procedure OkBottonClick(Sender: TObject);
166 procedure ReadProxyCheckClick(Sender: TObject);
167 procedure ListFontBottonClick(Sender: TObject);
168 procedure ListColorBottonClick(Sender: TObject);
169 procedure EditorColorBottonClick(Sender: TObject);
170 procedure CabinetDefaultButtonClick(Sender: TObject);
171 procedure ReadPortEditExit(Sender: TObject);
172 procedure ListDefaultBottonClick(Sender: TObject);
173 procedure EditorDefaultBottonClick(Sender: TObject);
174 procedure HintFontButtonClick(Sender: TObject);
175 procedure HintBackButtonClick(Sender: TObject);
176 procedure HintDefaultButtonClick(Sender: TObject);
177 procedure LogFolderButtonClick(Sender: TObject);
178 procedure FormClose(Sender: TObject; var Action: TCloseAction);
179 procedure SoundReferButtonClick(Sender: TObject);
180 procedure SoundPlayButtonClick(Sender: TObject);
181 procedure SoundListViewChanging(Sender: TObject; Item: TListItem;
182 Change: TItemChange; var AllowChange: Boolean);
183 procedure SoundFileEditChange(Sender: TObject);
184 procedure OptionTabChange(Sender: TObject);
185 procedure AppFolderButtonClick(Sender: TObject);
186 procedure WriteProxyCheckClick(Sender: TObject);
187 procedure WritePortEditExit(Sender: TObject);
188 procedure Tora3URLLabelClick(Sender: TObject);
189 procedure HotKeyEnter(Sender: TObject);
190 procedure HotKeyExit(Sender: TObject);
191 procedure URLAppCheckBoxClick(Sender: TObject);
192 procedure BruwserTabFontButtonClick(Sender: TObject);
193 procedure BrowserTabDefaultButtonClick(Sender: TObject);
194 procedure AddressHistoryCountEditExit(Sender: TObject);
195 procedure PreviewWaitEditExit(Sender: TObject);
196 procedure RecvBufferSizeExit(Sender: TObject);
197 procedure CSSCheckBoxClick(Sender: TObject);
198 procedure PostTimeEditExit(Sender: TObject);
199 procedure PostTimeCheckBoxClick(Sender: TObject);
200 private
201 { Private ?ス?ス?ス?ス }
202 FClose: Boolean;
203 function GetMemoText(font: TFont; text: string): string;
204 // function GetFontText(Font: TFont; Text: string): string;
205 procedure SetValue;
206 procedure SaveSetting;
207 procedure SettingApply;
208 function CheckFolder: Boolean;
209 public
210 { Public ?ス?ス?ス?ス }
211 end;
212
213 var
214 OptionDialog: TOptionDialog;
215
216 implementation
217
218 uses
219 Giko, Editor, Setting, ActnList;
220
221 const
222 FONT_TEXT: string = '%s %d pt';
223 MEMO_CABINET: string = '?スL?ス?ス?スr?スl?スb?スg';
224 MEMO_THREAD: string = '?スX?ス?ス?スb?スh?ス?ス?スX?スg';
225 MEMO_BROWSERPOPUP: string = '?スu?ス?ス?スE?スU?ス|?スb?スv?スA?スb?スv';
226 MEMO_BROWSERTAB: string = '?スu?ス?ス?スE?スU?ス^?スu';
227 MEMO_EDITOR: string = '?スG?スf?スB?ス^?スe?スL?スX?スg';
228 DEFAULT_FONT_NAME: string = '?スl?スr ?スo?スS?スV?スb?スN';
229 DEFAULT_FONT_SIZE: Integer = 9;
230 DEFAULT_TABFONT_NAME: string = '?スl?スr ?スo?スS?スV?スb?スN';
231 DEFAULT_TABFONT_SIZE: Integer = 9;
232 URL_TORA3: WideString = 'http://2ch.tora3.net/';
233
234 {$R *.DFM}
235
236 procedure TOptionDialog.FormCreate(Sender: TObject);
237 begin
238 FClose := True;
239
240 OptionTab.ActivePage := ConnectSheet;
241 SetValue;
242
243 CabinetMemo.Text := GetMemoText(CabinetMemo.Font, MEMO_CABINET);
244 ListMemo.Text := GetMemoText(ListMemo.Font, MEMO_THREAD);
245 HintMemo.Text := GetMemoText(HintMemo.Font, MEMO_BROWSERPOPUP);
246 BrowserTabMemo.Text := GetMemoText(BrowserTabMemo.Font, MEMO_BROWSERTAB);
247 EditorMemo.Text := GetMemoText(EditorMemo.Font, MEMO_EDITOR);
248
249 Tora3URLLabel.Cursor := 5;
250 lblSFont.Caption := '?ス?ス?スd?スv?ス?ス'#13#10#13#10
251 + '?スX?ス?ス?スb?スh?ス\?ス?ス?スG?ス?ス?スA?ス?ス?スt?スH?ス?ス?スg?ス?ス?スX?ス?ス?スA'#13#10
252 + '?スu?スX?ス^?スC?ス?ス?スV?ス[?スg?スv?ス^?スu?ス?ス?ス?ス?ス?ス?スo?ス?ス?ス?ス?ス?ス';
253 CSSCheckBoxClick(Sender);
254 PostTimeCheckBoxClick(Sender);
255 end;
256
257 procedure TOptionDialog.FormDestroy(Sender: TObject);
258 begin
259 sndPlaySound(nil, SND_ASYNC);
260 end;
261
262 procedure TOptionDialog.OkBottonClick(Sender: TObject);
263 begin
264 FClose := True;
265 RecvBufferSizeExit(Sender);
266 ReadPortEditExit(Sender);
267 WritePortEditExit(Sender);
268 AddressHistoryCountEditExit(Sender);
269 PreviewWaitEditExit(Sender);
270 PostTimeEditExit(Sender);
271
272 if not CheckFolder then begin
273 FClose := False;
274 Exit;
275 end;
276 SaveSetting;
277 SettingApply;
278 end;
279
280 procedure TOptionDialog.ApplyButtonClick(Sender: TObject);
281 begin
282 RecvBufferSizeExit(Sender);
283 ReadPortEditExit(Sender);
284 WritePortEditExit(Sender);
285 AddressHistoryCountEditExit(Sender);
286 PreviewWaitEditExit(Sender);
287 PostTimeEditExit(Sender);
288
289 if not CheckFolder then begin
290 FClose := False;
291 Exit;
292 end;
293 SaveSetting;
294 SettingApply;
295 FClose := False;
296 end;
297
298 //function TOptionDialog.GetFontText(Font: TFont; Text: string): string;
299 //begin
300 // result := Format(Text, [Font.Name, Font.Size]);
301 //end;
302
303 function TOptionDialog.GetMemoText(font: TFont; text: string): string;
304 var
305 s: string;
306 begin
307 s := '';
308 if font <> nil then
309 s := Format(FONT_TEXT, [Font.Name, Font.Size]) + #13#10;
310 Result := s + text;
311 end;
312
313 //?スL?ス?ス?スr?スl?スb?スg?スt?スH?ス?ス?スg?ス{?ス^?ス?ス
314 procedure TOptionDialog.CabinetFontBottonClick(Sender: TObject);
315 begin
316 FontDialog.Options := [fdAnsiOnly, fdEffects];
317 FontDialog.Font.Assign(CabinetMemo.Font);
318 if FontDialog.Execute then begin
319 FontDialog.Font.Style := FontDialog.Font.Style - [fsUnderline] - [fsStrikeout];
320 CabinetMemo.Font.Assign(FontDialog.Font);
321 CabinetMemo.Text := GetMemoText(CabinetMemo.Font, MEMO_CABINET);
322 CabinetMemo.Font.Charset := SHIFTJIS_CHARSET;
323 end;
324 end;
325
326 //?スL?ス?ス?スr?スl?スb?スg?スw?スi?スF?ス{?ス^?ス?ス
327 procedure TOptionDialog.CabinetColorBottonClick(Sender: TObject);
328 begin
329 ColorDialog.Color := CabinetMemo.Color;
330 if ColorDialog.Execute then begin
331 CabinetMemo.Color := ColorDialog.Color;
332 end;
333 end;
334
335 //?スL?ス?ス?スr?スl?スb?スg?スf?スt?スH?ス?ス?スg?ス{?ス^?ス?ス
336 procedure TOptionDialog.CabinetDefaultButtonClick(Sender: TObject);
337 begin
338 CabinetMemo.Font.Name := DEFAULT_FONT_NAME;
339 CabinetMemo.Font.Size := DEFAULT_FONT_SIZE;
340 CabinetMemo.Font.Color := clWindowText;
341 CabinetMemo.Font.Style := [];
342 CabinetMemo.Color := clWindow;
343 CabinetMemo.Text := GetMemoText(CabinetMemo.Font, MEMO_CABINET);
344 end;
345
346 //?スX?ス?ス?スb?スh?ス?ス?スX?スg?スt?スH?ス?ス?スg?ス{?ス^?ス?ス
347 procedure TOptionDialog.ListFontBottonClick(Sender: TObject);
348 begin
349 FontDialog.Options := [fdAnsiOnly, fdEffects];
350 FontDialog.Font.Assign(ListMemo.Font);
351 if FontDialog.Execute then begin
352 ListMemo.Font.Assign(FontDialog.Font);
353 ListMemo.Text := GetMemoText(ListMemo.Font, MEMO_THREAD);
354 ListMemo.Font.Charset := SHIFTJIS_CHARSET;
355 end;
356 end;
357
358 //?スX?ス?ス?スb?スh?ス?ス?スX?スg?スw?スi?スF?ス{?ス^?ス?ス
359 procedure TOptionDialog.ListColorBottonClick(Sender: TObject);
360 begin
361 ColorDialog.Color := ListMemo.Color;
362 if ColorDialog.Execute then begin
363 ListMemo.Color := ColorDialog.Color;
364 end;
365 end;
366
367 //?スX?ス?ス?スb?スh?ス?ス?スX?スg?スf?スt?スH?ス?ス?スg?ス{?ス^?ス?ス
368 procedure TOptionDialog.ListDefaultBottonClick(Sender: TObject);
369 begin
370 ListMemo.Font.Name := DEFAULT_FONT_NAME;
371 ListMemo.Font.Size := DEFAULT_FONT_SIZE;
372 ListMemo.Font.Color := clWindowText;
373 ListMemo.Font.Style := [];
374 ListMemo.Color := clWindow;
375 ListMemo.Text := GetMemoText(ListMemo.Font, MEMO_THREAD);
376 end;
377
378 //?スu?ス?ス?スE?スU?ス|?スb?スv?スA?スb?スv?スt?スH?ス?ス?スg?ス{?ス^?ス?ス
379 procedure TOptionDialog.HintFontButtonClick(Sender: TObject);
380 begin
381 FontDialog.Options := [fdAnsiOnly, fdEffects];
382 FontDialog.Font.Assign(HintMemo.Font);
383 if FontDialog.Execute then begin
384 HintMemo.Font.Assign(FontDialog.Font);
385 HintMemo.Text := GetMemoText(HintMemo.Font, MEMO_BROWSERPOPUP);
386 HintMemo.Font.Charset := SHIFTJIS_CHARSET;
387 end;
388 end;
389
390 //?スu?ス?ス?スE?スU?ス|?スb?スv?スA?スb?スv?スw?スi?スF?ス{?ス^?ス?ス
391 procedure TOptionDialog.HintBackButtonClick(Sender: TObject);
392 begin
393 ColorDialog.Color := HintMemo.Color;
394 if ColorDialog.Execute then begin
395 HintMemo.Color := ColorDialog.Color;
396 end;
397 end;
398
399 //?スu?ス?ス?スE?スU?ス|?スb?スv?スA?スb?スv?スf?スt?スH?ス?ス?スg?ス{?ス^?ス?ス
400 procedure TOptionDialog.HintDefaultButtonClick(Sender: TObject);
401 begin
402 HintMemo.Font.Name := DEFAULT_FONT_NAME;
403 HintMemo.Font.Size := DEFAULT_FONT_SIZE;
404 HintMemo.Font.Color := clWindowText;
405 HintMemo.Font.Style := [];
406 HintMemo.Color := clInfoBk;
407 HintMemo.Text := GetMemoText(HintMemo.Font, MEMO_BROWSERPOPUP);
408 end;
409
410 //?スu?ス?ス?スE?スU?ス^?スu?スt?スH?ス?ス?スg?ス{?ス^?ス?ス
411 procedure TOptionDialog.BruwserTabFontButtonClick(Sender: TObject);
412 begin
413 FontDialog.Options := [fdAnsiOnly];
414 FontDialog.Font.Assign(BrowserTabMemo.Font);
415 if FontDialog.Execute then begin
416 BrowserTabMemo.Font.Assign(FontDialog.Font);
417 BrowserTabMemo.Text := GetMemoText(FontDialog.Font, MEMO_BROWSERTAB);
418 BrowserTabMemo.Font.Charset := SHIFTJIS_CHARSET;
419 end;
420 end;
421
422 //?スu?ス?ス?スE?スU?ス^?スu?スf?スt?スH?ス?ス?スg?ス{?ス^?ス?ス
423 procedure TOptionDialog.BrowserTabDefaultButtonClick(Sender: TObject);
424 begin
425 BrowserTabMemo.Font.Name := DEFAULT_TABFONT_NAME;
426 BrowserTabMemo.Font.Size := DEFAULT_TABFONT_SIZE;
427 BrowserTabMemo.Font.Color := clWindowText;
428 BrowserTabMemo.Font.Style := [];
429 BrowserTabMemo.Color := clBtnFace;
430 BrowserTabMemo.Text := GetMemoText(BrowserTabMemo.Font, MEMO_BROWSERTAB);
431 end;
432
433 //?スG?スf?スB?ス^?スt?スH?ス?ス?スg?ス{?ス^?ス?ス
434 procedure TOptionDialog.EditorFontBottonClick(Sender: TObject);
435 begin
436 FontDialog.Options := [fdAnsiOnly, fdEffects];
437 FontDialog.Font.Assign(EditorMemo.Font);
438 if FontDialog.Execute then begin
439 EditorMemo.Font.Assign(FontDialog.Font);
440 EditorMemo.Text := GetMemoText(EditorMemo.Font, MEMO_EDITOR);
441 EditorMemo.Font.Charset := SHIFTJIS_CHARSET;
442 end;
443 end;
444
445 //?スG?スf?スB?ス^?スw?スi?スF?ス{?ス^?ス?ス
446 procedure TOptionDialog.EditorColorBottonClick(Sender: TObject);
447 begin
448 ColorDialog.Color := EditorMemo.Font.Color;
449 if ColorDialog.Execute then begin
450 EditorMemo.Color := ColorDialog.Color;
451 end;
452 end;
453
454 //?スG?スf?スB?ス^?スf?スt?スH?ス?ス?スg?ス{?ス^?ス?ス
455 procedure TOptionDialog.EditorDefaultBottonClick(Sender: TObject);
456 begin
457 EditorMemo.Font.Name := DEFAULT_FONT_NAME;
458 EditorMemo.Font.Size := DEFAULT_FONT_SIZE;
459 EditorMemo.Font.Color := clWindowText;
460 EditorMemo.Font.Style := [];
461 EditorMemo.Color := clWindow;
462 EditorMemo.Text := GetMemoText(EditorMemo.Font, MEMO_EDITOR);
463 end;
464
465 procedure TOptionDialog.SetValue;
466 var
467 i: Integer;
468 Item: TListItem;
469 s: string;
470 FileList: TStringList;
471 begin
472 //?ス?ス?スM?スo?スb?スt?ス@?スT?スC?スY
473 RecvBufferSize.Text := IntToStr(Gikosys.Setting.RecvBufferSize);
474 //HTTP1.1?スg?スp
475 ProtocolCheckBox.Checked := GikoSys.Setting.Protocol;
476 //?スv?ス?ス?スL?スV?ス?ス?ス?スHTTP1.1?スg?スp
477 ProxyProtocolCheckBox.Checked := Gikosys.Setting.ProxyProtocol;
478
479 //?ス?ス?ス?ス?ス?ス?ス?ス?スp?スv?ス?ス?スL?スV
480 ReadProxyCheck.Checked := GikoSys.Setting.ReadProxy;
481 ReadProxyCheckClick(nil);
482 ReadProxyAddressEdit.Text := GikoSys.Setting.ReadProxyAddress;
483 ReadPortEdit.Text := IntToStr(GikoSys.Setting.ReadProxyPort);
484 ReadProxyUserIDEdit.Text := GikoSys.Setting.ReadProxyUserID;
485 ReadProxyPasswordEdit.Text := GikoSys.Setting.ReadProxyPassword;
486 //?ス?ス?ス?ス?ス?ス?ス?ス?スp?スv?ス?ス?スL?スV
487 WriteProxyCheck.Checked := GikoSys.Setting.WriteProxy;
488 WriteProxyCheckClick(nil);
489 WriteProxyAddressEdit.Text := GikoSys.Setting.WriteProxyAddress;
490 WritePortEdit.Text := IntToStr(GikoSys.Setting.WriteProxyPort);
491 WriteProxyUserIDEdit.Text := GikoSys.Setting.WriteProxyUserID;
492 WriteProxyPasswordEdit.Text := GikoSys.Setting.WriteProxyPassword;
493 //?スL?ス?ス?スr?スl?スb?スg?スt?スH?ス?ス?スg
494 CabinetMemo.Font.Name := GikoSys.Setting.CabinetFontName;
495 CabinetMemo.Font.Size := GikoSys.Setting.CabinetFontSize;
496 CabinetMemo.Font.Color := GikoSys.Setting.CabinetFontColor;
497 CabinetMemo.Color := GikoSys.Setting.CabinetBackColor;
498 //?スX?ス?ス?スb?スh?ス?ス?スX?スg?スt?スH?ス?ス?スg
499 ListMemo.Font.Name := GikoSys.Setting.ListFontName;
500 ListMemo.Font.Size := GikoSys.Setting.ListFontSize;
501 ListMemo.Font.Color := GikoSys.Setting.ListFontColor;
502 ListMemo.Color := GikoSys.Setting.ListBackColor;
503 //?スu?ス?ス?スE?スU?ス|?スb?スv?スA?スb?スv?スt?スH?ス?ス?スg
504 HintMemo.Font.Name := GikoSys.Setting.HintFontName;
505 HintMemo.Font.Size := GikoSys.Setting.HintFontSize;
506 HintMemo.Font.Color := GikoSys.Setting.HintFontColor;
507 HintMemo.Color := GikoSys.Setting.HintBackColor;
508 //?スu?ス?ス?スE?スU?ス^?スu?スt?スH?ス?ス?スg
509 BrowserTabMemo.Font.Name := GikoSys.Setting.BrowserTabFontName;
510 BrowserTabMemo.Font.Size := GikoSys.Setting.BrowserTabFontSize;
511 BrowserTabMemo.Font.Style := [];
512 if GikoSys.Setting.BrowserTabFontBold then
513 BrowserTabMemo.Font.Style := BrowserTabMemo.Font.Style + [fsBold];
514 if GikoSys.Setting.BrowserTabFontItalic then
515 BrowserTabMemo.Font.Style := BrowserTabMemo.Font.Style + [fsItalic];
516 //?スG?スf?スB?ス^?ス?ス?ス?ス?スt?スH?ス?ス?スg
517 EditorMemo.Font.Name := GikoSys.Setting.EditorFontName;
518 EditorMemo.Font.Size := GikoSys.Setting.EditorFontSize;
519 EditorMemo.Font.Color := GikoSys.Setting.EditorFontColor;
520 EditorMemo.Color := GikoSys.Setting.EditorBackColor;
521 //CSS?ス\?ス?ス
522 CSSCheckBox.Checked := GikoSys.Setting.UseCSS;
523 //
524 //?スX?ス^?スC?ス?ス?スV?ス[?スg?スt?ス@?スC?ス?ス?ス?ス?ス?ス?ス?ス
525 FileList := TStringList.Create;
526 try
527 GikoSys.GetFileList(GikoSys.GetStyleSheetDir + '*.css', FileList);
528 FileList.Sort;
529 for i := 0 to FileList.Count - 1 do begin
530 s := ExtractFileName(FileList[i]);
531 if LowerCase(s) = 'default.css' then
532 Item := CSSListView.Items.Insert(0)
533 else
534 Item := CSSListView.Items.Add;
535 Item.Caption := ChangeFileExt(s, '');
536 if LowerCase(s) = LowerCase(GikoSys.Setting.CSSFileName) then
537 Item.Selected := True;
538 end;
539 finally
540 FileList.Free;
541 end;
542 if (CSSListView.ItemIndex = -1) and (CSSListView.Items.Count > 0) then
543 CSSListView.Items[0].Selected := True;
544
545 //Mail?ス?ス?ス\?ス?ス
546 ShowMailCheckBox.Checked := GikoSys.Setting.ShowMail;
547 //?ス^?スu?ス?ス?ス?ス?ス?ス?スu
548 TabAddRadioGroup.ItemIndex := Ord(GikoSys.Setting.BrowserTabAppend);
549 //?ス?ス?スX?スVURL
550 BoardURL2chEdit.Text := GikoSys.Setting.BoardURL2ch;
551 //?スF?ス?ス
552 UserIDEdit.Text := GikoSys.Setting.UserID;
553 PasswordEdit.Text := GikoSys.Setting.Password;
554 AutoLoginCheckBox.Checked := GikoSys.Setting.AutoLogin;
555 //?ス?ス?スO?スt?スH?ス?ス?ス_
556 if GikoSys.Setting.NewLogFolder = '' then
557 LogFolderEdit.Text := GikoSys.Setting.LogFolder
558 else
559 LogFolderEdit.Text := GikoSys.Setting.NewLogFolder;
560 //?スT?スE?ス?ス?スh
561 for i := 0 to GikoSys.Setting.GetSoundCount - 1 do begin
562 Item := SoundListView.Items.Add;
563 Item.Caption := GikoSys.Setting.SoundViewName[i];
564 if FileExists(GikoSys.Setting.SoundFileName[i]) then
565 Item.SubItems.Add(GikoSys.Setting.SoundFileName[i])
566 else
567 Item.SubItems.Add('');
568 end;
569 //URL?スN?ス?ス?スb?スN?ス?ス?ス?ス?ス?ス
570 URLAppCheckBox.Checked := GikoSys.Setting.URLApp;
571 URLAppCheckBoxClick(nil);
572 AppFolderEdit.Text := GikoSys.Setting.URLAppFile;
573
574 //mailto?スN?ス?ス?スb?スN?ス?ス?ス?ス?ス?ス
575 OpenMailerCheckBox.Checked := GikoSys.Setting.OpenMailer;
576
577 //?ス?ス?スO?ス?ス?ス?ス?ス?ス?ス?ス?スb?スZ?ス[?スW
578 LogDeleteMessageCheckBox.Checked := GikoSys.Setting.DeleteMsg;
579
580 //?ス|?スb?スv?スA?スb?スv?ス?ス?スu
581 case GikoSys.Setting.PopupPosition of
582 gppRightTop: PopupPositionRadioGroup.ItemIndex := 0;
583 gppRight: PopupPositionRadioGroup.ItemIndex := 1;
584 gppRightBottom: PopupPositionRadioGroup.ItemIndex := 2;
585 gppTop: PopupPositionRadioGroup.ItemIndex := 3;
586 gppCenter: PopupPositionRadioGroup.ItemIndex := 4;
587 gppBottom: PopupPositionRadioGroup.ItemIndex := 5;
588 gppLeftTop: PopupPositionRadioGroup.ItemIndex := 6;
589 gppLeft: PopupPositionRadioGroup.ItemIndex := 7;
590 gppLeftBottom: PopupPositionRadioGroup.ItemIndex := 8;
591 end;
592
593 //?ス?ス?スA?スN?スe?スB?スu?ス?ス?ス|?スb?スv?スA?スb?スv?ス\?ス?ス
594 UnActivePopupCheckBox.Checked := GikoSys.Setting.UnActivePopup;
595
596 //?スA?スh?ス?ス?スX?スo?ス[
597 URLDisplayCheckBox.Checked := GikoSys.Setting.URLDisplay;
598 TabStopAddressBarCheckBox.Checked := GikoSys.Setting.AddressBarTabStop;
599 LinkAddCheckBox.Checked := GikoSys.Setting.LinkAddAddressBar;
600 AddressHistoryCountEdit.Text := IntToStr(GikoSys.Setting.AddressHistoryCount);
601
602 //HTML?スv?ス?ス?スr?ス?ス?ス[
603 PreviewVisibleCheckBox.Checked := GikoSys.Setting.PreviewVisible;
604 PreviewWaitEdit.Text := IntToStr(GikoSys.Setting.PreviewWait);
605 PreviewSizeComboBox.ItemIndex := 2;
606 case GikoSys.Setting.PreviewSize of
607 gpsXLarge: PreviewSizeComboBox.ItemIndex := 4;
608 gpsLarge: PreviewSizeComboBox.ItemIndex := 3;
609 gpsMedium: PreviewSizeComboBox.ItemIndex := 2;
610 gpsSmall: PreviewSizeComboBox.ItemIndex := 1;
611 gpsXSmall: PreviewSizeComboBox.ItemIndex := 0;
612 end;
613
614 //?スX?ス?ス?スb?スh?ス?ス?ス?ス?スX?スV?スA?スC?スR?ス?ス
615 ThreadListIconCheckBox.Checked := GikoSys.Setting.ListIconVisible;
616
617 //?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス}?スV?ス?ス?ス?ス?ス?ス?スg?スp?ス?ス?ス?ス
618 PostTimeCheckBox.Checked := GikoSys.Setting.UseMachineTime;
619 PostTimeEdit.Text := IntToStr(GikoSys.Setting.TimeAdjustSec);
620 if GikoSys.Setting.TimeAdjust then
621 PutPostTimeRadioButton.Checked := True
622 else
623 BackPostTimeRadioButton.Checked := True;
624 end;
625
626 procedure TOptionDialog.SaveSetting;
627 var
628 i: Integer;
629 // Item: TListItem;
630 begin
631 //?ス?ス?スM?スo?スb?スt?ス@?スT?スC?スY
632 Gikosys.Setting.RecvBufferSize := StrToInt(RecvBufferSize.Text);
633 //HTTP1.1?スg?スp
634 GikoSys.Setting.Protocol := ProtocolCheckBox.Checked;
635 //?スv?ス?ス?スL?スV?ス?ス?ス?スHTTP1.1?スg?スp
636 Gikosys.Setting.ProxyProtocol := ProxyProtocolCheckBox.Checked;
637
638 GikoSys.Setting.ReadProxy := ReadProxyCheck.Checked;
639 GikoSys.Setting.ReadProxyAddress := ReadProxyAddressEdit.Text;
640 GikoSys.Setting.ReadProxyPort := StrToInt(ReadPortEdit.Text);
641 GikoSys.Setting.ReadProxyUserID := ReadProxyUserIDEdit.Text;
642 GikoSys.Setting.ReadProxyPassword := ReadProxyPasswordEdit.Text;
643
644 GikoSys.Setting.WriteProxy := WriteProxyCheck.Checked;
645 GikoSys.Setting.WriteProxyAddress := WriteProxyAddressEdit.Text;
646 GikoSys.Setting.WriteProxyPort := StrToInt(WritePortEdit.Text);
647 GikoSys.Setting.WriteProxyUserID := WriteProxyUserIDEdit.Text;
648 GikoSys.Setting.WriteProxyPassword := WriteProxyPasswordEdit.Text;
649
650 GikoSys.Setting.CabinetFontName := CabinetMemo.Font.Name;
651 GikoSys.Setting.CabinetFontSize := CabinetMemo.Font.Size;
652 GikoSys.Setting.CabinetFontColor := CabinetMemo.Font.Color;
653 GikoSys.Setting.CabinetBackColor := CabinetMemo.Color;
654
655 GikoSys.Setting.ListFontName := ListMemo.Font.Name;
656 GikoSys.Setting.ListFontSize := ListMemo.Font.Size;
657 GikoSys.Setting.ListFontColor := ListMemo.Font.Color;
658 GikoSys.Setting.ListBackColor := ListMemo.Color;
659
660 GikoSys.Setting.HintFontName := HintMemo.Font.Name;
661 GikoSys.Setting.HintFontSize := HintMemo.Font.Size;
662 GikoSys.Setting.HintFontColor := HintMemo.Font.Color;
663 GikoSys.Setting.HintBackColor := HintMemo.Color;
664
665 GikoSys.Setting.BrowserTabFontName := BrowserTabMemo.Font.Name;
666 GikoSys.Setting.BrowserTabFontSize := BrowserTabMemo.Font.Size;
667
668 GikoSys.Setting.EditorFontName := EditorMemo.Font.Name;
669 GikoSys.Setting.EditorFontSize := EditorMemo.Font.Size;
670 GikoSys.Setting.EditorFontColor := EditorMemo.Font.Color;
671 GikoSys.Setting.EditorBackColor := EditorMemo.Color;
672 //CSS?ス\?ス?ス
673 GikoSys.Setting.UseCSS := CSSCheckBox.Checked;
674 //CSS?スt?ス@?スC?ス?ス?ス?ス
675 GikoSys.Setting.CSSFileName := 'default.css';
676 if CSSListView.Items.Count > 0 then begin
677 try
678 GikoSys.Setting.CSSFileName := CSSListView.Items[CSSListView.ItemIndex].Caption + '.css'
679 except
680 end;
681 end;
682
683 //Mail?ス?ス?ス\?ス?ス
684 GikoSys.Setting.ShowMail := ShowMailCheckBox.Checked;
685
686 GikoSys.Setting.BrowserTabAppend := TGikoTabAppend(TabAddRadioGroup.ItemIndex);
687
688 GikoSys.Setting.BoardURL2ch := BoardURL2chEdit.Text;
689
690 GikoSys.Setting.UserID := UserIDEdit.Text;
691 GikoSys.Setting.Password := PasswordEdit.Text;
692 GikoSys.Setting.AutoLogin := AutoLoginCheckBox.Checked;
693
694 GikoSys.Setting.URLApp := URLAppCheckBox.Checked;
695 GikoSys.Setting.URLAppFile := AppFolderEdit.Text;
696
697 GikoSys.Setting.OpenMailer := OpenMailerCheckBox.Checked;
698 GikoSys.Setting.DeleteMsg := LogDeleteMessageCheckBox.Checked;
699
700 //?ス|?スb?スv?スA?スb?スv?ス?ス?スu
701 case PopupPositionRadioGroup.ItemIndex of
702 0: GikoSys.Setting.PopupPosition := gppRightTop;
703 1: GikoSys.Setting.PopupPosition := gppRight;
704 2: GikoSys.Setting.PopupPosition := gppRightBottom;
705 3: GikoSys.Setting.PopupPosition := gppTop;
706 4: GikoSys.Setting.PopupPosition := gppCenter;
707 5: GikoSys.Setting.PopupPosition := gppBottom;
708 6: GikoSys.Setting.PopupPosition := gppLeftTop;
709 7: GikoSys.Setting.PopupPosition := gppLeft;
710 8: GikoSys.Setting.PopupPosition := gppLeftBottom;
711 end;
712
713 //?ス?ス?スA?スN?スe?スB?スu?ス?ス?ス|?スb?スv?スA?スb?スv?ス\?ス?ス
714 GikoSys.Setting.UnActivePopup := UnActivePopupCheckBox.Checked;
715
716 //?スA?スh?ス?ス?スX?スo?ス[
717 GikoSys.Setting.URLDisplay := URLDisplayCheckBox.Checked;
718 GikoSys.Setting.AddressBarTabStop := TabStopAddressBarCheckBox.Checked;
719 GikoSys.Setting.LinkAddAddressBar := LinkAddCheckBox.Checked;
720 if GikoSys.IsNumeric(AddressHistoryCountEdit.Text) then
721 GikoSys.Setting.AddressHistoryCount := StrToInt(AddressHistoryCountEdit.Text)
722 else
723 GikoSys.Setting.AddressHistoryCount := 100;
724
725 //HTML?スv?ス?ス?スr?ス?ス?ス[
726 GikoSys.Setting.PreviewVisible := PreviewVisibleCheckBox.Checked;
727 if GikoSys.IsNumeric(PreviewWaitEdit.Text) then
728 GikoSys.Setting.PreviewWait := StrToInt(PreviewWaitEdit.Text)
729 else
730 GikoSys.Setting.PreviewWait := 500;
731 case PreviewSizeComboBox.ItemIndex of
732 0: GikoSys.Setting.PreviewSize := gpsXSmall;
733 1: GikoSys.Setting.PreviewSize := gpsSmall;
734 2: GikoSys.Setting.PreviewSize := gpsMedium;
735 3: GikoSys.Setting.PreviewSize := gpsLarge;
736 4: GikoSys.Setting.PreviewSize := gpsXLarge;
737 end;
738
739 //?スX?ス?ス?スb?スh?ス?ス?ス?ス?スX?スV?スA?スC?スR?ス?ス
740 GikoSys.Setting.ListIconVisible := ThreadListIconCheckBox.Checked;
741
742 //?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス}?スV?ス?ス?ス?ス?ス?ス?スg?スp?ス?ス?ス?ス
743 GikoSys.Setting.UseMachineTime := PostTimeCheckBox.Checked;
744 if GikoSys.IsNumeric(PostTimeEdit.Text) then
745 GikoSys.Setting.TimeAdjustSec := StrToInt(PostTimeEdit.Text)
746 else
747 GikoSys.Setting.TimeAdjustSec := 0;
748 GikoSys.Setting.TimeAdjust := PutPostTimeRadioButton.Checked;
749
750
751 GikoSys.Setting.WriteSystemSettingFile;
752 // GikoForm.SetBrowserTabState;
753
754 if LogFolderEdit.Text <> '' then begin
755 GikoSys.Setting.NewLogFolder := LogFolderEdit.Text;
756 GikoSys.Setting.WriteFolderSettingFile;
757 end;
758
759 for i := 0 to SoundListView.Items.Count - 1 do begin
760 if FileExists(SoundListView.Items[i].SubItems[0]) then
761 GikoSys.Setting.SoundFileName[i] := SoundListView.Items[i].SubItems[0]
762 else
763 GikoSys.Setting.SoundFileName[i] := '';
764 end;
765 end;
766
767 procedure TOptionDialog.SettingApply;
768 var
769 i: Integer;
770 begin
771 GikoForm.TreeView.Items.BeginUpdate;
772 GikoForm.ListView.Items.BeginUpdate;
773 try
774 GikoForm.TreeView.Font.Name := GikoSys.Setting.CabinetFontName;
775 GikoForm.TreeView.Font.Size := GikoSys.Setting.CabinetFontSize;
776 GikoForm.TreeView.Font.Color := GikoSys.Setting.CabinetFontColor;
777 GikoForm.TreeView.Color := GikoSys.Setting.CabinetBackColor;
778
779 GikoForm.ListView.Font.Name := GikoSys.Setting.ListFontName;
780 GikoForm.ListView.Font.Size := GikoSys.Setting.ListFontSize;
781 GikoForm.ListView.Font.Color := GikoSys.Setting.ListFontColor;
782 GikoForm.ListView.Color := GikoSys.Setting.ListBackColor;
783
784 GikoForm.BrowserTab.Font.Name := GikoSys.Setting.BrowserTabFontName;
785 GikoForm.BrowserTab.Font.Size := GikoSys.Setting.BrowserTabFontSize;
786 // GikoForm.BrowserTab.Height := (GikoSys.Setting.BrowserTabFontSize * 2) + 1;
787 // GikoForm.BrowserBottomPanel.Height := GikoForm.BrowserTab.Height;
788
789 for i := 0 to Screen.CustomFormCount - 1 do begin
790 if TObject(Screen.CustomForms[i]) is TEditorForm then begin
791 TEditorForm(Screen.CustomForms[i]).SetFont;
792 end;
793 end;
794
795 finally
796 GikoForm.TreeView.Items.EndUpdate;
797 GikoForm.ListView.Items.EndUpdate;
798 end;
799
800 //?スA?スh?ス?ス?スX?スo?ス[
801 for i := GikoForm.AddressComboBox.Items.Count - 1 downto 0 do begin
802 if GikoSys.Setting.AddressHistoryCount >= GikoForm.AddressComboBox.Items.Count then
803 Break;
804 GikoForm.AddressComboBox.Items.Delete(i);
805 end;
806 GikoForm.AddressComboBox.TabStop := GikoSys.Setting.AddressBarTabStop;
807 end;
808
809 procedure TOptionDialog.ReadProxyCheckClick(Sender: TObject);
810 begin
811 ReadProxyAddressEdit.Enabled := ReadProxyCheck.Checked;
812 ReadPortEdit.Enabled := ReadProxyCheck.Checked;
813 ReadProxyUserIDEdit.Enabled := ReadProxyCheck.Checked;
814 ReadProxyPasswordEdit.Enabled := ReadProxyCheck.Checked;
815
816 ReadAddressLabel.Enabled := ReadProxyCheck.Checked;
817 ReadPortLabel.Enabled := ReadProxyCheck.Checked;
818 ReadUserIDLabel.Enabled := ReadProxyCheck.Checked;
819 ReadPasswordLabel.Enabled := ReadProxyCheck.Checked;
820 end;
821
822 procedure TOptionDialog.ReadPortEditExit(Sender: TObject);
823 begin
824 if not GikoSys.IsNumeric(ReadPortEdit.Text) then
825 ReadPortEdit.Text := '0';
826 end;
827
828 procedure TOptionDialog.LogFolderButtonClick(Sender: TObject);
829 var
830 Root: WideString;
831 Dir: string;
832 begin
833 Root := '';
834 if SelectDirectory('?ス?ス?スO?スt?スH?ス?ス?ス_?スI?ス?ス', Root, Dir) then begin
835 LogFolderEdit.Text := Dir;
836 end;
837 end;
838
839 function TOptionDialog.CheckFolder: Boolean;
840 begin
841 if Trim(LogFolderEdit.Text) = '' then
842 LogFolderEdit.Text := ExtractFilePath(Application.ExeName) + 'Log';
843
844 if DirectoryExists(LogFolderEdit.Text) then begin
845 Result := True;
846 end else begin
847 if MsgBox(Handle, '?ス?ス?スO?スt?スH?ス?ス?ス_?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?スB?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?スH', '?スM?スR?スi?スr', MB_YESNO or MB_ICONQUESTION) = IDYES then begin
848 //?スt?スH?ス?ス?ス_?ス?ス?ス?ス?ス?ス
849 try
850 GikoSys.ForceDirectoriesEx(LogFolderEdit.Text);
851 Result := True
852 except
853 MsgBox(Handle, '?ス?ス?スO?スt?スH?ス?ス?ス_?ス?ス?スw?ス?ス?ス?ス?スs?ス?ス?ス?ス?ス?ス?スB', '?スG?ス?ス?ス[', MB_OK or MB_ICONSTOP);
854 OptionTab.ActivePage := FolderSheet;
855 LogFolderEdit.SetFocus;
856 Result := False;
857 end;
858 end else
859 Result := False;
860 end;
861 end;
862
863 procedure TOptionDialog.FormClose(Sender: TObject; var Action: TCloseAction);
864 begin
865 if not FClose then
866 Action := caNone;
867 FClose := True;
868 end;
869
870 procedure TOptionDialog.SoundReferButtonClick(Sender: TObject);
871 begin
872 OpenDialog.Filter := '?スT?スE?ス?ス?スh (*.wav)|*.wav|?ス?ス?ス?ス?ス?ス?ス?ス?スt?ス@?スC?ス?ス (*.*)|*.*';
873 sndPlaySound(nil, SND_ASYNC);
874 if OpenDialog.Execute then begin
875 SoundFileEdit.Text := OpenDialog.FileName;
876 end;
877 end;
878
879 procedure TOptionDialog.SoundPlayButtonClick(Sender: TObject);
880 begin
881 if not FileExists(SoundFileEdit.Text) then begin
882 MsgBox(Handle, '?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?スt?ス@?スC?ス?ス?ス?ス?ス?ス', '?スG?ス?ス?ス[', MB_ICONSTOP or MB_OK);
883 SoundFileEdit.Text := '';
884 Exit;
885 end;
886 if not sndPlaySound(PChar(SoundFileEdit.Text), SND_ASYNC or SND_NOSTOP) then begin
887 sndPlaySound(nil, SND_ASYNC);
888 end;
889 end;
890
891 procedure TOptionDialog.SoundListViewChanging(Sender: TObject;
892 Item: TListItem; Change: TItemChange; var AllowChange: Boolean);
893 begin
894 if Item.SubItems.Count > 0 then
895 SoundFileEdit.Text := Item.SubItems[0];
896 end;
897
898 procedure TOptionDialog.SoundFileEditChange(Sender: TObject);
899 var
900 Item: TListItem;
901 begin
902 sndPlaySound(nil, SND_ASYNC);
903 Item := SoundListView.Selected;
904 if Item = nil then Exit;
905
906 if FileExists(SoundFileEdit.Text) then
907 Item.SubItems[0] := SoundFileEdit.Text;
908 if Trim(SoundFileEdit.Text) = '' then
909 Item.SubItems[0] := '';
910 end;
911
912 procedure TOptionDialog.OptionTabChange(Sender: TObject);
913 begin
914 sndPlaySound(nil, SND_ASYNC);
915 end;
916
917 procedure TOptionDialog.AppFolderButtonClick(Sender: TObject);
918 begin
919 OpenDialog.Filter := '?ス?ス?スs?スt?ス@?スC?ス?ス (*.exe)|*.exe|?ス?ス?ス?ス?ス?ス?ス?ス?スt?ス@?スC?ス?ス (*.*)|*.*';
920 if OpenDialog.Execute then
921 AppFolderEdit.Text := OpenDialog.FileName;
922 end;
923
924 procedure TOptionDialog.WriteProxyCheckClick(Sender: TObject);
925 begin
926 WriteProxyAddressEdit.Enabled := WriteProxyCheck.Checked;
927 WritePortEdit.Enabled := WriteProxyCheck.Checked;
928 WriteProxyUserIDEdit.Enabled := WriteProxyCheck.Checked;
929 WriteProxyPasswordEdit.Enabled := WriteProxyCheck.Checked;
930
931 WriteAddressLabel.Enabled := WriteProxyCheck.Checked;
932 WritePortLabel.Enabled := WriteProxyCheck.Checked;
933 WriteUserIDLabel.Enabled := WriteProxyCheck.Checked;
934 WritePasswordLabel.Enabled := WriteProxyCheck.Checked;
935 end;
936
937 procedure TOptionDialog.WritePortEditExit(Sender: TObject);
938 begin
939 if not GikoSys.IsNumeric(WritePortEdit.Text) then
940 WritePortEdit.Text := '0';
941 end;
942
943 procedure TOptionDialog.Tora3URLLabelClick(Sender: TObject);
944 begin
945 GikoSys.OpenBrowser(URL_TORA3, gbtAuto);
946 end;
947
948 procedure TOptionDialog.HotKeyEnter(Sender: TObject);
949 begin
950 OkBotton.Default := False;
951 CancelBotton.Cancel := False;
952 end;
953
954 procedure TOptionDialog.HotKeyExit(Sender: TObject);
955 begin
956 OkBotton.Default := True;
957 CancelBotton.Cancel := True;
958 end;
959
960 procedure TOptionDialog.URLAppCheckBoxClick(Sender: TObject);
961 begin
962 AppFolderLabel.Enabled := URLAppCheckBox.Checked;
963 AppFolderEdit.Enabled := URLAppCheckBox.Checked;
964 AppFolderButton.Enabled := URLAppCheckBox.Checked;
965 end;
966
967 procedure TOptionDialog.AddressHistoryCountEditExit(Sender: TObject);
968 begin
969 if not GikoSys.IsNumeric(AddressHistoryCountEdit.Text) then
970 AddressHistoryCountEdit.Text := '100';
971 end;
972
973 procedure TOptionDialog.PreviewWaitEditExit(Sender: TObject);
974 begin
975 if not GikoSys.IsNumeric(PreviewWaitEdit.Text) then
976 PreviewWaitEdit.Text := '500';
977 if StrToInt(PreviewWaitEdit.Text) < 500 then
978 PreviewWaitEdit.Text := '500';
979 if StrToInt(PreviewWaitEdit.Text) > 9999 then
980 PreviewWaitEdit.Text := '9999';
981 end;
982
983 procedure TOptionDialog.RecvBufferSizeExit(Sender: TObject);
984 begin
985 if not GikoSys.IsNumeric(RecvBufferSize.Text) then
986 RecvBufferSize.Text := '4096';
987 if StrToInt(RecvBufferSize.Text) < 256 then
988 RecvBufferSize.Text := '4096';
989 end;
990
991 procedure TOptionDialog.CSSCheckBoxClick(Sender: TObject);
992 begin
993 CSSListLabel.Enabled := CSSCheckBox.Checked;
994 CSSListView.Enabled := CSSCheckBox.Checked;
995 end;
996
997 procedure TOptionDialog.PostTimeEditExit(Sender: TObject);
998 begin
999 if not GikoSys.IsNumeric(PostTimeEdit.Text) then
1000 PostTimeEdit.Text := '0';
1001 end;
1002
1003 procedure TOptionDialog.PostTimeCheckBoxClick(Sender: TObject);
1004 begin
1005 PostTimeLabel.Enabled := PostTimeCheckBox.Checked;
1006 PostTimeEdit.Enabled := PostTimeCheckBox.Checked;
1007 PutPostTimeRadioButton.Enabled := PostTimeCheckBox.Checked;
1008 BackPostTimeRadioButton.Enabled := PostTimeCheckBox.Checked;
1009 end;
1010
1011 end.
1012

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