canvas 的用法 |
答題得分者是:jow
|
tidal
初階會員 發表:93 回覆:32 積分:25 註冊:2003-07-15 發送簡訊給我 |
|
jow
尊榮會員 發表:66 回覆:751 積分:1253 註冊:2002-03-13 發送簡訊給我 |
Canvas 一如其名基本上是一個封裝好的繪圖工具,
其中包含畫筆(Pen),筆刷(Brush),以及字型等
圖形物件(TGraphicsObject),而TCanvas本身則可視
為一張畫布,其屬性Handle對應著一個自系統配置的
一份Device Context(HDC). 使用上,我們藉由設定各個圖形物件的屬性,然後利用
TCanvas提供的繪圖函數來繪製基本的圖形. 在VCL中有些元件會將其Canvas置於public中,如TLabel,
TPaintBox等,我們就可以直接對其做繪圖動作;而有些元件
並不允許我們直接存取其Canvas物件屬性,則我們可以自
己產生一個TCanvas物件,並透過GetDC()找到存在於這類元件
內的DC,並將其指定給先前產生的TCanvas 物件,如此一樣可對
這些元件做繪圖動作了. 例如: 直接存取元件Canvas屬性
procedure TForm1.Button1Click(Sender: TObject); var R: TRect; begin Label1.Canvas.Pen.Color := clRed; Label1.Canvas.Pen.Width := 2; R := Label1.ClientRect; InflateRect(R,-4,-4); Label1.Canvas.Rectangle(R); end; 間接存取元件Canvas屬性 procedure TForm1.Button2Click(Sender: TObject); var C: TCanvas; DC: HDC; R: TRect; begin DC := GetDC(Panel1.Handle); try C := TCanvas.Create; try C.Handle := DC; C.Pen.Color := clRed; C.Pen.Width := 2; C.Brush.Color := clBlue; R := Panel1.ClientRect; InflateRect(R,-4,-4); C.Rectangle(R); finally FreeAndNil(C); end; finally ReleaseDC(Panel1.Handle, DC); end; end; |
dt520
一般會員 發表:11 回覆:61 積分:14 註冊:2003-05-13 發送簡訊給我 |
|
tokiama
一般會員 發表:34 回覆:60 積分:23 註冊:2009-04-19 發送簡訊給我 |
|
pedro
尊榮會員 發表:152 回覆:1187 積分:892 註冊:2002-06-12 發送簡訊給我 |
|
tokiama
一般會員 發表:34 回覆:60 積分:23 註冊:2009-04-19 發送簡訊給我 |
===================引 用 pedro 文 章===================
請用關鍵字"Canvas.Copy"可以找到相關資料 例如http://delphi.ktop.com.tw/board.php?cid=30&fid=71&tid=32379 就是你要的答案 ===================引 用 pedro 文 章=================== 謝謝,很接近了。 可是有點看不懂裡面的程式在說什麼。 Image1.Canvas.CopyRect( _____ , _____ , _____, _____ ); 裡面的空格屬性是要填什麼?是要截取範圍的座標? Image1.Canvas.Draw( _____ , _____ , _____ ); 這行是很重要的東西嗎?跟CopyRect是成對出現的嗎? |
pedro
尊榮會員 發表:152 回覆:1187 積分:892 註冊:2002-06-12 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |