| Class THJBEdit (unit UHJBEdit) |
TEdit
***********************************************************************\ Enhanced TEdit component. Added two properties : BorderFocusColor - Color of the Border when the edit has the Focus BorderColor - Standard Color of the Border This is absolutely Freeware, enjoy! If you like it, have suggestions or what ever, send me a mail... <<< e-mail : herbertjb@compuserve.com >>> Copyright © 1997 by Herbert J. Beemster \
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
destructor Destroy;
procedure CMEnter(var Message: TCMEnter);
procedure CMExit(var Message: TCMExit);
procedure SetBorderColor( AColor : TColor);
procedure SetBorderFocusColor( AColor : TColor);
procedure WMPaint(var Message: TWMPaint);| Properties |
property AutoSelect :
property AutoSize :
property BorderColor : TColor
property BorderFocusColor : TColor
property CharCase :
property Color :
property DragCursor :
property DragMode :
property Enabled :
property Font :
property Height :
property HelpContext :
property HideSelection :
property Hint :
property Left :
property MaxLength :
property Name :
property OEMConvert :
property ParentColor :
property ParentCtl3D :
property ParentFont :
property ParentShowHint :
property PasswordChar :
property PopupMenu :
property ReadOnly :
property ShowHint :
property TabOrder :
property TabStop :
property Tag :
property Text :
property Top :
property Visible :
property Width : | Events |
event OnChange :
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnEnter :
event OnExit :
event OnKeyDown :
event OnKeyPress :
event OnKeyUp :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp : | Variables |
FBorderColor : TColor;
FBorderFocusColor : TColor;
FCanvas : TCanvas;| Constructors |
constructor Create(AOwner: TComponent);| Functions |
destructor Destroy;Create
procedure CMEnter(var Message: TCMEnter);Destroy
procedure CMExit(var Message: TCMExit);
procedure SetBorderColor( AColor : TColor);WMPaint
procedure SetBorderFocusColor( AColor : TColor);SetBorderColor
procedure WMPaint(var Message: TWMPaint);| Properties |
property AutoSelect : Inherited properties and events...
property AutoSize :
property BorderColor : TColorNew properties...
property BorderFocusColor : TColor
property CharCase :
property Color :
property DragCursor :
property DragMode :
property Enabled :
property Font :
property Height :
property HelpContext :
property HideSelection :
property Hint :
property Left :
property MaxLength :
property Name :
property OEMConvert :
property ParentColor :
property ParentCtl3D :
property ParentFont :
property ParentShowHint :
property PasswordChar :
property PopupMenu :
property ReadOnly :
property ShowHint :
property TabOrder :
property TabStop :
property Tag :
property Text :
property Top :
property Visible :
property Width : | Events |
event OnChange :
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnEnter :
event OnExit :
event OnKeyDown :
event OnKeyPress :
event OnKeyUp :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp : | Variables |
FBorderColor : TColor;
FBorderFocusColor : TColor;
FCanvas : TCanvas;