ImageField.Text(X, Y, Color : Integer; Text : String)
Нарисовать текст

Метод ImageField.Text рисует текст Text цветом Color, верхний левый угол которой имеет координаты X, Y.

Шрифт для рисования текста можно выбрать с помощью метода SetFont.

Вычислить высоту и ширину надписи можно с помощью методов TextWidth и TextHeight.

Пример:

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