Develop and Download Open Source Software

Browse CVS Repository

Annotation of /gikonavigoeson/gikonavi/KuroutSetting.pas

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


Revision 1.2.2.2 - (hide annotations) (download) (as text)
Fri Oct 8 05:44:53 2004 UTC (19 years, 6 months ago) by yoffy
Branch: stable
Changes since 1.2.2.1: +253 -23 lines
File MIME type: text/x-pascal
b49 、ヒ・゙。シ・ク。」

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

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