Class TTileBitBtn (unit Tiles)

Inherits from

TButton

Constructors


constructor Create(AOwner: TComponent);

TTileBitBtn


Functions

procedure Click;


destructor Destroy;


procedure CreateHandle;


procedure CreateParams(var Params: TCreateParams);


function GetPalette: HPALETTE;


procedure SetButtonStyle(ADefault: Boolean);


procedure WMEraseBkgnd(var Message: TWmEraseBkgnd);


procedure CMEnabledChanged(var Message: TMessage);


procedure CMFontChanged(var Message: TMessage);

DrawFrameControl does not draw a pressed button correctly

procedure CMMouseEnter(var Message: TMessage);


procedure CM_MouseLeave(var Message: TMessage);


procedure CNDrawItem(var Message: TWMDrawItem);


procedure CNMeasureItem(var Message: TWMMeasureItem);


procedure DrawItem(const DrawItemStruct: TDrawItemStruct);


function GetGlyph: TBitmap;


function GetKind: TBitBtnKind;


function GetNumGlyphs: TNumGlyphs;


procedure GlyphChanged(Sender: TObject);


function IsCustom: Boolean;


function IsCustomCaption: Boolean;


procedure SetGlyph(Value: TBitmap);


procedure SetIExplorerStyle(Value: Boolean);


procedure SetKind(Value: TBitBtnKind);


procedure SetLayout(Value: TButtonLayout);


procedure SetMargin(Value: Integer);


procedure SetNumGlyphs(Value: TNumGlyphs);


procedure SetSpacing(Value: Integer);


procedure SetStyle(Value: TButtonStyle);


procedure TPMPictureChanged(var Message: TMessage);


procedure WMLButtonDblClk(var Message: TWMLButtonDblClk);


Properties

property Cancel :


property Caption :


property Default :


property Enabled :


property Glyph : TBitmap


property IExplorerStyle : Boolean


property Kind : TBitBtnKind


property Layout : TButtonLayout


property Margin : Integer


property ModalResult :


property NumGlyphs : TNumGlyphs


property ParentShowHint :


property ShowHint :


property Spacing : Integer


property Style : TButtonStyle


property TabOrder :


property TabStop :


property Visible :


Events

event OnEnter :


event OnExit :


Variables

FCanvas : TCanvas;


FGlyph : Pointer;


FIExplorerStyle : Boolean;


FKind : TBitBtnKind;


FLayout : TButtonLayout;


FMargin : Integer;


FModifiedGlyph : Boolean;


FMouseHere : Boolean;


FSpacing : Integer;


FStyle : TButtonStyle;


IsFocused : Boolean;



Constructors


constructor Create(AOwner: TComponent);

TTileBitBtn


Functions


procedure Click;


destructor Destroy;


procedure CreateHandle;


procedure CreateParams(var Params: TCreateParams);


function GetPalette: HPALETTE;


procedure SetButtonStyle(ADefault: Boolean);


procedure WMEraseBkgnd(var Message: TWmEraseBkgnd);


procedure CMEnabledChanged(var Message: TMessage);


procedure CMFontChanged(var Message: TMessage);

DrawFrameControl does not draw a pressed button correctly


procedure CMMouseEnter(var Message: TMessage);


procedure CM_MouseLeave(var Message: TMessage);


procedure CNDrawItem(var Message: TWMDrawItem);


procedure CNMeasureItem(var Message: TWMMeasureItem);


procedure DrawItem(const DrawItemStruct: TDrawItemStruct);


function GetGlyph: TBitmap;


function GetKind: TBitBtnKind;


function GetNumGlyphs: TNumGlyphs;


procedure GlyphChanged(Sender: TObject);


function IsCustom: Boolean;


function IsCustomCaption: Boolean;


procedure SetGlyph(Value: TBitmap);


procedure SetIExplorerStyle(Value: Boolean);


procedure SetKind(Value: TBitBtnKind);


procedure SetLayout(Value: TButtonLayout);


procedure SetMargin(Value: Integer);


procedure SetNumGlyphs(Value: TNumGlyphs);


procedure SetSpacing(Value: Integer);


procedure SetStyle(Value: TButtonStyle);


procedure TPMPictureChanged(var Message: TMessage);


procedure WMLButtonDblClk(var Message: TWMLButtonDblClk);


Properties


property Cancel :


property Caption :


property Default :


property Enabled :


property Glyph : TBitmap


property IExplorerStyle : Boolean


property Kind : TBitBtnKind


property Layout : TButtonLayout


property Margin : Integer


property ModalResult :


property NumGlyphs : TNumGlyphs


property ParentShowHint :


property ShowHint :


property Spacing : Integer


property Style : TButtonStyle


property TabOrder :


property TabStop :


property Visible :


Events


event OnEnter :


event OnExit :


Variables


FCanvas : TCanvas;


FGlyph : Pointer;


FIExplorerStyle : Boolean;


FKind : TBitBtnKind;


FLayout : TButtonLayout;


FMargin : Integer;


FModifiedGlyph : Boolean;


FMouseHere : Boolean;


FSpacing : Integer;


FStyle : TButtonStyle;


IsFocused : Boolean;