Class TBitCheckBox (unit BtChkBox) |
Inherits from
TCustomControl
constructor Create(AOwner: TComponent);
- ****************************************************************************} {** TBitCheckBox Public Methods ***********************************************} {
destructor Destroy;
procedure Toggle;
procedure Click;
Choose the correct bitmap.
procedure KeyPress(var Key: Char);
procedure Paint;
****************************************************************************} {** TBitCheckBox Protected Methods ********************************************} {
procedure CMCtl3DChanged(var Msg: TMessage);
procedure CMDialogChar(var Msg: TCMDialogChar);
procedure CMEnabledChanged(var Msg: TMessage);
procedure CMFontChanged(var Msg: TMessage);
procedure CMSysColorChange(var Msg: TMessage);
procedure CMTextChanged(var Msg: TMessage);
function GetChecked: Boolean;
procedure SetAlignment(Value: TLeftRight);
****************************************************************************} {** TBitCheckBox Private Methods **********************************************} {
procedure SetChecked(Value: Boolean);
procedure SetCheckedBitmap(Value: TBitmap);
procedure SetCheckedNumGlyphs(Value: Integer);
procedure SetGrayedBitmap(Value: TBitmap);
procedure SetGrayedNumGlyphs(Value: Integer);
procedure SetState(Value: TCheckBoxState);
procedure SetUncheckedBitmap(Value: TBitmap);
procedure SetUncheckedNumGlyphs(Value: Integer);
procedure WMKillFocus(var Message: TWMKillFocus);
procedure WMSetFocus(var Message: TWMSetFocus);
property Alignment : TLeftRight
property AllowGrayed : Boolean
property Caption :
property Checked : Boolean
property CheckedGlyph : TBitmap
property CheckedNumGlyphs : Integer
property Color :
property Ctl3D :
property DragCursor :
property DragMode :
property Enabled :
property Font :
property GrayedGlyph : TBitmap
property GrayedNumGlyphs : Integer
property ParentColor :
property ParentCtl3D :
property ParentFont :
property ParentShowHint :
property PopupMenu :
property ShowHint :
property State : TCheckBoxState
property TabOrder :
property TabStop :
property UncheckedGlyph : TBitmap
property UncheckedNumGlyphs : Integer
property Visible :
event OnClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnEnter :
event OnExit :
event OnKeyDown :
event OnKeyPress :
event OnKeyUp :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
event OnStartDrag :
fAlignment : TLeftRight;
fAllowGrayed : Boolean;
fCheckedBitmap : TBitmap;
fCheckedNumGlyphs : Integer;
fGrayedBitmap : TBitmap;
fGrayedNumGlyphs : Integer;
fState : TCheckBoxState;
fUncheckedBitmap : TBitmap;
fUncheckedNumGlyphs : Integer;
constructor Create(AOwner: TComponent);
****************************************************************************} {** TBitCheckBox Public Methods ***********************************************} {
destructor Destroy;
procedure Toggle;
procedure Click;
Choose the correct bitmap.} {If we're disabled choose the second bitmap.
procedure KeyPress(var Key: Char);
procedure Paint;
****************************************************************************} {** TBitCheckBox Protected Methods ********************************************} {
procedure CMCtl3DChanged(var Msg: TMessage);
procedure CMDialogChar(var Msg: TCMDialogChar);
procedure CMEnabledChanged(var Msg: TMessage);
procedure CMFontChanged(var Msg: TMessage);
procedure CMSysColorChange(var Msg: TMessage);
procedure CMTextChanged(var Msg: TMessage);
function GetChecked: Boolean;
procedure SetAlignment(Value: TLeftRight);
****************************************************************************} {** TBitCheckBox Private Methods **********************************************} {
procedure SetChecked(Value: Boolean);
procedure SetCheckedBitmap(Value: TBitmap);
procedure SetCheckedNumGlyphs(Value: Integer);
procedure SetGrayedBitmap(Value: TBitmap);
procedure SetGrayedNumGlyphs(Value: Integer);
procedure SetState(Value: TCheckBoxState);
procedure SetUncheckedBitmap(Value: TBitmap);
procedure SetUncheckedNumGlyphs(Value: Integer);
procedure WMKillFocus(var Message: TWMKillFocus);
procedure WMSetFocus(var Message: TWMSetFocus);
property Alignment : TLeftRight
property AllowGrayed : Boolean
property Caption :
property Checked : Boolean
property CheckedGlyph : TBitmap
property CheckedNumGlyphs : Integer
property Color :
property Ctl3D :
property DragCursor :
property DragMode :
property Enabled :
property Font :
property GrayedGlyph : TBitmap
property GrayedNumGlyphs : Integer
property ParentColor :
property ParentCtl3D :
property ParentFont :
property ParentShowHint :
property PopupMenu :
property ShowHint :
property State : TCheckBoxState
property TabOrder :
property TabStop :
property UncheckedGlyph : TBitmap
property UncheckedNumGlyphs : Integer
property Visible :
event OnClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnEnter :
event OnExit :
event OnKeyDown :
event OnKeyPress :
event OnKeyUp :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
event OnStartDrag :
fAlignment : TLeftRight;
fAllowGrayed : Boolean;
fCheckedBitmap : TBitmap;
fCheckedNumGlyphs : Integer;
fGrayedBitmap : TBitmap;
fGrayedNumGlyphs : Integer;
fState : TCheckBoxState;
fUncheckedBitmap : TBitmap;
fUncheckedNumGlyphs : Integer;