Alpha Channel eines Icons extrahieren?!

[Muetze1]

Moin!

Hinweise zu dem Code:

1. PRGBQuad und TRGBQuad sind in der Windows.pas definiert und somit kann es hier leicht zu Typ-Überschneidungen kommen

2. Ich würde niemals diese Einschränkung mit dem Array in Kauf nehmen sondern immer umgehen. Weil wenn man mal ein Bild mit einer Weite von mehr als 16385 hat, dann hagelts AVs bzw. RangeCheck Errors. Da man aber eh linear auf die Scanline zugreift (in den meisten Fällen) reicht es hier auch einfach ein PRGBQuad zu nehmen und diesen einfach immer zu inkrementieren.

3. Ich würde immer zur Sicherheit eine Abfrage einbauen in die Funktion, ob es wirklich ein PixelFormat von pf32Bit vorliegen, weil es sonst leicht mal zu Problemen führen kann - u.a. wenn es ein DDB Bitmap ist.

Delphi-Quellcode:

var y, x: Integer;
    lPixel: PRGBQuad;
begin
  for y := 0 to bmp.Height-1 do
    begin
      lPixel := bmp.ScanLine[y]; // hier lädst du die Farbwerte des Pixels
      for x := 0 to bmp.Width-1 do
      Begin
        lPixel^.rgbReserved // ist dann der Alpha-Wert}
        Inc(lPixel);
      End;
    end;
end;

MfG
Muetze1