Class TWin95SpeedButton (unit W95Btns)

Inherits from

TCustomControl

Constructors


constructor Create(AOwner: TComponent);

========================================================================== ======================== TWin95SpeedButton ================================ ===========================================================================


Functions

procedure Click;


destructor Destroy;


function GetPalette: HPALETTE;


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

Dog Ear

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


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


procedure Paint;

clBtnface

procedure CMButtonPressed(var Message: TMessage);


procedure CMDialogChar(var Message: TCMDialogChar);


procedure CMEnabledChanged(var Message: TMessage);


procedure CMFontChanged(var Message: TMessage);


procedure CMSysColorChange(var Message: TMessage);


procedure CMTextChanged(var Message: TMessage);


function GetGlyph: TBitmap;


function GetNumGlyphs: TNumGlyphs;


procedure GlyphChanged(Sender: TObject);


procedure SetActivationEvent(Value: TActivationEvent);


procedure SetAllowAllUp(Value: Boolean);


procedure SetColor(Value: TColor);


procedure SetDogEar(Value: Boolean);


procedure SetDogEarColor(Value: TColor);


procedure SetDogEarSize(Value: Byte);


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;


function Win95DrawButtonFace(Canvas: TCanvas; const Client: TRect; BevelWidth: Integer; Style: TButtonStyle; IsDown, IsFocused: Boolean): TRect;


procedure WMLButtonDblClk(var Message: TWMLButtonDown);


Properties

property About : TAboutProperty


property ActivationEvent : TActivationEvent


property AllowAllUp : Boolean


property Caption :


property Color : TColor


property DogEar : Boolean


property DogEarColor : TColor


property DogEarSize : Byte


property Down : Boolean

Ensure group index is declared before Down

property Enabled :


property Font :


property Glyph : TBitmap


property GroupIndex : Integer


property Layout : TButtonLayout


property Margin : Integer


property NumGlyphs : TNumGlyphs


property ParentFont :


property ParentShowHint :


property PopupMenu : TPopupMenu


property ShowHint :


property Spacing : Integer


property Visible :


Events

event OnClick :


event OnDblClick :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


event OnPopup : TPopupNotify


Variables

FState : TButtonState;


FAbout : TAboutProperty;


FActivationEvent : TActivationEvent;


FAllowAllUp : Boolean;


FColor : TColor;


FDogEar : Boolean;


FDogEarColor : TColor;


FDogEarSize : Byte;


FDown : Boolean;


FDragging : Boolean;


FGlyph : Pointer;


FGroupIndex : Integer;


FLayout : TButtonLayout;


FMargin : Integer;


FOnPopup : TPopupNotify;


FPopupMenu : TPopupMenu;


FSpacing : Integer;



Constructors


constructor Create(AOwner: TComponent);

========================================================================== ======================== TWin95SpeedButton ================================ ===========================================================================


Functions


procedure Click;


destructor Destroy;


function GetPalette: HPALETTE;


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

Dog Ear


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


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


procedure Paint;

clBtnface


procedure CMButtonPressed(var Message: TMessage);


procedure CMDialogChar(var Message: TCMDialogChar);


procedure CMEnabledChanged(var Message: TMessage);


procedure CMFontChanged(var Message: TMessage);


procedure CMSysColorChange(var Message: TMessage);


procedure CMTextChanged(var Message: TMessage);


function GetGlyph: TBitmap;


function GetNumGlyphs: TNumGlyphs;


procedure GlyphChanged(Sender: TObject);


procedure SetActivationEvent(Value: TActivationEvent);


procedure SetAllowAllUp(Value: Boolean);


procedure SetColor(Value: TColor);


procedure SetDogEar(Value: Boolean);


procedure SetDogEarColor(Value: TColor);


procedure SetDogEarSize(Value: Byte);


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;


function Win95DrawButtonFace(Canvas: TCanvas; const Client: TRect; BevelWidth: Integer; Style: TButtonStyle; IsDown, IsFocused: Boolean): TRect;


procedure WMLButtonDblClk(var Message: TWMLButtonDown);


Properties


property About : TAboutProperty


property ActivationEvent : TActivationEvent


property AllowAllUp : Boolean


property Caption :


property Color : TColor


property DogEar : Boolean


property DogEarColor : TColor


property DogEarSize : Byte


property Down : Boolean

Ensure group index is declared before Down


property Enabled :


property Font :


property Glyph : TBitmap


property GroupIndex : Integer


property Layout : TButtonLayout


property Margin : Integer


property NumGlyphs : TNumGlyphs


property ParentFont :


property ParentShowHint :


property PopupMenu : TPopupMenu


property ShowHint :


property Spacing : Integer


property Visible :


Events


event OnClick :


event OnDblClick :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


event OnPopup : TPopupNotify


Variables


FState : TButtonState;


FAbout : TAboutProperty;


FActivationEvent : TActivationEvent;


FAllowAllUp : Boolean;


FColor : TColor;


FDogEar : Boolean;


FDogEarColor : TColor;


FDogEarSize : Byte;


FDown : Boolean;


FDragging : Boolean;


FGlyph : Pointer;


FGroupIndex : Integer;


FLayout : TButtonLayout;


FMargin : Integer;


FOnPopup : TPopupNotify;


FPopupMenu : TPopupMenu;


FSpacing : Integer;