TOvcBorderEdPopup

type TOvcBorderEdPopup = class(TOvcBorderParent)

protected

  FButton: TOvcEdButton;

  FButtonGlyph: TBitmap;

  FController: TOvcController;

  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;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure PopupClose(); dynamic;

  procedure PopupOpen; dynamic;

  procedure SetBounds(); override;

  procedure SetEditControl(); override;

  property Canvas;

  property PopupActive: Boolean; [r]

  property PopupAnchor: TOvcPopupAnchor; [rw]

published

  property ButtonGlyph: TBitmap; [rw]

end;

TOvcBorderEdPopup

TOvcBorderParent

TOvcCustomControl

TObject