Class TColorButton (unit Colorbtn)

Inherits from

TCustomControl

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 : TAboutColorButtonProperty

Published 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;



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 : TAboutColorButtonProperty

Published 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;