Class TEicMemo (unit Ef_Input)

Inherits from

TMemo

Constructors


constructor Create(AOwner: TComponent);



Functions

procedure AssignDefaultValue(Source: TPersistent);


procedure AssignValue(Source: TPersistent);


function CanClear:Boolean;


function CanCopy:Boolean;


function CanCut:Boolean;


function CanPaste:Boolean;


function CanSelectAll:Boolean;


function CanUndo:Boolean;


procedure ChangeWordWrap(SetOn:Boolean);

only accurate with System font!

procedure Clear;


procedure ClearModifyFlag;


procedure Copy2Printer;

faster than LoadFromFile} {Returns: 0 = Failed; 1 = Success; 2 = Partially loaded

as a security, just in case TFileStream fails


destructor Destroy;


function FileToMemo(const FileName:string):Integer;

faster than LoadFromStream} {Returns: 0 = Failed; 1 = Success; 2 = Partially loaded

procedure GetCursorPos(var Row,Col:Integer);


procedure MakeTextWrap;

This ensures that word wrap will really be used when activated

procedure RunTimeLoaded;


procedure ScrollToCaret;

Kept for compatibility purposes only

procedure SetCursorPos(Row,Col:Integer);

was CurrentCursorPos

procedure SetSelStart(AValue:Integer);


procedure SetTabStops(Tabs:array of TTab);

triggers OnCursorMove event

function StreamToMemo(Stream:TStream):Integer;

faster than SetTextStr

procedure TextToMemo(Value:PChar);


procedure ToggleInsMode;


procedure UndoEdit;


procedure Change;


procedure CheckOverwrite;


procedure CMFontChanged(var Msg:TMessage);


procedure DoCursorMove;


procedure DoEdited;


function GetCursorCol:Integer;


function GetCursorRow:Integer;


function GetDefaultValue:PChar;


function GetDefaultValueText:string;


function GetEditBoxText:PChar;


function GetValueText:string;


procedure KeyDown(var Key: Word; Shift: TShiftState);


procedure KeyUp(var Key: Word; Shift: TShiftState);


procedure Loaded;


procedure MouseUp(Button:TMouseButton; Shift:TShiftState; X,Y:Integer);


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


procedure SetCursorCol(AValue:Integer);


procedure SetCursorRow(AValue:Integer);


procedure SetDefaultValue(S:PChar);


procedure SetDefaultValueText(const S:string);


procedure SetEditBoxText(S:PChar);


procedure SetOverwrite(SetOn:Boolean);


procedure SetParent(AParent: TWinControl);

converts pixels to horizontal dialog units

procedure SetUpdatingField(SetOn:Boolean);


procedure SetUpdatingLines(SetOn:Boolean);


procedure SetValueText(const S:string);


procedure SetWinUndo(SetOn:Boolean);


procedure WmEnable(var Msg:TMessage);


procedure WmLButtonUp(var Msg:TWMLButtonUp);


procedure WmPaste(var Msg:TMessage);


Properties

property DispatchInsMode : Boolean


property OverwriteMode : Boolean


property UndoWhenEsc : Boolean


property WindowsUndo : Boolean


property CursorCol : Integer


property CursorRow : Integer


property DefaultValue : PChar


property DefaultValueText : string


property InputBoxMaster : TInputBoxMaster


property UndoBuffer : TUndoBuffer


property UpdatingField : Boolean


property UpdatingLines : Boolean


property Value : PChar


property ValueText : string


Events

event OnCursorMove : TNotifyEvent


event OnEdited : TNotifyEvent


Variables

FDispatchInsMode : Boolean;


FInputBoxMaster : TInputBoxMaster;


FKeepColor : Integer;


FLoneInsert : Boolean;


FOnCursorMove : TNotifyEvent;


FOnEdited : TNotifyEvent;


FOverwrite : Boolean;


FUndoBuffer : TUndoBuffer;


FUndoWhenEsc : Boolean;


FUpdatingField : Boolean;


FUpdatingLines : Boolean;


FWinUndo : Boolean;



Constructors


constructor Create(AOwner: TComponent);


Functions


procedure AssignDefaultValue(Source: TPersistent);


procedure AssignValue(Source: TPersistent);


function CanClear:Boolean;


function CanCopy:Boolean;


function CanCut:Boolean;


function CanPaste:Boolean;


function CanSelectAll:Boolean;


function CanUndo:Boolean;


procedure ChangeWordWrap(SetOn:Boolean);

only accurate with System font!


procedure Clear;


procedure ClearModifyFlag;


procedure Copy2Printer;

faster than LoadFromFile} {Returns: 0 = Failed; 1 = Success; 2 = Partially loaded

as a security, just in case TFileStream fails


destructor Destroy;


function FileToMemo(const FileName:string):Integer;

faster than LoadFromStream} {Returns: 0 = Failed; 1 = Success; 2 = Partially loaded


procedure GetCursorPos(var Row,Col:Integer);


procedure MakeTextWrap;

This ensures that word wrap will really be used when activated


procedure RunTimeLoaded;


procedure ScrollToCaret;

Kept for compatibility purposes only


procedure SetCursorPos(Row,Col:Integer);

was CurrentCursorPos


procedure SetSelStart(AValue:Integer);


procedure SetTabStops(Tabs:array of TTab);

triggers OnCursorMove event


function StreamToMemo(Stream:TStream):Integer;

faster than SetTextStr


procedure TextToMemo(Value:PChar);


procedure ToggleInsMode;


procedure UndoEdit;


procedure Change;


procedure CheckOverwrite;


procedure CMFontChanged(var Msg:TMessage);


procedure DoCursorMove;


procedure DoEdited;


function GetCursorCol:Integer;


function GetCursorRow:Integer;


function GetDefaultValue:PChar;


function GetDefaultValueText:string;


function GetEditBoxText:PChar;


function GetValueText:string;


procedure KeyDown(var Key: Word; Shift: TShiftState);


procedure KeyUp(var Key: Word; Shift: TShiftState);


procedure Loaded;


procedure MouseUp(Button:TMouseButton; Shift:TShiftState; X,Y:Integer);


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


procedure SetCursorCol(AValue:Integer);


procedure SetCursorRow(AValue:Integer);


procedure SetDefaultValue(S:PChar);


procedure SetDefaultValueText(const S:string);


procedure SetEditBoxText(S:PChar);


procedure SetOverwrite(SetOn:Boolean);


procedure SetParent(AParent: TWinControl);

converts pixels to horizontal dialog units


procedure SetUpdatingField(SetOn:Boolean);


procedure SetUpdatingLines(SetOn:Boolean);


procedure SetValueText(const S:string);


procedure SetWinUndo(SetOn:Boolean);


procedure WmEnable(var Msg:TMessage);


procedure WmLButtonUp(var Msg:TWMLButtonUp);


procedure WmPaste(var Msg:TMessage);


Properties


property DispatchInsMode : Boolean


property OverwriteMode : Boolean


property UndoWhenEsc : Boolean


property WindowsUndo : Boolean


property CursorCol : Integer


property CursorRow : Integer


property DefaultValue : PChar


property DefaultValueText : string


property InputBoxMaster : TInputBoxMaster


property UndoBuffer : TUndoBuffer


property UpdatingField : Boolean


property UpdatingLines : Boolean


property Value : PChar


property ValueText : string


Events


event OnCursorMove : TNotifyEvent


event OnEdited : TNotifyEvent


Variables


FDispatchInsMode : Boolean;


FInputBoxMaster : TInputBoxMaster;


FKeepColor : Integer;


FLoneInsert : Boolean;


FOnCursorMove : TNotifyEvent;


FOnEdited : TNotifyEvent;


FOverwrite : Boolean;


FUndoBuffer : TUndoBuffer;


FUndoWhenEsc : Boolean;


FUpdatingField : Boolean;


FUpdatingLines : Boolean;


FWinUndo : Boolean;