Class TComponentButton (unit StdComps)

Inherits from

TWinControl

TComponentButton

Constructors


constructor Create(AOwner: TComponent; HintStr: String);

******************} {* TComponentButton *} {


Functions

procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);

if W < 15 then W := 15;

procedure Loaded;


procedure AdjustSize (var W: Integer; var H: Integer);


procedure BtnClick(Sender: TObject);


procedure BtnMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


function GetCaption: string;


function GetGlyph: TBitmap;


function GetNumGlyphs: Integer;


function GetTimeBtnState: TTimeBtnState;


procedure SetAllowTimer(Value: Boolean);


procedure SetCaption(Value: string);


procedure SetGlyph(Value: TBitmap);


procedure SetNumGlyphs(Value: Integer);


procedure SetTimeBtnState(Value: TTimeBtnState);


procedure WMKillFocus(var Message: TWMKillFocus);


procedure WMSetFocus(var Message: TWMSetFocus);

check for minimum size

procedure WMSize(var Message: TWMSize);


Properties

property AllowTimer : Boolean


property BtnCaption : String


property FocusControl : TWinControl


property Glyph : TBitmap


property NumGlyphs : Integer


property TimeBtnState : TTimeBtnState


Events

event OnClick : TNotifyEvent


event OnMouseDown : TMouseEvent


Variables

FAllowTimer : Boolean;


FButton : TTimerSpeedButton;


FFocusControl : TWinControl;


FOnClick : TNotifyEvent;


FOnMouseDown : TMouseEvent;


FTimeBtnState : TTimeBtnState;

The name of the button in the resource


Constructors


constructor Create(AOwner: TComponent; HintStr: String);

******************} {* TComponentButton *} {


Functions


procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);

if W < 15 then W := 15;


procedure Loaded;


procedure AdjustSize (var W: Integer; var H: Integer);


procedure BtnClick(Sender: TObject);


procedure BtnMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


function GetCaption: string;


function GetGlyph: TBitmap;


function GetNumGlyphs: Integer;


function GetTimeBtnState: TTimeBtnState;


procedure SetAllowTimer(Value: Boolean);


procedure SetCaption(Value: string);


procedure SetGlyph(Value: TBitmap);


procedure SetNumGlyphs(Value: Integer);


procedure SetTimeBtnState(Value: TTimeBtnState);


procedure WMKillFocus(var Message: TWMKillFocus);


procedure WMSetFocus(var Message: TWMSetFocus);

check for minimum size


procedure WMSize(var Message: TWMSize);


Properties


property AllowTimer : Boolean


property BtnCaption : String


property FocusControl : TWinControl


property Glyph : TBitmap


property NumGlyphs : Integer


property TimeBtnState : TTimeBtnState


Events


event OnClick : TNotifyEvent


event OnMouseDown : TMouseEvent


Variables


FAllowTimer : Boolean;


FButton : TTimerSpeedButton;


FFocusControl : TWinControl;


FOnClick : TNotifyEvent;


FOnMouseDown : TMouseEvent;


FTimeBtnState : TTimeBtnState;

The name of the button in the resource