Wie erstellt man ein transparentes pf32bit-Bitmap?

[jaenicke]

Wobei eine Bitmap dafür eigentlich wenig sinnvoll ist. Muss es denn unbedingt eine Bitmap sein?

[Thom]

Zitat von jaenicke:

Wobei eine Bitmap dafür eigentlich wenig sinnvoll ist. [...]

Zitat von Bernhard Geyer:

[...] Dann sind solche problematischen Workarounds gar nicht mehr nötig.

Zitat von Namenloser:

Ich glaube mit Bordmitteln geht das nicht wirklich, weil das alles noch auf GDI32 aufbaut. [...]

Ist schon interessant, wie hartnäckig sich Vorurteile halten...

Natürlich geht das auch mit TBitmap.
Wichtig ist, daß bei der Erstellung des Bitmaps auch die Eigenschaft AlphaFormat gesetzt wird, damit TBitmap intern die Methode AlphaBlend verwendet. Die zweite Sache ist, daß ein neues Bitmap weiß gefüllt ist und einen Alphawert von $FF für jedes Pixel besitzt. Deshalb muß es vor dem Kopieren eines Icons vollständig gelöscht werden, da sonst das Icon auf den weißen Hintergrund gerendert wird.

Da Du XE2 verwendest, habe ich das mal schnell als Class-Helper programmiert:

Delphi-Quellcode:

type
  TBitmapHelper = class helper for TBitmap
    procedure Clear(Color: TColor; Alpha: Byte);
  end;

procedure TBitmapHelper.Clear(Color: TColor; Alpha: Byte);
type
  TColor32 = packed record
    case Integer of
      0: (B, G, R, A: Byte);
      1: (BGRA: UInt32);
    end;
  TColor32Array = array[0..0] of TColor32;
  PColor32Array = ^TColor32Array;
var
  X, Y: Integer;
  R, G, B: Byte;
  Line: PColor32Array;
begin
  R:=GetRValue(Color);
  G:=GetGValue(Color);
  B:=GetBValue(Color);
  for Y:=0 to Height-1 do
  begin
    Line:=ScanLine[Y];
    for X:=0 to Width-1 do
    begin
      Line[X].R:=R;
      Line[X].G:=G;
      Line[X].B:=B;
      Line[X].A:=Alpha;
    end;
  end;
end;

Damit funktioniert sowohl das Kopieren eines 32Bit Bildes aus einer Image-Liste in das leere Bitmap als auch dessen Ausgabe in eine Paintbox:

Delphi-Quellcode:

procedure TForm1.PaintBox1Paint(Sender: TObject);
var
  Bmp: TBitmap;
begin
  Bmp:=TBitmap.Create;
  try
    Bmp.SetSize(50,50);
    Bmp.PixelFormat:=pf32bit;
    Bmp.AlphaFormat:=afDefined;
    Bmp.Clear(clBlack,0);
    ImageList1.Draw(Bmp.Canvas,0,0,0);
    //PaintBox1.Canvas.Draw(0,0,Bmp);
    PaintBox1.Canvas.StretchDraw(Rect(0,0,100,100),Bmp);
  finally
    Bmp.Free;
  end;
end;

[Bernhard Geyer]

Zitat von Thom:

Zitat von Bernhard Geyer:

[...] Dann sind solche problematischen Workarounds gar nicht mehr nötig.

Ist schon interessant, wie hartnäckig sich Vorurteile halten...

...

Da Du XE2 verwendest, habe ich das mal schnell als Class-Helper programmiert:

Das was du in einen Helper programmiert hast ist für mich ein Workaround. zwar nicht mehr ganz so unelegant wie früher ohne Helper, aber letztendlich ist es einer.

Also wo ist das Vorurteil?

[Thom]

Wozu sollte ein komplettes und umfangreiches Framework wie TBitmap32 oder Elpack verwendet werden, wenn das Problem auch mit einer einzigen (!!!) zusätzlichen Methode und integrierten Objekten zu lösen ist? Und weshalb stellt das Löschen eines 32Bit Bitmaps bzw. das Kopieren eines Bildes (Icon/Bitmap) aus einer Image-Liste in ein Bitmap einen "problematischen" Workaround dar?

Mit den Vorurteilen meinte ich die bezüglich der Untauglichkeit von TBitmap in Zusammenhang mit teiltransparenten Bildern. Es funktioniert (zumindest in neueren Delphi-Versionen) - man muß nur wissen, wie.

[jaenicke]

Zitat von Thom:

Es funktioniert (zumindest in neueren Delphi-Versionen) - man muß nur wissen, wie.

Es funktioniert, ja, das heißt aber nicht, dass es sinnvoll ist.
Aber wenn es nicht anders geht, bleibt einem ja nichts anderes übrig.

[Thom]

Wärst Du so nett und würdest Deine Behauptung "es ist nicht sinnvoll" auch mit nachvollziehbaren Argumenten untermauern?

[EWeiss]

Zitat von Thom:

Wärst Du so nett und würdest Deine Behauptung "es ist nicht sinnvoll" auch mit nachvollziehbaren Argumenten untermauern?

Wüßte jetzt auch nicht was da nicht sinnvoll sein soll
Alles macht sinn was letztendlich zum erfolg führt in welcher art auch immmer.

gruss