Class TRoundButton (unit Rbutton) |
Inherits from
TGraphicControl
constructor Create(AOwner: TComponent);
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);
property ButtonType : TRButtonType
property Enabled :
property Glyph : TBitmap
property NumGlyphs : TNumGlyphs
property ParentShowHint :
property ShowHint :
property TransparentColor : TColor
property Visible :
event OnClick : TNotifyEvent
event OnMouseDown :
event OnMouseEnter : TNotifyEvent
event OnMouseExit : TNotifyEvent
event OnMouseMove :
event OnMouseUp :
FDown : boolean;
FGlyph : TBitmap;
FMouseDown : boolean;
FMouseInside : boolean;
FNumGlyphs : TNumGlyphs;
FOnClick : TNotifyEvent;
FOnMouseEnter : TNotifyEvent;
FOnMouseExit : TNotifyEvent;
FRButtonType : TRButtonType;
FTransparentColor : TColor;
constructor Create(AOwner: TComponent);
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);
property ButtonType : TRButtonType
property Enabled :
property Glyph : TBitmap
property NumGlyphs : TNumGlyphs
property ParentShowHint :
property ShowHint :
property TransparentColor : TColor
property Visible :
event OnClick : TNotifyEvent
event OnMouseDown :
event OnMouseEnter : TNotifyEvent
event OnMouseExit : TNotifyEvent
event OnMouseMove :
event OnMouseUp :
FDown : boolean;
FGlyph : TBitmap;
FMouseDown : boolean;
FMouseInside : boolean;
FNumGlyphs : TNumGlyphs;
FOnClick : TNotifyEvent;
FOnMouseEnter : TNotifyEvent;
FOnMouseExit : TNotifyEvent;
FRButtonType : TRButtonType;
FTransparentColor : TColor;