why is my graphic doing this

[dterbeest]

HI Guys,

i've been fooling around with sprite animation in delphi. been using the flickerless animation tut on this site for that! (thnx btw)
anyhow, i've got a problem with some transparency things. cant show pic here, but can mail it to someone who thinks of an answer..

here's some code:

Code: Select all

procedure TForm2.TimBackTimer(Sender: TObject);
begin
  PaintBox1.Canvas.CopyMode:=cmSrcCopy;
  PaintBox1.Canvas.CopyRect(Rect(0,0,800,600),backgrndimg.Canvas,Rect(0,0,800,600));

  PaintBox1.Canvas.CopyMode:=cmSrcAnd;
  PaintBox1.Canvas.CopyRect(SpriteRect,maskimg.Canvas,RectArrBack[TelBack]);

  PaintBox1.Canvas.CopyMode:=cmSrcPaint;
  PaintBox1.Canvas.CopyRect(SpriteRect,Image1.Canvas,RectArrBack[TelBack]);
  if TelBack<3 then
    Inc(TelBack)
  else
    TelBack:=0;
  Inc(StartY,SprSpeed);
end;


all sugestions are very welcome! thanx in advance!