Class TRoundButton (unit Rbutton)

Inherits from

TGraphicControl

Constructors


constructor Create(AOwner: TComponent);



Functions

destructor Destroy;


function IsInsideButton(X,Y: Integer): boolean;


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

paint transparent image

procedure MouseMove(Shift: TShiftState; X, Y: Integer);

issue event to application

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

push button and repaint

procedure Paint;

return true if Hypotonuse less than half of width

procedure PaintButton;

repaint rest

procedure SetGlyph(newGlyph: TBitmap);


procedure SetNumGlyphs(newNumGlyphs: TNumGlyphs);

bitmap 1: main, 2: disabled, 3: down; must have dimensions of (height * NoBitmaps) = width

procedure SetRButtonType(newRButtonType: TRButtonType);


procedure SetTransparentColor(newTransparentColor: TColor);


Properties

property ButtonType : TRButtonType


property Enabled :


property Glyph : TBitmap


property NumGlyphs : TNumGlyphs


property ParentShowHint :


property ShowHint :


property TransparentColor : TColor


property Visible :


Events

event OnClick : TNotifyEvent


event OnMouseDown :


event OnMouseEnter : TNotifyEvent


event OnMouseExit : TNotifyEvent


event OnMouseMove :


event OnMouseUp :


Variables

FDown : boolean;


FGlyph : TBitmap;


FMouseDown : boolean;


FMouseInside : boolean;


FNumGlyphs : TNumGlyphs;


FOnClick : TNotifyEvent;


FOnMouseEnter : TNotifyEvent;


FOnMouseExit : TNotifyEvent;


FRButtonType : TRButtonType;


FTransparentColor : TColor;



Constructors


constructor Create(AOwner: TComponent);


Functions


destructor Destroy;


function IsInsideButton(X,Y: Integer): boolean;


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

paint transparent image


procedure MouseMove(Shift: TShiftState; X, Y: Integer);

issue event to application


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

push button and repaint


procedure Paint;

return true if Hypotonuse less than half of width


procedure PaintButton;

repaint rest


procedure SetGlyph(newGlyph: TBitmap);


procedure SetNumGlyphs(newNumGlyphs: TNumGlyphs);

bitmap 1: main, 2: disabled, 3: down; must have dimensions of (height * NoBitmaps) = width


procedure SetRButtonType(newRButtonType: TRButtonType);


procedure SetTransparentColor(newTransparentColor: TColor);


Properties


property ButtonType : TRButtonType


property Enabled :


property Glyph : TBitmap


property NumGlyphs : TNumGlyphs


property ParentShowHint :


property ShowHint :


property TransparentColor : TColor


property Visible :


Events


event OnClick : TNotifyEvent


event OnMouseDown :


event OnMouseEnter : TNotifyEvent


event OnMouseExit : TNotifyEvent


event OnMouseMove :


event OnMouseUp :


Variables


FDown : boolean;


FGlyph : TBitmap;


FMouseDown : boolean;


FMouseInside : boolean;


FNumGlyphs : TNumGlyphs;


FOnClick : TNotifyEvent;


FOnMouseEnter : TNotifyEvent;


FOnMouseExit : TNotifyEvent;


FRButtonType : TRButtonType;


FTransparentColor : TColor;