請問
1.
[code delphi]
can.Pen.Color:=clred ;
can.Pen.Mode:=pmCopy ;
can.Pen.Style:=psSolid ;
can.Brush.Style:=bsClear;
can.Ellipse(iX1-10,iY1-10,iX2 10,iY2 10);
[/code]
要更改什麼或加入什麼才會變成一個實心圓?

2. 如何以兩點座標(x1, y1), (x2, y2)畫出一條線(線可以是斜的)

改 Brush 的設定即可，如以下是黃色實底：
[code delphi]
can.Pen.Color:=clred ;
can.Pen.Mode:=pmCopy ;
can.Pen.Style:=psSolid ;
can.Brush.Color:=clYellow ; // 黃色
can.Brush.Style:=bsSolid; // 實底
can.Ellipse(iX1-10,iY1-10,iX2 10,iY2 10);
[/code]
直線 (x1, y1), (x2, y2) 用 MoveTo, LineTo 即可如下：
[code delphi]
can.MoveTo(x1,y1);
can.LineTo(x2,y2);
[/code]



■ 強力推薦 Seednet ShareMe 至少 2G 免費網路硬碟, 最大特點：放檔後不使用不會砍檔 ■

------
http://www.ViewMove.com

編輯記錄

謝謝