Вот как реализован этот пример.

procedure TForm1.FormPaint(Sender:TObject);

Var

X: Integer;

LF: TLogFont;

Fnt: HFont;

Const

Text = 'Лучшая в мире система программирования';

Begin

// Определяем параметры нового шрифта

FillChar(LF, SizeOf(LF), 0);

with LF do

Begin

If Height:= 20;

If Weight:= fw_Normal;

If Underline:= 1;

If Escapement:= 450;

StrPCopy(lfFaceName, 'Courier New Cyr');

End;

with Forml.Canvas do

Begin

// Создаем шрифт

Fnt := CreateFontIndirect(LF);

// Присваиваем его дескриптор шрифту канвы

Font.Handle:= Fnt;

// Выводим текст под углом +45 градусов

Text0ut(0, 300, Text);

X:= TextWidth(Text);

DeleteObject(Fnt); // Удаляем ненужный шрифт

// Изменяем параметры шрифта

with LF do

Begin

If Height:= 90;

IfEscapement:= -900;

IfWeight:= fw_Heavy;

StrPCopy(LF.lfFaceName, 'Arial Cyr');

End;

Fnt:= CreateFontIndirect(LF); // Создаем новый шрифт

Font.Handle:= Fnt;

Font.Color:= clRed;

// Выводим с наклоном -90 градусов

TextOut(X-10, 10, 'Delphi 5');

DeleteObject(Fnt); // Удаляем ненужный шрифт

End;

End;

Параметр Format функции DrawText может содержать один или несколько следующих флагов.

Возможные значения параметра Format функции DrawText

dt Bottom	Текст прижимается к нижней части области Rect
dtCalcRect	Разрешает динамически изменять размеры области Rect
dtCenter	Текст центрируется по горизонтали
dtEditControl	Функция дублирует свойства отображения многострочного тестового редактора. В частности, таким же способом вычисляется средняя ширина символа и не показывается частично видимая последняя строка
dtExpandTabs	Символы табуляции заменяются пробелами
dt ExternalLeading	В высоту строки включается высота межстрочного интервала
dtLeft	Текст прижимается к левой части области Rect
dtNoClip	Текст не отсекается границами Rect
dtNoPrefix	Символы & не заменяются подчеркиванием
dtRight	Текст прижимается к правой части области Rect
dt SingleLine	Весь текст выводится единственной строкой, символы EOLN игнорируются
dt TabsStop	Символы табуляции не заменяются пробелами
dtTop	Текст прижимается к верхней части области R'ect
dtVCenter	Текст центрируется по вертикали
dtWordBreak	Разрешает переход на новую строку при достижении пра вой границы Rect; разрыв строки - на границе слова; символы EOLN также переводят вывод на следующую строку

Если установлен флаг dt_caicRect, функция изменяет высоту и ширину прямоугольника так, чтобы вывести весь текст, но сам текст не выводится. Если в тексте несколько строк, ширина вывода не меняется. Функция возвращает истинную высоту прямоугольника вывода.

Параметр options функции ExtTextOut может быть комбинацией следующих значений:

eto_Сlipped - текст будет отсекаться границами Rect;

eto_Gliph_index - блокирует обработку языковым драйвером;

eto_opaque - фон перерисовывается заново;

eto_RTLReading - вывод для чтения справа налево. При выводе текста стандартными методами rcanvas всегда заново прорисовывается фон символов (цвет фона возвращает функция GetBkColor). Если цвет фона символов отличается от фона канвы, вывод сопровождается неприятными побочными эффектами. Если в предыдущем примере для формы оставить стандартный цвет ciFaceBtn, окно вывода будет таким, как на рис. 16.6. Конечно, с помощью функции setBkcoior можно установить цвет формы совпадающим с цветом канвы, однако это не всегда возможно. Ясно, что установить переменный цвет функцией SetBkcoior невозможно. Более того, заглавные надписи программ Setup.exe также традиционно выводятся утолщенным наклонным шрифтом Times New Roman белыми буквами с черной тенью. Реализовать такой эффект достаточно просто: нужно вообще отказаться от прорисовки фона, установив с помощью функции SetBkMode режим Transparent, и вывести надпись дважды: первый раз черным цветом, а второй -белым, сместив вторую надпись немного влево и вверх относительно первой. Следующий листинг иллюстрирует сказанное.

procedure TFormI.FormPaint(Sender: TObject);

Var

Y: Integer;

Blue: Byte;

Const

Text = 'Фон для программы Setup.exe';

Begin

with Forml.Canvas do

Begin

for Y:= 0 to Forml.Height-1 do

Begin

// Уменьшаем интенсивность цвета с ростом ординаты Y

Blue:= Round($FF*(Forml.Height-Y)/Forml.Height);

Pen.Color:= RGB(0, 0, Blue); // Формируем цвет

MoveTo(0, Y); // Чертим линию

LineTo(Forml.Width-1, Y);

end; // for Y:= 0 to Forml.Height-1 do Font.Size:= 32;

Font.Style:= [fsBold, fsltalic, fsUnderline];

Font.Name:= 'Times New Roman";

// Это обращение накладывает текст на фон SetBkMode(Handle, Transparent);

// Сначала выводим тень надписи

Font.Color:= clBlack;

Text0ut(40, 30, Text);

// Теперь саму надпись Font.Color:= clWhite;

Text0ut(36, 26, Text)

end; // with Forml.Canvas do end;

Замечу, что любая заливка фона, в том числе его прорисовка, реализуется с помощью кисти. Поэтому отказаться от прорисовки фона текста можно, если установить стиль кисти bsciear: вместо

SetBkMode(Handle, Transparent);

можно использовать

Brush.Style:= bsClear;

16.4.4.2. Области

К сожалению, в класс TCanvas не включена еще одна изобразительная возможность Windows - области (Regions). Области - такие же графические объекты, как перо, кисть, шрифт. Они образуются с помощью комбинации простейших геометрических фигур - прямоугольников, многоугольников, эллипсов. Замечательной особенностью областей является возможность создания с их помощью непрямоугольных кнопок, цветовых областей, окон. А вот как оно было создано:

Uses

Forms,

Unit1 in 'Unitl.pas' {Formi}, Windows; // Этот модуль экспортирует функции API

{$R *.RES} var

Rgn: Cardinal;

Begin

// Сначала создаем обычное окно:

Application.CreateForm(Tform1, Form1);

with Formi.Canvas, Formi do

Begin

// Теперь создаем в нем эллиптическую область

Rgn:= CreateEllipticRgn(0, 0, Width, Height);

// и показываем ее вместо окна

SetWindowRgn(Handle, Rgn, True);

End;

Application.Run;

End.

Ниже перечислены основные функции для работы с областями.