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.20 by h677, Sun Feb 15 03:42:10 2009 UTC revision 1.21 by h677, Tue Jun 2 16:00:22 2009 UTC
# Line 96  type Line 96  type
96      RespopupMailToCheckBox: TCheckBox;      RespopupMailToCheckBox: TCheckBox;
97      ResRangeLabeledEdit: TLabeledEdit;      ResRangeLabeledEdit: TLabeledEdit;
98      ResRangeCountUpDown: TUpDown;      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 183  begin Line 184  begin
184      DeltaYUpDown.Position := GikoSys.Setting.RespopupDeltaY;      DeltaYUpDown.Position := GikoSys.Setting.RespopupDeltaY;
185      RespopupWaitUpDown.Position := GikoSys.Setting.RespopupWait;      RespopupWaitUpDown.Position := GikoSys.Setting.RespopupWait;
186      RespopupMailToCheckBox.Checked := GikoSys.Setting.RespopupMailTo;      RespopupMailToCheckBox.Checked := GikoSys.Setting.RespopupMailTo;
187        // 誤爆チェック
188        UseGobakuCheckBox.Checked := GikoSys.Setting.UseGobakuCheck;
189  end;  end;
190    
191  procedure TKuroutOption.SaveSetting;  procedure TKuroutOption.SaveSetting;
# Line 234  begin Line 237  begin
237      GikoSys.Setting.RespopupWait := StrToInt(RespopupWaitLabeledEdit.Text);      GikoSys.Setting.RespopupWait := StrToInt(RespopupWaitLabeledEdit.Text);
238      GikoForm.ResPopupClearTimer.Interval := GikoSys.Setting.RespopupWait;      GikoForm.ResPopupClearTimer.Interval := GikoSys.Setting.RespopupWait;
239      GikoSys.Setting.RespopupMailTo := RespopupMailToCheckBox.Checked;      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);

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

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