| Class TTextMacros (unit textmacr) |
TComponent
| Constructors |
constructor Create(AOwner : TComponent);| Functions |
destructor Destroy;
procedure Notification(AComponent: TComponent; Operation: TOperation);
procedure EditWndProc(var Message: TMessage);
function GetMacroIndex(ch : Integer) : Integer;
procedure SetEditControl(Value : TCustomEdit);
procedure SetStrings(Value : TStrings);| Properties |
property EditControl : TCustomEdit
property Strings : TStrings| Events |
| Variables |
FEditControl : TCustomEdit;
FEditWndProcAdd : Pointer;
FStrings : TStrings;
ObjectInstance : Pointer;| 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