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.19 - (show annotations) (download) (as text)
Wed Sep 19 15:07:26 2007 UTC (16 years, 7 months ago) by h677
Branch: MAIN
CVS Tags: v1_59_0_771, v1_59_0_770, v1_59_0_773, v1_59_0_772, v1_59_0_775, v1_59_0_774, v1_59_0_777, v1_59_0_776, v1_59_0_778, v1_57_0_737, v1_57_0_735, v1_57_0_734, v1_57_0_733, v1_57_0_732, v1_57_0_739, v1_57_0_738, v1_59_1_765, v1_58_0_748, v1_58_0_745, v1_58_0_746, v1_59_0_767, v1_59_1_778, v1_59_0_768, v1_59_0_769, v1_57_1_744, v1_57_0_736, v1_58_0_752, v1_58_0_750, v1_58_0_751, v1_58_0_756, v1_58_0_757, v1_58_0_754, v1_58_0_755, v1_58_0_759, v1_60_0_780, v1_60_0_779, v1_58_0_747, v1_59_2_785, v1_58_0_763, v1_58_0_762, v1_58_0_761, v1_58_0_760, v1_57_2_749, v1_57_0_742, v1_57_0_743, v1_57_0_740, v1_57_0_741, v1_57_0_744
Branch point for: Bb57, Bb59, Bb58
Changes since 1.18: +3 -1 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, 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 AHandredUpDown: 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 LogGroupBox: TGroupBox;
85 CheckDatFileCheckBox: TCheckBox;
86 RespopupTabSheet: TTabSheet;
87 RespopuGroupBox: TGroupBox;
88 DeltaXLabeledEdit: TLabeledEdit;
89 DeltaYLabeledEdit: TLabeledEdit;
90 DeltaXUpDown: TUpDown;
91 DeltaYUpDown: TUpDown;
92 Label16: TLabel;
93 RespopupWaitLabeledEdit: TLabeledEdit;
94 RespopupWaitUpDown: TUpDown;
95 Label19: TLabel;
96 RespopupMailToCheckBox: TCheckBox;
97 procedure OkBottonClick(Sender: TObject);
98 procedure FormCreate(Sender: TObject);
99 procedure CDeleteButtonClick(Sender: TObject);
100 procedure CAddButtonClick(Sender: TObject);
101 procedure BAddButtonClick(Sender: TObject);
102 procedure BDeleteButtonClick(Sender: TObject);
103 procedure CUpButtonClick(Sender: TObject);
104 procedure CDownButtonClick(Sender: TObject);
105 procedure BUpButtonClick(Sender: TObject);
106 procedure BDownButtonClick(Sender: TObject);
107 procedure MoveHistoryMaxEditExit(Sender: TObject);
108 procedure AHandredLabeledEditExit(Sender: TObject);
109 procedure ExtListLabeledEditExit(Sender: TObject);
110 procedure DeltaXLabeledEditExit(Sender: TObject);
111 procedure DeltaYLabeledEditExit(Sender: TObject);
112 procedure RespopupWaitLabeledEditExit(Sender: TObject);
113 private
114 { Private 鐃緒申鐃緒申 }
115 procedure SetValue;
116 procedure SaveSetting;
117 procedure RecvBufferSizeExit(Sender: TObject);
118 procedure PostTimeEditExit(Sender: TObject);
119 procedure PostTimeCheckBoxClick(Sender: TObject);
120 procedure SetColumnData();
121 procedure PostColumnData();
122 public
123 { Public 鐃緒申鐃緒申 }
124 end;
125
126 var
127 KuroutOption: TKuroutOption;
128
129 implementation
130
131 uses
132 Giko, Setting;
133
134 {$R *.dfm}
135
136 procedure TKuroutOption.SetValue;
137 begin
138 //鐃緒申鐃?鐃?鐃?鐃?鐃?鐃?鐃?鐃?
139 RecvBufferSize.Text := IntToStr(Gikosys.Setting.RecvBufferSize);
140 //HTTP1.1鐃?鐃?
141 ProtocolCheckBox.Checked := GikoSys.Setting.Protocol;
142 //鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申HTTP1.1鐃?鐃?
143 ProxyProtocolCheckBox.Checked := Gikosys.Setting.ProxyProtocol;
144 ReadTimeOut.Text := IntToStr(GikoSys.Setting.ReadTimeOut);
145
146 //鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申
147 PostTimeCheckBox.Checked := GikoSys.Setting.UseMachineTime;
148 PostTimeEdit.Text := IntToStr(GikoSys.Setting.TimeAdjustSec);
149 if GikoSys.Setting.TimeAdjust then
150 PutPostTimeRadioButton.Checked := True
151 else
152 BackPostTimeRadioButton.Checked := True;
153
154 SetColumnData();
155
156 PageControl1.ActivePageIndex := GikoSys.Setting.KuroutSettingTabIndex;
157
158 //2chAnnai
159 GengoSupport.Checked := GikoSys.Setting.GengoSupport;
160 //FusianaSet
161 LocalTrapAtt.Checked := GikoSys.Setting.LocalTrapAtt;
162 RemoteTrapAtt.Checked := GikoSys.Setting.RemoteTrapAtt;
163 // Cookie
164 FixedCookieEdit.Text := GikoSys.Setting.FixedCookie;
165 // 鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申
166 MoveHistoryMaxEdit.Text := IntToStr( GikoSys.Setting.MoveHistorySize );
167 //鐃?鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃?鐃緒申
168 AHandredUpDown.Position := GikoSys.Setting.HeadResCount;
169 // 鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?鐃緒申鐃?
170 AddKeywordCheckBox.Checked := GikoSys.Setting.AddKeywordLink;
171 // 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
172 ReplaceDatCheckBox.Checked := GikoSys.Setting.ReplaceDat;
173 SentIniFileSizeUpDown.Position := GikoSys.Setting.SentIniFileSize;
174 ExtListLabeledEdit.Text := GikoSys.Setting.ExtList;
175 // Folder.idx鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申dat鐃?鐃?鐃?鐃?
176 CheckDatFileCheckBox.Checked := GikoSys.Setting.CheckDatFile;
177 DeltaXUpDown.Position := GikoSys.Setting.RespopupDeltaX;
178 DeltaYUpDown.Position := GikoSys.Setting.RespopupDeltaY;
179 RespopupWaitUpDown.Position := GikoSys.Setting.RespopupWait;
180 RespopupMailToCheckBox.Checked := GikoSys.Setting.RespopupMailTo;
181 end;
182
183 procedure TKuroutOption.SaveSetting;
184 begin
185 //鐃緒申鐃?鐃?鐃?鐃?鐃?鐃?鐃?鐃?
186 Gikosys.Setting.RecvBufferSize := StrToIntDef(RecvBufferSize.Text, Gikosys.Setting.RecvBufferSize);
187 GikoSys.Setting.ReadTimeOut := StrToIntDef(ReadTimeOut.Text, GikoSys.Setting.ReadTimeOut);
188 //HTTP1.1鐃?鐃?
189 GikoSys.Setting.Protocol := ProtocolCheckBox.Checked;
190 //鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申HTTP1.1鐃?鐃?
191 Gikosys.Setting.ProxyProtocol := ProxyProtocolCheckBox.Checked;
192 //鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申
193 GikoSys.Setting.UseMachineTime := PostTimeCheckBox.Checked;
194 if GikoSys.IsNumeric(PostTimeEdit.Text) then
195 GikoSys.Setting.TimeAdjustSec := StrToIntDef(PostTimeEdit.Text, GikoSys.Setting.TimeAdjustSec)
196 else
197 GikoSys.Setting.TimeAdjustSec := 0;
198 GikoSys.Setting.TimeAdjust := PutPostTimeRadioButton.Checked;
199 //2ch鐃緒申鐃緒申鐃?鐃?鐃?鐃?
200 GikoSys.Setting.GengoSupport := GengoSupport.Checked;
201 GikoSys.SetGikoMessage;
202 //鐃緒申鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?鐃緒申
203 GikoSys.Setting.LocalTrapAtt := LocalTrapAtt.Checked;
204 GikoSys.Setting.RemoteTrapAtt := RemoteTrapAtt.Checked;
205 // Cookie
206 GikoSys.Setting.FixedCookie := FixedCookieEdit.Text;
207
208 // 鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申
209 GikoSys.Setting.MoveHistorySize :=
210 StrToIntDef( MoveHistoryMaxEdit.Text, 20 );
211
212 //鐃?鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃?鐃緒申
213 GikoSys.Setting.HeadResCount :=
214 StrToIntDef( AHandredLabeledEdit.Text , 1);
215
216 GikoSys.Setting.KuroutSettingTabIndex := PageControl1.ActivePageIndex;
217 // 鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?鐃緒申鐃?
218 GikoSys.Setting.AddKeywordLink := AddKeywordCheckBox.Checked;
219 // 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
220 GikoSys.Setting.ReplaceDat := ReplaceDatCheckBox.Checked;
221 GikoSys.Setting.SentIniFileSize := SentIniFileSizeUpDown.Position;
222 GikoSys.Setting.ExtList := ExtListLabeledEdit.Text;
223 // Folder.idx鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申dat鐃?鐃?鐃?鐃?
224 GikoSys.Setting.CheckDatFile := CheckDatFileCheckBox.Checked;
225
226 GikoSys.Setting.RespopupDeltaX := StrToInt(DeltaXLabeledEdit.Text);
227 GikoSys.Setting.RespopupDeltaY := StrToInt(DeltaYLabeledEdit.Text);
228 GikoSys.Setting.RespopupWait := StrToInt(RespopupWaitLabeledEdit.Text);
229 GikoForm.ResPopupClearTimer.Interval := GikoSys.Setting.RespopupWait;
230 GikoSys.Setting.RespopupMailTo := RespopupMailToCheckBox.Checked;
231 end;
232
233 procedure TKuroutOption.RecvBufferSizeExit(Sender: TObject);
234 begin
235 if not GikoSys.IsNumeric(RecvBufferSize.Text) then
236 RecvBufferSize.Text := '4096';
237 if StrToInt(RecvBufferSize.Text) < 256 then
238 RecvBufferSize.Text := '4096';
239 end;
240
241 procedure TKuroutOption.PostTimeEditExit(Sender: TObject);
242 begin
243 if not GikoSys.IsNumeric(PostTimeEdit.Text) then
244 PostTimeEdit.Text := '0';
245 end;
246
247 procedure TKuroutOption.PostTimeCheckBoxClick(Sender: TObject);
248 begin
249 PostTimeLabel.Enabled := PostTimeCheckBox.Checked;
250 PostTimeEdit.Enabled := PostTimeCheckBox.Checked;
251 PutPostTimeRadioButton.Enabled := PostTimeCheckBox.Checked;
252 BackPostTimeRadioButton.Enabled := PostTimeCheckBox.Checked;
253 end;
254
255 procedure TKuroutOption.OkBottonClick(Sender: TObject);
256 begin
257 RecvBufferSizeExit(Sender);
258 PostTimeEditExit(Sender);
259 MoveHistoryMaxEditExit(Sender);
260 AHandredLabeledEditExit(Sender);
261 ExtListLabeledEditExit(Sender);
262 DeltaXLabeledEditExit(Sender);
263 DeltaYLabeledEditExit(Sender);
264 RespopupWaitLabeledEditExit(Sender);
265 PostColumnData();
266 SaveSetting;
267 end;
268
269 procedure TKuroutOption.FormCreate(Sender: TObject);
270 begin
271 SetValue;
272 PostTimeCheckBoxClick(Sender);
273
274 end;
275 procedure TKuroutOption.SetColumnData();
276 var
277 i, j : Integer;
278 flag : Boolean;
279 begin
280
281 //===== 鐃緒申鐃緒申鐃?鐃? =====
282 for i := 0 to GikoSys.Setting.CategoryColumnOrder.Count - 1 do begin
283 for j := 1 to Length( GikoCategoryColumnCaption ) - 1 do begin
284 if GikoSys.Setting.CategoryColumnOrder[ i ] = TGikoCategoryColumnID( j ) then begin
285 CVisibledListBox.AddItem(GikoCategoryColumnCaption[ j ], nil);
286 break;
287 end;
288 end;
289 end;
290
291 for i := 1 to Length( GikoCategoryColumnCaption ) - 1 do begin
292 flag := false;
293 for j := 0 to GikoSys.Setting.CategoryColumnOrder.Count - 1 do begin
294 if GikoSys.Setting.CategoryColumnOrder[ j ] = TGikoCategoryColumnID( i ) then begin
295 flag := true;
296 break;
297 end;
298 end;
299 if not flag then
300 CUnVisibledListBox.AddItem(GikoCategoryColumnCaption[ i ], nil);
301 end;
302
303 //===== 鐃?鐃緒申鐃緒申鐃?鐃? =====
304 for i := 0 to GikoSys.Setting.BoardColumnOrder.Count - 1 do begin
305 for j := 1 to Length( GikoBoardColumnCaption ) - 1 do begin
306 if GikoSys.Setting.BoardColumnOrder[ i ] = TGikoBoardColumnID( j ) then begin
307 BVisibledListBox.AddItem(GikoBoardColumnCaption[ j ], nil);
308 Break;
309 end;
310 end;
311 end;
312
313 for i := 1 to Length( GikoBoardColumnCaption ) - 1 do begin
314 flag := false;
315 for j := GikoSys.Setting.BoardColumnOrder.Count - 1 downto 0 do begin
316 if GikoSys.Setting.BoardColumnOrder[ j ] = TGikoBoardColumnID( i ) then begin
317 flag := true;
318 Break;
319 end;
320 end;
321 if not flag then
322 BUnVisibledListBox.AddItem(GikoBoardColumnCaption[ i ], nil);
323
324 end;
325 end;
326 procedure TKuroutOption.CDeleteButtonClick(Sender: TObject);
327 var
328 i: Integer;
329 begin
330 for i := 0 to CVisibledListBox.Count - 1 do begin
331 if CVisibledListBox.Selected[i] then begin
332 CUnVisibledListBox.AddItem( CVisibledListBox.Items.Strings[ i ], nil);
333 CVisibledListBox.DeleteSelected;
334 break;
335 end;
336 end;
337 end;
338
339 procedure TKuroutOption.CAddButtonClick(Sender: TObject);
340 var
341 i: Integer;
342 begin
343 for i := 0 to CUnVisibledListBox.Count - 1 do begin
344 if CUnVisibledListBox.Selected[i] then begin
345 CVisibledListBox.AddItem( CUnVisibledListBox.Items.Strings[ i ], nil);
346 CUnVisibledListBox.DeleteSelected;
347 break;
348 end;
349 end;
350 end;
351
352 procedure TKuroutOption.BAddButtonClick(Sender: TObject);
353 var
354 i: Integer;
355 begin
356 for i := 0 to BUnVisibledListBox.Count - 1 do begin
357 if BUnVisibledListBox.Selected[i] then begin
358 BVisibledListBox.AddItem( BUnVisibledListBox.Items.Strings[ i ], nil);
359 BUnVisibledListBox.DeleteSelected;
360 break;
361 end;
362 end;
363 end;
364
365 procedure TKuroutOption.BDeleteButtonClick(Sender: TObject);
366 var
367 i: Integer;
368 begin
369 for i := 0 to BVisibledListBox.Count - 1 do begin
370 if BVisibledListBox.Selected[i] then begin
371 BUnVisibledListBox.AddItem( BVisibledListBox.Items.Strings[ i ], nil);
372 BVisibledListBox.DeleteSelected;
373 break;
374 end;
375 end;
376 end;
377
378 procedure TKuroutOption.CUpButtonClick(Sender: TObject);
379 var
380 i: Integer;
381 begin
382 for i := 1 to CVisibledListBox.Count - 1 do begin
383 if CVisibledListBox.Selected[i] then begin
384 CVisibledListBox.Items.Exchange(i, i -1);
385 break;
386 end;
387 end;
388 end;
389
390 procedure TKuroutOption.CDownButtonClick(Sender: TObject);
391 var
392 i: Integer;
393 begin
394 for i := 0 to CVisibledListBox.Count - 2 do begin
395 if CVisibledListBox.Selected[i] then begin
396 CVisibledListBox.Items.Exchange(i, i + 1);
397 break;
398 end;
399 end;
400 end;
401
402 procedure TKuroutOption.BUpButtonClick(Sender: TObject);
403 var
404 i: Integer;
405 begin
406 for i := 1 to BVisibledListBox.Count - 1 do begin
407 if BVisibledListBox.Selected[i] then begin
408 BVisibledListBox.Items.Exchange(i, i -1);
409 break;
410 end;
411 end;
412 end;
413
414 procedure TKuroutOption.BDownButtonClick(Sender: TObject);
415 var
416 i: Integer;
417 begin
418 for i := 0 to BVisibledListBox.Count - 2 do begin
419 if BVisibledListBox.Selected[i] then begin
420 BVisibledListBox.Items.Exchange(i, i + 1);
421 break;
422 end;
423 end;
424 end;
425
426
427 procedure TKuroutOption.PostColumnData();
428 var
429 i, j : Integer;
430 begin
431 GikoForm.ActiveListColumnSave;
432
433 //===== 鐃緒申鐃緒申鐃?鐃? =====
434 for i := GikoSys.Setting.CategoryColumnOrder.Count -1 downto 1 do
435 GikoSys.Setting.CategoryColumnOrder.Delete(i);
436
437 for i := 0 to CVisibledListBox.Count - 1 do begin
438 for j := 1 to Length( GikoCategoryColumnCaption ) - 1 do begin
439 if CVisibledListBox.Items.Strings[ i ] = GikoCategoryColumnCaption[ j ] then begin
440 GikoSys.Setting.CategoryColumnOrder.Add( TGikoCategoryColumnID(j) );
441 break;
442 end;
443 end;
444 end;
445
446 //===== 鐃?鐃緒申鐃緒申鐃?鐃? =====
447 for i := GikoSys.Setting.BoardColumnOrder.Count - 1 downto 1 do
448 GikoSys.Setting.BoardColumnOrder.Delete(i);
449
450 for i := 0 to BVisibledListBox.Count - 1 do begin
451 for j := 1 to Length( GikoBoardColumnCaption ) - 1 do begin
452 if BVisibledListBox.Items.Strings[ i ] = GikoBoardColumnCaption[ j ] then begin
453 GikoSys.Setting.BoardColumnOrder.Add( TGikoBoardColumnID(j) );
454 Break;
455 end;
456 end;
457 end;
458 //鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃?鐃?
459 GikoForm.SetActiveList(GikoForm.ActiveList);
460 end;
461 // 鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃?
462 procedure TKuroutOption.MoveHistoryMaxEditExit(Sender: TObject);
463 begin
464 if not GikoSys.IsNumeric(MoveHistoryMaxEdit.Text) then
465 MoveHistoryMaxEdit.Text := '20';
466 if StrToInt(MoveHistoryMaxEdit.Text) < 1 then
467 MoveHistoryMaxEdit.Text := '1';
468 end;
469 // 鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃?
470 procedure TKuroutOption.AHandredLabeledEditExit(Sender: TObject);
471 begin
472 if not GikoSys.IsNumeric(AHandredLabeledEdit.Text) then
473 AHandredLabeledEdit.Text := '1';
474 if StrToInt(AHandredLabeledEdit.Text) < 1 then
475 AHandredLabeledEdit.Text := '1';
476
477 end;
478
479 procedure TKuroutOption.ExtListLabeledEditExit(Sender: TObject);
480 begin
481 if AnsiEndsStr(';', ExtListLabeledEdit.Text) then begin
482 ExtListLabeledEdit.Text :=
483 Copy(ExtListLabeledEdit.Text, 0,
484 Length(ExtListLabeledEdit.Text) - 1);
485 end;
486 end;
487 // 鐃緒申鐃?鐃?鐃?鐃?鐃?鐃?鐃?鐃緒申鐃?X
488 procedure TKuroutOption.DeltaXLabeledEditExit(Sender: TObject);
489 begin
490 if not GikoSys.IsNumeric(DeltaXLabeledEdit.Text) then
491 DeltaXLabeledEdit.Text := IntToStr(GikoSys.Setting.RespopupDeltaX);
492 if StrToInt(DeltaXLabeledEdit.Text) < DeltaXUpDown.Min then
493 DeltaXLabeledEdit.Text := IntToStr(DeltaXUpDown.Min);
494 if StrToInt(DeltaXLabeledEdit.Text) > DeltaXUpDown.Max then
495 DeltaXLabeledEdit.Text:= IntToStr(DeltaXUpDown.Max);
496 end;
497 // 鐃緒申鐃?鐃?鐃?鐃?鐃?鐃?鐃?鐃緒申鐃?Y
498 procedure TKuroutOption.DeltaYLabeledEditExit(Sender: TObject);
499 begin
500 if not GikoSys.IsNumeric(DeltaYLabeledEdit.Text) then
501 DeltaYLabeledEdit.Text := IntToStr(GikoSys.Setting.RespopupDeltaY);
502 if StrToInt(DeltaYLabeledEdit.Text) < DeltaYUpDown.Min then
503 DeltaYLabeledEdit.Text := IntToStr(DeltaYUpDown.Min);
504 if StrToInt(DeltaYLabeledEdit.Text) > DeltaYUpDown.Max then
505 DeltaYLabeledEdit.Text := IntToStr(DeltaYUpDown.Max);
506 end;
507
508 procedure TKuroutOption.RespopupWaitLabeledEditExit(Sender: TObject);
509 begin
510 if not GikoSys.IsNumeric(RespopupWaitLabeledEdit.Text) then
511 RespopupWaitLabeledEdit.Text := IntToStr(GikoSys.Setting.RespopupWait);
512 if StrToInt(RespopupWaitLabeledEdit.Text) < RespopupWaitUpDown.Min then
513 RespopupWaitLabeledEdit.Text := IntToStr(RespopupWaitUpDown.Min);
514 if StrToInt(RespopupWaitLabeledEdit.Text) > RespopupWaitUpDown.Max then
515 RespopupWaitLabeledEdit.Text := IntToStr(RespopupWaitUpDown.Max);
516 end;
517
518 end.

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