src/menu/UMenuInteract.pas


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

unit UMenuInteract;

interface

{$IFDEF FPC}
  {$MODE Delphi}
{$ENDIF}

{$I switches.inc}

type
  TInteract = record // for moving thru menu
    Typ:    integer;  // 0 - button, 1 - select, 2 - Text, 3 - Select SLide, 5 - ButtonCollection Child
    Num:    integer;  // number of this item in proper list like buttons, selects
  end;

implementation

end.