[gelöst] Bild vergrößern mit StretchBlt

[EWeiss]

nö da hat sich nichts überschnitten ..

Hier ein Bild.. denke so soll es sein oder ?

Delphi-Quellcode:

Procedure TForm1.Button6Click(Sender: TObject);
var
tmpImage : TImage;

Begin
  tmpImage := TImage.create(self);

   If OpenDialog1.Execute Then
   Begin
    tmpImage.Picture.Bitmap.LoadFromFile(OpenDialog1.FileName);
    StretchBlt(Image1.Canvas.Handle,    // Ziel
      0,0,Image1.Width,Image1.Height,  // Ziel Ausmaße
      tmpImage.Canvas.Handle,            // Quelle
      0,0,tmpImage.Picture.Bitmap.Width,tmpImage.Picture.Bitmap.Height,   // Ausmaße Quelle
      SRCCOPY);

      Button3.Enabled:=True;
      Button4.Enabled:=True;
      Button5.Enabled:=True;
   End;
End;

gruss Emil