Class TJCheck (unit JCheck) |
Inherits from
TCustomControl
constructor Create(AOwner: TComponent);
- Note: I am really sorry about the lack of comments and the poor
coding style used here.
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);
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
event OnClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnKeyDown :
event OnKeyPress :
event OnKeyUp :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
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;
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 } {-------------------------------------------------------------------
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);
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
event OnClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnKeyDown :
event OnKeyPress :
event OnKeyUp :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
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;