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.18 by h677, Wed Aug 22 15:04:23 2007 UTC revision 1.19 by h677, Wed Sep 19 15:07:26 2007 UTC
# Line 93  type Line 93  type
93      RespopupWaitLabeledEdit: TLabeledEdit;      RespopupWaitLabeledEdit: TLabeledEdit;
94      RespopupWaitUpDown: TUpDown;      RespopupWaitUpDown: TUpDown;
95      Label19: TLabel;      Label19: TLabel;
96        RespopupMailToCheckBox: TCheckBox;
97          procedure OkBottonClick(Sender: TObject);          procedure OkBottonClick(Sender: TObject);
98          procedure FormCreate(Sender: TObject);          procedure FormCreate(Sender: TObject);
99          procedure CDeleteButtonClick(Sender: TObject);          procedure CDeleteButtonClick(Sender: TObject);
# Line 176  begin Line 177  begin
177      DeltaXUpDown.Position := GikoSys.Setting.RespopupDeltaX;      DeltaXUpDown.Position := GikoSys.Setting.RespopupDeltaX;
178      DeltaYUpDown.Position := GikoSys.Setting.RespopupDeltaY;      DeltaYUpDown.Position := GikoSys.Setting.RespopupDeltaY;
179      RespopupWaitUpDown.Position := GikoSys.Setting.RespopupWait;      RespopupWaitUpDown.Position := GikoSys.Setting.RespopupWait;
180        RespopupMailToCheckBox.Checked := GikoSys.Setting.RespopupMailTo;
181  end;  end;
182    
183  procedure TKuroutOption.SaveSetting;  procedure TKuroutOption.SaveSetting;
# Line 226  begin Line 227  begin
227      GikoSys.Setting.RespopupDeltaY := StrToInt(DeltaYLabeledEdit.Text);      GikoSys.Setting.RespopupDeltaY := StrToInt(DeltaYLabeledEdit.Text);
228      GikoSys.Setting.RespopupWait := StrToInt(RespopupWaitLabeledEdit.Text);      GikoSys.Setting.RespopupWait := StrToInt(RespopupWaitLabeledEdit.Text);
229      GikoForm.ResPopupClearTimer.Interval := GikoSys.Setting.RespopupWait;      GikoForm.ResPopupClearTimer.Interval := GikoSys.Setting.RespopupWait;
230        GikoSys.Setting.RespopupMailTo := RespopupMailToCheckBox.Checked;
231  end;  end;
232    
233  procedure TKuroutOption.RecvBufferSizeExit(Sender: TObject);  procedure TKuroutOption.RecvBufferSizeExit(Sender: TObject);

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

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