如何畫斜線和實心的圓 |
答題得分者是:dllee
|
kkeenn
一般會員 發表:10 回覆:4 積分:2 註冊:2006-07-25 發送簡訊給我 |
|
dllee
站務副站長 發表:321 回覆:2519 積分:1711 註冊:2002-04-15 發送簡訊給我 |
改 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
編輯記錄
dllee 重新編輯於 2007-09-17 22:37:53, 註解 修正錯字 :P‧
|
kkeenn
一般會員 發表:10 回覆:4 積分:2 註冊:2006-07-25 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |