mit scanline bitmap auf farben scannen

[Garfield]

Zitat:

Zitat von ToXiC

wie kommst du auf diesen wert?

Das ganze basiert auf TByteArray und TWordArray. Das ist in der SysUtils mit

Delphi-Quellcode:

type
  PByteArray = ^TByteArray;
  TByteArray = array[0..32767] of Byte;

  PWordArray = ^TWordArray;
  TWordArray = array[0..16383] of Word;

deklariert.

Bei pf24bit und pf32bit hast Du anstelle Byte TRGBTriple und TRGBQuad.

Delphi-Quellcode:

var
  Row_pf8bit : pByteArray;
  Row_pf15bit: pWordArray;
  Row_pf16bit: pWordArray;
  Row_pf24bit: pRGBTripleArray;
  Row_pf32bit: pRGBQuadArray;

Bei Earl F. Glynn findet man auch die Deklarationen

Delphi-Quellcode:

type
  pRGBTripleArray = ^TRGBTripleArray;
  TRGBTripleArray = ARRAY[WORD] OF TRGBTriple;

  pRGBQuadArray = ^TRGBQuadArray;
  TRGBQuadArray = ARRAY[WORD] OF TRGBQuad;

Da wäre dann eigentlich

Delphi-Quellcode:

PixelCountMax = 65535;