fullscrn.pas

Apprehend Screen Capture Component Version 4.2 A non-visible component to capture images. Freeware w

{******************************************************************************}
{*                                                                            *}
{*                        Adirondack Software & Graphics                      *}
{*                               FullScreen Unit                              *}
{*                                   Delphi 5                                 *}
{*          (C) Copyright Adirondack Software & Graphics 1996-2001            *}
{*                                                                            *}
{******************************************************************************}

unit fullscrn;

interface

uses SysUtils, Windows, Messages, Classes, Graphics, Controls, Comctrls,
   Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, G32_Image;

type
   TFullScreen = class( TForm )
      ScrollBox1: TScrollBox;
    Image32: TImage32;
      procedure ImageClick( Sender: TObject );
      procedure Image1KeyDown( Sender: TObject;var Key: Word;Shift: TShiftState );
      procedure FormKeyPress( Sender: TObject;var Key: Char );
   private
    { Private declarations }
   public
    { Public declarations }
   end;

var
   FullScreen: TFullScreen;

implementation

{$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.FormKeyPress( Sender: TObject;var Key: Char );
begin
   FullScreen.Close;
end;

end.