Предыдущая страница реферата | 6  7  8  9  10  11  12  13  14  15  16 | Следующая страница реферата



SETCOLOR(colo)

cls

@ 3,0 SAY 'Не введено имя pdf файла!'

ENDIF

SETCOLOR(colo)

DIRCHANGE (tmppat) //возвращает сохраненный текущий каталог

SETCOLOR('g/n')

@ MAXROW()-1,15 SAY 'Shurasoft 1997 Mihail & Alexandr Company'

SETCOLOR(colo) //возвращение текущего цвета при выходе

?' '

RETURN

//*****************************************************************

FUNCTION GL() //главное меню

CLEAR GETS

cglold:=setcolor('n/rg')

@ 11,5 CLEAR TO maxrow()-2,maxcol()-6

@ 11,5 TO maxrow()-2,maxcol()-6 DOUBLE

set cursor off

set scoreboard off

readexit(.F.)

set cursor on

set date format to 'dd.mm.yyyy'

setpos(12,(maxcol()/2)-4)

dispout(' АТРИБУТЫ ','g+/b')

@ 13,7 say "Имя комплекта................................" color ('W+/rg') get attrtmp color('rg+/rg,n/w')

@ 14,7 say "Ограничение по высоте сверху в mm............" color ('W+/rg') get higttmp picture '@B 999.99' color('gr+/rg,n/w')

@ 15,7 say "Ограничение по высоте снизу в mm............." color ('W+/rg') get higtdtmp picture '@B 999.99' color('gr+/rg,n/w')

setcolor(cglold)

set cursor off

mas:={{'Атрибуты', 'Компоновка', 'Выход'},{"Редактирование атрибутов файла", "Скомпоновать файл в формате T-FLEX", "Выход в DOS"}}

str:=MENU (mas,14,perv)

perv=str

str1:=10

IF str=1 //если выбран пункт АТРИБУТЫ- запустить меню , //позволяющее изменить атрибуты

set cursor on

read

set cursor off

ELSEIF str=2 //если выбран пункт КОМПОНОВКА- запустить //процедуру анализа pdf- файла

WSELECT(0)

SETCOLOR('n/bg')

Рекомендуем скачать другие рефераты по теме: шпори, рефераты по биологии.

Предыдущая страница реферата | 6  7  8  9  10  11  12  13  14  15  16 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки