Остается след от BitMap при движении
snake-as © (2009-04-25 18:28:00)
Здравствуйте. Я делаю работу с движением картинки. И на этой
картинке рисуется еще одна(накладывается как второй холст). И так
картинка, которая движется оставляет след на форме. Как этого
избежать без очистки всего канваса? Может я что с параметрами
напутал. Вот код.
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:00) [1]
Form1.DoubleBuffered:=True;
см. в поиске - мерцание изображения
Наверх 
ЧАТ |
Орешник |
|
