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

i: integer;

begin

frame(pos_tab[sel1].x, 2, 1+pos_tab[sel1].x+sub_menu_max_len(m, sel1)+1,

m.item1[sel1].items+3, '', c5+16*c6, c7+16*c8, false);

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

if i=sel2 then begin

colors(c3, c4);

end else begin

colors(c1, c2);

end;

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

write(' '+m.item1[sel1].item2[i].text+' '+strings(

sub_menu_max_len(m, sel1)-length(m.item1[sel1].item2[i].text)));

end;

end;

var

main_menu_position: integer;

sub_menu_position: integer;

sub_menu_open: boolean;

ch: char;

saved_x, saved_y: byte;

saved_colors: byte;

begin

cursor($20, $20);

saved_colors:=textattr;

saved_x:=wherex;

saved_y:=wherey;

main_menu_position:=m.current;

sub_menu_open:=false;

create_pos_tab;