| Class TColorButton (unit Colorbtn) |
TCustomControl
| Constructors |
constructor Create(AOwner: TComponent);-<><>----<><>----<><>----<><>----<><>----<><>----<><>----<><>----<><>- } { ---------------------------- ColorButton ----------------------------- } { -<><>----<><>----<><>----<><>----<><>----<><>----<><>----<><>----<><>-
| Functions |
destructor Destroy;
procedure Click;
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 CMEnabledChanged(var Message: TMessage);
procedure CMSysColorChange(var Message: TMessage);
procedure DoClick;
procedure Frame3D(Canvas: TCanvas; var Rect: TRect; TopColor, BottomColor: TColor; Width: Integer);
procedure SetActivationEvent(Value: TActivationEvent);
procedure SetCustomColors(Value: TStringList);
procedure SetMargin(Value: Byte);
procedure SetOptions(Value: TCOlorDialogOptions);
procedure SetStateColor(Value: TColor);
function Win95DrawButtonFace(Canvas: TCanvas; const Client: TRect;
BevelWidth: Integer; Style: TButtonStyle; IsDown,
IsFocused: Boolean): TRect;
procedure WMKillFocus(var Message: TWMKillFocus);
procedure WMSetFocus(var Message: TWMSetFocus);
procedure WMSize(var Message:TWMSize);| Properties |
property About : TAboutColorButtonProperty
property ActivationEvent : TActivationEvent
property Color : TColor
property Cursor :
property CustomColors : TStringList
property DragCursor :
property DragMode :
property Enabled :
property Margin : Byte
property Options : TColorDialogOptions
property ParentShowHint :
property ShowHint :
property TabOrder :
property TabStop :
property Visible : | Events |
event OnClick :
event OnColorChange : TNotifyEvent
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnEnter :
event OnExit :
event OnKeyDown :
event OnKeyPress :
event OnKeyUp :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp : | Variables |
FAbout : TAboutColorButtonProperty;
FActivationEvent : TActivationEvent;
FColor : TColor;
FCustomColors : TStringList;
FDown : Boolean;
FDragging : Boolean;
FMargin : Byte;
FOnColorChange : TNotifyEvent;
FOptions : TColorDialogOptions;
FState : TButtonState;| Constructors |
constructor Create(AOwner: TComponent);Public declarations
-<><>----<><>----<><>----<><>----<><>----<><>----<><>----<><>----<><>- } { ---------------------------- ColorButton ----------------------------- } { -<><>----<><>----<><>----<><>----<><>----<><>----<><>----<><>----<><>-
| Functions |
destructor Destroy;----------------------------------------------
procedure Click;----------------------------------------------
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 CMEnabledChanged(var Message: TMessage);-------------------------------------------------------------------------} {VCL Messages
procedure CMSysColorChange(var Message: TMessage);
procedure DoClick;----------------------------------------------
procedure Frame3D(Canvas: TCanvas; var Rect: TRect; TopColor, BottomColor: TColor; Width: Integer);----------------------------------------------
procedure SetActivationEvent(Value: TActivationEvent);----------------------------------------------
procedure SetCustomColors(Value: TStringList);----------------------------------------------
procedure SetMargin(Value: Byte);----------------------------------------------
procedure SetOptions(Value: TCOlorDialogOptions);----------------------------------------------
procedure SetStateColor(Value: TColor);----------------------------------------------
function Win95DrawButtonFace(Canvas: TCanvas; const Client: TRect;
BevelWidth: Integer; Style: TButtonStyle; IsDown,
IsFocused: Boolean): TRect;----------------------------------------------
procedure WMKillFocus(var Message: TWMKillFocus);
procedure WMSetFocus(var Message: TWMSetFocus);
procedure WMSize(var Message:TWMSize);| Properties |
property About : TAboutColorButtonPropertyPublished declarations
property ActivationEvent : TActivationEvent
property Color : TColor
property Cursor :
property CustomColors : TStringList
property DragCursor :
property DragMode :
property Enabled :
property Margin : Byte
property Options : TColorDialogOptions
property ParentShowHint :
property ShowHint :
property TabOrder :
property TabStop :
property Visible : | Events |
event OnClick :
event OnColorChange : TNotifyEvent
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnEnter :
event OnExit :
event OnKeyDown :
event OnKeyPress :
event OnKeyUp :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp : | Variables |
FAbout : TAboutColorButtonProperty;Private declarations
FActivationEvent : TActivationEvent;
FColor : TColor;
FCustomColors : TStringList;
FDown : Boolean;
FDragging : Boolean;
FMargin : Byte;
FOnColorChange : TNotifyEvent;
FOptions : TColorDialogOptions;
FState : TButtonState;