Class TsCustomEdit (unit sToolsEdit)

Inherits from

TCustomEdit

Constructors


constructor Create( AOwner: TComponent );



Functions

destructor Destroy;


procedure GetSel(var SelStart: Integer; var SelStop: Integer);


procedure SetSel(const SelStart, SelStop: Integer);


procedure ValidateEdit;


procedure CheckCursor;


procedure CreateParams(var Params: TCreateParams);


procedure DoEnter;


procedure DoExit;


function EditCanModify: Boolean;


function GetEditRect: TRect;


function IsValidChar(const Key: Char): Boolean;


procedure KeyPress(var Key: Char);


function NeedBorderRedraw: Boolean;


procedure PaintBorders(DC: HDC);


procedure PaintEdit(DC: HDC);


procedure Reset;


procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);


procedure SetCursor(Pos: Integer);


function Validate: Boolean;


procedure ValidateError;


procedure CMEnabledChanged (var Msg: TMessage);


procedure CMFontChanged (var Message: TMessage);


procedure CMMouseEnter(var Message: TMessage);

CM_EXIT;

procedure CMMouseLeave(var Message: TMessage);


procedure DrawDisabled(DC: HDC);


function GetBorderSize: Integer;


procedure RedrawBorder(DC: HDC);


procedure RedrawBorders;


procedure SetAlignment(Value: TAlignment);


procedure SetDefaultDraw(const Value: Boolean);


procedure SetDisabledFont(Value: TFont);


procedure SetFlat(const Value: Boolean);


procedure WMKillFocus(var Message: TMessage);

CM_ENTER; //Who can tell me, why sometime CM_ENTER is does not work ?

procedure WMPaint(var Message: TWMPaint);


procedure WMSetFocus(var Message: TMessage);


Properties

property Alignment : TAlignment


property DefaultDraw : Boolean


property DisabledFont : TFont


property Flat : Boolean


Events

Variables

FEditState : TsEditState;


FAlignment : TAlignment;


FColor : TColor;


FDefaultDraw : Boolean;


FDisabledFont : TFont;


FFlat : Boolean;


FOldFont : TFont;


FOldValue : String;


FParentColor : Boolean;



Constructors


constructor Create( AOwner: TComponent );


Functions


destructor Destroy;


procedure GetSel(var SelStart: Integer; var SelStop: Integer);


procedure SetSel(const SelStart, SelStop: Integer);


procedure ValidateEdit;


procedure CheckCursor;


procedure CreateParams(var Params: TCreateParams);


procedure DoEnter;


procedure DoExit;


function EditCanModify: Boolean;


function GetEditRect: TRect;


function IsValidChar(const Key: Char): Boolean;


procedure KeyPress(var Key: Char);


function NeedBorderRedraw: Boolean;


procedure PaintBorders(DC: HDC);


procedure PaintEdit(DC: HDC);


procedure Reset;


procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);


procedure SetCursor(Pos: Integer);


function Validate: Boolean;


procedure ValidateError;


procedure CMEnabledChanged (var Msg: TMessage);


procedure CMFontChanged (var Message: TMessage);


procedure CMMouseEnter(var Message: TMessage);

CM_EXIT;


procedure CMMouseLeave(var Message: TMessage);


procedure DrawDisabled(DC: HDC);


function GetBorderSize: Integer;


procedure RedrawBorder(DC: HDC);


procedure RedrawBorders;


procedure SetAlignment(Value: TAlignment);


procedure SetDefaultDraw(const Value: Boolean);


procedure SetDisabledFont(Value: TFont);


procedure SetFlat(const Value: Boolean);


procedure WMKillFocus(var Message: TMessage);

CM_ENTER; //Who can tell me, why sometime CM_ENTER is does not work ?


procedure WMPaint(var Message: TWMPaint);


procedure WMSetFocus(var Message: TMessage);


Properties


property Alignment : TAlignment


property DefaultDraw : Boolean


property DisabledFont : TFont


property Flat : Boolean


Events


Variables


FEditState : TsEditState;


FAlignment : TAlignment;


FColor : TColor;


FDefaultDraw : Boolean;


FDisabledFont : TFont;


FFlat : Boolean;


FOldFont : TFont;


FOldValue : String;


FParentColor : Boolean;