Графика в Delphi, Работа с Canvas. Опции

[dron4ik]

Всем привет. Имеется следующая процедура...она полностью рабочая, но хочется ее изменить...в данный момент процедура выводит квадратики...а хотелось бы чтобы она выводила другую фигуру..или вместо фигуры отображалась маленькая картинка..

procedure TForm02.OnDraw(var Mes: TMessage);

var
  rp, rn: TRect;
begin
  with TProcess02(Mes.LParam) do begin
    with rp, PrevPoint do begin
      Left   := Round(ScaleX * x);
      Right  := Left + CellWidth;
      Top    := Round(ScaleY * y);
      Bottom := Top + CellHeight;
    end;
    with rn, NextPoint do begin
      Left   := Round(ScaleX * x);
      Right  := Left + CellWidth;
      Top    := Round(ScaleY * y);
      Bottom := Top + CellHeight;
    end;
    with PaintBox.Canvas do begin
      Brush.Color := color;// Теперь после потока появился шлейф
      if brush.Color = clwhite then
       brush.Color := clred;
      FillRect(rp);
      Brush.Color :=Color;
      // После умирания потока остается синяя точка
      if brush.Color = clwhite then
       brush.Color := clblue;
      FillRect(rn);
    end;
  end;
end;

[volvo]

А можно присоединить сюда ту картинку, с которой ты работаешь? Я попробовал несколько штук - везде результаты одинаковые, вся поверхность заполняется. Какого размера твое изображение вообще?

Добавлено через 7 мин.
Так. Стоп. Вопрос отменяется, я скопировал твой код один в один - теперь действительно не заполняются крайние снизу и справа ряды. Когда я добавлял к оригинальному коду работу с битмапом - все было прекрасно. Сейчас посмотрю, в чем разница.