Остается след от BitMap при движении

← →
snake-as © (2009-04-25 18:28) [0]

Здравствуйте. Я делаю работу с движением картинки. И на этой картинке рисуется еще одна(накладывается как второй холст). И так картинка, которая движется оставляет след на форме. Как этого избежать без очистки всего канваса? Может я что с параметрами напутал. Вот код.
pic := TBitMap.Create; pic2 := TBitmap.Create; pic.LoadFromFile("baner.bmp"); pic2.Width := 200; pic2.Height := 200; pic2.Canvas.MoveTo(0, 0); pic2.Canvas.LineTo(100, 100); procedure TForm1.Timer1Timer(Sender: TObject); begin Canvas.CopyMode := cmSrcCopy; Canvas.CopyRect(dRect,pic.Canvas,sRect); Canvas.CopyMode := cmSrcAnd; Canvas.CopyRect(dRect,pic2.Canvas,pic2.Canvas.ClipRect);

Заранее спасибо за портраченное время.

← →
HF-Trade © (2009-04-25 18:55) [1]

Form1.DoubleBuffered:=True;

см. в поиске - мерцание изображения

Остается след от BitMap при движении Найти похожие ветки