Einzelnen Beitrag anzeigen

Benutzerbild von Garfield
Garfield

Registriert seit: 9. Jul 2004
Ort: Aken (Anhalt-Bitterfeld)
1.334 Beiträge
 
Delphi XE5 Professional
 
#11

Re: mit scanline bitmap auf farben scannen

  Alt 4. Feb 2009, 06:47
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
PixelCountMax = 65535;
Gruss Garfield
Ubuntu 22.04: Laz2.2.2/FPC3.2.2 - VirtBox6.1+W10: D7PE, DXE5Prof
  Mit Zitat antworten Zitat