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.19 by h677, Wed Sep 19 15:07:26 2007 UTC revision 1.20 by h677, Sun Feb 15 03:42:10 2009 UTC
# Line 94  type Line 94  type
94      RespopupWaitUpDown: TUpDown;      RespopupWaitUpDown: TUpDown;
95      Label19: TLabel;      Label19: TLabel;
96      RespopupMailToCheckBox: TCheckBox;      RespopupMailToCheckBox: TCheckBox;
97        ResRangeLabeledEdit: TLabeledEdit;
98        ResRangeCountUpDown: TUpDown;
99          procedure OkBottonClick(Sender: TObject);          procedure OkBottonClick(Sender: TObject);
100          procedure FormCreate(Sender: TObject);          procedure FormCreate(Sender: TObject);
101          procedure CDeleteButtonClick(Sender: TObject);          procedure CDeleteButtonClick(Sender: TObject);
# Line 110  type Line 112  type
112      procedure DeltaXLabeledEditExit(Sender: TObject);      procedure DeltaXLabeledEditExit(Sender: TObject);
113      procedure DeltaYLabeledEditExit(Sender: TObject);      procedure DeltaYLabeledEditExit(Sender: TObject);
114      procedure RespopupWaitLabeledEditExit(Sender: TObject);      procedure RespopupWaitLabeledEditExit(Sender: TObject);
115        procedure ResRangeLabeledEditExit(Sender: TObject);
116    private    private
117          { Private 宣言 }          { Private 宣言 }
118          procedure SetValue;          procedure SetValue;
# Line 166  begin Line 169  begin
169      MoveHistoryMaxEdit.Text := IntToStr( GikoSys.Setting.MoveHistorySize );      MoveHistoryMaxEdit.Text := IntToStr( GikoSys.Setting.MoveHistorySize );
170      // 先頭表示レス数      // 先頭表示レス数
171      AHandredUpDown.Position := GikoSys.Setting.HeadResCount;      AHandredUpDown.Position := GikoSys.Setting.HeadResCount;
172        // 表示レス数
173        ResRangeCountUpDown.Position := GikoSys.Setting.ResRangeExCount;
174      // 関連キーワード追加フラグ      // 関連キーワード追加フラグ
175      AddKeywordCheckBox.Checked := GikoSys.Setting.AddKeywordLink;      AddKeywordCheckBox.Checked := GikoSys.Setting.AddKeywordLink;
176      // 誤反応対策      // 誤反応対策
# Line 212  begin Line 217  begin
217      // 先頭表示レス数      // 先頭表示レス数
218      GikoSys.Setting.HeadResCount :=      GikoSys.Setting.HeadResCount :=
219          StrToIntDef( AHandredLabeledEdit.Text , 1);          StrToIntDef( AHandredLabeledEdit.Text , 1);
220        GikoSys.Setting.ResRangeExCount :=
221            StrToIntDef( ResRangeLabeledEdit.Text , 100 );
222          GikoSys.Setting.KuroutSettingTabIndex := PageControl1.ActivePageIndex;          GikoSys.Setting.KuroutSettingTabIndex := PageControl1.ActivePageIndex;
223      // 関連キーワード追加フラグ      // 関連キーワード追加フラグ
224      GikoSys.Setting.AddKeywordLink := AddKeywordCheckBox.Checked;      GikoSys.Setting.AddKeywordLink := AddKeywordCheckBox.Checked;
# Line 515  begin Line 521  begin
521                  RespopupWaitLabeledEdit.Text := IntToStr(RespopupWaitUpDown.Max);                  RespopupWaitLabeledEdit.Text := IntToStr(RespopupWaitUpDown.Max);
522  end;  end;
523    
524    procedure TKuroutOption.ResRangeLabeledEditExit(Sender: TObject);
525    begin
526            if not GikoSys.IsNumeric(ResRangeLabeledEdit.Text) then
527                    ResRangeLabeledEdit.Text := '100';
528        if StrToInt(ResRangeLabeledEdit.Text) < 100 then
529            ResRangeLabeledEdit.Text := '100';
530        if StrToInt(ResRangeLabeledEdit.Text) > 9999 then
531            ResRangeLabeledEdit.Text := '9999';
532    end;
533    
534  end.  end.

Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20

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