Class TTextMacros (unit textmacr)

Inherits from

TComponent

Constructors


constructor Create(AOwner : TComponent);



Functions

destructor Destroy;

Create Strings for text macros

procedure Notification(AComponent: TComponent; Operation: TOperation);

call the correct wndproc

procedure EditWndProc(var Message: TMessage);

our wndproc

function GetMacroIndex(ch : Integer) : Integer;

Free object instance

procedure SetEditControl(Value : TCustomEdit);

call SetEditControl procedure

procedure SetStrings(Value : TStrings);

Save the wndproc of the new EditControl and replace it by our own procedure

Properties

property EditControl : TCustomEdit


property Strings : TStrings


Events

Variables

FEditControl : TCustomEdit;

Edit Control

FEditWndProcAdd : Pointer;

the addres of the EditControl wndproc

FStrings : TStrings;

Macros

ObjectInstance : Pointer;

instance for EditWndProc


Constructors


constructor Create(AOwner : TComponent);


Functions


destructor Destroy;

Create Strings for text macros


procedure Notification(AComponent: TComponent; Operation: TOperation);

call the correct wndproc


procedure EditWndProc(var Message: TMessage);

our wndproc


function GetMacroIndex(ch : Integer) : Integer;

Free object instance


procedure SetEditControl(Value : TCustomEdit);

call SetEditControl procedure


procedure SetStrings(Value : TStrings);

Save the wndproc of the new EditControl and replace it by our own procedure


Properties


property EditControl : TCustomEdit


property Strings : TStrings


Events


Variables


FEditControl : TCustomEdit;

Edit Control


FEditWndProcAdd : Pointer;

the addres of the EditControl wndproc


FStrings : TStrings;

Macros


ObjectInstance : Pointer;

instance for EditWndProc