nach StretchBlt schwarzer Hintergrund

[Helmi]

Hallo,

ich nutze zum skalieren von Bitmaps diese Function:

Delphi-Quellcode:

procedure Scale_Bitmap(var Bitmap: TBitmap; DestWidth, DestHeight: Integer;
  Smooth: Boolean = false);
var
  faktor      : Real;
  Width_Bitmap: Integer;
  Temp_Bitmap : TBitmap;
  Copy_Bitmap : TBitmap;

begin
  If Bitmap.Empty then
    exit;

  Temp_Bitmap := TBitmap.Create;
  Copy_Bitmap := TBitmap.Create;

  Width_Bitmap := Bitmap.Width div Count_Glyphs(Bitmap);

  If Width_Bitmap > DestWidth then
    begin
      faktor := DestWidth / Width_Bitmap;
      If (Bitmap.Height * faktor) > DestHeight then
        faktor := DestHeight / Bitmap.Height;
    end
  else
    begin
      faktor := DestHeight / Bitmap.Height;
      If (Width_Bitmap * faktor) > DestWidth then
        faktor := DestWidth / Width_Bitmap;
    end;

  try
    Copy_Bitmap.PixelFormat := pf24Bit;
    Copy_Bitmap.Assign(Bitmap);

    Temp_Bitmap.Width  := round(Bitmap.Width * faktor);
    Temp_Bitmap.Height := round(Bitmap.Height * faktor);

    If Smooth then
      SetStretchBltMode(Temp_Bitmap.Canvas.Handle, HALFTONE);

    StretchBlt(Temp_Bitmap.Canvas.Handle, 0, 0, Temp_Bitmap.Width, Temp_Bitmap.Height,
               Copy_Bitmap.Canvas.Handle, 0, 0, Copy_Bitmap.Width, Copy_Bitmap.Height,
               SRCCOPY);

    Bitmap.Assign(Temp_Bitmap);
  finally
    FreeAndNil(Temp_Bitmap);
    FreeAndNil(Copy_Bitmap);
  end;
end;

Das Vergrößern/Verkleinern funktioniert wunderbar - nur habe ich immer nach StretchBlt einen scharzen Hintergrund.
Das Original-Bitmap hat einen transparenten Hintergrund.

Ich habe schon versucht, die Transparenz-Properties von Bitmap auf Temp_Bitmap zu übertragen - aber geholfen hat es nichts.

Wie bekomm ich nach StrechBlt auch eine Transparenz?

Ich habe diesen Thread gefunden - aber leider hat er mir auch nicht geholfen

[BadenPower]

Hast Du schon versucht mit SetStretchBltMode einen anderen Modus zu nehmen?

Statt HALFTONE eventuell COLORONCOLOR.

Ich habe gerade noch gesehen, dass Du den Modus nur setzt, wenn Smooth true ist.

[Helmi]

Zitat von BadenPower:

Hast Du schon versucht mit SetStretchBltMode einen anderen Modus zu nehmen?

Statt HALFTONE eventuell COLORONCOLOR.

hab ich versucht, aber leider ohne Erfolg

Zitat von BadenPower:

Ich habe gerade noch gesehen, dass Du den Modus nur setzt, wenn Smooth true ist.

smooth ist true

[Namenloser]

Na, du setzt Pixelformat auf pf24Bit, und wunderst dich dann, dass du keinen Alpha-Kanal mehr hast? Die GDI ist allerdings generell nicht alphakanaltauglich, d.h. auch pf32Bit wird hier keine Besserung bringen.

Was du machen willst ist mit der GDI schlicht nicht möglich. Nimm Graphics32 oder GDI+.

[Helmi]

Zitat von Namenloser:

Na, du setzt Pixelformat auf pf24Bit, und wunderst dich dann, dass du keinen Alpha-Kanal mehr hast? Die GDI ist allerdings generell nicht alphakanaltauglich, d.h. auch pf32Bit wird hier keine Besserung bringen.

Was du machen willst ist mit der GDI schlicht nicht möglich. Nimm Graphics32 oder GDI+.

Wie macht man das mit GDI+?

[ConnorMcLeod]

Googlen, saugen und usen:

• GDIPAPI.pas
• GDIPOBJ.pas

Die gibt es meistens als ZIP-Package.

Als Objekte werden benötigt:
TGPGraphics
TGPImage
TColorMatrix
TGPImageAttributes
TGPMatrix

Leider habe ich meinen Code, in dem ich das gemacht habe, nicht zur Hand; hoffe das hilft trotzdem.

[Bernhard Geyer]

Oder händisch machen. Wir haben sowas für PNGs im einsatz.

[ConnorMcLeod]

Könnte auch mit Hilfe eines TPicture-Objektes gehen. Das verwende ich für transparente PNGs, allerdings ohne Manipulationen - nur malen. Wäre ein Experiment wert, ob es auch noch nach Dimensionsänderungen transparent malt.

[Helmi]

ich hab mir jetzt GUI+ von hier geladen

werd mich jetzt etwas damit auseinander setzen

bislang bin ich schon von der automatischen Umwandlung der Bild-Formate begeistert

[Medium]

Werd aber nicht ZU euphorisch, denn GDI+ ist seit ein paar Jahren schon abgekündigt. (Aber wenn mich nicht alles täuscht, ist die zumindest bis Win8.1 dabei, und für Win10 habe ich auch noch nichts gegenteiliges gehört. Ist halt nur nicht mehr garantiert und wird nicht mehr weiter entwickelt.)