Thema: Delphi tbitmap bewegen

Einzelnen Beitrag anzeigen

Julzn

Registriert seit: 22. Jan 2006
Ort: Pfaffenhofen a.d. Glonn
27 Beiträge
 
#1

tbitmap bewegen

  Alt 10. Jul 2006, 13:38
tag leutz,
alos ich hab jetzt schon ziemlich lang gesucht un auch sachen gefunden...
aber bei mir funzt des alles ned so ganz, oder ich bin einfach zu blöd dafür.

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
  a:=150;
  b:=150;
  bmp[0]:= tbitmap.Create;
  bmp[0].LoadFromFile('b_rot.bmp');
  bmp[0].TransparentColor:=clblue;
  bmp[0].Transparent:=true;
  bmp[0].Width:=50;
  bmp[0].Height:=50;
  canvas.Draw(150,150,bmp[0]);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  a:=a+5;
  b:=b+10;
  BitBlt(pb.Canvas.Handle,a,b,bmp[0].width,bmp[0].Height,bmp[0].Canvas.Handle,a,b,SrcCopy);
end;
also wenn ich den ersten button drück malt er was er soll, aber wenn ich dann den andren drück passiert gar nix. könnt ihr vllt mal erklären was da bei bitblt so alles in den klammern steht. was zb die werte wo jetzt a und b steht sind.

thx
  Mit Zitat antworten Zitat