extras/tiopf/mvp/fpgui_intf.pas


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

unit fpgui_intf;

{$mode objfpc}{$H+}

interface

uses
  gui_menu, basic_intf;
  
type

  IPopupCommandMenu = interface(IInterface)
    ['{812C1940-A8BD-4BB4-AE8D-37A912D44A6D}']
    function GetMenu: TfpgPopupMenu;
    procedure SetMenu(const AValue: TfpgPopupMenu);
    property Menu: TfpgPopupMenu read GetMenu write SetMenu;
  end;

implementation

end.