Class TBitCheckBox (unit BtChkBox)

Inherits from

TCustomControl

Constructors


constructor Create(AOwner: TComponent);

****************************************************************************} {** TBitCheckBox Public Methods ***********************************************} {


Functions

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


Properties

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 :


Events

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 :


Variables

fAlignment : TLeftRight;


fAllowGrayed : Boolean;


fCheckedBitmap : TBitmap;


fCheckedNumGlyphs : Integer;


fGrayedBitmap : TBitmap;


fGrayedNumGlyphs : Integer;


fState : TCheckBoxState;


fUncheckedBitmap : TBitmap;


fUncheckedNumGlyphs : Integer;



Constructors


constructor Create(AOwner: TComponent);

****************************************************************************} {** TBitCheckBox Public Methods ***********************************************} {


Functions


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


Properties


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 :


Events


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 :


Variables


fAlignment : TLeftRight;


fAllowGrayed : Boolean;


fCheckedBitmap : TBitmap;


fCheckedNumGlyphs : Integer;


fGrayedBitmap : TBitmap;


fGrayedNumGlyphs : Integer;


fState : TCheckBoxState;


fUncheckedBitmap : TBitmap;


fUncheckedNumGlyphs : Integer;