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

要如何輸入座標?

尚未結案
freer
一般會員


發表:1
回覆:4
積分:1
註冊:2004-11-05

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-03-11 21:41:52 IP:218.171.xxx.xxx 未訂閱
請問各位大大,我想輸入兩點座標,然後把這兩點座標所圍成的矩形面積塗白, 要怎麼做ㄚ,可不可給點意見?
fnk
高階會員


發表:40
回覆:149
積分:102
註冊:2004-01-02

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-03-12 03:51:31 IP:140.124.xxx.xxx 未訂閱
請參考...
    
   Canvas->Brush->Color = clWhite;     // 矩形內部的顏色
   Canvas->Pen->Color = clWhite;       // 矩形外圍的顏色
   Canvas->Rectangle(10,10,100,100);   // 矩形的二點座標
=========== 有興趣,就能進步 ===========
freer
一般會員


發表:1
回覆:4
積分:1
註冊:2004-11-05

發送簡訊給我
#3 引用回覆 回覆 發表時間:2005-03-12 11:52:20 IP:218.171.xxx.xxx 未訂閱
我不想把座標寫死,而是由使用者任意輸入,那要怎麼寫呢??
fnk
高階會員


發表:40
回覆:149
積分:102
註冊:2004-01-02

發送簡訊給我
#4 引用回覆 回覆 發表時間:2005-03-12 20:06:58 IP:140.124.xxx.xxx 未訂閱
那...就將妳要的二個點(x1,y1)和(x2,y2)分別輸入就可以啦... 在bcb上...拉四個Edit...分別為Edit1, Edit2, Edit3, 和 Edit4... 使用者再Edit1輸入x1, Edit2輸入y1, Edit3輸入x2, Edit4輸入y2 程式再改為  
   Canvas->Brush->Color = clWhite;     // 矩形內部的顏色
   Canvas->Pen->Color = clWhite;       // 矩形外圍的顏色
   Canvas->Rectangle(Edit1->Text.ToInt(),Edit2->Text.ToInt(),Edit3->Text.ToInt(),Edit4->Text.ToInt());   // 矩形的二點座標
=========== 有興趣,就能進步 ===========
freer
一般會員


發表:1
回覆:4
積分:1
註冊:2004-11-05

發送簡訊給我
#5 引用回覆 回覆 發表時間:2005-03-12 23:45:52 IP:218.171.xxx.xxx 未訂閱
感謝fnk大大的熱心指導,不過我想讓輸入的座標是以針對圖片來看,上面所提供的好像是針對整個畫面來看,這樣在作塗白的動作時,就會塗到圖片以外了,可不可以再指導一下呢??
fnk
高階會員


發表:40
回覆:149
積分:102
註冊:2004-01-02

發送簡訊給我
#6 引用回覆 回覆 發表時間:2005-03-13 01:30:51 IP:140.124.xxx.xxx 未訂閱
請參考...  
   Image1->Canvas->Brush->Color = clWhite;     // 矩形內部的顏色
   Image1->Canvas->Pen->Color = clWhite;       // 矩形外圍的顏色
   Image1->Canvas->Rectangle(Edit1->Text.ToInt(),Edit2->Text.ToInt(),Edit3->Text.ToInt(),Edit4->Text.ToInt());   // 矩形的二點座標
 
=========== 有興趣,就能進步 ===========
freer
一般會員


發表:1
回覆:4
積分:1
註冊:2004-11-05

發送簡訊給我
#7 引用回覆 回覆 發表時間:2005-03-13 09:28:53 IP:218.171.xxx.xxx 未訂閱
再讓我問最後一個問題...就是區塊塗白後,要怎樣讓它復原呢?
fnk
高階會員


發表:40
回覆:149
積分:102
註冊:2004-01-02

發送簡訊給我
#8 引用回覆 回覆 發表時間:2005-03-15 01:34:35 IP:61.229.xxx.xxx 未訂閱
歹勢...我不會..>"< =========== 有興趣,就能進步 ===========
freer
一般會員


發表:1
回覆:4
積分:1
註冊:2004-11-05

發送簡訊給我
#9 引用回覆 回覆 發表時間:2005-03-15 08:14:55 IP:218.171.xxx.xxx 未訂閱
沒關係,fnk大大已經解決我最大的問題了,非常感謝熱心指導...
系統時間:2024-05-17 10:19:40
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!