Class TColorButton (unit Colorbtn) |
Inherits from
TCustomControl
constructor Create(AOwner: TComponent);
- Public declarations
-<><>----<><>----<><>----<><>----<><>----<><>----<><>----<><>----<><>- } { ---------------------------- ColorButton ----------------------------- } { -<><>----<><>----<><>----<><>----<><>----<><>----<><>----<><>----<><>-
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);
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 :
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 :
FAbout : TAboutColorButtonProperty;
Private declarations
FActivationEvent : TActivationEvent;
FColor : TColor;
FCustomColors : TStringList;
FDown : Boolean;
FDragging : Boolean;
FMargin : Byte;
FOnColorChange : TNotifyEvent;
FOptions : TColorDialogOptions;
FState : TButtonState;
constructor Create(AOwner: TComponent);
Public declarations
-<><>----<><>----<><>----<><>----<><>----<><>----<><>----<><>----<><>- } { ---------------------------- ColorButton ----------------------------- } { -<><>----<><>----<><>----<><>----<><>----<><>----<><>----<><>----<><>-
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);
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 :
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 :
FAbout : TAboutColorButtonProperty;
Private declarations
FActivationEvent : TActivationEvent;
FColor : TColor;
FCustomColors : TStringList;
FDown : Boolean;
FDragging : Boolean;
FMargin : Byte;
FOnColorChange : TNotifyEvent;
FOptions : TColorDialogOptions;
FState : TButtonState;