www.pudn.com > yrsCapture.zip > CompDlg.pas

{******************************************************************************} 
{*                                                                            *} 
{*               Adirondack Software & Graphics CompDlg Unit                  *} 
{*         (C) Copyright Adirondack Software & Graphics 1997-1998             *} 
{*                                                                            *} 
{******************************************************************************} 
 
unit CompDlg; 
 
interface 
 
uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
  StdCtrls, Buttons, ExtCtrls, NetGradient; 
 
type                    
  TComp = class( TForm ) 
    Memo1: TMemo; 
    Bevel1: TBevel; 
    BitBtn1: TBitBtn; 
    NetGradient1: TNetGradient; 
    procedure BitBtn1Click( Sender: TObject ); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
var 
  Comp: TForm; 
 
implementation 
 
{$R *.DFM} 
 
{==============================================================================} 
procedure TComp.BitBtn1Click( Sender: TObject ); 
{==============================================================================} 
begin 
   Close; 
end; 
 
end.