BitBlt

[dizzy]

Delphi-Quellcode:

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

Mit Höhe/Breite vorher und einem Repaint (keine Ahnung warum genau, scheinbar wird erst im Repaint die neue Größe an das Canvas weiter gereicht, und es selber hat diese Properties garnicht) klappt das wunderbar.

[Die Muhkuh]

Thx,

jetzt gates!