这样会不会画出一条直线？(50分)

C

carefreehorse

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-17

• #1

不会Linto函数,而用如下方法是不是能画出一条直线？
但是我没有画出来。
hd:=form1.Handle;
for i :=0 to 200 do
begin
SetPixel(hd,50,i,clred);
end;
请问大家这有什么不对的地方？

 

标

标识符

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-18

• #2

hd:=form1.Canvas.Handle;
for i :=0 to 200 do
begin
SetPixel(hd,50,i,clred);
end;
在画布上画

 

W

weiwei81123

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-18

• #3

form1.canvas.moveto(50,0);
form1.canvas.lineto(50,200);

 

C

carefreehorse

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-18

• #4

问题已经解决，方法应该是：
hd:=GetDC(form1.Handle);
for i :=0 to 200 do
begin
SetPixel(hd,50,i,clred);
end;
我就是不想用LineTo方法。
但还是谢谢weiwei81123与标识符的参与，决定送分。