Class TJCheck (unit JCheck)

Inherits from

TCustomControl

Constructors


constructor Create(AOwner: TComponent);

Note: I am really sorry about the lack of comments and the poor coding style used here.


Functions

destructor Destroy;


procedure DoEnter;


procedure DoExit;


procedure DrawCheck (BL, BT, BR, BB : WORD);


procedure DrawCross (BL, BT, BR, BB : WORD);


procedure DrawVCheck (BL, BT, BR, BB : WORD);

Set the box size to be inside the bevel

function GetCaption: TCaption;

CheckBevelWidth

function GetChecked:Boolean;


procedure KeyDown(var Key:Word;Shift:TShiftSTate);


procedure KeyUp(var Key:Word;Shift:TShiftSTate);


procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure MouseMove(Shift: TShiftState;X, Y: Integer);


procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure Paint;


procedure SetCaption(const Value:TCaption);


procedure SetCheckBevelStyle(Value:TPanelBevel);


procedure SetCheckBevelWidth(Value:Word);


procedure SetCheckBoxWidth(Value:Word);


procedure SetCheckColor(Value:TColor);


procedure SetChecked(Value:Boolean);


procedure SetCheckedBitMap(Value:TBitMap);


procedure SetCheckType(Value:TCheckType);


procedure SetCheckWidth(Value:Word);


procedure SetDown(Value:Boolean);


procedure SetGrayedColor(Value:TColor);


procedure SetSizeToBitMap(Value:Boolean);


procedure SetState(Value:TCheckBoxState);


procedure SetStretchBitMaps(Value:Boolean);


procedure SetTextIndentSize(Value:Word);


procedure SetTransparentColor(Value:TColor);


procedure SetUnCheckedBitMap(Value:TBitMap);


Properties

property About : TAboutBoxObject


property Caption : TCaption


property CheckBevelStyle : TPanelBevel


property CheckBevelWidth : Word


property CheckBoxWidth : Word


property CheckColor : TColor


property Checked : Boolean


property CheckedBitMap : TBitMap


property CheckType : TCheckType


property CheckWidth : Word


property Color :


property Down : Boolean


property DragCursor :


property DragMode :


property Enabled :


property Font :


property GrayedColor : TColor


property ParentFont :


property PopupMenu :


property ShowHint :


property SizeToBitMap : BOOLEAN


property State : TCheckBoxState


property StretchBitMaps : BOOLEAN

Thanks to Martyn Dowsett

property TabOrder :


property TabStop :


property TextIndentSize : Word


property TransparentColor : TColor


property UnCheckedBitMap : TBitMap


Events

event OnClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnKeyDown :


event OnKeyPress :


event OnKeyUp :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables

FAbout : TAboutBoxObject;


FCheckBevelStyle : TPanelBevel;


FCheckBevelWidth : WORD;


FCheckBoxWidth : WORD;


FCheckColor : TColor;


FCheckedBitMap : TBitMap;


FCheckType : TCheckType;


FCheckWidth : Word;


FDown : Boolean;

The about this component box

FFocused : Boolean;


FGrayedColor : TColor;


FSizeToBitMap : BOOLEAN;


FState : TCheckBoxState;


FStretchBitMaps : BOOLEAN;


FTextIndentSize : WORD;


FTransparentColor : TColor;


FUnCheckedBitMap : TBitMap;



Constructors


constructor Create(AOwner: TComponent);

Note: I am really sorry about the lack of comments and the poor coding style used here. If you have any questions please e-mail me. (hargrave@mep.com) } {-------------------------------------------------------------------} { BitMap CheckBox } {-------------------------------------------------------------------


Functions


destructor Destroy;


procedure DoEnter;


procedure DoExit;


procedure DrawCheck (BL, BT, BR, BB : WORD);


procedure DrawCross (BL, BT, BR, BB : WORD);


procedure DrawVCheck (BL, BT, BR, BB : WORD);

Set the box size to be inside the bevel


function GetCaption: TCaption;

CheckBevelWidth


function GetChecked:Boolean;


procedure KeyDown(var Key:Word;Shift:TShiftSTate);


procedure KeyUp(var Key:Word;Shift:TShiftSTate);


procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure MouseMove(Shift: TShiftState;X, Y: Integer);


procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure Paint;


procedure SetCaption(const Value:TCaption);


procedure SetCheckBevelStyle(Value:TPanelBevel);


procedure SetCheckBevelWidth(Value:Word);


procedure SetCheckBoxWidth(Value:Word);


procedure SetCheckColor(Value:TColor);


procedure SetChecked(Value:Boolean);


procedure SetCheckedBitMap(Value:TBitMap);


procedure SetCheckType(Value:TCheckType);


procedure SetCheckWidth(Value:Word);


procedure SetDown(Value:Boolean);


procedure SetGrayedColor(Value:TColor);


procedure SetSizeToBitMap(Value:Boolean);


procedure SetState(Value:TCheckBoxState);


procedure SetStretchBitMaps(Value:Boolean);


procedure SetTextIndentSize(Value:Word);


procedure SetTransparentColor(Value:TColor);


procedure SetUnCheckedBitMap(Value:TBitMap);


Properties


property About : TAboutBoxObject


property Caption : TCaption


property CheckBevelStyle : TPanelBevel


property CheckBevelWidth : Word


property CheckBoxWidth : Word


property CheckColor : TColor


property Checked : Boolean


property CheckedBitMap : TBitMap


property CheckType : TCheckType


property CheckWidth : Word


property Color :


property Down : Boolean


property DragCursor :


property DragMode :


property Enabled :


property Font :


property GrayedColor : TColor


property ParentFont :


property PopupMenu :


property ShowHint :


property SizeToBitMap : BOOLEAN


property State : TCheckBoxState


property StretchBitMaps : BOOLEAN

Thanks to Martyn Dowsett


property TabOrder :


property TabStop :


property TextIndentSize : Word


property TransparentColor : TColor


property UnCheckedBitMap : TBitMap


Events


event OnClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnKeyDown :


event OnKeyPress :


event OnKeyUp :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables


FAbout : TAboutBoxObject;


FCheckBevelStyle : TPanelBevel;


FCheckBevelWidth : WORD;


FCheckBoxWidth : WORD;


FCheckColor : TColor;


FCheckedBitMap : TBitMap;


FCheckType : TCheckType;


FCheckWidth : Word;


FDown : Boolean;

The about this component box


FFocused : Boolean;


FGrayedColor : TColor;


FSizeToBitMap : BOOLEAN;


FState : TCheckBoxState;


FStretchBitMaps : BOOLEAN;


FTextIndentSize : WORD;


FTransparentColor : TColor;


FUnCheckedBitMap : TBitMap;