Обучающая программа "Графика" программированию в графическом режиме на языке turbo-pascal 7.x
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
* procedure OutTextXY(X,Y:integer;TextString);
Выводит на экран последовательность символов начиная с позиции
(X,Y) и возвращает курсор в положение, предшествующее обращению к
данной процедуре.
* procedure GetTextSettings(var TextInfo:TextSettingsType);
Возвращает текущий тип текстового шрифта,его направление, раз-
мер,параметры горизонтального и вертикального выравнивания, установ-
ленные ранее процедурами SetTextStyle и SetTextJustify,либо по умол-
чанию при вхождении в графический режим. Тип TextSettingsType описан
в модуле Graph как запись, поля которой - Font,Direction:word;
CharSize:CharSizeType; Horiz,Vert:word; - по смыслу и типу аналогич-
ны одноименныым параметрам процедур SetTextStyle и SetTextJustify.
ФОРМИРОВАНИЕ ГРАФИЧЕСКИХ ТЕКСТОВ
В языке Turbo-Pascal предусмотрена возможность использовать
новые штриховые шрифты,не входящие в систему фирмы Borland Interna-
tional, но совместимых с этой системой по файловой форме представле-
ния. Для этого необходимо файлы новых шрифтов, которые должны иметь
расширение .chr, предварительно загрузить в каталог, содержащий файл
Turbo.exe интегрированной среды Turbo-Pascal, а в прикладной
программе использовать функцию InstallUserFont.
* function InstallUserFont(NewFont:string):integer;
Инсталлирует новый штриховой шрифт, т.е.вводит во внутреннюю
таблицу шрифтов имя файла нового шрифта NewFont и возвращает номер
этого шрифта в указанной таблице для использования в качестве значе-
ния параметра Font процедуры SetTextStyly.
Внутренняя таблица может содержать до 10 имен шрифтов, из
которых 4 стандартных в ней содержатся постоянно. В файловой системе
лабораторных компьютеров содержатся файлы 4 нестандартных штриховых
шрифтов с именами: Bold.chr, Goth.chr, Sans.chr,Trip.chr.
Если внутренняя таблица штриховых шрифтов переполнена, то
функция возвращает значение 0 и, следовательно, устанавливается
стандартный растровый шрифт. Для сброса внутренней таблицы шрифтов в
исходное положение можно заново перезапустить операционную систему.
На следующем экране Вы можете наблюдать примеры четырех нес-
тандартных штриховых шрифтов, упомянутых в данном разделе.
#
ФОРМИРОВАНИЕ ГРАФИЧЕСКИХ ТЕКСТОВ
3
0
01КАКИЕ ВОЗМОЖНОСТИ , СВЯЗАННЫЕ С НАПРАВЛЕНИЕМ ВЫВОДА ТЕКСТОВОЙ
ИНФОРМАЦИИ, ДАЕТ ГРАФИЧЕСКИЙ РЕЖИМ?
1 Возможен только горизонтальный вывод.
2 Возможен как горизонтальный так и вертикальны выводы.
3 Горизонтальный, вертикальный и вывод по горизонтали.
4 Имеется возможность горизонтального вывода для всех шрифтов и
для растрового - вывод по вертикали.
*
02УСТАНАВЛИВАЮТСЯ ЛИ ТИП СТАНДРАТНОГО ШРИФТА, НАПРАВЛЕНИЕ ТЕКСТОВОЙ
СТРОКИ И РАЗМЕР СИМВОЛОВ ОДНОЙ ПРОЦЕДУРОЙ?
1 Нет. Эти параметры устанавливаются разными процедурами:
InstallUserFont; - стандартный шрифт
TextWidth; - размер символов
OutText; - направление вывода
2 Да. Эти параметры устанавливаются с помощью одной процедуры,
InstalUserFont;
3 Да. Перечисленные параметры устанавливаются с помощью процедуры
SetTextStyle;
4 Нет. В языке нет возможности устанавливать шрифт, направление
строке и размер символов.
*
03МОЖНО ЛИ ИЗМЕНИТЬ ПРОПОРЦИИ СИМВОЛОВ ЛЮБОГО ШРИФТА И ЕСЛИ МОЖНО, ТО
С ПОМОЩЬЮ КАКОЙ ПОЦЕДУРЫ?
1 Нет. Пропорции символов предусмотрены шрифтом и изменить их
нельзя .
2 Можно. С помощью процедуры SetUserCharSize .
3 Можно изменить пропорции только штрихового шрифта с помощью
процедуры SetUserCharSize.
4 Можно. С помощью процедуры SetTexStyle.
*
04ЧЕМ ОТЛИЧАЮТСЯ ПРОЦЕДУРЫ OutText и OutTextXY?
1 Ничем. Они полностью аналогичны.
2 Процедуры отличаются привязкой выводимого текста.
3 Процедуры отличаются привязкой выводимого текста и положением
курсора после выполнения процедур.
4 Процедура OutText осуществляет вывод символьной строки с
текущего положения курсора, а процедура OutTextXY обеспечивает
привязку графического текста без его вывода.
*
05СОСТАВИТЬ ПРОГРАММУ ВЫВОДА СЛОВА "ПРОГРАММА" ПО НИЖНЕЙ КРОМКЕ БЕЛОГО ЭКРАНА РАСТРОВЫМ ШРИФТОМ ЗЕЛЕНОГО (2) ЦВЕТА РАЗМЕРА 6.
1 SetBkColor(15);
SetColor(2);
SetTextStyle(1,0,6);
OutTextXY(0,GetMaxY,ПРОГРАММА);
2 SetBkColor(15);
SetColor(2);
SetTextStyle(0,1,6);
OutTextXY(GetMaxX,0,ПРОГРАММА);
3 SetBkColor(15);
SetColor(2);
SetTextStyle(0,6,1);
OutTextXY(0,GetMaxY,ПРОГРАММА);
4 SetBkColor(15);
SetColor(2);
SetTextStyle(0,0,6);
OutTextXY(0,GetMaxY,ПРОГРАММА);
*
06СОСТАВИТЬ ПРОГРАММУ ГОРИЗОНТАЛЬНОГО ВЫВОДА СЛОВА "КЛАСС" В ВИДЕ
СТРОКИ ДЛИНОЙ 300 ПИКСЕЛОВ С ИСПОЛЬЗОВАНИЕМ ГОРИЗОНТАЛЬНО
ДЕФОРМИРОВАННОГО СТАНДАРТНОГО ШТРИХОВОГО ШРИФТА SanserifFont
КРАСНОГО (4) ЦВЕТА РАЗМЕРА 10.
1 SetColor(4);
SetTextStyle(SanSerifFont,HorizDir,10);
K:=TextWidth(КЛАСС);
SetUserCharSize(300,K,1,1);
2 SetColor(4);
SetTextStyle(SanSerifFont,VertDir,10);
K:=TextWidth(КЛАСС);
SetUserCharSize(300,K,1,1);
3 SetColor(4);
SetTextStyle(SanSerifFont,Horizdir,10);
K:=TextHeight(КЛАС?/p>