Thema: TRGBTriple

Einzelnen Beitrag anzeigen

Benutzerbild von s.h.a.r.k
s.h.a.r.k

Registriert seit: 26. Mai 2004
3.159 Beiträge
 
#7

AW: TRGBTriple

  Alt 21. Jul 2011, 17:27
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)
  Mit Zitat antworten Zitat