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

{******************************************************************************} 
{*                                                                            *} 
{*            Adirondack Software & Graphics FullScreen Unit                  *} 
{*         (C) Copyright Adirondack Software & Graphics 1996-1998             *} 
{*                                                                            *} 
{******************************************************************************} 
 
unit fullscrn; 
 
interface 
 
uses SysUtils, Windows, Messages, Classes, Graphics, Controls, Comctrls, 
Forms, Dialogs, StdCtrls, Buttons, ExtCtrls; 
 
type 
  TFullScreen = class( TForm ) 
    ScrollBox1: TScrollBox; 
    Image1: TImage; 
    procedure ImageClick( Sender: TObject ); 
    procedure Image1KeyDown( Sender: TObject; var Key: Word; Shift: TShiftState ); 
    procedure Image1Click( Sender: TObject ); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
var 
  FullScreen: TFullScreen; 
 
implementation 
 
uses Main; 
 
{$R *.DFM} 
 
{==============================================================================} 
procedure TFullScreen.ImageClick( Sender: TObject ); 
{==============================================================================} 
begin 
  FullScreen.Close; 
end; 
 
{==============================================================================} 
procedure TFullScreen.Image1KeyDown( Sender: TObject; var Key: Word; Shift: TShiftState ); 
{==============================================================================} 
begin 
  FullScreen.Close; 
end; 
 
{==============================================================================} 
procedure TFullScreen.Image1Click( Sender: TObject ); 
{==============================================================================} 
begin 
  FullScreen.Close; 
end; 
 
end.