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
\
constructor Create(AOwner: TComponent);
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);
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 :
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 :
FBorderColor : TColor;
FBorderFocusColor : TColor;
FCanvas : TCanvas;
constructor Create(AOwner: TComponent);
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);
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 :
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 :
FBorderColor : TColor;
FBorderFocusColor : TColor;
FCanvas : TCanvas;