Class THJBEdit (unit UHJBEdit)

Inherits from

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;

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 : TColor

New 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;



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 : TColor

New 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;