Class TColorButton (unit ColorButton) |
Inherits from
TColorPanel
constructor Create( AOwner: TComponent );
- **************************************************
Some new defaults.
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.
FSaveColor : byte;
constructor Create( AOwner: TComponent );
**************************************************
Some new defaults.
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.
FSaveColor : byte;