| Class TCustomPopupEdit (unit Popedits) |
TCustomMaskEdit
| Constructors |
constructor Create(AOwner: TComponent);create component
| Functions |
destructor Destroy;
procedure BtnClick(Sender: TObject);
procedure CreateParams(var Params: TCreateParams);
procedure CreateWnd;
procedure CalcTextMargin;
function GetGlyph: TBitMap;
function GetMinHeight: Integer;
function GetNumGlyphs: integer;
procedure SetEditRect;
procedure SetGlyph(AGlyph: TBitmap);
procedure SetNumGlyphs(Value: integer);
procedure SetOnBtnClick(Value: TNotifyEvent);
procedure WMSize(var Message: TWMSize);| Properties |
property Button : TSpeedButton
property Glyph : TBitmap
property KeepAspect : boolean
property NumGlyphs : integer| Events |
event OnBtnClick : TNotifyEvent| Variables |
FAlignment : TAlignment;
FButton : TSpeedButton;
FFocused : Boolean;
FKeepAspect : boolean;
FOnBtnClick : TNotifyEvent;
FTextMargin : Integer;| Constructors |
constructor Create(AOwner: TComponent);public declarations
create component
| Functions |
destructor Destroy;destroy component
procedure BtnClick(Sender: TObject);protected declarations
procedure CreateParams(var Params: TCreateParams);set component Params
procedure CreateWnd;CreateWnd procedure
procedure CalcTextMargin;CalcTextMargin method
function GetGlyph: TBitMap;
function GetMinHeight: Integer;calculate minimum height
function GetNumGlyphs: integer;
procedure SetEditRect;SetEditRect procedure
procedure SetGlyph(AGlyph: TBitmap);
procedure SetNumGlyphs(Value: integer);
procedure SetOnBtnClick(Value: TNotifyEvent);
procedure WMSize(var Message: TWMSize);windows WMSize method
| Properties |
property Button : TSpeedButton
property Glyph : TBitmap
property KeepAspect : boolean
property NumGlyphs : integer| Events |
event OnBtnClick : TNotifyEvent| Variables |
FAlignment : TAlignment;
FButton : TSpeedButton;private declarations
FFocused : Boolean;
FKeepAspect : boolean;
FOnBtnClick : TNotifyEvent;
FTextMargin : Integer;