Установка цвета и палитры

Выравнивание текста

Установка шрифта.

Шрифты

Вывод численных значений

Вывод текста

РАБОТА С ТЕКСТОМ

OutText(Textstring: string)

пример: ОutТехt(‘Вводите данные:’);

OutTextXY(X,Y:integer; TextString:string),

где X, Y — координаты точки начала вывода текста,

TextString — константа или переменная типа string,

пример: OutTextXY(60,100,'Для продолжения нажмите любую клавишу...');

В модуле GRAPH для вывода численных данных нужно сначала преобразовать число в строку с помощью процедуры Str, а затем посредством '+' подключить ее к выводимой OutTextXY строке.

Например:

Мах:=34.56;

Str (Мах:6:2,Smax); {Результат преобразования находится в Smax}

OutTextXY(400,40, ' Максимум = ' + Smax); {+конкатенация}

Таблица 6.Константы типа шрифта

Шрифт	Значение	Примечание
DefaultFont		8x8 растровый шрифт
TriplexFont		Штриховой шрифт
SmallFont		Штриховой шрифт
SansSerifFont		Штриховой шрифт
GothicFont		Штриховой шрифт
HorizDir		Направление слева направо
VertDir		Направление снизу вверх
UserCharSize		Размер символов, определяемый программистом

Шрифты SmallFont, SansSerifFont, GothicFont являются векторными и не содержат русских символов.

Установить нужный шрифт можно процедурой

SetTextStyle(Font:word; Direction:word; CharSize:word);

где Font — выбранный шрифт,

Direction — направление (горизонтальное или вертикальное),

CharSize — размер выводимых символов.

Фрагмент 3. Шрифтом DefaultFont выведем две строки: вертикальную и горизонтальную разной величины:

SetTextStyle(0,1,1);{Буквы стандартной величины}

Outtextxy(200,200,'Вертикальная строка' );

SetTextStyle(0,0,2); {Размер букв увеличен}

Outtextxy(200,220,'Горизонтальная строка');

Выравнивание текста выполняется с помощью процедуры

SetTextJustify(Horiz,Vert:word);

как по вертикали, так и по горизонтали посредством задания параметров Horiz и Vert. Их возможные значения приведены в Таблица 7 и Таблица 8.

Таблица 7

Константы выравнивания текста по горизонтали

Константа	Значение	Примечание
LeftText		По левому краю
CenterText		По центру
RightText		По правому краю

Таблица 8

Константы выравнивания текста по вертикали

Константа	Значение	Примечание
BottomText CenterText TopText		По нижней линии По центру По верхней линии

Фрагмент 4. В качестве примера выведем X²:

SetTextJustify(CenterText,CenterText);

OutTextXY(100,100, ‘X’);

SetTextJustify(1,0);

OutTextXY(108,100, ‘ 2’);

Значение степени будет расположено выше X, как это обычно делается при записи вручную. Аналогичным способом можно пространственно сформировать и вывести на экран практически любую формулу.

После старта InitGraph вся информация об установленной в зависимости от режима драйвера палитре находится в переменной стандартного типа PaletteType.

Получить информацию о текущей палитре можно с помощью процедуры GetDefaultPalette(var Palette:PaletteType), где Palette — переменная типа PaletteType. Доступ к полям такой же, как и при работе с обычными переменными типа record.

SetColor(Color:word) устанавливает цвет Color, для процедур графического вывода. Пока цвет не определен, для вывода используется цвет с максимальным номер палитры, и фон с минимальным номером. Если Color задает недопустимый номер цвета, текущий цвет остается неизменным.

SetBkColor(Color:word) устанавливает новый цвет фона.

Дата добавления: 2014-01-05