| Class TRoundButton (unit Rbutton) |
TGraphicControl
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
destructor Destroy;
function IsInsideButton(X,Y: Integer): boolean;
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 PaintButton;
procedure SetGlyph(newGlyph: TBitmap);
procedure SetNumGlyphs(newNumGlyphs: TNumGlyphs);
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;