| Class TColorButton (unit JGColorButton) |
TCustomControl
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
destructor Destroy;
procedure Loaded;
procedure Paint;
procedure DoEnter;
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;