Konvertieren eines TBitmap zu einem TPngImage tut später komische Dinge

[Bernhard Geyer]

Das Transparenzpixel ist links unten.

Und auch beim Skalieren kann man die Semitransparenz des PNG erhalten.
Unter http://cc.embarcadero.com/Item/25631 gibts Quellcode die das (Qualität müsstest du selbst bewerten) Skalieren auch für PNGs mit beibehalten der Semitransparenz durchführt.

[Sherlock]

Unter Windows? Bleib bei dem PNG, schreib es in ein TWICImage und skaliere das.
http://docwiki.embarcadero.com/VCL/e...hics.TWICImage

Sherlock

[Der schöne Günther]

Mit dem TWicImage hatte ich es schon versucht, war aber zu dumm dafür. Deine flapsige Antwort ließ es so trivial klingen dass ich es nochmal versuchen musste. Und ich glaube, jetzt habe ich's:

Delphi-Quellcode:

uses Winapi.Wincodec;

procedure TForm5.recalcImageNew();
const
   interpolationMode: WICBitmapInterpolationMode = WICBitmapInterpolationModeFant;
var
   wicImage: TWICImage;
   bitmapScaler: IWicBitmapScaler;

   aspectRatio: Double;
   newSize: TPoint;
begin
   wicImage := TWICImage.Create();
   wicImage.ImageFormat := TWICImageFormat.wifPng;
   wicImage.LoadFromFile('Zeichnung1.png');

   aspectRatio := 1.0;
   if image1.Width < image1.Height then
      aspectRatio := image1.Width / wicImage.Width
   else
      aspectRatio := image1.Height / wicImage.Height;
   newSize.X := Round( wicImage.Width * aspectRatio);
   newSize.Y := Round( wicImage.Height * aspectRatio);


   wicImage.ImagingFactory.CreateBitmapScaler(bitmapScaler);
   bitmapScaler.Initialize(wicImage.Handle, newSize.X, newSize.Y, interpolationMode);
   wicImage.Handle := IWICBitmap(bitmapScaler);

   image1.Picture.Assign(wicImage);
end;

Das sieht gut aus und flackert nicht. Vielen Dank für die Hilfe und den seelischen Beistand.


Warum aber der obige Quellcode so merkwürdige Ergebnisse produziert habe ich nicht im geringsten verstanden

[Sherlock]

Ich weiss doch, daß man Dir nicht mit Details kommen muss

Ich habs so gemacht (proportionalies Resize):

Delphi-Quellcode:

procedure ResizeImage(aWICImage: TWICImage; NewWidth:Integer);
var
  scale: IWICBitmapScaler;
  wicBitmap: IWICBitmap;
  newHeight:Integer;
  faktor:Double;
begin
  if Assigned(aWICImage) then
  begin
    faktor := NewWidth / aWICImage.Width;
    newHeight := Round(aWICImage.Height  * faktor);

    aWICImage.ImagingFactory.CreateBitmapScaler(scale);
    scale.Initialize(aWICImage.Handle, NewWidth, NewHeight, WICBitmapInterpolationModeFant);
    aWICImage.ImagingFactory.CreateBitmapFromSourceRect(scale, 0,0,NewWidth, NewHeight, wicBitmap);
    if Assigned(wicBitmap) then
      aWICImage.Handle := wicBitmap;
  end;
end;

Wie Du siehst, weitgehend gleich.
Sherlock