Forum: Object-Pascal / Delphi-Language
Delphi
by Garfield,
4. Feb 2009
Das ganze basiert auf TByteArray und TWordArray. Das ist in der SysUtils mit
type
PByteArray = ^TByteArray;
TByteArray = array of Byte;
PWordArray = ^TWordArray;
TWordArray = array of Word;deklariert.
Bei pf24bit und pf32bit hast Du anstelle Byte TRGBTriple und TRGBQuad.
Forum: Object-Pascal / Delphi-Language
Delphi
by Garfield,
3. Feb 2009
Bei obigem Bild aber nicht, da müsste die Function so aussehen:
function NotBlack(bmp: TBitmap): Boolean;
const
PixelCountMax = 32768;
type
pRGBQuadArray = ^TRGBQuadArray;
TRGBQuadArray = ARRAY OF TRGBQuad;
var