[Overview][Constants][Types][Classes][Procedures and functions][Variables][Index] Reference for unit 'EditBtn' (#lcl)

TCustomEditButton

[Properties (by Name)] [Methods (by Name)] [Events (by Name)]

TCustomEditButton - base class for TEditButton, an Edit Box with attached Speed Button

Declaration

Source position: editbtn.pas line 54

type TCustomEditButton = class(TCustomControl)

protected

  class function GetControlClassDefaultSize; override;

  function CalcButtonVisible; virtual;

  function GetDefaultGlyph; virtual;

  

GetDefaultGlyph - find the default glyph for the SpeedButton

  function GetDefaultGlyphName; virtual;

  

GetDefaultGlyphName - find the name for the default glyph for the SpeedButton

  function GetEditPopupMenu;

  procedure CalculatePreferredSize(); override;

  procedure CheckButtonVisible;

  

  procedure ButtonClick; virtual;

  procedure DoEnter; override;

  procedure EditChange; virtual;

  procedure EditClick; virtual;

  procedure EditDblClick; virtual;

  procedure EditDragDrop(); virtual;

  procedure EditDragOver(); virtual;

  procedure EditEditingDone; virtual;

  procedure EditEndDrag(); virtual;

  procedure EditEnter; virtual;

  procedure EditExit; virtual;

  procedure EditKeyDown(); virtual;

  procedure EditKeyPress(); virtual;

  procedure EditKeyUp(); virtual;

  procedure EditMouseDown(); virtual;

  procedure EditMouseUp(); virtual;

  procedure EditMouseEnter; virtual;

  procedure EditMouseLeave; virtual;

  procedure EditMouseMove(); virtual;

  procedure EditMouseWheel();

  procedure EditMouseWheelUp();

  procedure EditMouseWheelDown();

  procedure EditUtf8KeyPress(); virtual;

  procedure EditStartDrag(); virtual;

  procedure CheckCursor;

  procedure CMParentColorChanged(); message;

  function EditCanModify; virtual;

  procedure GetSel();

  procedure SetSel();

  procedure Loaded; override;

  

  procedure Reset; virtual;

  procedure SetAutoSize(); override;

  procedure SetColor(); override;

  procedure SetCursor(); override;

  property AutoSelect: Boolean; [rw]

  property AutoSelected: Boolean; [rw]

  property Button: TSpeedButton; [r]

  

Button - the SpeedButton that is attached to the Edit Box

  property ButtonCaption: TCaption; [rw]

  property ButtonCursor: TCursor; [rw]

  property ButtonHint: TTranslateString; [rw]

  

ButtonHint - the hint that pops up when the mouse hovers over the button

  property ButtonOnlyWhenFocused: Boolean; [rw]

  

ButtonOnlyWhenFocused - if True, the SpeedButton only appears when focus is given to the EditButton control

  property ButtonWidth: Integer; [rw]

  

ButtonWidth - the width of the SpeedButton attached to the Edit Box

  property Color: TColor; [rws]

  property DirectInput: Boolean; [rw]

  

DirectInput - if True, direct data input to the Edit Box is permitted

  property Edit: TEbEdit; [r]

  property EditMask: string; [rw]

  property EditText: string; [rw]

  property Flat: Boolean; [rw]

  

Flat - if True, SpeedButton appears flat rather than three-dimensional

  property FocusOnButtonClick: Boolean; [rw]

  property Glyph: TBitmap; [rws]

  

Glyph - the small graphic image on the SpeedButton, which ought to indicate its function

  property IsMasked: Boolean; [r]

  property Layout: TLeftRight; [rw]

  property NumGlyphs: Integer; [rw]

  

NumGlyphs - the number of available glyphs

  property Spacing: Integer; [rw]

  property OnButtonClick: TNotifyEvent; [rw]

  

OnButtonClick - event handler for a mouse click on the SpeedButton

public

  constructor Create(); override;

  

Create - constructor for TCustomEditButton: calls inherited Create then sets some defaults and initialises some variables

  destructor Destroy; override;

  procedure SetFocus; override;

  function Focused; override;

  procedure Clear;

  procedure ClearSelection; virtual;

  procedure CopyToClipboard; virtual;

  procedure CutToClipboard; virtual;

  procedure PasteFromClipboard; virtual;

  procedure SelectAll;

  procedure Undo; virtual;

  procedure ValidateEdit; virtual;

  property Autosize: Boolean;

  

TCustomEditBtn sets default to True

  property Alignment: TAlignment; [rw]

  property CanUndo: Boolean; [r]

  property CaretPos: TPoint; [rw]

  property CharCase: TEditCharCase; [rw]

  property ParentColor: Boolean; [rw]

  property EchoMode: TEchoMode; [rw]

  property HideSelection: Boolean; [rw]

  property MaxLength: Integer; [rw]

  property Modified: Boolean; [rw]

  property NumbersOnly: Boolean; [rw]

  property PasswordChar: Char; [rw]

  property PopupMenu: TPopupMenu; [rw]

  property ReadOnly: Boolean; [rw]

  property SelLength: Integer; [rw]

  property SelStart: Integer; [rw]

  property SelText: string; [rw]

  property TabStop: Boolean; [rw]

  property Text: TCaption; [rw]

  property OnChange: TNotifyEvent; [rw]

  property OnClick: TNotifyEvent; [rw]

  property OnDblClick: TNotifyEvent; [rw]

  property OnDragDrop: TDragDropEvent; [rw]

  property OnDragOver: TDragOverEvent; [rw]

  property OnEditingDone: TNotifyEvent; [rw]

  property OnEndDrag: TEndDragEvent; [rw]

  property OnEnter: TNotifyEvent; [rw]

  property OnExit: TNotifyEvent; [rw]

  property OnMouseDown: TMouseEvent; [rw]

  property OnKeyPress: TKeyPressEvent; [rw]

  property OnKeyDown: TKeyEvent; [rw]

  property OnKeyUp: TKeyEvent; [rw]

  property OnMouseEnter: TNotifyEvent; [rw]

  property OnMouseLeave: TNotifyEvent; [rw]

  property OnMouseMove: TMouseMoveEvent; [rw]

  property OnMouseWheel: TMouseWheelEvent; [rw]

  property OnMouseWheelUp: TMouseWheelUpDownEvent; [rw]

  property OnMouseWheelDown: TMouseWheelUpDownEvent; [rw]

  property OnMouseUp: TMouseEvent; [rw]

  property OnStartDrag: TStartDragEvent; [rw]

  property OnUtf8KeyPress: TUTF8KeyPressEvent; [rw]

end;

Inheritance

TCustomEditButton

  

TCustomEditButton - base class for TEditButton, an Edit Box with attached Speed Button

|

TCustomControl

  

The base class for windowed controls which paint themselves.

|

TWinControl

  

The base class for controls which can contain other (child) controls.

|

TControl

  

The base class for visible controls.

|

TLCLComponent

  

The base class for LCL components associated with widgets.

|

TComponent

?

TObject