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.14 by h677, Sun Feb 25 16:20:45 2007 UTC revision 1.15 by h677, Sat Apr 14 16:52:57 2007 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, ExtCtrls;    Dialogs, StdCtrls, ComCtrls, GikoSystem, GikoUtil, ExtCtrls, StrUtils;
8    
9  type  type
10    TKuroutOption = class(TForm)    TKuroutOption = class(TForm)
# Line 79  type Line 79  type
79      SentIniFileSizeUpDown: TUpDown;      SentIniFileSizeUpDown: TUpDown;
80      Label13: TLabel;      Label13: TLabel;
81      Label14: TLabel;      Label14: TLabel;
82        ExtListLabeledEdit: TLabeledEdit;
83        Label15: TLabel;
84          procedure OkBottonClick(Sender: TObject);          procedure OkBottonClick(Sender: TObject);
85          procedure FormCreate(Sender: TObject);          procedure FormCreate(Sender: TObject);
86          procedure CDeleteButtonClick(Sender: TObject);          procedure CDeleteButtonClick(Sender: TObject);
# Line 91  type Line 93  type
93      procedure BDownButtonClick(Sender: TObject);      procedure BDownButtonClick(Sender: TObject);
94      procedure MoveHistoryMaxEditExit(Sender: TObject);      procedure MoveHistoryMaxEditExit(Sender: TObject);
95      procedure AHandredLabeledEditExit(Sender: TObject);      procedure AHandredLabeledEditExit(Sender: TObject);
96        procedure ExtListLabeledEditExit(Sender: TObject);
97    private    private
98          { Private 宣言 }          { Private 宣言 }
99          procedure SetValue;          procedure SetValue;
# Line 152  begin Line 155  begin
155      // 誤反応対策      // 誤反応対策
156      ReplaceDatCheckBox.Checked := GikoSys.Setting.ReplaceDat;      ReplaceDatCheckBox.Checked := GikoSys.Setting.ReplaceDat;
157      SentIniFileSizeUpDown.Position := GikoSys.Setting.SentIniFileSize;      SentIniFileSizeUpDown.Position := GikoSys.Setting.SentIniFileSize;
158        ExtListLabeledEdit.Text := GikoSys.Setting.ExtList;
159  end;  end;
160    
161  procedure TKuroutOption.SaveSetting;  procedure TKuroutOption.SaveSetting;
# Line 193  begin Line 197  begin
197      // 誤反応対策      // 誤反応対策
198      GikoSys.Setting.ReplaceDat := ReplaceDatCheckBox.Checked;      GikoSys.Setting.ReplaceDat := ReplaceDatCheckBox.Checked;
199      GikoSys.Setting.SentIniFileSize := SentIniFileSizeUpDown.Position;      GikoSys.Setting.SentIniFileSize := SentIniFileSizeUpDown.Position;
200        GikoSys.Setting.ExtList := ExtListLabeledEdit.Text;
201  end;  end;
202    
203  procedure TKuroutOption.RecvBufferSizeExit(Sender: TObject);  procedure TKuroutOption.RecvBufferSizeExit(Sender: TObject);
# Line 223  begin Line 228  begin
228          PostTimeEditExit(Sender);          PostTimeEditExit(Sender);
229      MoveHistoryMaxEditExit(Sender);      MoveHistoryMaxEditExit(Sender);
230      AHandredLabeledEditExit(Sender);      AHandredLabeledEditExit(Sender);
231        ExtListLabeledEditExit(Sender);
232      PostColumnData();      PostColumnData();
233          SaveSetting;          SaveSetting;
234  end;  end;
# Line 437  begin Line 443  begin
443    
444  end;  end;
445    
446    procedure TKuroutOption.ExtListLabeledEditExit(Sender: TObject);
447    begin
448        if AnsiEndsStr(';', ExtListLabeledEdit.Text) then begin
449            ExtListLabeledEdit.Text :=
450                Copy(ExtListLabeledEdit.Text, 0,
451                    Length(ExtListLabeledEdit.Text) - 1);
452        end;
453    end;
454    
455  end.  end.

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

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