Class TWienieMacro (unit ListUnit) |
Inherits from
TForm
true when user presses CTRL-key
procedure About1Click(Sender: TObject);
procedure AddClick(Sender: TObject);
procedure Apply1Click(Sender: TObject);
procedure Close1Click(Sender: TObject);
procedure DelClick(Sender: TObject);
Save Items, and add them to the PopupMenu
procedure DoAction(Sender: TObject);
process macro
procedure Exit1Click(Sender: TObject);
get rid of hook and library
procedure FastLeftClick(Sender: TObject);
if the caps lock key was on at start, turn it back on
procedure FastRightClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure Help2Click(Sender: TObject);
procedure Hide1Click(Sender: TObject);
procedure LeftClick(Sender: TObject);
procedure Open1Click(Sender: TObject);
procedure Reload1Click(Sender: TObject);
procedure RightClick(Sender: TObject);
procedure SaveAs1Click(Sender: TObject);
procedure Show1Click(Sender: TObject);
procedure TaskIcon1LeftClick(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure TaskIcon1RightClick(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
read saved defaults
procedure Timer1Timer(Sender: TObject);
procedure WaitTimerTimer(Sender: TObject);
does anyone know a more elegant way to get the down-state of
the CTRL-key? I used getkeystate, but it did not work!
procedure MyAction(nr:integer);
process macro
procedure MyAction2(nr:integer);
updates the display with the current macro-keys to edit
procedure ReadIni(s:string);
activate macro-processing out of a menu-item
procedure SaveDisplay;
procedure SaveToFile(s:string);
procedure SendKeys(s : string);
procedure UpDateDisplay;
procedure wmHandleMessages(var Msg:TMsg;var Handled:Boolean);
About1 : TMenuItem;
Add : TToolButton;
Add1 : TMenuItem;
Apply1 : TMenuItem;
Close1 : TMenuItem;
CountLabel : TLabel;
Del : TToolButton;
Delete1 : TMenuItem;
Edit1 : TMenuItem;
Exit1 : TMenuItem;
FastLeft : TToolButton;
FastRight : TToolButton;
File1 : TMenuItem;
Help1 : TMenuItem;
Help2 : TMenuItem;
Hide : TToolButton;
Hide1 : TMenuItem;
HotKeyEdit : TEdit;
ImageList1 : TImageList;
Label1 : TLabel;
Label2 : TLabel;
Left : TToolButton;
MainMenu1 : TMainMenu;
Memo1 : TMemo;
MenuEdit : TEdit;
N1 : TMenuItem;
Open1 : TMenuItem;
OpenDialog1 : TOpenDialog;
PopupMenu1 : TPopupMenu;
Reload1 : TMenuItem;
Right : TToolButton;
SaveAs1 : TMenuItem;
SaveButton : TToolButton;
SaveDialog1 : TSaveDialog;
Show1 : TMenuItem;
space : TMenuItem;
TaskIcon1 : TTaskIcon;
Timer1 : TTimer;
ToolBar1 : TToolBar;
ToolButton1 : TToolButton;
ToolButton3 : TToolButton;
ToolButton4 : TToolButton;
WaitTimer : TTimer;
Window1 : TMenuItem;
WindowsList1 : TWindowsList;
CurrNr : Integer;
HotKeyItems : TStringList;
MenuItems : TStringList;
MyList : TList;
ProcessActive : boolean;
Public declarations
StartMenuCount : word;
procedure About1Click(Sender: TObject);
procedure AddClick(Sender: TObject);
procedure Apply1Click(Sender: TObject);
procedure Close1Click(Sender: TObject);
procedure DelClick(Sender: TObject);
Save Items, and add them to the PopupMenu
procedure DoAction(Sender: TObject);
process macro
procedure Exit1Click(Sender: TObject);
get rid of hook and library
procedure FastLeftClick(Sender: TObject);
if the caps lock key was on at start, turn it back on
procedure FastRightClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure Help2Click(Sender: TObject);
procedure Hide1Click(Sender: TObject);
procedure LeftClick(Sender: TObject);
procedure Open1Click(Sender: TObject);
procedure Reload1Click(Sender: TObject);
procedure RightClick(Sender: TObject);
procedure SaveAs1Click(Sender: TObject);
procedure Show1Click(Sender: TObject);
procedure TaskIcon1LeftClick(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure TaskIcon1RightClick(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
read saved defaults
procedure Timer1Timer(Sender: TObject);
procedure WaitTimerTimer(Sender: TObject);
does anyone know a more elegant way to get the down-state of
the CTRL-key? I used getkeystate, but it did not work!
procedure MyAction(nr:integer);
process macro
procedure MyAction2(nr:integer);
updates the display with the current macro-keys to edit
procedure ReadIni(s:string);
activate macro-processing out of a menu-item
procedure SaveDisplay;
procedure SaveToFile(s:string);
procedure SendKeys(s : string);
procedure UpDateDisplay;
procedure wmHandleMessages(var Msg:TMsg;var Handled:Boolean);
About1 : TMenuItem;
Add : TToolButton;
Add1 : TMenuItem;
Apply1 : TMenuItem;
Close1 : TMenuItem;
CountLabel : TLabel;
Del : TToolButton;
Delete1 : TMenuItem;
Edit1 : TMenuItem;
Exit1 : TMenuItem;
FastLeft : TToolButton;
FastRight : TToolButton;
File1 : TMenuItem;
Help1 : TMenuItem;
Help2 : TMenuItem;
Hide : TToolButton;
Hide1 : TMenuItem;
HotKeyEdit : TEdit;
ImageList1 : TImageList;
Label1 : TLabel;
Label2 : TLabel;
Left : TToolButton;
MainMenu1 : TMainMenu;
Memo1 : TMemo;
MenuEdit : TEdit;
N1 : TMenuItem;
Open1 : TMenuItem;
OpenDialog1 : TOpenDialog;
PopupMenu1 : TPopupMenu;
Reload1 : TMenuItem;
Right : TToolButton;
SaveAs1 : TMenuItem;
SaveButton : TToolButton;
SaveDialog1 : TSaveDialog;
Show1 : TMenuItem;
space : TMenuItem;
TaskIcon1 : TTaskIcon;
Timer1 : TTimer;
ToolBar1 : TToolBar;
ToolButton1 : TToolButton;
ToolButton3 : TToolButton;
ToolButton4 : TToolButton;
WaitTimer : TTimer;
Window1 : TMenuItem;
WindowsList1 : TWindowsList;
CurrNr : Integer;
HotKeyItems : TStringList;
MenuItems : TStringList;
MyList : TList;
ProcessActive : boolean;
Public declarations
StartMenuCount : word;