nach StretchBlt schwarzer Hintergrund

[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

[HolgerX]

Hallo..

Habe mal ne ganz blöde Frage:

Seit wann hat ein TBitmap Transparenz?

Meines Wissens wird eine Transparenz erst vom TImage erzeugt,indem es eine definierte Farbe (zumeist aus der Ecke des Bitmaps) bei der Visualisierung transparent darstellt, aber mit ist nicht bekannt, das TBitmap überhaupt eine Transparenz hat.

Wenn Du Transparenz nutzen willst, musste wohl ein Image-Format wählen, welches das kann, wie z.B. GIF oder PNG..
..

Ein Icon hat Transparenz und beim Assign zu einem TBitmap wird hier eine Füllfarbe verwendet, da TBitmap keins hat, in deinem Beispiel schwarz!

[Harry Stahl]

Zitat von HolgerX:

Hallo..

Habe mal ne ganz blöde Frage:

Seit wann hat ein TBitmap Transparenz?

Meines Wissens wird eine Transparenz erst vom TImage erzeugt,indem es eine definierte Farbe (zumeist aus der Ecke des Bitmaps) bei der Visualisierung transparent darstellt, aber mit ist nicht bekannt, das TBitmap überhaupt eine Transparenz hat.

Wenn Du Transparenz nutzen willst, musste wohl ein Image-Format wählen, welches das kann, wie z.B. GIF oder PNG..
..

Ein Icon hat Transparenz und beim Assign zu einem TBitmap wird hier eine Füllfarbe verwendet, da TBitmap keins hat, in deinem Beispiel schwarz!

Ein 32-Bit-Bitmap hat neben den RGB-Pixeln einen Alpha-Kanal (das A-Pixel), wo man einen Transparenzwert drin speichern kann. Allerdings können nicht alle Programme mit dem 32-Bit-Bitmap so richtig umgehen.

Der "Trick" mit der Ecke des Bitmaps (i.d.R. Bitmaps mit 24-Bit oder weniger) wird (z.B. auch in Delphi) verwendet, um eine bestimmte Farbe transparent erscheinen zu lassen. Damit kann man aber z.B. keine transparenten Verläufe darstellen, sondern nur eben eine Farbe transparent schalten.

[HolgerX]

Zitat von Harry Stahl:

Zitat von HolgerX:

Hallo..

Habe mal ne ganz blöde Frage:

Seit wann hat ein TBitmap Transparenz?

Meines Wissens wird eine Transparenz erst vom TImage erzeugt,indem es eine definierte Farbe (zumeist aus der Ecke des Bitmaps) bei der Visualisierung transparent darstellt, aber mit ist nicht bekannt, das TBitmap überhaupt eine Transparenz hat.

Wenn Du Transparenz nutzen willst, musste wohl ein Image-Format wählen, welches das kann, wie z.B. GIF oder PNG..
..

Ein Icon hat Transparenz und beim Assign zu einem TBitmap wird hier eine Füllfarbe verwendet, da TBitmap keins hat, in deinem Beispiel schwarz!

Ein 32-Bit-Bitmap hat neben den RGB-Pixeln einen Alpha-Kanal (das A-Pixel), wo man einen Transparenzwert drin speichern kann. Allerdings können nicht alle Programme mit dem 32-Bit-Bitmap so richtig umgehen.

Der "Trick" mit der Ecke des Bitmaps (i.d.R. Bitmaps mit 24-Bit oder weniger) wird (z.B. auch in Delphi) verwendet, um eine bestimmte Farbe transparent erscheinen zu lassen. Damit kann man aber z.B. keine transparenten Verläufe darstellen, sondern nur eben eine Farbe transparent schalten.

OK, dann kann die procedure Scale_Bitmap(var Bitmap: TBitmap; DestWidth, DestHeight: Integer);

u.a. von Helmi nur dann funktionieren, wenn
A) das QuellBitmap 32Bit hat
B) Temp_Bitmap entweder ebenfalls nach dem create auf 32bit gesetzt wird oder von Delphi direkt auf 32bit gesetzt ist..

Wenn ich mich recht entsinne macht Delphi als default nen 24bit, da u.a. ältere Delphi-Versionen mit 32bit garnicht umgehen konnten..