Subversion Repositories jumper

Rev

Rev 1 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1 Rev 9
Line 34... Line 34...
34 
procedure THistoryForm.SaveBtnClick(Sender: TObject);
 34 
procedure THistoryForm.SaveBtnClick(Sender: TObject);
35 
begin
 35 
begin
36 
  if JumpSaveDialog.Execute then
 36 
  if JumpSaveDialog.Execute then
37 
  begin
 37 
  begin
38 
    JumpMemo.Lines.SaveToFile(JumpSaveDialog.FileName);
 38 
    JumpMemo.Lines.SaveToFile(JumpSaveDialog.FileName);
39 
    ShowMessage(LNG_SAVED);
 39 
    MessageDlg(LNG_SAVED, mtInformation, [mbOk], 0);
40 
  end;
 40 
  end;
41 
end;
 41 
end;
42 
 
 42 
 
43 
end.
 43 
end.