Subversion Repositories jumper

Rev

Rev 9 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1. unit History;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls;
  8.  
  9. type
  10.   THistoryForm = class(TForm)
  11.     JumpMemo: TMemo;
  12.     SaveBtn: TButton;
  13.     CloseBtn: TButton;
  14.     JumpSaveDialog: TSaveDialog;
  15.     procedure CloseBtnClick(Sender: TObject);
  16.     procedure SaveBtnClick(Sender: TObject);
  17.   end;
  18.  
  19. var
  20.   HistoryForm: THistoryForm;
  21.  
  22. implementation
  23.  
  24. {$R *.dfm}
  25.  
  26. uses
  27.   Constants;
  28.  
  29. procedure THistoryForm.CloseBtnClick(Sender: TObject);
  30. begin
  31.   Close();
  32. end;
  33.  
  34. procedure THistoryForm.SaveBtnClick(Sender: TObject);
  35. begin
  36.   if JumpSaveDialog.Execute then
  37.   begin
  38.     JumpMemo.Lines.SaveToFile(JumpSaveDialog.FileName);
  39.     ShowMessage(LNG_SAVED);
  40.   end;
  41. end;
  42.  
  43. end.
  44.