home *** CD-ROM | disk | FTP | other *** search
- (*-------------------------------------------------------------------------------------*)
- (* *)
- (* Unit: About *)
- (* *)
- (* Copyright McCallum Whyman Associates Ltd 1996 *)
- (* *)
- (* Version 1.0 *)
- (* *)
- (* Author: Tony Whyman *)
- (* *)
- (* Description: This module is part of the J-Write example application *)
- (* and defines the About Box form. *)
- (*-------------------------------------------------------------------------------------*)
-
- unit About;
-
- interface
-
- uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, StdCtrls,
- Buttons, ExtCtrls;
-
- type
- TAboutBox = class(TForm)
- Panel1: TPanel;
- OKButton: TBitBtn;
- Version: TLabel;
- Copyright: TLabel;
- Panel2: TPanel;
- Label1: TLabel;
- Bevel1: TBevel;
- Image1: TImage;
- procedure OKButtonClick(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
-
- var
- AboutBox: TAboutBox;
-
- implementation
-
- Uses dialogs;
-
- {$R *.DFM}
-
- procedure TAboutBox.OKButtonClick(Sender: TObject);
- begin
- Close
- end;
-
- end.
-
-