S shimingxing Unregistered / Unconfirmed GUEST, unregistred user! 2008-08-14 #1 我现在有一个tlist 里面放的是一些点(坐标),pointarray数组里面放的点的颜色。现在,我要在image1中把这些点画出来,怎么样做呢?能否详细点,或给个例子,谢谢,我第一做这个不太会,非常感谢啊!全部分都献给你了
我现在有一个tlist 里面放的是一些点(坐标),pointarray数组里面放的点的颜色。现在,我要在image1中把这些点画出来,怎么样做呢?能否详细点,或给个例子,谢谢,我第一做这个不太会,非常感谢啊!全部分都献给你了
T tanbo23456 Unregistered / Unconfirmed GUEST, unregistred user! 2008-08-14 #2 var Test: TCanvas; I: Integer; begin Test := TControlCanvas.Create; TControlCanvas(Test).Control := Image1; Test.Pen.Color := clRed; for I := 0 to Image1.Width - 1 do Test.Pixels[I, 2] := clRed; // 你把它改成LIST和颜色值就可以了 try finally Test.Free; end; end; 大概就是这样画的,你自己看着改下吧
var Test: TCanvas; I: Integer; begin Test := TControlCanvas.Create; TControlCanvas(Test).Control := Image1; Test.Pen.Color := clRed; for I := 0 to Image1.Width - 1 do Test.Pixels[I, 2] := clRed; // 你把它改成LIST和颜色值就可以了 try finally Test.Free; end; end; 大概就是这样画的,你自己看着改下吧
一 一路向南 Unregistered / Unconfirmed GUEST, unregistred user! 2008-08-14 #3 Image1.Canvas.Pixels[x, y] := color;