Вывод текста

Вывод текста

I. Процедуры outtext, outtextxy выводят текст: первая Ч начиная с текущего положения указателя, вторая Ч с точки, заданной координатами х,у.

Формат обращения: outtext (текст); outtextxy(x,y,TeKCT); где текст Ч выражение типа string или char.

II. Процедура gettextsettings позволяет получить инфорнмацию о текущем шрифте, его размере, форматированнии строки.

Формат обращения: gettextsettings (стиль); где стиль Ч переменная типа textsettingstype. Паранметр стиль объявляется в модуле graph как: type textsettingstype = record font, direction, charsize, horiz, vert: word end; где:

Чfont Ч загружаемый шрифт, для которого должен существовать файл с типом .chr; возможные значения:

const

defaultfont     = 0;{загружаемый по умолчанию}

triplexfont     = 1;{утроенный шрифт}

smallfont       = 2;{уменьшенный шрифт}

sanssertiffont = 3;{прямой шрифт}

gothicfont     = 4;{готический шрифт};

Чdirection Ч направление выдачи символов с возможнными значениями:

const

horizdir =0;{выдача текста слева направо}

vertdir =1;{выдача текста снизу вверх};

Ч charsize Ч размер символа, может принимать знанчения от 1 до 30;

Ч horiz, vert определяет выравнивание строки по горинзонтали и вертикали. Для первого выравнивания опренделены константы:

const lefttext     = 0;{левое выравнивание}

centertext = 1 ;{центрирование}

righttext   = 2; {правое выравнивание}.

Для второго:

const

bottomtext = 0;{прижимается вниз}

toptext     = 1 (прижимается вверх}.

III. Процедуры settextstyle и settextjustify позволяют устанновить все необходимые параметры для вывода текста. Формат обращения: settextstyle (font,direction,charsize);

settextjustify( horiz, vert);

Пояснения к спискам аргументов и их возможным знанчениям приведены выше.

IV.  Функции texthight и textwidth возвращают максимальнную высоту и длину строки в точках.

Формат обращения: texthight(TeKCT), textwidth (текст)

V. Процедура setusercharsize позволяет для выбранного шрифта изменять ширину или высоту символов.

Формат обращения: setusercharsize(tx1 ,ty1 ,tx2,ty2); где tx1,ty1,tx2,ty2 Ч выражения типа word, причем на отношение tx1/tx2 будет умножена стандартная ширинна, а на отношение ty1/ty2 Ч стандартная высота. Чтобы получить буквы текста в два раза шире, следует задать: setusercharsize(2,1,1,1 );outtextxy(300,170,'ЛИМА');