PNG laden und Transformieren

[DLX]

Hi,

ich möchte ein PNG laden, welches aber dynamisch angezeigt wird, ist sowas überhaupt möglich ?
Ich möchte eine fixe höhe von z.b. 80, das Bild darf sich nun proportional nach rechts strecken so das die aspect ratio eingehalten wird, nur die größe bleibt eben fixiert.

soweit zur theorie, ist sowas überhaupt machbar ? Ich hab keine Idee

[SebastianZ]

Nach kurzen googlen folgende (gerade getestete) Lösung:

Du musst die Unit Vcl.Imaging.pngimage einbinden.

Delphi-Quellcode:

  procedure copy_to_resized_png( tar, src:string; w, h: Integer);
  var
    bmp: TBitmap;
    png, output: TPngImage;
  begin
    png := TPngImage.Create;
    png.LoadFromFile( src);
    bmp := TBitmap.Create;
    bmp.Width := w;
    bmp.Height := h;

    bmp.Canvas.StretchDraw( RECT( 0, 0, w, h), png);

    output := TPngImage.Create;
    output.Assign( bmp);
    output.SaveToFile( tar);

    output.Free;
    bmp.Free;
    png.Free;
  end;

Quelle: https://juststrcpy.wordpress.com/200...e-in-delphi-1/

[haentschman]

Zitat:

Nach kurzen googlen folgende (gerade getestete) Lösung:

...auch Goo.. ist nicht unfehlbar! try / finally ist für die ein indisches Gewürz.

[KodeZwerg]

Das sample skaliert nicht, es füllt w/h aus mehr nicht.

[KodeZwerg]

Hier kannst Du Lernen wie man den Aspect-Ratio berechnet.

[DeddyH]

StretchGraphic, allerdings geht dabei evtl. Transparenz flöten.