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

[samso]

Mir ist Dein "transparentes Bitmap" aufgestoßen. Meines Wissens gibt es so etwas doch gar nicht. Um die Transparenz zu simulieren wurde bei meinen Delphis immer ein bestimmtes Pixel (oben links?) genommen und dessen Farbe wurde dann zum Berechnen der Transparenz benutzt. Wenn Du das Bild skalierst werden diverse Mischfarben erzeugt. In der Folge sind dann die "transparenten" Pixel zumeist wild über das Bild verstreut. Um eine echte Transparenz zu erzeugen braucht man ein Bild das eine entsprechende Maske enthält (wie z.B. Icons) oder eine wirklich eindeutige Transparenz-Farbe.

[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

[Redeemer]

Zitat von samso:

Mir ist Dein "transparentes Bitmap" aufgestoßen. Meines Wissens gibt es so etwas doch gar nicht. Um die Transparenz zu simulieren wurde bei meinen Delphis immer ein bestimmtes Pixel (oben links?) genommen und dessen Farbe wurde dann zum Berechnen der Transparenz benutzt. Wenn Du das Bild skalierst werden diverse Mischfarben erzeugt. In der Folge sind dann die "transparenten" Pixel zumeist wild über das Bild verstreut. Um eine echte Transparenz zu erzeugen braucht man ein Bild das eine entsprechende Maske enthält (wie z.B. Icons) oder eine wirklich eindeutige Transparenz-Farbe.

Es gibt transparente Bitmaps, die funktionieren allerdings nur in TImageList mit ColorDepth := cd32Bit. Man muss dazu einer TBitmap ein TPNGImage assignen und das ganze in eine TImageList packen (AddMasked mit Mask clNone). Es scheint so, als würden halbtransparente Flächen während TBitmap.Assign gegen Schwarz geglättet, sprich sie werden z.T. deutlich dunkler. Zugriff auf Canvas killt die Transparenz von TBitmap, also muss man die Scanline kopieren, dann hat man das Problem nicht mehr:

Delphi-Quellcode:

function PNGToBMP(PNG: TPngImage; Free: Boolean = False): Graphics.TBitmap;
var
  i, j: Integer;
begin
  Result := Graphics.TBitmap.Create;
  Result.Assign(PNG);
  if PNG.Header.ColorType = COLOR_RGBALPHA then
  for i := 0 to PNG.Height - 1 do
  for j := 0 to PNG.Width - 1 do
  begin
    TByteArray(Result.ScanLine[i]^)[j*4] := TByteArray(PNG.Scanline[i]^)[j*3];
    TByteArray(Result.ScanLine[i]^)[j*4+1] := TByteArray(PNG.Scanline[i]^)[j*3+1];
    TByteArray(Result.ScanLine[i]^)[j*4+2] := TByteArray(PNG.Scanline[i]^)[j*3+2];
  end;
  if Free then
  PNG.Free;
end;

32-Bit-Bitmaps anzeigen (TPicture.Assign() oder TPicture.Bitmap zuweisen) glättet gegen weiß und tut andere seltsame Dinge. Also nur benutzen, um sie in TImageList zu packen.