Class TColorButton (unit JGColorButton)

Inherits from

TCustomControl

Constructors


constructor Create(AOwner: TComponent);

ColorButton procedures and functions /////////////////////////////////////////////////////////////////////////////


Functions

destructor Destroy;


procedure Loaded;


procedure Paint;


procedure DoEnter;

Draw the caption

procedure DoExit;


procedure KeyAccel(var Message: TCMDialogChar);


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


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


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


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


procedure SetAlignment(Value: TAlignment);


procedure SetBevelSize(Value: Integer);


procedure SetBevelStyle(Value: TButtonBevel);


procedure SetCaption(var Message: TMessage);


procedure SetColor(Value: TColor);


procedure SetEnabled(var Message: TMessage);


procedure SetFocusOff(var Message: TMessage);


procedure SetFocusOn(var Message: TMessage);


procedure SetFont(var Message: TMessage);


procedure SetPicture(Value: TPicture);


procedure SetSpacing(Value: Integer);


procedure SetStyle(Value: TButtonStyle);


Properties

property Alignment : TAlignment


property BevelSize : Integer


property BevelStyle : TButtonBevel


property Caption :


property Color : TColor


property Cursor :


property DragCursor :


property DragMode :


property Enabled :


property Font :


property Height :


property Left :


property Name :


property Picture : TPicture


property Spacing : Integer


property Style : TButtonStyle


property TabOrder :


property TabStop :


property Tag :


property Top :


property Width :


Events

event OnClick :


event OnDblClick :


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 : TAlignment;


FBevelSize : Integer;


FBevelStyle : TButtonBevel;


FColor : TColor;


FFocused : Boolean;


FPicture : TPicture;


FSpacing : Integer;


FState : TButtonState;


FStyle : TButtonStyle;



Constructors


constructor Create(AOwner: TComponent);

ColorButton procedures and functions /////////////////////////////////////////////////////////////////////////////


Functions


destructor Destroy;


procedure Loaded;


procedure Paint;


procedure DoEnter;

Draw the caption


procedure DoExit;


procedure KeyAccel(var Message: TCMDialogChar);


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


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


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


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


procedure SetAlignment(Value: TAlignment);


procedure SetBevelSize(Value: Integer);


procedure SetBevelStyle(Value: TButtonBevel);


procedure SetCaption(var Message: TMessage);


procedure SetColor(Value: TColor);


procedure SetEnabled(var Message: TMessage);


procedure SetFocusOff(var Message: TMessage);


procedure SetFocusOn(var Message: TMessage);


procedure SetFont(var Message: TMessage);


procedure SetPicture(Value: TPicture);


procedure SetSpacing(Value: Integer);


procedure SetStyle(Value: TButtonStyle);


Properties


property Alignment : TAlignment


property BevelSize : Integer


property BevelStyle : TButtonBevel


property Caption :


property Color : TColor


property Cursor :


property DragCursor :


property DragMode :


property Enabled :


property Font :


property Height :


property Left :


property Name :


property Picture : TPicture


property Spacing : Integer


property Style : TButtonStyle


property TabOrder :


property TabStop :


property Tag :


property Top :


property Width :


Events


event OnClick :


event OnDblClick :


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 : TAlignment;


FBevelSize : Integer;


FBevelStyle : TButtonBevel;


FColor : TColor;


FFocused : Boolean;


FPicture : TPicture;


FSpacing : Integer;


FState : TButtonState;


FStyle : TButtonStyle;