Class TWienieMacro (unit ListUnit)

Inherits from

TForm

true when user presses CTRL-key

Constructors



Functions

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


Properties

Events

Variables

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;



Constructors


Functions


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


Properties


Events


Variables


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;