Class TEditAndDial (unit EdDial)

Inherits from

TCustomEditAndBtn

============================= TEditAndDial ===============================

Constructors


constructor Create( AOwner: TComponent );

Déclarations public

================================ TEditAndDial ===============================



Functions

procedure ButtonClick(Sender : TObject);


destructor Destroy;


procedure EvBeforeDial(Sender : TObject; var CalledParty: string);


procedure LoadDialBitmap;

Déclarations protected

function GetGlyph: TBitmap;


function GetKind: TEditAndDialBtnKind;


procedure SetGlyph(b: TBitmap);


procedure SetKind(Value: TEditAndDialBtnKind);


Properties

property AutoSelect :

Déclarations published

property BeforeDial : TBeforeDialEvent


property ButtonEnabled :


property ButtonGlyphDial : TBitmap


property ButtonHint :


property ButtonKind : TEditAndDialBtnKind


property ButtonNumGlyphs :


property ButtonShortCut :


property ButtonVisible :


property CharCase :


property Color :


property Ctl3d :


property DragCursor :


property DragMode :


property Enabled :


property Font :


property HideSelection :


property MaxLength :


property OEMConvert :


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ReadOnly :


property ShowHint :


property TabOrder :


property TabStop :


property Text :


property Visible :


Events

event OnButtonMouseDown :


event OnButtonMouseMove :


event OnButtonMouseUp :


event OnChange :


event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnEnter :


event OnExit :


event OnKeyDown :


event OnKeyPress :


event OnKeyUp :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


event OnStartDrag :


Variables

FBeforeDial : TBeforeDialEvent;


FButtonKind : TEditAndDialBtnKind;

Déclarations private

FCalledParty : array [0..255] of char;



Constructors


constructor Create( AOwner: TComponent );

Déclarations public

================================ TEditAndDial ===============================


Functions


procedure ButtonClick(Sender : TObject);


destructor Destroy;


procedure EvBeforeDial(Sender : TObject; var CalledParty: string);


procedure LoadDialBitmap;

Déclarations protected


function GetGlyph: TBitmap;


function GetKind: TEditAndDialBtnKind;


procedure SetGlyph(b: TBitmap);


procedure SetKind(Value: TEditAndDialBtnKind);


Properties


property AutoSelect :

Déclarations published


property BeforeDial : TBeforeDialEvent


property ButtonEnabled :


property ButtonGlyphDial : TBitmap


property ButtonHint :


property ButtonKind : TEditAndDialBtnKind


property ButtonNumGlyphs :


property ButtonShortCut :


property ButtonVisible :


property CharCase :


property Color :


property Ctl3d :


property DragCursor :


property DragMode :


property Enabled :


property Font :


property HideSelection :


property MaxLength :


property OEMConvert :


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ReadOnly :


property ShowHint :


property TabOrder :


property TabStop :


property Text :


property Visible :


Events


event OnButtonMouseDown :


event OnButtonMouseMove :


event OnButtonMouseUp :


event OnChange :


event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnEnter :


event OnExit :


event OnKeyDown :


event OnKeyPress :


event OnKeyUp :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


event OnStartDrag :


Variables


FBeforeDial : TBeforeDialEvent;


FButtonKind : TEditAndDialBtnKind;

Déclarations private


FCalledParty : array [0..255] of char;