BitBlt

[Die Muhkuh]

Hi,

meine Frage passt jetzt grad hierher.

Und zwar:

ich hab folgenden Code:

Delphi-Quellcode:

  with TOpenDialog.Create(nil) do
  begin
    if Execute then
    begin
      Bitmap.LoadFromFile(Filename);
      BitBlt(Ebene1.Canvas.Handle, 0, 0, Bitmap.Width, Bitmap.Height, Bitmap.Canvas.Handle , 0, 0, SRCCOPY);
      Ebene1.Width := Bitmap.Width;
      Ebene1.Height := Bitmap.Height;
    end;
  end;

Ebene1 ist eine paintbox, aber da passiert nix. Das Bild wird nicht angezeigt.