Как получить доступ к массиву пикселов DIB

[kudasov]

Добрый день.
Создаю HBITMAP

var
  bi: BITMAPINFO;
  hB: HBITMAP;
  DC: HDC;
  Scr: Pointer;
begin
  DC := CreateCompatibleDC(0);

  FillChar(bi, SizeOf(bi), 0);
  bi.bmiHeader.biSize := SizeOf(BITMAPINFOHEADER);
  bi.bmiHeader.biWidth := asize.cx;
  bi.bmiHeader.biHeight := asize.cy;
  bi.bmiHeader.biPlanes := 1;
  bi.bmiHeader.biBitCount := 32;
  bi.bmiHeader.biCompression := BI_RGB;
  bi.bmiHeader.biSizeImage := asize.cx * asize.cy * 4;

  Scr := nil;
  hB := CreateDIBSection(DC, bi, DIB_RGB_COLORS, Scr, 0, 0);

Как получить доступ к R,G,B,A значениям каждого пиксела через указатель Scr?
Спасибо

[Vapaamies]

В модуле Windows описан стандартный тип TRGBQuad, но он только для одного цвета, а не для массива. Я бы описал свои типы, ибо TRGBQuad кажется дурацким:

type
  TAlphaRGB = packed record
    Blue, Green, Red, Alpha: Byte;
  end;

  PAlphaDIB = ^TAlphaDIB;
  TAlphaDIB = array[0..MaxInt div SizeOf(TAlphaRGB) - 1] of TAlphaRGB;

var
  Scr: PAlphaDIB;
begin
  ...
  Scr := AllocMem(asize.cx * asize.cy * SizeOf(TAlphaRGB)); // заполняет нулями = черным
  Scr[0].Red := $FF; // ставим красную точку
end;