| Class TWin95SpeedButton (unit W95Btns) |
TCustomControl
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
procedure Click;
destructor Destroy;
function GetPalette: HPALETTE;
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 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
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 : BooleanEnsure 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;