Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/KuroutSetting.pas

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

revision 1.2.2.2 by yoffy, Fri Oct 8 05:44:53 2004 UTC revision 1.21 by h677, Tue Jun 2 16:00:22 2009 UTC
# Line 4  interface Line 4  interface
4    
5  uses  uses
6    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7    Dialogs, StdCtrls, ComCtrls, GikoSystem, GikoUtil;    Dialogs, StdCtrls, ComCtrls, GikoSystem, GikoUtil, ExtCtrls, StrUtils;
8    
9  type  type
10    TKuroutOption = class(TForm)    TKuroutOption = class(TForm)
# Line 50  type Line 50  type
50      GroupBox1: TGroupBox;      GroupBox1: TGroupBox;
51      GengoSupport: TCheckBox;      GengoSupport: TCheckBox;
52      Label5: TLabel;      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        ResRangeLabeledEdit: TLabeledEdit;
98        ResRangeCountUpDown: TUpDown;
99        UseGobakuCheckBox: TCheckBox;
100          procedure OkBottonClick(Sender: TObject);          procedure OkBottonClick(Sender: TObject);
101          procedure FormCreate(Sender: TObject);          procedure FormCreate(Sender: TObject);
102          procedure CDeleteButtonClick(Sender: TObject);          procedure CDeleteButtonClick(Sender: TObject);
# Line 60  type Line 107  type
107      procedure CDownButtonClick(Sender: TObject);      procedure CDownButtonClick(Sender: TObject);
108      procedure BUpButtonClick(Sender: TObject);      procedure BUpButtonClick(Sender: TObject);
109      procedure BDownButtonClick(Sender: TObject);      procedure BDownButtonClick(Sender: TObject);
110        procedure MoveHistoryMaxEditExit(Sender: TObject);
111        procedure AHandredLabeledEditExit(Sender: TObject);
112        procedure ExtListLabeledEditExit(Sender: TObject);
113        procedure DeltaXLabeledEditExit(Sender: TObject);
114        procedure DeltaYLabeledEditExit(Sender: TObject);
115        procedure RespopupWaitLabeledEditExit(Sender: TObject);
116        procedure ResRangeLabeledEditExit(Sender: TObject);
117    private    private
118          { Private 宣言 }          { Private 宣言 }
119          procedure SetValue;          procedure SetValue;
# Line 91  begin Line 145  begin
145          ProtocolCheckBox.Checked := GikoSys.Setting.Protocol;          ProtocolCheckBox.Checked := GikoSys.Setting.Protocol;
146          //プロキシ接続HTTP1.1使用          //プロキシ接続HTTP1.1使用
147          ProxyProtocolCheckBox.Checked := Gikosys.Setting.ProxyProtocol;          ProxyProtocolCheckBox.Checked := Gikosys.Setting.ProxyProtocol;
148            ReadTimeOut.Text := IntToStr(GikoSys.Setting.ReadTimeOut);
149    
150                  //書き込み時マシン時間使用設定                  //書き込み時マシン時間使用設定
151          PostTimeCheckBox.Checked := GikoSys.Setting.UseMachineTime;          PostTimeCheckBox.Checked := GikoSys.Setting.UseMachineTime;
# Line 103  begin Line 158  begin
158          SetColumnData();          SetColumnData();
159    
160          PageControl1.ActivePageIndex := GikoSys.Setting.KuroutSettingTabIndex;          PageControl1.ActivePageIndex := GikoSys.Setting.KuroutSettingTabIndex;
161    
162            //2chAnnai
163            GengoSupport.Checked := GikoSys.Setting.GengoSupport;
164            //FusianaSet
165            LocalTrapAtt.Checked := GikoSys.Setting.LocalTrapAtt;
166            RemoteTrapAtt.Checked := GikoSys.Setting.RemoteTrapAtt;
167            // Cookie
168        FixedCookieEdit.Text := GikoSys.Setting.FixedCookie;
169        // リンク移動履歴
170        MoveHistoryMaxEdit.Text := IntToStr( GikoSys.Setting.MoveHistorySize );
171        // 先頭表示レス数
172        AHandredUpDown.Position := GikoSys.Setting.HeadResCount;
173        // 表示レス数
174        ResRangeCountUpDown.Position := GikoSys.Setting.ResRangeExCount;
175        // 関連キーワード追加フラグ
176        AddKeywordCheckBox.Checked := GikoSys.Setting.AddKeywordLink;
177        // 誤反応対策
178        ReplaceDatCheckBox.Checked := GikoSys.Setting.ReplaceDat;
179        SentIniFileSizeUpDown.Position := GikoSys.Setting.SentIniFileSize;
180        ExtListLabeledEdit.Text := GikoSys.Setting.ExtList;
181        // Folder.idx読み込み時datチェック
182        CheckDatFileCheckBox.Checked := GikoSys.Setting.CheckDatFile;
183        DeltaXUpDown.Position := GikoSys.Setting.RespopupDeltaX;
184        DeltaYUpDown.Position := GikoSys.Setting.RespopupDeltaY;
185        RespopupWaitUpDown.Position := GikoSys.Setting.RespopupWait;
186        RespopupMailToCheckBox.Checked := GikoSys.Setting.RespopupMailTo;
187        // 誤爆チェック
188        UseGobakuCheckBox.Checked := GikoSys.Setting.UseGobakuCheck;
189  end;  end;
190    
191  procedure TKuroutOption.SaveSetting;  procedure TKuroutOption.SaveSetting;
192  begin  begin
193          //受信バッファサイズ          //受信バッファサイズ
194          Gikosys.Setting.RecvBufferSize := StrToInt(RecvBufferSize.Text);          Gikosys.Setting.RecvBufferSize := StrToIntDef(RecvBufferSize.Text, Gikosys.Setting.RecvBufferSize);
195            GikoSys.Setting.ReadTimeOut := StrToIntDef(ReadTimeOut.Text, GikoSys.Setting.ReadTimeOut);
196          //HTTP1.1使用          //HTTP1.1使用
197          GikoSys.Setting.Protocol := ProtocolCheckBox.Checked;          GikoSys.Setting.Protocol := ProtocolCheckBox.Checked;
198          //プロキシ接続HTTP1.1使用          //プロキシ接続HTTP1.1使用
# Line 116  begin Line 200  begin
200          //書き込み時マシン時間使用設定          //書き込み時マシン時間使用設定
201          GikoSys.Setting.UseMachineTime := PostTimeCheckBox.Checked;          GikoSys.Setting.UseMachineTime := PostTimeCheckBox.Checked;
202          if GikoSys.IsNumeric(PostTimeEdit.Text) then          if GikoSys.IsNumeric(PostTimeEdit.Text) then
203                  GikoSys.Setting.TimeAdjustSec := StrToInt(PostTimeEdit.Text)                  GikoSys.Setting.TimeAdjustSec := StrToIntDef(PostTimeEdit.Text, GikoSys.Setting.TimeAdjustSec)
204          else          else
205                  GikoSys.Setting.TimeAdjustSec := 0;                  GikoSys.Setting.TimeAdjustSec := 0;
206          GikoSys.Setting.TimeAdjust := PutPostTimeRadioButton.Checked;          GikoSys.Setting.TimeAdjust := PutPostTimeRadioButton.Checked;
207            //2ch言語サポート
208          GikoSys.Setting.GengoSupport := GengoSupport.Checked;          GikoSys.Setting.GengoSupport := GengoSupport.Checked;
209            GikoSys.SetGikoMessage;
210            //ローカル・リモートフシアナ警告
211            GikoSys.Setting.LocalTrapAtt := LocalTrapAtt.Checked;
212            GikoSys.Setting.RemoteTrapAtt := RemoteTrapAtt.Checked;
213            // Cookie
214            GikoSys.Setting.FixedCookie := FixedCookieEdit.Text;
215    
216        // リンク移動履歴
217        GikoSys.Setting.MoveHistorySize :=
218            StrToIntDef( MoveHistoryMaxEdit.Text, 20 );
219    
220        // 先頭表示レス数
221        GikoSys.Setting.HeadResCount :=
222            StrToIntDef( AHandredLabeledEdit.Text , 1);
223        GikoSys.Setting.ResRangeExCount :=
224            StrToIntDef( ResRangeLabeledEdit.Text , 100 );
225          GikoSys.Setting.KuroutSettingTabIndex := PageControl1.ActivePageIndex;          GikoSys.Setting.KuroutSettingTabIndex := PageControl1.ActivePageIndex;
226        // 関連キーワード追加フラグ
227        GikoSys.Setting.AddKeywordLink := AddKeywordCheckBox.Checked;
228        // 誤反応対策
229        GikoSys.Setting.ReplaceDat := ReplaceDatCheckBox.Checked;
230        GikoSys.Setting.SentIniFileSize := SentIniFileSizeUpDown.Position;
231        GikoSys.Setting.ExtList := ExtListLabeledEdit.Text;
232        // Folder.idx読み込み時datチェック
233        GikoSys.Setting.CheckDatFile := CheckDatFileCheckBox.Checked;
234    
235        GikoSys.Setting.RespopupDeltaX := StrToInt(DeltaXLabeledEdit.Text);
236        GikoSys.Setting.RespopupDeltaY := StrToInt(DeltaYLabeledEdit.Text);
237        GikoSys.Setting.RespopupWait := StrToInt(RespopupWaitLabeledEdit.Text);
238        GikoForm.ResPopupClearTimer.Interval := GikoSys.Setting.RespopupWait;
239        GikoSys.Setting.RespopupMailTo := RespopupMailToCheckBox.Checked;
240        // 誤爆チェック
241        GikoSys.Setting.UseGobakuCheck := UseGobakuCheckBox.Checked;
242    
243  end;  end;
244    
245  procedure TKuroutOption.RecvBufferSizeExit(Sender: TObject);  procedure TKuroutOption.RecvBufferSizeExit(Sender: TObject);
# Line 152  procedure TKuroutOption.OkBottonClick(Se Line 268  procedure TKuroutOption.OkBottonClick(Se
268  begin  begin
269          RecvBufferSizeExit(Sender);          RecvBufferSizeExit(Sender);
270          PostTimeEditExit(Sender);          PostTimeEditExit(Sender);
271        MoveHistoryMaxEditExit(Sender);
272        AHandredLabeledEditExit(Sender);
273        ExtListLabeledEditExit(Sender);
274        DeltaXLabeledEditExit(Sender);
275        DeltaYLabeledEditExit(Sender);
276        RespopupWaitLabeledEditExit(Sender);
277      PostColumnData();      PostColumnData();
278          SaveSetting;          SaveSetting;
279  end;  end;
# Line 348  begin Line 470  begin
470          //スレ一覧の描画の更新          //スレ一覧の描画の更新
471          GikoForm.SetActiveList(GikoForm.ActiveList);          GikoForm.SetActiveList(GikoForm.ActiveList);
472  end;  end;
473    // リンク移動履歴の編集後の設定文字列チェック
474    procedure TKuroutOption.MoveHistoryMaxEditExit(Sender: TObject);
475    begin
476            if not GikoSys.IsNumeric(MoveHistoryMaxEdit.Text) then
477                    MoveHistoryMaxEdit.Text := '20';
478        if StrToInt(MoveHistoryMaxEdit.Text) < 1 then
479            MoveHistoryMaxEdit.Text := '1';
480    end;
481    // 先頭表示レス数の編集後の設定文字列チェック
482    procedure TKuroutOption.AHandredLabeledEditExit(Sender: TObject);
483    begin
484            if not GikoSys.IsNumeric(AHandredLabeledEdit.Text) then
485                    AHandredLabeledEdit.Text := '1';
486        if StrToInt(AHandredLabeledEdit.Text) < 1 then
487            AHandredLabeledEdit.Text := '1';
488    
489    end;
490    
491    procedure TKuroutOption.ExtListLabeledEditExit(Sender: TObject);
492    begin
493        if AnsiEndsStr(';', ExtListLabeledEdit.Text) then begin
494            ExtListLabeledEdit.Text :=
495                Copy(ExtListLabeledEdit.Text, 0,
496                    Length(ExtListLabeledEdit.Text) - 1);
497        end;
498    end;
499    // レスポップアップ位置X
500    procedure TKuroutOption.DeltaXLabeledEditExit(Sender: TObject);
501    begin
502            if not GikoSys.IsNumeric(DeltaXLabeledEdit.Text) then
503                    DeltaXLabeledEdit.Text := IntToStr(GikoSys.Setting.RespopupDeltaX);
504        if StrToInt(DeltaXLabeledEdit.Text) < DeltaXUpDown.Min then
505            DeltaXLabeledEdit.Text := IntToStr(DeltaXUpDown.Min);
506        if StrToInt(DeltaXLabeledEdit.Text) > DeltaXUpDown.Max then
507            DeltaXLabeledEdit.Text:= IntToStr(DeltaXUpDown.Max);
508    end;
509    // レスポップアップ位置Y
510    procedure TKuroutOption.DeltaYLabeledEditExit(Sender: TObject);
511    begin
512            if not GikoSys.IsNumeric(DeltaYLabeledEdit.Text) then
513            DeltaYLabeledEdit.Text := IntToStr(GikoSys.Setting.RespopupDeltaY);
514        if StrToInt(DeltaYLabeledEdit.Text) < DeltaYUpDown.Min then
515            DeltaYLabeledEdit.Text := IntToStr(DeltaYUpDown.Min);
516        if StrToInt(DeltaYLabeledEdit.Text) > DeltaYUpDown.Max then
517            DeltaYLabeledEdit.Text := IntToStr(DeltaYUpDown.Max);
518    end;
519    
520    procedure TKuroutOption.RespopupWaitLabeledEditExit(Sender: TObject);
521    begin
522            if not GikoSys.IsNumeric(RespopupWaitLabeledEdit.Text) then
523                    RespopupWaitLabeledEdit.Text := IntToStr(GikoSys.Setting.RespopupWait);
524        if StrToInt(RespopupWaitLabeledEdit.Text) < RespopupWaitUpDown.Min then
525                    RespopupWaitLabeledEdit.Text := IntToStr(RespopupWaitUpDown.Min);
526        if StrToInt(RespopupWaitLabeledEdit.Text) > RespopupWaitUpDown.Max then
527                    RespopupWaitLabeledEdit.Text := IntToStr(RespopupWaitUpDown.Max);
528    end;
529    
530    procedure TKuroutOption.ResRangeLabeledEditExit(Sender: TObject);
531    begin
532            if not GikoSys.IsNumeric(ResRangeLabeledEdit.Text) then
533                    ResRangeLabeledEdit.Text := '100';
534        if StrToInt(ResRangeLabeledEdit.Text) < 100 then
535            ResRangeLabeledEdit.Text := '100';
536        if StrToInt(ResRangeLabeledEdit.Text) > 9999 then
537            ResRangeLabeledEdit.Text := '9999';
538    end;
539    
540  end.  end.

Legend:
Removed from v.1.2.2.2  
changed lines
  Added in v.1.21

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