ich bin noch ziemlicher Anfänger was die Grafikprogrammierung in Delphi betrifft, habe aber fest gestellt, dass der BitBlt in etwa dem in VB entspricht.
Kann mit jemand erklären wie ich das in Delphi verwende?
- Code: Alles auswählen
procedure DrawSprite(C:TCanvas; Sprite, Shape: TImage; X, Y:Integer);
begin
BitBlt(C.Handle, 0, 0, Sprite.Width, Sprite.Height,
Shape.Canvas.Handle, 0, 0, SRCAnd);
BitBlt(C.Handle, 0, 0, Sprite.Width, Sprite.Height,
Sprite.Canvas.Handle, 0, 0, SRCInvert);
// Beispiel:
// DrawSprite(PaintBox1.Canvas, Image1, Image2, 0, 0);
end;
Vielen Danke schon mal
david
PS:
