/trunk/History.pas |
---|
32,11 → 32,13 |
end; |
procedure THistoryForm.SaveBtnClick(Sender: TObject); |
resourcestring |
LNG_SAVED = 'History successfully saved!'; |
begin |
if JumpSaveDialog.Execute then |
begin |
JumpMemo.Lines.SaveToFile(JumpSaveDialog.FileName); |
ShowMessage(LNG_SAVED); |
MessageDlg(LNG_SAVED, mtInformation, [mbOk], 0); |
end; |
end; |