R0b0t1
2007-12-02 21:24:15
Well, its just returning zero for everything.
(Don't forget to install plugin below; and actually, the problems are in the plugin…)
(Don't forget to install plugin below; and actually, the problems are in the plugin…)
program New;
{$Def UsingRGB}
var
{$IfDef UsingRGB}
ColorArray: T2DRGBQuadArray;
{$Else}
ColorArray: T2DIntArray;
{$EndIf}
X, Y, I: Integer;
begin
{$IfDef UsingRGB}
DumpPixelsRGB(ColorArray, GetClientCanvas.handle, 0, 0, 10, 10);
SetArrayLength(ColorArray, 10);
for I:= 0 to 9 do //We need to set the length of the arrays
SetArrayLength(ColorArray[I], 10);
for X:= 0 to 9 do //If you happen to know the size before hand.
for Y:= 0 to 9 do //X loop is first, then Y.
begin
WriteLn('ColorArray['+IntToStr(X)+']['+IntToStr(Y)+'].rgbRed:= '+
IntToStr(ColorArray[X][Y].rgbRed));
WriteLn('ColorArray['+IntToStr(X)+']['+IntToStr(Y)+'].rgbGreen:= '+
IntToStr(ColorArray[X][Y].rgbGreen));
WriteLn('ColorArray['+IntToStr(X)+']['+IntToStr(Y)+'].rgbBlue:= '+
IntToStr(ColorArray[X][Y].rgbBlue));
WriteLn('ColorArray['+IntToStr(X)+']['+IntToStr(Y)+'].rgbReserved:= '+
IntToStr(ColorArray[X][Y].rgbReserved));
end;
{$Else}
DumpPixels(ColorArray, GetClientCanvas.handle, 0, 0, 10, 10);
SetArrayLength(ColorArray, 10);
for I:= 0 to 9 do //We need to set the length of the arrays
SetArrayLength(ColorArray[I], 10);
for X:= 0 to 9 do //If you happen to know the size before hand.
for Y:= 0 to 9 do //X loop is first, then Y.
begin
WriteLn('ColorArray['+IntToStr(X)+']['+IntToStr(Y)+']:= '+
IntToStr(ColorArray[X][Y]));
{$EndIf}
end.
