Subversion Repositories spacemission

Rev

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

Rev Author Line No. Line
1 daniel-mar 1
unit SplText;
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
    OKBtn: 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
  SplMain;
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