Class TColorButton (unit ColorButton)

Inherits from

TColorPanel

Constructors


constructor Create( AOwner: TComponent );

************************************************** Some new defaults.


Functions

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

************************************************** When the button is "pressed" draw in shadow color.

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

************************************************** Restore the color when the mouse is lifted.

Properties

Events

Variables

FSaveColor : byte;



Constructors


constructor Create( AOwner: TComponent );

************************************************** Some new defaults.


Functions


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

************************************************** When the button is "pressed" draw in shadow color.


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

************************************************** Restore the color when the mouse is lifted.


Properties


Events


Variables


FSaveColor : byte;