TpvGUIPopupMenu

type TpvGUIPopupMenu = class(TpvGUIObject)

protected

  function GetSkin; virtual;

  procedure SetSkin(); virtual;

  function GetFont; virtual;

  function GetFontSize; virtual;

  function GetFontColor; virtual;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Activate();

  procedure FocusFirstMenuItem;

  procedure Deactivate;

  procedure DeactivateWindowMenu;

  procedure DeactivateSubmenus;

  function KeyEvent();

  function PointerEvent();

  function Scrolled();

  procedure Draw();

  property FontColor: TpvVector4; [rw]

published

  property Activated: Boolean; [r]

  property Skin: TpvGUISkin; [rw]

  property Font: TpvFont; [rw]

  property FontSize: TpvFloat; [rw]

  property Position: TpvVector2Property; [r]

  property ReleaseOnDeactivation: Boolean; [rw]

  property OnActivate: TpvGUIOnEvent; [rw]

  property OnDeactivate: TpvGUIOnEvent; [rw]

end;

TpvGUIPopupMenu

TpvGUIObject

TpvReferenceCountedObject,IpvGUIObject

TpvObject,IpvReferenceCountedObject

TObject