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.8 - (show annotations) (download) (as text)
Mon Dec 12 14:12:56 2005 UTC (18 years, 4 months ago) by h677
Branch: MAIN
CVS Tags: v1_51_1_639, b51, v1_52_0_646, v1_52_0_644, v1_52_0_643, v1_51_0_634, v1_51_0_635, v1_51_0_636, v1_51_0_637, v1_51_0_632, v1_51_0_633, v1_52_0_647, v1_51_0_638, v1_52_0_648, v1_52_0_645, v1_52_0_651, v1_52_0_650, v1_52_0_652, v1_52_0_642, v1_51_1_640, v1_51_0_630, v1_51_0_631, v1_51_0_628, root-of-Bb51, v1_51_0_629, v1_52_0_649, v1_51_1_641
Branch point for: Bb51
Changes since 1.7: +1 -1 lines
File MIME type: text/x-pascal
2ちゃん語を独立したクラスにした

1 unit KuroutSetting;
2
3 interface
4
5 uses
6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7 Dialogs, StdCtrls, ComCtrls, GikoSystem, GikoUtil;
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 GroupBox2: TGroupBox;
54 LocalTrapAtt: TCheckBox;
55 RemoteTrapAtt: TCheckBox;
56 Label6: TLabel;
57 ReadTimeOut: TEdit;
58 Label7: TLabel;
59 procedure OkBottonClick(Sender: TObject);
60 procedure FormCreate(Sender: TObject);
61 procedure CDeleteButtonClick(Sender: TObject);
62 procedure CAddButtonClick(Sender: TObject);
63 procedure BAddButtonClick(Sender: TObject);
64 procedure BDeleteButtonClick(Sender: TObject);
65 procedure CUpButtonClick(Sender: TObject);
66 procedure CDownButtonClick(Sender: TObject);
67 procedure BUpButtonClick(Sender: TObject);
68 procedure BDownButtonClick(Sender: TObject);
69 private
70 { Private 鐃緒申鐃緒申 }
71 procedure SetValue;
72 procedure SaveSetting;
73 procedure RecvBufferSizeExit(Sender: TObject);
74 procedure PostTimeEditExit(Sender: TObject);
75 procedure PostTimeCheckBoxClick(Sender: TObject);
76 procedure SetColumnData();
77 procedure PostColumnData();
78 public
79 { Public 鐃緒申鐃緒申 }
80 end;
81
82 var
83 KuroutOption: TKuroutOption;
84
85 implementation
86
87 uses
88 Giko, Setting;
89
90 {$R *.dfm}
91
92 procedure TKuroutOption.SetValue;
93 begin
94 //鐃緒申鐃?鐃?鐃?鐃?鐃?鐃?鐃?鐃?
95 RecvBufferSize.Text := IntToStr(Gikosys.Setting.RecvBufferSize);
96 //HTTP1.1鐃?鐃?
97 ProtocolCheckBox.Checked := GikoSys.Setting.Protocol;
98 //鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申HTTP1.1鐃?鐃?
99 ProxyProtocolCheckBox.Checked := Gikosys.Setting.ProxyProtocol;
100 ReadTimeOut.Text := IntToStr(GikoSys.Setting.ReadTimeOut);
101
102 //鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申
103 PostTimeCheckBox.Checked := GikoSys.Setting.UseMachineTime;
104 PostTimeEdit.Text := IntToStr(GikoSys.Setting.TimeAdjustSec);
105 if GikoSys.Setting.TimeAdjust then
106 PutPostTimeRadioButton.Checked := True
107 else
108 BackPostTimeRadioButton.Checked := True;
109
110 SetColumnData();
111
112 PageControl1.ActivePageIndex := GikoSys.Setting.KuroutSettingTabIndex;
113
114 //2chAnnai
115 GengoSupport.Checked := GikoSys.Setting.GengoSupport;
116 //FusianaSet
117 LocalTrapAtt.Checked := GikoSys.Setting.LocalTrapAtt;
118 RemoteTrapAtt.Checked := GikoSys.Setting.RemoteTrapAtt;
119 end;
120
121 procedure TKuroutOption.SaveSetting;
122 begin
123 //鐃緒申鐃?鐃?鐃?鐃?鐃?鐃?鐃?鐃?
124 Gikosys.Setting.RecvBufferSize := StrToIntDef(RecvBufferSize.Text, Gikosys.Setting.RecvBufferSize);
125 GikoSys.Setting.ReadTimeOut := StrToIntDef(ReadTimeOut.Text, GikoSys.Setting.ReadTimeOut);
126 //HTTP1.1鐃?鐃?
127 GikoSys.Setting.Protocol := ProtocolCheckBox.Checked;
128 //鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申HTTP1.1鐃?鐃?
129 Gikosys.Setting.ProxyProtocol := ProxyProtocolCheckBox.Checked;
130 //鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申
131 GikoSys.Setting.UseMachineTime := PostTimeCheckBox.Checked;
132 if GikoSys.IsNumeric(PostTimeEdit.Text) then
133 GikoSys.Setting.TimeAdjustSec := StrToIntDef(PostTimeEdit.Text, GikoSys.Setting.TimeAdjustSec)
134 else
135 GikoSys.Setting.TimeAdjustSec := 0;
136 GikoSys.Setting.TimeAdjust := PutPostTimeRadioButton.Checked;
137 //2ch鐃緒申鐃緒申鐃?鐃?鐃?鐃?
138 GikoSys.Setting.GengoSupport := GengoSupport.Checked;
139 GikoSys.SetGikoMessage;
140 //鐃緒申鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?鐃緒申
141 GikoSys.Setting.LocalTrapAtt := LocalTrapAtt.Checked;
142 GikoSys.Setting.RemoteTrapAtt := RemoteTrapAtt.Checked;
143
144 GikoSys.Setting.KuroutSettingTabIndex := PageControl1.ActivePageIndex;
145 end;
146
147 procedure TKuroutOption.RecvBufferSizeExit(Sender: TObject);
148 begin
149 if not GikoSys.IsNumeric(RecvBufferSize.Text) then
150 RecvBufferSize.Text := '4096';
151 if StrToInt(RecvBufferSize.Text) < 256 then
152 RecvBufferSize.Text := '4096';
153 end;
154
155 procedure TKuroutOption.PostTimeEditExit(Sender: TObject);
156 begin
157 if not GikoSys.IsNumeric(PostTimeEdit.Text) then
158 PostTimeEdit.Text := '0';
159 end;
160
161 procedure TKuroutOption.PostTimeCheckBoxClick(Sender: TObject);
162 begin
163 PostTimeLabel.Enabled := PostTimeCheckBox.Checked;
164 PostTimeEdit.Enabled := PostTimeCheckBox.Checked;
165 PutPostTimeRadioButton.Enabled := PostTimeCheckBox.Checked;
166 BackPostTimeRadioButton.Enabled := PostTimeCheckBox.Checked;
167 end;
168
169 procedure TKuroutOption.OkBottonClick(Sender: TObject);
170 begin
171 RecvBufferSizeExit(Sender);
172 PostTimeEditExit(Sender);
173 PostColumnData();
174 SaveSetting;
175 end;
176
177 procedure TKuroutOption.FormCreate(Sender: TObject);
178 begin
179 SetValue;
180 PostTimeCheckBoxClick(Sender);
181
182 end;
183 procedure TKuroutOption.SetColumnData();
184 var
185 i, j : Integer;
186 flag : Boolean;
187 begin
188
189 //===== 鐃緒申鐃緒申鐃?鐃? =====
190 for i := 0 to GikoSys.Setting.CategoryColumnOrder.Count - 1 do begin
191 for j := 1 to Length( GikoCategoryColumnCaption ) - 1 do begin
192 if GikoSys.Setting.CategoryColumnOrder[ i ] = TGikoCategoryColumnID( j ) then begin
193 CVisibledListBox.AddItem(GikoCategoryColumnCaption[ j ], nil);
194 break;
195 end;
196 end;
197 end;
198
199 for i := 1 to Length( GikoCategoryColumnCaption ) - 1 do begin
200 flag := false;
201 for j := 0 to GikoSys.Setting.CategoryColumnOrder.Count - 1 do begin
202 if GikoSys.Setting.CategoryColumnOrder[ j ] = TGikoCategoryColumnID( i ) then begin
203 flag := true;
204 break;
205 end;
206 end;
207 if not flag then
208 CUnVisibledListBox.AddItem(GikoCategoryColumnCaption[ i ], nil);
209 end;
210
211 //===== 鐃?鐃緒申鐃緒申鐃?鐃? =====
212 for i := 0 to GikoSys.Setting.BoardColumnOrder.Count - 1 do begin
213 for j := 1 to Length( GikoBoardColumnCaption ) - 1 do begin
214 if GikoSys.Setting.BoardColumnOrder[ i ] = TGikoBoardColumnID( j ) then begin
215 BVisibledListBox.AddItem(GikoBoardColumnCaption[ j ], nil);
216 Break;
217 end;
218 end;
219 end;
220
221 for i := 1 to Length( GikoBoardColumnCaption ) - 1 do begin
222 flag := false;
223 for j := GikoSys.Setting.BoardColumnOrder.Count - 1 downto 0 do begin
224 if GikoSys.Setting.BoardColumnOrder[ j ] = TGikoBoardColumnID( i ) then begin
225 flag := true;
226 Break;
227 end;
228 end;
229 if not flag then
230 BUnVisibledListBox.AddItem(GikoBoardColumnCaption[ i ], nil);
231
232 end;
233 end;
234 procedure TKuroutOption.CDeleteButtonClick(Sender: TObject);
235 var
236 i: Integer;
237 begin
238 for i := 0 to CVisibledListBox.Count - 1 do begin
239 if CVisibledListBox.Selected[i] then begin
240 CUnVisibledListBox.AddItem( CVisibledListBox.Items.Strings[ i ], nil);
241 CVisibledListBox.DeleteSelected;
242 break;
243 end;
244 end;
245 end;
246
247 procedure TKuroutOption.CAddButtonClick(Sender: TObject);
248 var
249 i: Integer;
250 begin
251 for i := 0 to CUnVisibledListBox.Count - 1 do begin
252 if CUnVisibledListBox.Selected[i] then begin
253 CVisibledListBox.AddItem( CUnVisibledListBox.Items.Strings[ i ], nil);
254 CUnVisibledListBox.DeleteSelected;
255 break;
256 end;
257 end;
258 end;
259
260 procedure TKuroutOption.BAddButtonClick(Sender: TObject);
261 var
262 i: Integer;
263 begin
264 for i := 0 to BUnVisibledListBox.Count - 1 do begin
265 if BUnVisibledListBox.Selected[i] then begin
266 BVisibledListBox.AddItem( BUnVisibledListBox.Items.Strings[ i ], nil);
267 BUnVisibledListBox.DeleteSelected;
268 break;
269 end;
270 end;
271 end;
272
273 procedure TKuroutOption.BDeleteButtonClick(Sender: TObject);
274 var
275 i: Integer;
276 begin
277 for i := 0 to BVisibledListBox.Count - 1 do begin
278 if BVisibledListBox.Selected[i] then begin
279 BUnVisibledListBox.AddItem( BVisibledListBox.Items.Strings[ i ], nil);
280 BVisibledListBox.DeleteSelected;
281 break;
282 end;
283 end;
284 end;
285
286 procedure TKuroutOption.CUpButtonClick(Sender: TObject);
287 var
288 i: Integer;
289 begin
290 for i := 1 to CVisibledListBox.Count - 1 do begin
291 if CVisibledListBox.Selected[i] then begin
292 CVisibledListBox.Items.Exchange(i, i -1);
293 break;
294 end;
295 end;
296 end;
297
298 procedure TKuroutOption.CDownButtonClick(Sender: TObject);
299 var
300 i: Integer;
301 begin
302 for i := 0 to CVisibledListBox.Count - 2 do begin
303 if CVisibledListBox.Selected[i] then begin
304 CVisibledListBox.Items.Exchange(i, i + 1);
305 break;
306 end;
307 end;
308 end;
309
310 procedure TKuroutOption.BUpButtonClick(Sender: TObject);
311 var
312 i: Integer;
313 begin
314 for i := 1 to BVisibledListBox.Count - 1 do begin
315 if BVisibledListBox.Selected[i] then begin
316 BVisibledListBox.Items.Exchange(i, i -1);
317 break;
318 end;
319 end;
320 end;
321
322 procedure TKuroutOption.BDownButtonClick(Sender: TObject);
323 var
324 i: Integer;
325 begin
326 for i := 0 to BVisibledListBox.Count - 2 do begin
327 if BVisibledListBox.Selected[i] then begin
328 BVisibledListBox.Items.Exchange(i, i + 1);
329 break;
330 end;
331 end;
332 end;
333
334
335 procedure TKuroutOption.PostColumnData();
336 var
337 i, j : Integer;
338 begin
339 GikoForm.ActiveListColumnSave;
340
341 //===== 鐃緒申鐃緒申鐃?鐃? =====
342 for i := GikoSys.Setting.CategoryColumnOrder.Count -1 downto 1 do
343 GikoSys.Setting.CategoryColumnOrder.Delete(i);
344
345 for i := 0 to CVisibledListBox.Count - 1 do begin
346 for j := 1 to Length( GikoCategoryColumnCaption ) - 1 do begin
347 if CVisibledListBox.Items.Strings[ i ] = GikoCategoryColumnCaption[ j ] then begin
348 GikoSys.Setting.CategoryColumnOrder.Add( TGikoCategoryColumnID(j) );
349 break;
350 end;
351 end;
352 end;
353
354 //===== 鐃?鐃緒申鐃緒申鐃?鐃? =====
355 for i := GikoSys.Setting.BoardColumnOrder.Count - 1 downto 1 do
356 GikoSys.Setting.BoardColumnOrder.Delete(i);
357
358 for i := 0 to BVisibledListBox.Count - 1 do begin
359 for j := 1 to Length( GikoBoardColumnCaption ) - 1 do begin
360 if BVisibledListBox.Items.Strings[ i ] = GikoBoardColumnCaption[ j ] then begin
361 GikoSys.Setting.BoardColumnOrder.Add( TGikoBoardColumnID(j) );
362 Break;
363 end;
364 end;
365 end;
366 //鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃?鐃?
367 GikoForm.SetActiveList(GikoForm.ActiveList);
368 end;
369
370 end.

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