home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1997 May
/
Pcwk0597.iso
/
delphi
/
jwrite.lzh
/
EXAMPLE
/
ABOUT.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1996-04-30
|
2KB
|
55 lines
(*-------------------------------------------------------------------------------------*)
(* *)
(* 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.