Subversion Repositories jumper

Rev

Rev 9 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 9 Rev 21
Line 30... Line 30...
30 
begin
 30 
begin
31 
  Close();
 31 
  Close();
32 
end;
 32 
end;
33 
 
 33 
 
34 
procedure THistoryForm.SaveBtnClick(Sender: TObject);
 34 
procedure THistoryForm.SaveBtnClick(Sender: TObject);
- 
 
 35 
resourcestring
- 
 
 36 
  LNG_SAVED = 'History successfully saved!';
35 
begin
 37 
begin
36 
  if JumpSaveDialog.Execute then
 38 
  if JumpSaveDialog.Execute then
37 
  begin
 39 
  begin
38 
    JumpMemo.Lines.SaveToFile(JumpSaveDialog.FileName);
 40 
    JumpMemo.Lines.SaveToFile(JumpSaveDialog.FileName);
39 
    MessageDlg(LNG_SAVED, mtInformation, [mbOk], 0);
 41 
    MessageDlg(LNG_SAVED, mtInformation, [mbOk], 0);