root / delphi / HADP_Mar1997 / fishtank / clone / about.pas Created by zope. Last modified 2004-07-15 05:38:17. |
Filename | about.pas |
---|---|
Size | 731 |
Content-type | text/plain |
|
//============================================================================== // Unit: About // // Purpose: About box for Fishtank demo app. // // Copyright: 1997, Palladion Software //============================================================================== unit About; interface uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, Buttons, ExtCtrls; type TAboutBox = class(TForm) Panel1: TPanel; ProgramIcon: TImage; ProductName: TLabel; Version: TLabel; Copyright: TLabel; Comments: TLabel; OKButton: TButton; private { Private declarations } public { Public declarations } end; var AboutBox: TAboutBox; implementation {$R *.DFM} end.