全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1624
推到 Plurk!
推到 Facebook!

如何將產生多邊形圖樣複至 timage ?

答題得分者是:wameng
enta
一般會員


發表:34
回覆:43
積分:15
註冊:2003-09-29

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-04-22 10:15:47 IP:220.134.xxx.xxx 未訂閱
使用 CreatePolygonRgn 產生之圖樣,如何將至 timage ?(delphi 5.0) chang yung chin
------
chang yung chin
wameng
版主


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

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-04-22 11:05:53 IP:61.222.xxx.xxx 未訂閱
CreatePolygonRgn 主要是產生不規則的 HGN 可以使用 FillRgn 填上不規則圖形。 或使用 SetWindowRgn 定義 Windows Handle 的不規則形狀。 像是不規則視窗。 由於 TImage 非 TWinControl 繼承。因此並沒有自己的 Handle 對此來說是不能用的。
enta
一般會員


發表:34
回覆:43
積分:15
註冊:2003-09-29

發送簡訊給我
#3 引用回覆 回覆 發表時間:2005-04-22 11:49:33 IP:220.134.xxx.xxx 未訂閱
wameng 你好: 可不可以有個 sample 參考一下,因對圖檔這方面不太熟悉.thank chang yung chin
------
chang yung chin
wameng
版主


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

發送簡訊給我
#4 引用回覆 回覆 發表時間:2005-04-22 12:40:49 IP:61.222.xxx.xxx 未訂閱
示範畫一個星星
procedure TForm1.Button1Click(Sender: TObject);
Const
  Points  :Array[0..9]  of TPoint =
           ((X:51;Y:49;),(X:65;Y:0;),(X:77;Y:49;),(X:128;Y:46;)
           ,(X:85;Y:74;),(X:103;Y:121;),(X:64;Y:89;)
           ,(X:25;Y:121;),(X:43;Y:74;),(X:0;Y:46;));
var
  ARgn : THandle;
begin
  With Image1.Canvas do
  begin
    ARgn := CreatePolygonRgn(Points[0],Length(Points),WINDING);
    Brush.Color := ClRed;
    Windows.FillRgn(Handle,ARgn,Brush.Handle);
    DeleteObject(ARgn);
  end;
end;
系統時間:2024-03-19 18:36:44
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!