| Class TsCustomEdit (unit sToolsEdit) |
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);
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);
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;