Class TCoolButton (unit CoolButton)

Inherits from

TGraphicControl

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.

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;