| Class TCoolButton (unit CoolButton) |
TGraphicControl
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
procedure Click;
destructor Destroy;
function GetPalette: HPALETTE;
procedure Loaded;
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 CMButtonPressed(var Message: TMessage);
procedure CMDialogChar(var Message: TCMDialogChar);
procedure CMEnabledChanged(var Message: TMessage);
procedure CMFontChanged(var Message: TMessage);
procedure CMMouseLeave(var Message: TMessage);
procedure CMSysColorChange(var Message: TMessage);
procedure CMTextChanged(var Message: TMessage);
function GetGlyph: TBitmap;
function GetNumGlyphs: TNumGlyphs;
procedure GlyphChanged(Sender: TObject);
procedure SetAllowAllUp(Value: Boolean);
procedure SetDown(Value: Boolean);
procedure SetGlyph(Value: TBitmap);
procedure SetGroupIndex(Value: Integer);
procedure SetLayout(Value: TButtonLayout);
procedure SetMargin(Value: Integer);
procedure SetNumGlyphs(Value: TNumGlyphs);
procedure SetSpacing(Value: Integer);
procedure UpdateExclusive;
procedure UpdateTracking;
procedure WMEraseBkgnd( var message:TWMEraseBkgnd);
procedure WMLButtonDblClk(var Message: TWMLButtonDown);
procedure WMNCPaint( var message:TWMNCPaint);
procedure WMPaint( var message:TWMPaint);| Properties |
property AllowAllUp : Boolean
property Caption :
property Down : Boolean
property Enabled :
property Font :
property Glyph : TBitmap
property GroupIndex : Integer
property Layout : TButtonLayout
property Margin : Integer
property NumGlyphs : TNumGlyphs
property ParentFont :
property ParentShowHint :
property ShowHint :
property Spacing : Integer
property Visible : | Events |
event OnClick :
event OnDblClick :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp : | Variables |
FState : TButtonState;
FAllowAllUp : Boolean;
FDown : Boolean;
FDragging : Boolean;
FGlyph : Pointer;
FGroupIndex : Integer;
FLayout : TButtonLayout;
FMargin : Integer;
FMouseInControl : Boolean;
FMouseinMask : Boolean;
FSpacing : Integer;| Constructors |
constructor Create(AOwner: TComponent);TCoolButton
| Functions |
procedure Click;Redraw face in-case mouse is captured
destructor Destroy;
function GetPalette: HPALETTE;
procedure Loaded;
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 CMButtonPressed(var Message: TMessage);
procedure CMDialogChar(var Message: TCMDialogChar);
procedure CMEnabledChanged(var Message: TMessage);
procedure CMFontChanged(var Message: TMessage);
procedure CMMouseLeave(var Message: TMessage);
procedure CMSysColorChange(var Message: TMessage);
procedure CMTextChanged(var Message: TMessage);
function GetGlyph: TBitmap;
function GetNumGlyphs: TNumGlyphs;
procedure GlyphChanged(Sender: TObject);
procedure SetAllowAllUp(Value: Boolean);
procedure SetDown(Value: Boolean);
procedure SetGlyph(Value: TBitmap);
procedure SetGroupIndex(Value: Integer);
procedure SetLayout(Value: TButtonLayout);
procedure SetMargin(Value: Integer);
procedure SetNumGlyphs(Value: TNumGlyphs);
procedure SetSpacing(Value: Integer);
procedure UpdateExclusive;
procedure UpdateTracking;if Pattern = nil then CreateBrushPattern; Canvas.Brush.Bitmap := Pattern; Canvas.FillRect(PaintRect);
procedure WMEraseBkgnd( var message:TWMEraseBkgnd);
procedure WMLButtonDblClk(var Message: TWMLButtonDown);
procedure WMNCPaint( var message:TWMNCPaint);
procedure WMPaint( var message:TWMPaint);| Properties |
property AllowAllUp : Boolean
property Caption :
property Down : Boolean
property Enabled :
property Font :
property Glyph : TBitmap
property GroupIndex : Integer
property Layout : TButtonLayout
property Margin : Integer
property NumGlyphs : TNumGlyphs
property ParentFont :
property ParentShowHint :
property ShowHint :
property Spacing : Integer
property Visible : | Events |
event OnClick :
event OnDblClick :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp : | Variables |
FState : TButtonState;
FAllowAllUp : Boolean;
FDown : Boolean;
FDragging : Boolean;
FGlyph : Pointer;
FGroupIndex : Integer;
FLayout : TButtonLayout;
FMargin : Integer;
FMouseInControl : Boolean;
FMouseinMask : Boolean;
FSpacing : Integer;