Delphi-Quellcode:
type
TRGBRec = packed record R, G, B: Byte; end; // oder war's B,G,R ?
TRGBArr = array[0..0] of TRGBRec;
PRGBArr = ^TRGBArr;
Und nun einfach den Scanline-Pointer nach PRGB casten.
Das Ergebnis ist nun ein Array aller Pixel der gewählten Zeile.
Delphi-Quellcode:
var
P: PRGBArr;
Pixel: TRGBRec;
P := PRGBArr(b.Scanline[x]);
Pixel := P^[y]; // das ^ ist in Delphi nicht unbedingt nötig
Pixel := P[y];
Pixel := PRGBArr(b.Scanline[x])[y];
Und natürlich nicht das pf24bit vergessen.