freepascal.ru

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

Ответ : 1
Среда : Lazarus
Операционная система : любая
Зависимости : -
Источник : http://freepascal.ru/forum/viewtopic.php?f=5&t=3603
Теги : рисование, canvas, артефакты

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

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

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

Или вот так:

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

Image1.Canvas.Brush.Color:=clWhite;
Image1.Canvas.FillRect(Image1.Canvas.ClipRect);


Дополнение к ответу 1: В отличие от Delphi на Lazarus выше приведенная процедура может не заработать, как хотелось бы, без строки

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

...Canvas.Brush.Style:=bsSolid;