Class TForm1 (unit capture1)

Inherits from

TForm

Here is a simple Unit for a "capture" form. It launches a form with no border that covers the screen and copies the screen content to an internal bitmap, which it displays. You can hold down the left mouse button and drag a selection rectangle on screen. When the mouse button goes up again the form closes and control returns to the first form. There you could recover the coordinates of the drag rectangle and copy the appropriate section out of the fBMP bitmap of the capture form.

Constructors



Functions

procedure About1Click(Sender: TObject);


procedure Button2Click(Sender: TObject);

Code to capture a rectangular area of the screen

procedure Button3Click(Sender: TObject);


procedure Button5Click(Sender: TObject);


procedure Capturedesktop1Click(Sender: TObject);


procedure Capturerectangle1Click(Sender: TObject);


procedure Close2Click(Sender: TObject);


procedure Copy1Click(Sender: TObject);


procedure Desktop1Click(Sender: TObject);

Restore Apprehend32 to original state

procedure DesktopComboBox1Change(Sender: TObject);


procedure DesktopComboBox1Click(Sender: TObject);


procedure DesktopHotKeyComboBoxClick(Sender: TObject);


procedure Directories1Click(Sender: TObject);


procedure Exit1Click(Sender: TObject);


procedure FormActivate(Sender: TObject);


procedure FormCreate(Sender: TObject);

capturewindow false

procedure FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure HotKey1Exit(Sender: TObject);


procedure Open1Click(Sender: TObject);


procedure Print1Click(Sender: TObject);


procedure PrintSetup1Click(Sender: TObject);

finish printing

procedure Rectangle1Click(Sender: TObject);


procedure RectangleComboBox2Change(Sender: TObject);


procedure Save1Click(Sender: TObject);


procedure SpeedButton1Click(Sender: TObject);

Restore Apprehend32 to original state

procedure SpeedButton2Click(Sender: TObject);


procedure SpeedButton3Click(Sender: TObject);


procedure SpeedButton4Click(Sender: TObject);


procedure SpeedButton5Click(Sender: TObject);


procedure SpeedButton6Click(Sender: TObject);


procedure SpeedButton7Click(Sender: TObject);


procedure SpeedButton8Click(Sender: TObject);


procedure TabSet1Change(Sender: TObject; NewTab: Integer; var AllowChange: Boolean);

TabSet1.

procedure TabSet1Click(Sender: TObject);

Load image from memory stream

procedure DisplayHint(Sender: TObject);

display extended hint in statusbar

Procedure WMHandleMessages(var Msg : TMsg; var Handled : Boolean);

Menu item id's

Properties

Events

Variables

About1 : TMenuItem;


BalloonHint1 : TBalloonHint;


Capture1 : TMenuItem;


Capturedesktop1 : TMenuItem;


Capturerectangle1 : TMenuItem;


Close2 : TMenuItem;


Contents1 : TMenuItem;


Copy1 : TMenuItem;


Desktop1 : TMenuItem;


DesktopComboBox1 : TComboBox;


Directories1 : TMenuItem;


Edit1 : TMenuItem;


Exit1 : TMenuItem;


File1 : TMenuItem;


Help1 : TMenuItem;


Hotkeys1 : TMenuItem;


Image1 : TImage;


MainMenu1 : TMainMenu;


N1 : TMenuItem;


N3 : TMenuItem;


N4 : TMenuItem;


Notebook1 : TNotebook;


Open1 : TMenuItem;


OpenDialog1 : TOpenDialog;


Options1 : TMenuItem;


Panel2 : TPanel;


PopupMenu1 : TPopupMenu;


Print1 : TMenuItem;


PrintDialog1 : TPrintDialog;


PrinterSetupDialog1 : TPrinterSetupDialog;


PrintSetup1 : TMenuItem;


ProgressBar1 : TProgressBar;


Rectangle1 : TMenuItem;


RectangleComboBox2 : TComboBox;


Save1 : TMenuItem;


SaveAs1 : TMenuItem;


SaveDialog1 : TSaveDialog;


ScrollBox1 : TScrollBox;


SpeedButton1 : TSpeedButton;


SpeedButton2 : TSpeedButton;


SpeedButton3 : TSpeedButton;


SpeedButton4 : TSpeedButton;


SpeedButton5 : TSpeedButton;


SpeedButton6 : TSpeedButton;


SpeedButton7 : TSpeedButton;


SpeedButton8 : TSpeedButton;


StatusBar1 : TStatusBar;


TabSet1 : TTabSet;


VisualApp1 : TVisualApp;


CaptureNum : Integer;


CaptureWindow : Boolean;

Public declarations

Filename : String;


ScanNum : Integer;


Stream1 : TMemoryStream;


Tab : Integer;


DesktopShortCut : TShortCut;

Private declarations

RectangleShortCut : TShortCut;



Constructors


Functions


procedure About1Click(Sender: TObject);


procedure Button2Click(Sender: TObject);

Code to capture a rectangular area of the screen


procedure Button3Click(Sender: TObject);


procedure Button5Click(Sender: TObject);


procedure Capturedesktop1Click(Sender: TObject);


procedure Capturerectangle1Click(Sender: TObject);


procedure Close2Click(Sender: TObject);


procedure Copy1Click(Sender: TObject);


procedure Desktop1Click(Sender: TObject);

Restore Apprehend32 to original state


procedure DesktopComboBox1Change(Sender: TObject);


procedure DesktopComboBox1Click(Sender: TObject);


procedure DesktopHotKeyComboBoxClick(Sender: TObject);


procedure Directories1Click(Sender: TObject);


procedure Exit1Click(Sender: TObject);


procedure FormActivate(Sender: TObject);


procedure FormCreate(Sender: TObject);

capturewindow false


procedure FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure HotKey1Exit(Sender: TObject);


procedure Open1Click(Sender: TObject);


procedure Print1Click(Sender: TObject);


procedure PrintSetup1Click(Sender: TObject);

finish printing


procedure Rectangle1Click(Sender: TObject);


procedure RectangleComboBox2Change(Sender: TObject);


procedure Save1Click(Sender: TObject);


procedure SpeedButton1Click(Sender: TObject);

Restore Apprehend32 to original state


procedure SpeedButton2Click(Sender: TObject);


procedure SpeedButton3Click(Sender: TObject);


procedure SpeedButton4Click(Sender: TObject);


procedure SpeedButton5Click(Sender: TObject);


procedure SpeedButton6Click(Sender: TObject);


procedure SpeedButton7Click(Sender: TObject);


procedure SpeedButton8Click(Sender: TObject);


procedure TabSet1Change(Sender: TObject; NewTab: Integer; var AllowChange: Boolean);

TabSet1.Tabs.Add (Filename);


procedure TabSet1Click(Sender: TObject);

Load image from memory stream


procedure DisplayHint(Sender: TObject);

display extended hint in statusbar


Procedure WMHandleMessages(var Msg : TMsg; var Handled : Boolean);

Menu item id's


Properties


Events


Variables


About1 : TMenuItem;


BalloonHint1 : TBalloonHint;


Capture1 : TMenuItem;


Capturedesktop1 : TMenuItem;


Capturerectangle1 : TMenuItem;


Close2 : TMenuItem;


Contents1 : TMenuItem;


Copy1 : TMenuItem;


Desktop1 : TMenuItem;


DesktopComboBox1 : TComboBox;


Directories1 : TMenuItem;


Edit1 : TMenuItem;


Exit1 : TMenuItem;


File1 : TMenuItem;


Help1 : TMenuItem;


Hotkeys1 : TMenuItem;


Image1 : TImage;


MainMenu1 : TMainMenu;


N1 : TMenuItem;


N3 : TMenuItem;


N4 : TMenuItem;


Notebook1 : TNotebook;


Open1 : TMenuItem;


OpenDialog1 : TOpenDialog;


Options1 : TMenuItem;


Panel2 : TPanel;


PopupMenu1 : TPopupMenu;


Print1 : TMenuItem;


PrintDialog1 : TPrintDialog;


PrinterSetupDialog1 : TPrinterSetupDialog;


PrintSetup1 : TMenuItem;


ProgressBar1 : TProgressBar;


Rectangle1 : TMenuItem;


RectangleComboBox2 : TComboBox;


Save1 : TMenuItem;


SaveAs1 : TMenuItem;


SaveDialog1 : TSaveDialog;


ScrollBox1 : TScrollBox;


SpeedButton1 : TSpeedButton;


SpeedButton2 : TSpeedButton;


SpeedButton3 : TSpeedButton;


SpeedButton4 : TSpeedButton;


SpeedButton5 : TSpeedButton;


SpeedButton6 : TSpeedButton;


SpeedButton7 : TSpeedButton;


SpeedButton8 : TSpeedButton;


StatusBar1 : TStatusBar;


TabSet1 : TTabSet;


VisualApp1 : TVisualApp;


CaptureNum : Integer;


CaptureWindow : Boolean;

Public declarations


Filename : String;


ScanNum : Integer;


Stream1 : TMemoryStream;


Tab : Integer;


DesktopShortCut : TShortCut;

Private declarations


RectangleShortCut : TShortCut;