Class TCustomEditAndBtn (unit EdDial)

Inherits from

TWinControl

=========================== TCustomEditAndBtn ============================

Constructors


constructor Create( AOwner: TComponent );

Déclarations public


Functions

destructor Destroy;


procedure SetName(const NewName: TComponentName);


procedure ButtonClick(Sender : TObject);


procedure ButtonMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure ButtonMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);


procedure ButtonMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure Change(Sender : TObject);


procedure Click(Sender : TObject);


procedure DblClick(Sender : TObject);


procedure DragDrop(Sender, Source: TObject; X, Y: Integer);


procedure DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);


procedure EndDrag(Sender, Target: TObject; X, Y: Integer);


procedure Enter(Sender : TObject);


procedure Exit(Sender : TObject);


procedure KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure KeyPress(Sender: TObject; var Key: Char);

Shorcut

procedure KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);


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


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


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


procedure StartDrag(Sender: TObject; var DragObject: TDragObject);


procedure WMSize( var Message: TWMSize );


function GetAutoSelect : boolean;


function GetButtonCaption : String;

=================================== Property ===============================

function GetButtonHint : String;


function GetButtonVisible : boolean;


function GetCharCase: TEditCharCase;


function GetColor: TColor;


function GetCtl3d: boolean;


function GetDragCursor: TCursor;


function GetDragMode: TDragMode;


function GetFont: TFont;


function GetGlyph: TBitmap;


function GetHideSelection: boolean;


function GetMaxLength: integer;


function GetNumGlyphs: TNumGlyphs;


function GetOEMConvert: boolean;


function GetParentColor: boolean;


function GetParentCtl3D: boolean;


function GetParentFont: boolean;


function GetParentShowHint: boolean;


function GetPasswordChar: char;


function GetReadOnly: boolean;


function GetShowHint: boolean;


function GetTabStop: boolean;


function GetText : String;


procedure SetAutoSelect(b: boolean);


procedure SetButtonCaption(s: String);


procedure SetButtonEnabled(b: boolean);


procedure SetButtonHint(s: String);


procedure SetButtonVisible(b : boolean);


procedure SetCharCase(c: TEditCharCase);


procedure SetColor(c: TColor);


procedure SetCtl3d(b: boolean);


procedure SetDragCursor(c: TCursor);


procedure SetDragMode(d: TDragMode);


procedure SetFont(f: TFont);


procedure SetGlyph(b: TBitmap);


procedure SetHideSelection(b: boolean);


procedure SetMaxLength(i: integer);


procedure SetNumGlyphs(n: TNumGlyphs);


procedure SetOEMConvert(b: boolean);


procedure SetParentColor(b: boolean);


procedure SetParentCtl3D(b: boolean);


procedure SetParentFont(b: boolean);


procedure SetParentShowHint(b: boolean);


procedure SetPasswordChar(c: char);


procedure SetReadOnly(b: boolean);


procedure SetShowHint(b: boolean);


procedure SetTabStop(b: boolean);


procedure SetText(s: String);


Properties

property AutoSelect : boolean

Déclarations protected

property ButtonCaption : string


property ButtonEnabled : boolean


property ButtonGlyph : TBitmap


property ButtonHint : string


property ButtonNumGlyphs : TNumGlyphs


property ButtonShortCut : TShortCut


property ButtonVisible : boolean


property CharCase : TEditCharCase


property Color : TColor


property Ctl3d : boolean


property DragCursor : TCursor


property DragMode : TDragMode


property Enabled :


property Font : TFont


property HideSelection : boolean


property MaxLength : integer


property OEMConvert : boolean


property ParentColor : boolean


property ParentCtl3D : boolean


property ParentFont : boolean


property ParentShowHint : boolean


property PasswordChar : char


property PopupMenu :


property ReadOnly : boolean


property ShowHint : boolean


property TabOrder :


property TabStop : boolean


property Text : string


property Visible :


Events

event OnButtonClick : TNotifyEvent


event OnButtonMouseDown : TMouseEvent


event OnButtonMouseMove : TMouseMoveEvent


event OnButtonMouseUp : TMouseEvent


event OnChange : TNotifyEvent


event OnClick : TNotifyEvent


event OnDblClick : TNotifyEvent


event OnDragDrop : TDragDropEvent


event OnDragOver : TDragOverEvent


event OnEndDrag : TEndDragEvent


event OnEnter : TNotifyEvent


event OnExit : TNotifyEvent


event OnKeyDown : TKeyEvent


event OnKeyPress : TKeyPressEvent


event OnKeyUp : TKeyEvent


event OnMouseDown : TMouseEvent


event OnMouseMove : TMouseMoveEvent


event OnMouseUp : TMouseEvent


event OnStartDrag : TStartDragEvent


Variables

FButtonEnabled : boolean;

Déclarations private

FButtonHint : string;


FButtonShortCut : TShortCut;


FEdit : TEdit;


FOnButtonClick : TNotifyEvent;


FOnButtonMouseDown : TMouseEvent;


FOnButtonMouseMove : TMouseMoveEvent;


FOnButtonMouseUp : TMouseEvent;


FOnChange : TNotifyEvent;


FOnClick : TNotifyEvent;


FOnDblClick : TNotifyEvent;


FOnDragDrop : TDragDropEvent;


FOnDragOver : TDragOverEvent;


FOnEndDrag : TEndDragEvent;


FOnEnter : TNotifyEvent;


FOnExit : TNotifyEvent;


FOnKeyDown : TKeyEvent;


FOnKeyPress : TKeyPressEvent;


FOnKeyUp : TKeyEvent;


FOnMouseDown : TMouseEvent;


FOnMouseMove : TMouseMoveEvent;


FOnMouseUp : TMouseEvent;


FOnStartDrag : TStartDragEvent;


FSpeedButton : TSpeedButton;



Constructors


constructor Create( AOwner: TComponent );

Déclarations public


Functions


destructor Destroy;


procedure SetName(const NewName: TComponentName);


procedure ButtonClick(Sender : TObject);


procedure ButtonMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure ButtonMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);


procedure ButtonMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure Change(Sender : TObject);


procedure Click(Sender : TObject);


procedure DblClick(Sender : TObject);


procedure DragDrop(Sender, Source: TObject; X, Y: Integer);


procedure DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);


procedure EndDrag(Sender, Target: TObject; X, Y: Integer);


procedure Enter(Sender : TObject);


procedure Exit(Sender : TObject);


procedure KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure KeyPress(Sender: TObject; var Key: Char);

Shorcut


procedure KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);


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


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


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


procedure StartDrag(Sender: TObject; var DragObject: TDragObject);


procedure WMSize( var Message: TWMSize );


function GetAutoSelect : boolean;


function GetButtonCaption : String;

=================================== Property ===============================


function GetButtonHint : String;


function GetButtonVisible : boolean;


function GetCharCase: TEditCharCase;


function GetColor: TColor;


function GetCtl3d: boolean;


function GetDragCursor: TCursor;


function GetDragMode: TDragMode;


function GetFont: TFont;


function GetGlyph: TBitmap;


function GetHideSelection: boolean;


function GetMaxLength: integer;


function GetNumGlyphs: TNumGlyphs;


function GetOEMConvert: boolean;


function GetParentColor: boolean;


function GetParentCtl3D: boolean;


function GetParentFont: boolean;


function GetParentShowHint: boolean;


function GetPasswordChar: char;


function GetReadOnly: boolean;


function GetShowHint: boolean;


function GetTabStop: boolean;


function GetText : String;


procedure SetAutoSelect(b: boolean);


procedure SetButtonCaption(s: String);


procedure SetButtonEnabled(b: boolean);


procedure SetButtonHint(s: String);


procedure SetButtonVisible(b : boolean);


procedure SetCharCase(c: TEditCharCase);


procedure SetColor(c: TColor);


procedure SetCtl3d(b: boolean);


procedure SetDragCursor(c: TCursor);


procedure SetDragMode(d: TDragMode);


procedure SetFont(f: TFont);


procedure SetGlyph(b: TBitmap);


procedure SetHideSelection(b: boolean);


procedure SetMaxLength(i: integer);


procedure SetNumGlyphs(n: TNumGlyphs);


procedure SetOEMConvert(b: boolean);


procedure SetParentColor(b: boolean);


procedure SetParentCtl3D(b: boolean);


procedure SetParentFont(b: boolean);


procedure SetParentShowHint(b: boolean);


procedure SetPasswordChar(c: char);


procedure SetReadOnly(b: boolean);


procedure SetShowHint(b: boolean);


procedure SetTabStop(b: boolean);


procedure SetText(s: String);


Properties


property AutoSelect : boolean

Déclarations protected


property ButtonCaption : string


property ButtonEnabled : boolean


property ButtonGlyph : TBitmap


property ButtonHint : string


property ButtonNumGlyphs : TNumGlyphs


property ButtonShortCut : TShortCut


property ButtonVisible : boolean


property CharCase : TEditCharCase


property Color : TColor


property Ctl3d : boolean


property DragCursor : TCursor


property DragMode : TDragMode


property Enabled :


property Font : TFont


property HideSelection : boolean


property MaxLength : integer


property OEMConvert : boolean


property ParentColor : boolean


property ParentCtl3D : boolean


property ParentFont : boolean


property ParentShowHint : boolean


property PasswordChar : char


property PopupMenu :


property ReadOnly : boolean


property ShowHint : boolean


property TabOrder :


property TabStop : boolean


property Text : string


property Visible :


Events


event OnButtonClick : TNotifyEvent


event OnButtonMouseDown : TMouseEvent


event OnButtonMouseMove : TMouseMoveEvent


event OnButtonMouseUp : TMouseEvent


event OnChange : TNotifyEvent


event OnClick : TNotifyEvent


event OnDblClick : TNotifyEvent


event OnDragDrop : TDragDropEvent


event OnDragOver : TDragOverEvent


event OnEndDrag : TEndDragEvent


event OnEnter : TNotifyEvent


event OnExit : TNotifyEvent


event OnKeyDown : TKeyEvent


event OnKeyPress : TKeyPressEvent


event OnKeyUp : TKeyEvent


event OnMouseDown : TMouseEvent


event OnMouseMove : TMouseMoveEvent


event OnMouseUp : TMouseEvent


event OnStartDrag : TStartDragEvent


Variables


FButtonEnabled : boolean;

Déclarations private


FButtonHint : string;


FButtonShortCut : TShortCut;


FEdit : TEdit;


FOnButtonClick : TNotifyEvent;


FOnButtonMouseDown : TMouseEvent;


FOnButtonMouseMove : TMouseMoveEvent;


FOnButtonMouseUp : TMouseEvent;


FOnChange : TNotifyEvent;


FOnClick : TNotifyEvent;


FOnDblClick : TNotifyEvent;


FOnDragDrop : TDragDropEvent;


FOnDragOver : TDragOverEvent;


FOnEndDrag : TEndDragEvent;


FOnEnter : TNotifyEvent;


FOnExit : TNotifyEvent;


FOnKeyDown : TKeyEvent;


FOnKeyPress : TKeyPressEvent;


FOnKeyUp : TKeyEvent;


FOnMouseDown : TMouseEvent;


FOnMouseMove : TMouseMoveEvent;


FOnMouseUp : TMouseEvent;


FOnStartDrag : TStartDragEvent;


FSpeedButton : TSpeedButton;