Розробка комп'ютерних навчальних засобів з обраної предметної області, Детальна інформація

var

i: integer;

begin

gotoxy(1, 1);

colors(c1, c2);

clreol;

for i:=1 to m.mains do begin

if i=sel then begin

colors(c3, c4);

end else begin

colors(c1, c2);

end;

gotoxy(pos_tab[i].x, 1);

write(' '+m.item1[i].text+' ');

end;

end;

function sub_menu_max_len(m: menu; n: integer): integer;

var

i, max: integer;

begin

max:=0;

for i:=1 to m.item1[n].items do begin

if max
max:=length(m.item1[n].item2[i].text);

end;

end;

sub_menu_max_len:=max;

end;

procedure sub_show(m: menu; sel1, sel2: integer);

var