ImageField.Rect(X, Y, X1, Y1, Width, Color : Integer)
Нарисовать прямоугольник

Метод ImageField.Rect рисует прямоугольник с противоположными углами в координатах (X, Y) и (X1, Y1) толщиной Width пикселей и цветом Color.

Пример:

Procedure OnCreate;
Begin
  Img.Resize(256, 256);
  Img.Rect(239, 25, 25, 239, 8, 0x000080);
  Img.Rect(16, 16, 231, 231, 0, 0xFFFFFF);
End;                  

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

Смотри: Кодирование цвета.

© RTIT