Class TMainForm (unit Main) |
Inherits from
TForm
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);
==============================================================================
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
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);
==============================================================================
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