ImageField.Line(X, Y, X1, Y1, Width, Color : Integer)
Нарисовать линию.

Метод ImageField.Line рисует линию из координат (X, Y) в координаты (X1, Y1) толщиной Width пикселей и цветом Color.

Левый верхний угол имеет координаты (0,0).

Пример:

Procedure OnCreate;
Begin
  Img.Resize(256, 256);
  Img.Line(8, 8, 247, 100, 8, 0x000080);
  Img.Line(8, 8, 247, 100, 2, 0x0000FF);
  Img.Line(8, 128, 247, 128, 0, 0xFFFFFF);
End;                  

Procedure OnImgClick(X, Y, B, E : Integer);
Begin            
  If E=1 Then
  Begin
    Img.Line(X-4, Y-4, X+4, Y+4, 0, 0xFFFF00);
    Img.Line(X+4, Y-4, X-4, Y+4, 0, 0xFFFF00);
  End;
End;

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

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

© RTIT