ImageField.SetPixel(X, Y, Color : Integer)
Нарисовать точку

Метод ImageField.SetPixel рисует точку в координатах X,Y, цветом Color.

Пример:

Procedure OnCreate;
Var
  i, j : Integer;
Begin
  img.Resize(256, 256);
  For i:=0 To 255 Do 
    For j:=0 To 255 Do 
      img.SetPixel(i, j, i+(j Shl 8)+((255-(i+j) Div 2) Shl 16));
End;

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

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

© RTIT