Розробка комп'ютерних навчальних засобів з обраної предметної області, Детальна інформація
Розробка комп'ютерних навчальних засобів з обраної предметної області
Тип документу: Курсова
Сторінок: 29
Предмет: Комп`ютерні науки
Автор: фелікс
Розмір: 35.4
Скачувань: 1409
if ch=#80{Down} then begin
if sub_menu_position
inc(sub_menu_position);
end;
end;
end; {sub_menu_open}
end; {ch=#0}
if ch=#13{Enter} then begin
if not sub_menu_open then begin
sub_menu_open:=true;
sub_menu_position:=m.item1[main_menu_position].current;
end else begin
menu_run:=main_menu_position*256+sub_menu_position;
break;
end;
end;
if ch=#27{Esc} then begin
menu_run:=0;
break;
end;
until false;
screen_restore;
textattr:=saved_colors;
gotoxy(saved_x, saved_y);
cursor(6, 7);
end;
procedure menu_done(m: menu);
begin
end;
end.
if sub_menu_position
inc(sub_menu_position);
end;
end;
end; {sub_menu_open}
end; {ch=#0}
if ch=#13{Enter} then begin
if not sub_menu_open then begin
sub_menu_open:=true;
sub_menu_position:=m.item1[main_menu_position].current;
end else begin
menu_run:=main_menu_position*256+sub_menu_position;
break;
end;
end;
if ch=#27{Esc} then begin
menu_run:=0;
break;
end;
until false;
screen_restore;
textattr:=saved_colors;
gotoxy(saved_x, saved_y);
cursor(6, 7);
end;
procedure menu_done(m: menu);
begin
end;
end.
The online video editor trusted by teams to make professional video in
minutes
© Referats, Inc · All rights reserved 2021