請問如何用TCanvas畫出箭頭?

發文回覆瀏覽次數：1478

推到 Plurk!

推到 Facebook!

尚未結案

ying0515
中階會員

發表：90
回覆：168
積分：81
註冊：2003-01-04

發送簡訊給我

#1 引用回覆回覆

發表時間：2005-08-08 09:34:57

IP:61.218.xxx.xxx 未訂閱

請問如何用TCanvas畫出下圖箭頭與線條?

Delphi follower

------
Delphi

wameng
版主

發表：31
回覆：1336
積分：1188
註冊：2004-09-16

發送簡訊給我

#2 引用回覆回覆

發表時間：2005-08-09 20:59:57

IP:219.86.xxx.xxx 未訂閱

ying0515 兄，你的影片讓我看的頭昏。.... 要畫出，並不難。如果用 class="code"> Type TArrowCourse = (acUP,acDown,acLeft,acRight); Procedure Draw_Triangle(DCanvas:Tcanvas;Arect:TRect; Const Arrow :TArrowCourse = acUP ; Const AColor :TColor = Clblack; Const RightTriangle : Boolean = True); var AW,AH,D:integer; begin With DCanvas,Arect do begin Pen.Color :=AColor; Brush.Color :=AColor; Brush.Style :=bsSolid; AW :=Right-Left; AH :=Bottom-Top; if RightTriangle then begin if AH 建議用圖形來拼湊會比較容易一些(也比較好看)。～～～～～～～～～～～難得聰明，常常糊塗。～～～～～～～～～～～

系統時間：2024-11-23 5:26:33

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！