Иллюстрированный самоучитель по Delphi 7 для начинающих › Графические возможности Delphi › Вывод текста [страница - 185] | Самоучители по программированию

Вывод текста

Таблица 10.7. Свойства объекта TFont.

Свойство	Определяет
Name	Используемый шрифт. В качестве значения следует использовать название шрифта, например Arial
Size	Размер шрифта в пунктах (points). Пункт– это единица измерения размера шрифта, используемая в полиграфии. Один пункт равен 1/72 дюйма
Style	Стиль начертания символов. Может быть: нормальным, полужирным, курсивным, подчеркнутым, перечеркнутым. Стиль задается при помощи следующих констант: fsBold (полужирный), fsltalic (курсив), fsUnderline (подчеркнутый), fsStrikeOut (перечеркнутый).
style	Свойство style является множеством, что позволяет комбинировать необходимые стили. Например, инструкция программы, устанавливающая стиль "полужирный курсив", выглядит так: Объект.Canvas.Font: = [fsBold, fs Italic]
Color	Цвет символов. В качестве значения можно использовать константу типа Tcolor

Внимание!
Область вывода текста закрашивается текущим цветом кисти. Поэтому перед выводом текста свойству Brush.Color нужно присвоить значение bsClear или задать цвет кисти, совпадающий с цветом поверхности, на которую выводится текст.

Следующий фрагмент программы демонстрирует использование функции Textout для вывода текста на поверхность формы:

with Form1.Canvas do begin
// установить характеристики шрифта
Font.Name: = 'Tahoma';
Font.Size: = 20;
Font.Style: = [fsltalic, fsBold];
Brush.Style: = bsClear; // область вывода текста не закраши-
TextOut(0, 10, 'Borland Delphi 7');
end;

После вывода текста методом Textout указатель вывода (карандаш) перемещается в правый верхний угол области вывода текста.

Иногда требуется вывести какой-либо текст после сообщения, длина которого во время разработки программы неизвестна. Например, это может быть слово "руб." после значения числа, записанного прописью. В этом случае необходимо знать координаты правой границы уже выведенного текста. Координаты правой границы текста, выведенного методом Textout, можно получить, обратившись к свойству PenPos.

Следующий фрагмент программы демонстрирует возможность вывода строки текста при помощи двух инструкций Textout.

with Form1.Canvas do begin
TextOut(0, 10, 'Borland ');
TextOut(PenPos.X, PenPos.Y, 'Delphi 7');
end;