BitBlt, deklariert in der
Unit Windows. Ein Aufruf könnte so aussehen:
Delphi-Quellcode:
procedure TForm1.FormPaint(Sender: TObject);
begin
BitBlt(PaintBox.Canvas.Handle, 0, 0, Bitmap.Width, Bitmap.Height, Bitmap.Canvas.Handle, 0, 0, SRCCOPY);
end;
Natürlich könntest du auch
Canvas.Draw nutzen, nur ist dies meines Wissens etwas langsamer, bin mir aber nicht sicher.