ImageField.SetFont(Name : String; Size : Integer; Bold, Italic, Underline : Boolean)
Выбрать шрифт для рисования текста.

Метод ImageField.SetFont выбирает шрифт, который будет использован для рисования текста методом Text. Выбранный шрифт так же используется методами TextWidth, TextHeight.

Параметр Name содержит наименование шрифта.

Параметр Size содержит размер шрифта. Если число положительное, то размер соответствует высоте в пикселях. Если отрицательное, то размер задан в пунктах. Если размер равен 0, то используется стандартный размер шрифта Windows.

Если параметр Bold=True, то используется жирный шрифт.

Если параметр Italic=True, то используется курсив (наклонный шрифт).

Если параметр Underline=True, то рисуемая надпись будет подчеркнута.

Пример:

Procedure OnCreate;
Var
  X, Y : Integer;
Begin
  Img.Resize(256, 256);
  Img.SetFont('Arial', 80, False, False, False);
  X := (Img.Width - Img.TextWidth('Привет')) div 2;
  Y := (Img.Height - Img.TextHeight) div 2;
  Img.Text(X, Y, 0xFFC080, 'Привет');
End;                  

Результат работы:

© RTIT