tbitmap bewegen

[Julzn]

hmmm, also ich weiss eigentlich ned genau wo ich die übermalfunktion :lol:
hinschreibn soll. bis jetzt sieht des so aus. aber ich denk mal dass da
auch so noch einiges zu verbessern is. zb des mit source and dest
bei bitblt.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  a:=150;
  b:=150;
  ball[0]:= tbitmap.Create;
  ball[0].LoadFromFile('b_lemon.bmp');
  ball[0].TransparentColor:=clwhite;
  ball[0].Transparent:=true;
  ball[0].Width:=50;
  ball[0].Height:=50;
  paintbox1.canvas.Draw(150,150,ball[0]);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  a:=a+10;
  b:=b+20;
  BitBlt(paintbox1.canvas.handle,a,b,50,50,canvas.handle,a-10,b-20,srccopy)
end;

einfach mal comment dazu
THX