6 UI_MAX_ELEMENTS
=62;//63
14 function addUIElement(el_type
, x
, y
:integer):integer;
15 procedure delUIElement(i
:integer);
16 procedure clearUIElements
;
17 function getUIx(i
:integer):integer;
18 function getUIy(i
:integer):integer;
19 function getUIw(i
:integer):integer;
20 function getUIh(i
:integer):integer;
23 //Main UI functions and vars
26 ui_type
: array [0..UI_MAX_STACK
, 0..UI_MAX_ELEMENTS
] of integer;
27 ui_x
: array [0..UI_MAX_STACK
, 0..UI_MAX_ELEMENTS
] of integer;
28 ui_y
: array [0..UI_MAX_STACK
, 0..UI_MAX_ELEMENTS
] of integer;
34 ui_type
[layer
, 0]:=ui_type
[layer
, 0];
41 ui_type
[layer
, 0]:=ui_type
[layer
, 0];
44 //Return id added element or UI_ERROR
45 function addUIElement(el_type
, x
, y
:integer):integer;
49 for i
:=0 to UI_MAX_ELEMENTS
do
50 if ui_type
[layer
, i
]=UI_TYPE_NULL
then
52 ui_type
[layer
, i
]:=el_type
;
59 addUIElement
:=UI_ERROR
;
62 procedure delUIElement(i
:integer);
64 ui_type
[layer
, i
]:=UI_TYPE_NULL
;
69 procedure clearUIElements
;
73 for i
:=0 to UI_MAX_ELEMENTS
do
77 function getUIx(i
:integer):integer;
79 getUIx
:=ui_x
[layer
, i
];
82 function getUIy(i
:integer):integer;
84 getUIy
:=ui_y
[layer
, i
];
87 function getUIw(i
:integer):integer;
92 function getUIh(i
:integer):integer;