Subversion Repositories spacemission

Rev

Go to most recent revision | Blame | Last modification | View Log | RSS feed

  1. unit LevText;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls;
  8.  
  9. type
  10.   TTextForm = class(TForm)
  11.     ElPopupButton1: TButton;
  12.     Memo1: TMemo;
  13.     procedure Button1Click(Sender: TObject);
  14.     procedure FormShow(Sender: TObject);
  15.     procedure FormHide(Sender: TObject);
  16.   end;
  17.                                                            
  18. var
  19.   TextForm: TTextForm;
  20.  
  21. implementation
  22.  
  23. uses
  24.   LevMain;
  25.  
  26. {$R *.DFM}
  27.  
  28. procedure TTextForm.Button1Click(Sender: TObject);
  29. begin
  30.   close;
  31. end;
  32.  
  33. procedure TTextForm.FormShow(Sender: TObject);
  34. begin
  35.   mainform.dxtimer.enabled := false;
  36. end;
  37.  
  38. procedure TTextForm.FormHide(Sender: TObject);
  39. begin
  40.   mainform.dxtimer.enabled := true;
  41. end;
  42.  
  43. end.
  44.  
  45.