| Class TMainForm (unit Main) |
TForm
| Constructors |
| Functions |
procedure Area1Click(Sender: TObject);
procedure CaptureIcon1Click(Sender: TObject);
procedure CaptureWindowClick(Sender: TObject);
procedure CloseAll1Click(Sender: TObject);
procedure Components1Click(Sender: TObject);
procedure Contents1Click(Sender: TObject);
procedure CopyItemClick(Sender: TObject);
procedure Desktop1Click(Sender: TObject);
procedure Exit2Click(Sender: TObject);
procedure FileCloseItemClick(Sender: TObject);
procedure FileExitItemClick(Sender: TObject);
procedure FileNewItemClick(Sender: TObject);
procedure FileOpenItemClick(Sender: TObject);
procedure FileSaveAsItemClick(Sender: TObject);
procedure FileSaveItemClick(Sender: TObject);
procedure ForceClose1Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure HelpAboutItemClick(Sender: TObject);
procedure Information1Click(Sender: TObject);
procedure PasteItemClick(Sender: TObject);
procedure Print1Click(Sender: TObject);
procedure PrintSetup1Click(Sender: TObject);
procedure Register1Click(Sender: TObject);
procedure Rulers1Click(Sender: TObject);
procedure ShowConfig1Click(Sender: TObject);
procedure SpeedButton11Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SysHotKey1HotKey(Sender: TObject; Index: Integer);
procedure TileHorzontallyItemClick(Sender: TObject);
procedure TileVerticallyItemClick(Sender: TObject);
procedure ToolBars1Click(Sender: TObject);
procedure UpdateMenuItems(Sender: TObject);
procedure WindowArrangeItemClick(Sender: TObject);
procedure WindowCascadeItemClick(Sender: TObject);
procedure WindowMinimizeItemClick(Sender: TObject);
procedure WindowNextItemClick(Sender: TObject);
procedure WindowPreviousItemClick(Sender: TObject);
procedure WinRoller1Roller(Sender: TObject; mode: TRollerMode);
procedure wmHandleMessages(var Msg : TMsg; var Handled : Boolean);
procedure XToolBar1DockChanged(Sender: TObject);
procedure XToolBar2DockChanged(Sender: TObject);
procedure XToolBar3DockChanged(Sender: TObject);
procedure XToolBar4DockChanged(Sender: TObject);
procedure XToolBar5DockChanged(Sender: TObject);
procedure CaptureArea;
procedure CaptureIcon;
procedure CaptureWindow;
procedure CreateConfigEntry;
procedure CreateMDIChild(const Name: string);
procedure Delay(msecs:integer);
function ReadConfigInfo: boolean;
procedure ShowHint(Sender: TObject);| Properties |
| Events |
| Variables |
Area1 : TMenuItem;
CaptureIcon1 : TMenuItem;
CaptureWindoworControl1 : TMenuItem;
CloseAll1 : TMenuItem;
Components1 : TMenuItem;
Contents1 : TMenuItem;
CopyBtn : TSpeedButton;
CopyItem : TMenuItem;
Desktop1 : TMenuItem;
Docks1 : TDocks;
Docks2 : TDocks;
Docks3 : TDocks;
Docks4 : TDocks;
EditMnu1 : TMenuItem;
ExitBtn : TSpeedButton;
File1 : TMenuItem;
FileCloseItem : TMenuItem;
FileExitItem : TMenuItem;
FileNewItem : TMenuItem;
FileOpenItem : TMenuItem;
FileSaveAsItem : TMenuItem;
FileSaveItem : TMenuItem;
ForceClose1 : TMenuItem;
Help1 : TMenuItem;
HelpAboutItem : TMenuItem;
Image1 : TMenuItem;
Information1 : TMenuItem;
MainMenu1 : TMainMenu;
N3 : TMenuItem;
N4 : TMenuItem;
N6 : TMenuItem;
OpenBtn : TSpeedButton;
OpenDialog1 : TOpenDialog;
PasteBtn : TSpeedButton;
PasteItem : TMenuItem;
Preferences1 : TMenuItem;
Print1 : TMenuItem;
PrintDialog1 : TPrintDialog;
PrinterSetupDialog1 : TPrinterSetupDialog;
PrintSetup1 : TMenuItem;
Register1 : TMenuItem;
Rulers1 : TMenuItem;
SaveBtn : TSpeedButton;
SaveDialog1 : TSaveDialog;
ShowConfig1 : TMenuItem;
SpeedButton1 : TSpeedButton;
SpeedButton12 : TSpeedButton;
SpeedButton15 : TSpeedButton;
SpeedButton16 : TSpeedButton;
SpeedButton17 : TSpeedButton;
SpeedButton18 : TSpeedButton;
SpeedButton2 : TSpeedButton;
SpeedButton22 : TSpeedButton;
SpeedButton23 : TSpeedButton;
SpeedButton28 : TSpeedButton;
SpeedButton3 : TSpeedButton;
SpeedButton32 : TSpeedButton;
SpeedButton33 : TSpeedButton;
SpeedButton4 : TSpeedButton;
SpeedButton8 : TSpeedButton;
SpeedButton9 : TSpeedButton;
StatusBar : TStatusBar;
SysHotKey1 : TSysHotKey;
TileHorzontallyItem : TMenuItem;
TileVerticallyItem : TMenuItem;
ToolBars1 : TMenuItem;
Window1 : TMenuItem;
WindowArrangeItem : TMenuItem;
WindowCascadeItem : TMenuItem;
WindowMinimizeItem : TMenuItem;
WindowNextItem : TMenuItem;
WindowPreviousItem : TMenuItem;
WinRoller1 : TWinRoller;
XToolBar1 : TXToolBar;
XToolBar2 : TXToolBar;
XToolBar3 : TXToolBar;
XToolBar4 : TXToolBar;
XToolBar5 : TXToolBar;
ABitmap : TBitmap;
AutoSave : Boolean;
Child : TMDIChild;
CompanyName : String;
CreateTime : TDateTime;
DelayTime : Integer;
FilePath : String;
InstallPath : String;
Password : String;
ProgOptEnabled : Boolean;
SerialNumber : Str32;
UserName : String;
FSetDefault : Boolean;| Constructors |
| Functions |
procedure Area1Click(Sender: TObject);==============================================================================
procedure CaptureIcon1Click(Sender: TObject);==============================================================================
procedure CaptureWindowClick(Sender: TObject);==============================================================================
procedure CloseAll1Click(Sender: TObject);==============================================================================
procedure Components1Click(Sender: TObject);==============================================================================
procedure Contents1Click(Sender: TObject);
procedure CopyItemClick(Sender: TObject);==============================================================================
procedure Desktop1Click(Sender: TObject);==============================================================================
procedure Exit2Click(Sender: TObject);==============================================================================
procedure FileCloseItemClick(Sender: TObject);==============================================================================
procedure FileExitItemClick(Sender: TObject);==============================================================================
procedure FileNewItemClick(Sender: TObject);==============================================================================
procedure FileOpenItemClick(Sender: TObject);==============================================================================
procedure FileSaveAsItemClick(Sender: TObject);==============================================================================
procedure FileSaveItemClick(Sender: TObject);==============================================================================
procedure ForceClose1Click(Sender: TObject);==============================================================================
procedure FormActivate(Sender: TObject);==============================================================================
procedure FormClose(Sender: TObject; var Action: TCloseAction);==============================================================================
procedure FormCreate(Sender: TObject);==============================================================================
procedure FormDestroy(Sender: TObject);==============================================================================
procedure HelpAboutItemClick(Sender: TObject);==============================================================================
procedure Information1Click(Sender: TObject);==============================================================================
procedure PasteItemClick(Sender: TObject);==============================================================================
procedure Print1Click(Sender: TObject);==============================================================================
procedure PrintSetup1Click(Sender: TObject);==============================================================================
procedure Register1Click(Sender: TObject);==============================================================================
procedure Rulers1Click(Sender: TObject);==============================================================================
procedure ShowConfig1Click(Sender: TObject);==============================================================================
procedure SpeedButton11Click(Sender: TObject);==============================================================================
procedure SpeedButton4Click(Sender: TObject);==============================================================================
procedure SysHotKey1HotKey(Sender: TObject; Index: Integer);==============================================================================
procedure TileHorzontallyItemClick(Sender: TObject);==============================================================================
procedure TileVerticallyItemClick(Sender: TObject);==============================================================================
procedure ToolBars1Click(Sender: TObject);==============================================================================
procedure UpdateMenuItems(Sender: TObject);==============================================================================
procedure WindowArrangeItemClick(Sender: TObject);==============================================================================
procedure WindowCascadeItemClick(Sender: TObject);==============================================================================
procedure WindowMinimizeItemClick(Sender: TObject);==============================================================================
procedure WindowNextItemClick(Sender: TObject);==============================================================================
procedure WindowPreviousItemClick(Sender: TObject);==============================================================================
procedure WinRoller1Roller(Sender: TObject; mode: TRollerMode);==============================================================================
procedure wmHandleMessages(var Msg : TMsg; var Handled : Boolean);==============================================================================
procedure XToolBar1DockChanged(Sender: TObject);==============================================================================
procedure XToolBar2DockChanged(Sender: TObject);==============================================================================
procedure XToolBar3DockChanged(Sender: TObject);==============================================================================
procedure XToolBar4DockChanged(Sender: TObject);==============================================================================
procedure XToolBar5DockChanged(Sender: TObject);==============================================================================
procedure CaptureArea;==============================================================================
procedure CaptureIcon;==============================================================================
procedure CaptureWindow;==============================================================================
procedure CreateConfigEntry;==============================================================================
procedure CreateMDIChild(const Name: string);==============================================================================
procedure Delay(msecs:integer);==============================================================================
function ReadConfigInfo: boolean;==============================================================================
procedure ShowHint(Sender: TObject);==============================================================================
| Properties |
| Events |
| Variables |
Area1 : TMenuItem;
CaptureIcon1 : TMenuItem;
CaptureWindoworControl1 : TMenuItem;
CloseAll1 : TMenuItem;
Components1 : TMenuItem;
Contents1 : TMenuItem;
CopyBtn : TSpeedButton;
CopyItem : TMenuItem;
Desktop1 : TMenuItem;
Docks1 : TDocks;
Docks2 : TDocks;
Docks3 : TDocks;
Docks4 : TDocks;
EditMnu1 : TMenuItem;
ExitBtn : TSpeedButton;
File1 : TMenuItem;
FileCloseItem : TMenuItem;
FileExitItem : TMenuItem;
FileNewItem : TMenuItem;
FileOpenItem : TMenuItem;
FileSaveAsItem : TMenuItem;
FileSaveItem : TMenuItem;
ForceClose1 : TMenuItem;
Help1 : TMenuItem;
HelpAboutItem : TMenuItem;
Image1 : TMenuItem;
Information1 : TMenuItem;
MainMenu1 : TMainMenu;
N3 : TMenuItem;
N4 : TMenuItem;
N6 : TMenuItem;
OpenBtn : TSpeedButton;
OpenDialog1 : TOpenDialog;
PasteBtn : TSpeedButton;
PasteItem : TMenuItem;
Preferences1 : TMenuItem;
Print1 : TMenuItem;
PrintDialog1 : TPrintDialog;
PrinterSetupDialog1 : TPrinterSetupDialog;
PrintSetup1 : TMenuItem;
Register1 : TMenuItem;
Rulers1 : TMenuItem;
SaveBtn : TSpeedButton;
SaveDialog1 : TSaveDialog;
ShowConfig1 : TMenuItem;
SpeedButton1 : TSpeedButton;
SpeedButton12 : TSpeedButton;
SpeedButton15 : TSpeedButton;
SpeedButton16 : TSpeedButton;
SpeedButton17 : TSpeedButton;
SpeedButton18 : TSpeedButton;
SpeedButton2 : TSpeedButton;
SpeedButton22 : TSpeedButton;
SpeedButton23 : TSpeedButton;
SpeedButton28 : TSpeedButton;
SpeedButton3 : TSpeedButton;
SpeedButton32 : TSpeedButton;
SpeedButton33 : TSpeedButton;
SpeedButton4 : TSpeedButton;
SpeedButton8 : TSpeedButton;
SpeedButton9 : TSpeedButton;
StatusBar : TStatusBar;
SysHotKey1 : TSysHotKey;
TileHorzontallyItem : TMenuItem;
TileVerticallyItem : TMenuItem;
ToolBars1 : TMenuItem;
Window1 : TMenuItem;
WindowArrangeItem : TMenuItem;
WindowCascadeItem : TMenuItem;
WindowMinimizeItem : TMenuItem;
WindowNextItem : TMenuItem;
WindowPreviousItem : TMenuItem;
WinRoller1 : TWinRoller;
XToolBar1 : TXToolBar;
XToolBar2 : TXToolBar;
XToolBar3 : TXToolBar;
XToolBar4 : TXToolBar;
XToolBar5 : TXToolBar;
ABitmap : TBitmap;Public declarations
AutoSave : Boolean;
Child : TMDIChild;
CompanyName : String;
CreateTime : TDateTime;
DelayTime : Integer;
FilePath : String;
InstallPath : String;
Password : String;
ProgOptEnabled : Boolean;
SerialNumber : Str32;
UserName : String;
FSetDefault : Boolean;Private declarations