Рисование на Image.Canvas ... Наличие "артефактов"!

[Andreich]

Столкнулся со следующей проблемой: нужно нарисовать что-либо на компоненте TImage, (например отрезок линии)

procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Canvas.MoveTo(10,10);
Image1.Canvas.LineTo(50,50);
end;

После выполнения отрисовки на ТImage наблюдается наличие графических "артефактов" непонятного происхождения! Причем если рисование производится на форме или в PaintBox, то все нормально!

Кто-нибудь сталкивался с подобным?!

P.S. Ubuntu 8.04.1 + Lazarus 0.9.24 (gtk2)

[Logo]

Это остается шум канваса. Закрасьте предварительно канвас каким-то цветом:

Код: Выделить всё

  Image1.Canvas.Brush.Color := clWhite;
  Image1.Canvas.FillRect(0, 0, Image1.Width, Image1.Height);
    Image1.Canvas.MoveTo(10,10);
    Image1.Canvas.LineTo(50,50);


[Brainenjii]

удобнее Image1.Canvas.FillRect(Image1.Canvas.ClipRect); ^_^ К сути претензий не имею ^_^

[Logo]

Для того и форум. Спасибо:)