5ed6620b
1 2 3 4 5 6 7 8 9 10 11 12 13 14
unit UMenuInteract; interface type TInteract = record // for moving thru menu Typ: integer; // 0 - button, 1 - select Num: integer; // number of this item in proper list like buttons, selects end; implementation end.