Class TLedButton (unit LedBtn)

Inherits from

TButton

Constructors


constructor Create(AOwner: TComponent);

Public declarations


Functions

destructor Destroy;


procedure Click;

Protected declarations

procedure CreateParams(var Params: TCreateParams);


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


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


procedure PlaySoundFile(const FileName: String; uFlags: word);


procedure SetButtonStyle(ADefault: Boolean);


procedure SetCaption3D(AValue : boolean);


procedure WMLButtonDblClick(var Message: TWMLButtonDown);


procedure WMMButtonDblClick(var Message: TWMMButtonDown);


procedure WMMouseMove(var Message: TWMMouseMove);


procedure WMRButtonDblClick(var Message: TWMRButtonDown);


procedure CMEnabledChanged(var Message: TMessage);


procedure CMFontChanged(var Message: TMessage);

DrawFrameControl does not draw a pressed button correctly

procedure CMMouseEnter(var Message: TMessage);


procedure CMMouseLeave(var Message: TMessage);


procedure CNDrawItem(var Message: TWMDrawItem);


procedure CNMeasureItem(var Message: TWMMeasureItem);


procedure DrawItem(const DrawItemStruct: TDrawItemStruct);


function GetSoundFile: String;


procedure SetLEDType(value: TLEDType);


procedure SetSoundFile(const V: String);


procedure SetStyle(Value: TButtonStyle);


procedure WMLButtonDblClk(var Message: TWMLButtonDblClk);


Properties

property Caption3D : Boolean


property LEDType : TLEDType


property SoundFile : String

Published declarations

property Style : TButtonStyle


Events

Variables

ExtraSpace : word;


F3DCaption : Boolean;


FCanvas : TCanvas;


FGlyph : TBitmap;


FLedType : TLEDType;


FSoundFile : PString;

Private declarations

FStyle : TButtonStyle;


HasMouse : boolean;


IsClicked : boolean;


IsFocused : Boolean;


IsMouseDown : boolean;



Constructors


constructor Create(AOwner: TComponent);

Public declarations


Functions


destructor Destroy;


procedure Click;

Protected declarations


procedure CreateParams(var Params: TCreateParams);


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


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


procedure PlaySoundFile(const FileName: String; uFlags: word);


procedure SetButtonStyle(ADefault: Boolean);


procedure SetCaption3D(AValue : boolean);


procedure WMLButtonDblClick(var Message: TWMLButtonDown);


procedure WMMButtonDblClick(var Message: TWMMButtonDown);


procedure WMMouseMove(var Message: TWMMouseMove);


procedure WMRButtonDblClick(var Message: TWMRButtonDown);


procedure CMEnabledChanged(var Message: TMessage);


procedure CMFontChanged(var Message: TMessage);

DrawFrameControl does not draw a pressed button correctly


procedure CMMouseEnter(var Message: TMessage);


procedure CMMouseLeave(var Message: TMessage);


procedure CNDrawItem(var Message: TWMDrawItem);


procedure CNMeasureItem(var Message: TWMMeasureItem);


procedure DrawItem(const DrawItemStruct: TDrawItemStruct);


function GetSoundFile: String;


procedure SetLEDType(value: TLEDType);


procedure SetSoundFile(const V: String);


procedure SetStyle(Value: TButtonStyle);


procedure WMLButtonDblClk(var Message: TWMLButtonDblClk);


Properties


property Caption3D : Boolean


property LEDType : TLEDType


property SoundFile : String

Published declarations


property Style : TButtonStyle


Events


Variables


ExtraSpace : word;


F3DCaption : Boolean;


FCanvas : TCanvas;


FGlyph : TBitmap;


FLedType : TLEDType;


FSoundFile : PString;

Private declarations


FStyle : TButtonStyle;


HasMouse : boolean;


IsClicked : boolean;


IsFocused : Boolean;


IsMouseDown : boolean;