var I, J: Integer; begin for I := 0 to 100 do for J := 50 to 200 do Image1.Canvas.Pixels[I, J] := RGB(255, 0, 0);//这一点的颜色值 例如红色。 end;
the same to GoldProgramer: var I, J: Integer; begin for I := 0 to 100 do for J := 50 to 200 do Image1.Canvas.Pixels[I, J] := RGB(255, 0, 0);//这一点的颜色值 例如红色。 end;
说清楚点,如果是矩阵的话,直接用canvas画就行了
如果是矩阵的话,怎样用
image1.canves.draw(x,y:integer,Graphic:TGraphic)这个要怎样用.
x,y表示坐标,
Graphic要怎样用??
给个例子??
I, J: Integer;
begin
for I := 0 to 100 do
for J := 50 to 200 do
Image1.Canvas.Pixels[I, J] := RGB(255, 0, 0);//这一点的颜色值 例如红色。
end;
var
I, J: Integer;
begin
for I := 0 to 100 do
for J := 50 to 200 do
Image1.Canvas.Pixels[I, J] := RGB(255, 0, 0);//这一点的颜色值 例如红色。
end;
我现在有一个数组
aa :array[Size2048] of Byte
值如下:
(35, 0, 0, 255, 0, 1, 255, 128, 7, 255, 192, 15, 131, 240, 31, 1, 248, 62, 0, 248, 124, 0, 248, 124, 0, 60, 120, 0, 60, 56, 0, 126, 0, 0, 126, 0, 0, 124, 0, 0, 252, 0, 1, 248, 0, 3, 240, 0, 7, 224, 0, 15, 192, 0, 15, 128, 0, 63, 128, 0, 62, 0, 1, 252, 0, 1, 248, 0, 3, 248, 0, 7, 192, 0, 15, 192, 0, 31, 192, 0, 63, 128, 0, 63, 0, 0, 254, 0, 0, 253, 0, 56, 255, 255, 248, 255, 255, 248, 255, 255, 248, 255, 255, 248, 3, 0, 32, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, )
多余的0已省掉
请问我怎样才能把它还原成图像?
请给出详细代码!!
不胜感激!!!