Transparency

[NeiL]

Уважаемые программисты, дайте советы как определить прозрачности на Bitmap32

[Showy]

unit Unit1;
interface

 uses
  Windows,Messages,Graphics;
  type
  pRGBQ=^TRGBQ;
  TRGBQ= array  [word] of TRGBQuad;

 Function GetAlpha(BMP:TBitmap;x,y:integer):byte;

  implementation

Function GetAlpha(BMP:TBitmap;x,y:integer):byte;
var
 pB: pRGBQ;
begin
 bmp.PixelFormat:=pf32bit;
 pB := bmp.Scanline[y];
 Result := pB[x*4].rgbReserved;
end;

end.

Написал, но не проверял. Вроде должно работать