nach StretchBlt schwarzer Hintergrund

[Neutral General]

Klappt denn dein ursprünglicher Code wenn du Pixelformat auf pf32Bit stellst?
Hab nämlich letztens noch genau das selbe gemacht und das hat funktioniert.

[Helmi]

Zitat von Neutral General:

Klappt denn dein ursprünglicher Code wenn du Pixelformat auf pf32Bit stellst?
Hab nämlich letztens noch genau das selbe gemacht und das hat funktioniert.

Leider nein

Ich hab alle drei Bitmaps (Bitmap, Temp_Bitmap, Copy_Bitmap) mal testweise auf pf32Bit gesetzt, aber ohne Verbesserung des Problemes

[edit]
Ich glaub ich weiss wo das Problem ist
Der schwarze Hintergrund ist schon im Original-Bitmap vorhanden

Das Original-Bitmap beinhaltet ein Icon

Test-Code:

Delphi-Quellcode:

procedure TForm3.Button2Click(Sender: TObject);
var
  S: String;
  Bitmap: TBitmap;
  Icon: TIcon;

begin
  S := ExtractFilePath(Application.ExeName);

  Bitmap := TBitmap.Create;
  Icon := TIcon.Create;

  try
//    Bitmap.LoadFromFile(S + 't.bmp');

    Icon.Handle := ExtractIcon(Application.Handle, PChar(Application.ExeName), 0);

    Icon.SaveToFile(S + 'test.ico');

    Bitmap.Assign(Icon);

    Bitmap.SaveToFile(S + 'origtest.bmp');

    Scale_Bitmap(Bitmap, 100, 200, true);

    Bitmap.SaveToFile(S + 'test.bmp');
  finally
    Bitmap.Free;
    Icon.Free;
  end;
end;

Schon origtest.bmp hat den schwarzen Hintergrund

[DeddyH]

Interessanter Artikel: http://parnassus.co/transparent-grap...re-gdi-part-1/, aber ehrlich gesagt wäre GDI+ wohl einfacher.

[Helmi]

Zitat von DeddyH:

Interessanter Artikel: http://parnassus.co/transparent-grap...re-gdi-part-1/, aber ehrlich gesagt wäre GDI+ wohl einfacher.

Dank dir!

ja - ich tendier auch zu GDI+

Aber wie zukunftssicher ist das?

[DeddyH]

Um das sicher zu erfahren müsstest Du wohl bei Microsoft anfragen.

[Neutral General]

Es gibt doch auch seit ein paar Delphi Versionen (Edit: Seit Delphi2010) ein Direct2D-Canvas was schon direkt mitgeliefert wird. Ist auch nicht schwerer als GDI+ (vllt sogar leichter) und DirectX wird wahrscheinlich so schnell nicht abgeschafft werden

[Helmi]

Zitat von Neutral General:

Es gibt doch auch seit ein paar Delphi Versionen (Edit: Seit Delphi2010) ein Direct2D-Canvas was schon direkt mitgeliefert wird. Ist auch nicht schwerer als GDI+ (vllt sogar leichter) und DirectX wird wahrscheinlich so schnell nicht abgeschafft werden

Ich hab mit Direct2DCanvas jetzt mal was gebastelt:

Delphi-Quellcode:

procedure Scale_Bitmap(var Bitmap: TBitmap; DestWidth, DestHeight: Integer);
var
  faktor      : Real;
  Width_Bitmap: Integer;
  D2DCanvas   : TDirect2DCanvas;
  Temp_Bitmap : TBitmap;
  Rect        : TRect;

begin
  If Bitmap.Empty then
    exit;

  Temp_Bitmap := TBitmap.Create;

  Width_Bitmap := Bitmap.Width div 1; //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;

  Rect.Left   := 0;
  Rect.Top    := 0;
  Rect.Width  := round(Bitmap.Width * faktor);
  Rect.Height := round(Bitmap.Height * faktor);

  Temp_Bitmap.Width := Rect.Width;
  Temp_Bitmap.Height := Rect.Height;

  D2DCanvas := TDirect2DCanvas.Create(Temp_Bitmap.Canvas, Rect);
  D2DCanvas.BeginDraw;

  try
    D2DCanvas.StretchDraw(Rect, Bitmap);

    Bitmap.Assign(Temp_Bitmap);
  finally
    D2DCanvas.EndDraw;
    FreeAndNil(D2DCanvas);
    FreeAndNil(Temp_Bitmap);
  end;
end;

[edit]
Mist - jetzt hab ich anstatt eines schwarzen Hintergrundes einen weissen Hintergrund

[Harry Stahl]

[QUOTE=Helmi;1291491
Schon origtest.bmp hat den schwarzen Hintergrund[/QUOTE]

Du kannst die Beschaffenheit des Icons näher erkunden, indem Du das Icon oder die erzeugte Bitmap einfach mal in ein Grafikprogramm lädst, das Icons oder auch 32-bit-Bitmaps anzeigen kann. Ich habe mal das Icon und das Bitmap in mein Pixpower-Programm geladen und man erkennt, dass z.B. das Standard-Delphi-Icon einen schwarzen Hintergrund hat und bei diesen schwarzen Pixeln aber das Alpha-Pixel auf Null gesetzt ist (vgl. Anlage 1). Daneben sind noch teiltransparente Pixel vorhanden, also wo das Alpha-Pixel einen Wert zwischen 1 und 254 hat.

Das gleiche Bitmap wird aber in Programmen, welche keine 32-Bit-Bitmaps (richtig) anzeigen können, mit schwarzem Hintergrund angezeigt, z.B. Die Windows Fotoanzeige (vgl. Anlage 2).

Dann weiß Du nämlich schon mal, was am Ende Deiner Bemühungen als richtiges Ergebnis dabei rauskommen soll.

[Helmi]

Zitat von Harry Stahl:

Das gleiche Bitmap wird aber in Programmen, welche keine 32-Bit-Bitmaps (richtig) anzeigen können, mit schwarzem Hintergrund angezeigt, z.B. Die Windows Fotoanzeige (vgl. Anlage 2).

mmh - diese Aussage find ich interessant

Ich muss, glaub ich, noch etwas über das Verarbeiten nach dem Skalieren erzählen

Das skalierte Bitmap wird danach in einem StringGrid angezeigt und zwar mittels diesem Code:
StringGrid.Canvas.Draw(Rect.Left, Rect.Top, Bitmap); Und da bekomm ich immer den Hintergrund mit

[edit]
Ich hab jetzt nochmal meinen Ausgangscode modifiziert und hab diese Zeilen eingefügt
und eigenartigerweise funktionierts jetzt

Delphi-Quellcode:

Bitmap.TransparentColor := Bitmap.Canvas.Pixels[Bitmap.Width, Bitmap.Height];
Bitmap.Transparent := true;

[Harry Stahl]

OK, wenn das Bitmap richtig skaliert wurde und die Transparenz richtig beibehalten wurde, dann sollte die Anzeige damit korrekt möglich sein.

Wahrscheinlich ist Deine Skalierungsmethode noch nicht richtig.

Ich habe zwar die Skalierung von 32-Bit Bitmaps in meinem Bildbearbeitungsprogramm integriert, leider kann ich hier keine fertige Lösung posten, da ich für die Skalierung selber verschiedene Methoden verwende und hier ein Mix zwischen eigenen Source-Code und kommerziell erworben Parts besteht.

Generell habe ich es so gelöst, dass ich von dem 32-Bit-Bitmap ein 24-Bit Graustufen-Bild (als Hilfsbitmap) aus dem Alpha-Kanal erstelle. Dann wird das 32-Bit auf ein 24-Bit gesetzt und z.B. mit Stretchblt (oder eben anderen Methoden) skaliert. Auch das Graufstufen-Bild wird dann mit der gleichen Methode skaliert. Dann wird das skalierte 24-Bitmap auf 32-Bit gesetzt und der Alpha-Kanal aus dem skalierten Graustufenbild erzeugt.