Class TLiteCheckBox (unit LiteChk) |
Inherits from
TCustomCheckBox
litechk.pas TLiteCheckBox is an improved descendant of TCheckBox.
Additional features:
* It automagically sizes itself to just fit the text.
* It protects and sets to appropriate defaults these properties:
Alignment taRightJustify
Color clBtnFace
Ctl3D TRUE
Cursor crDefault
DragCursor crDrag
Height Calculated from actual text height
ParentColor TRUE
ParentCtl3D TRUE
ShowAccelChar TRUE
Width Calculated from actual text width
REVISION HISTORY
2 Dec 1996 rdk Original version written
END OF HISTORY
constructor Create( owner: TComponent );
destructor Destroy;
VCL Registration function.
procedure Invalidate;
overridden public methods allow space for the height of the checkbox
procedure Repaint;
procedure Update;
MessageDlg( Format( '%s: Invalidate()', [ Name ] ), mtinformation,[mbok],0);
procedure ResizeMe;
property AllowGrayed :
properties we will allow the user to use
property Caption :
property Checked :
property Enabled :
property Font :
property HelpContext :
property Hint :
property Left :
property Name :
property ParentShowHint :
property PopupMenu :
property ShowHint :
property State :
property TabOrder :
property TabStop :
property Tag :
property Top :
property Visible :
event OnClick :
we publish all events -- who are we to say .
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnEnter :
event OnExit :
event OnKeyDown :
event OnKeyPress :
event OnKeyUp :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
constructor Create( owner: TComponent );
destructor Destroy;
VCL Registration function.
procedure Invalidate;
overridden public methods
allow space for the height of the checkbox
procedure Repaint;
procedure Update;
MessageDlg( Format( '%s: Invalidate()', [ Name ] ), mtinformation,[mbok],0);
procedure ResizeMe;
property AllowGrayed :
properties we will allow the user to use
property Caption :
property Checked :
property Enabled :
property Font :
property HelpContext :
property Hint :
property Left :
property Name :
property ParentShowHint :
property PopupMenu :
property ShowHint :
property State :
property TabOrder :
property TabStop :
property Tag :
property Top :
property Visible :
event OnClick :
we publish all events -- who are we to say ...
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnEnter :
event OnExit :
event OnKeyDown :
event OnKeyPress :
event OnKeyUp :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :