TOvcEdPopup

type TOvcEdPopup = class(TOvcCustomEdit)

protected

  FButton: TOvcEdButton;

  FButtonGlyph: TBitmap;

  FPopupActive: Boolean;

  FPopupAnchor: TOvcPopupAnchor;

  FOnPopupClose: TOvcPopupEvent;

  FOnPopupOpen: TOvcPopupEvent;

  FShowButton: Boolean;

  function GetButtonGlyph;

  procedure SetButtonGlyph();

  procedure SetShowButton();

  function GetButtonWidth;

  procedure CreateParams(); override;

  procedure CreateWnd; override;

  function GetButtonEnabled; dynamic;

  procedure GlyphChanged; dynamic;

  procedure Loaded; override;

  procedure OnMsgClose(); message;

  procedure OnMsgOpen(); message;

  property PopupAnchor: TOvcPopupAnchor; [rw]

  property ShowButton: Boolean; [rw]

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure SetBounds(); override;

  procedure PopupClose(); dynamic;

  procedure PopupOpen; dynamic;

  property ButtonGlyph: TBitmap; [rw]

  property OnPopupClose: TOvcPopupEvent; [rw]

  property OnPopupOpen: TOvcPopupEvent; [rw]

  property PopupActive: Boolean; [r]

  property Controller: TOvcController;

end;

TOvcEdPopup

TOvcCustomEdit

TObject