很简单的 图形重画的问题,全部分献出!!!(41分)

  • 主题发起人 主题发起人 shimingxing
  • 开始时间 开始时间
S

shimingxing

Unregistered / Unconfirmed
GUEST, unregistred user!
我现在有一个tlist 里面放的是一些点(坐标),pointarray数组里面放的点的颜色。现在,我要在image1中把这些点画出来,怎么样做呢?能否详细点,或给个例子,谢谢,我第一做这个不太会,非常感谢啊!全部分都献给你了
 
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;
大概就是这样画的,你自己看着改下吧
 
Image1.Canvas.Pixels[x, y] := color;
 
多人接受答案了。
 
后退
顶部