Class TCustomPopupEdit (unit Popedits)

Inherits from

TCustomMaskEdit

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;



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;