Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Option.pas

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

revision 1.73 by h677, Wed Mar 30 14:09:02 2005 UTC revision 1.73.2.2 by h677, Sun Jun 5 14:28:30 2005 UTC
# Line 195  type Line 195  type
195                  Label8: TLabel;                  Label8: TLabel;
196      BeCodeEdit: TEdit;      BeCodeEdit: TEdit;
197                  BeAutoLoginCheckBox: TCheckBox;                  BeAutoLoginCheckBox: TCheckBox;
198        GroupBox19: TGroupBox;
199        Label17: TLabel;
200        MaxRecordCountEdit: TEdit;
201        Label18: TLabel;
202                  procedure FormCreate(Sender: TObject);                  procedure FormCreate(Sender: TObject);
203                  procedure FormDestroy(Sender: TObject);                  procedure FormDestroy(Sender: TObject);
204                  procedure ApplyButtonClick(Sender: TObject);                  procedure ApplyButtonClick(Sender: TObject);
# Line 243  type Line 247  type
247                  procedure OddResNumCheckBoxClick(Sender: TObject);                  procedure OddResNumCheckBoxClick(Sender: TObject);
248                  procedure ResRangeHoldCheckBoxClick(Sender: TObject);                  procedure ResRangeHoldCheckBoxClick(Sender: TObject);
249                  procedure CroutOptionClick(Sender: TObject);                  procedure CroutOptionClick(Sender: TObject);
250        procedure MaxRecordCountEditExit(Sender: TObject);
251          private          private
252                  { Private 宣言 }                  { Private 宣言 }
253                  FClose: Boolean;                  FClose: Boolean;
# Line 270  var Line 275  var
275  implementation  implementation
276    
277  uses  uses
278          Giko, Editor, Setting, ActnList, KuroutSetting;          Giko, Editor, Setting, ActnList, KuroutSetting, Math;
279    
280  const  const
281          FONT_TEXT: string = '%s %d pt';          FONT_TEXT: string = '%s %d pt';
# Line 338  begin Line 343  begin
343          ReadPortEditExit(Sender);          ReadPortEditExit(Sender);
344          WritePortEditExit(Sender);          WritePortEditExit(Sender);
345          AddressHistoryCountEditExit(Sender);          AddressHistoryCountEditExit(Sender);
346        MaxRecordCountEditExit(Sender);
347          PreviewWaitEditExit(Sender);          PreviewWaitEditExit(Sender);
348    
349          if not CheckFolder then begin          if not CheckFolder then begin
# Line 355  begin Line 361  begin
361          ReadPortEditExit(Sender);          ReadPortEditExit(Sender);
362          WritePortEditExit(Sender);          WritePortEditExit(Sender);
363          AddressHistoryCountEditExit(Sender);          AddressHistoryCountEditExit(Sender);
364            MaxRecordCountEditExit(Sender);
365          PreviewWaitEditExit(Sender);          PreviewWaitEditExit(Sender);
366    
367          if not CheckFolder then begin          if not CheckFolder then begin
# Line 849  begin Line 856  begin
856          BeUserIDEdit.Text := GikoSys.Setting.BeUserID;          BeUserIDEdit.Text := GikoSys.Setting.BeUserID;
857          BeCodeEdit.Text := GikoSys.Setting.BeCode;          BeCodeEdit.Text := GikoSys.Setting.BeCode;
858          BeAutoLoginCheckBox.Checked := GikoSys.Setting.BeAutoLogin;          BeAutoLoginCheckBox.Checked := GikoSys.Setting.BeAutoLogin;
859            //履歴の最大保存数
860            MaxRecordCountEdit.Text := IntToStr(GikoSys.Setting.MaxRecordCount);
861  end;  end;
862    
863  procedure TOptionDialog.SaveSetting;  procedure TOptionDialog.SaveSetting;
# Line 1127  begin Line 1136  begin
1136          //Be2ch          //Be2ch
1137          GikoSys.Setting.BeUserID := BeUserIDEdit.Text;          GikoSys.Setting.BeUserID := BeUserIDEdit.Text;
1138          GikoSys.Setting.BeCode := BeCodeEdit.Text;          GikoSys.Setting.BeCode := BeCodeEdit.Text;
1139          GikoSys.Setting.BeAutoLogin := BeAutoLoginCheckBox.Checked;                  GikoSys.Setting.BeAutoLogin := BeAutoLoginCheckBox.Checked;
1140            //履歴の最大保存数
1141            GikoSys.Setting.MaxRecordCount := Max(StrToInt64Def(MaxRecordCountEdit.Text,100),1);
1142  end;  end;
1143    
1144  procedure TOptionDialog.SettingApply;  procedure TOptionDialog.SettingApply;
# Line 1492  begin Line 1503  begin
1503          end;          end;
1504    
1505          Board := TBoard.Create( nil, 'about://sample/' );          Board := TBoard.Create( nil, 'about://sample/' );
1506          ThreadItem := TThreadItem.Create( nil, 'about://sample/test/read.cgi/sample/' );          ThreadItem := TThreadItem.Create( nil, Board, 'about://sample/test/read.cgi/sample/' );
1507    
1508          try          try
1509                  Board.Title := 'サンプル板';                  Board.Title := 'サンプル板';
# Line 1628  begin Line 1639  begin
1639          end;          end;
1640  end;  end;
1641    
1642    procedure TOptionDialog.MaxRecordCountEditExit(Sender: TObject);
1643    begin
1644            if not GikoSys.IsNumeric(MaxRecordCountEdit.Text) then
1645                    MaxRecordCountEdit.Text := '100'
1646            else if StrToIntDef(MaxRecordCountEdit.Text, 100) <= 0 then
1647            MaxRecordCountEdit.Text := '1';
1648    end;
1649    
1650  end.  end.
1651    

Legend:
Removed from v.1.73  
changed lines
  Added in v.1.73.2.2

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