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.
Noch ein Hinweis hierzu: Sollte man die Bereichsüberprüfung aktiviert haben, dann kracht es unter Umständen aufgrund dieser Definition:
TRGBArr = array[0..0] of TRGBRec;
. Man sollte daher die obere Grenze nicht 0, sondern wesentlich größer setzen, sodass die Bereichsprüfung nicht zuschlagen kann.
»Remember, the future maintainer is the person you should be writing code for, not the compiler.« (Nick Hodges)