Class TTextMacros (unit textmacr) |
Inherits from
TComponent
constructor Create(AOwner : TComponent);
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
property EditControl : TCustomEdit
property Strings : TStrings
FEditControl : TCustomEdit;
Edit Control
FEditWndProcAdd : Pointer;
the addres of the EditControl wndproc
FStrings : TStrings;
Macros
ObjectInstance : Pointer;
instance for EditWndProc
constructor Create(AOwner : TComponent);
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
property EditControl : TCustomEdit
property Strings : TStrings
FEditControl : TCustomEdit;
Edit Control
FEditWndProcAdd : Pointer;
the addres of the EditControl wndproc
FStrings : TStrings;
Macros
ObjectInstance : Pointer;
instance for EditWndProc