Class TMainForm (unit Main)

Inherits from

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;

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


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