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.
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
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;
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
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;