TRGBTriple

[s.h.a.r.k]

Zitat von himitsu:

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.