選取矩形區域 |
答題得分者是:gemi0305
|
jiaching
一般會員 發表:21 回覆:21 積分:8 註冊:2003-07-05 發送簡訊給我 |
請問一下 我的目的是想在一張圖片上圈選出一個矩形區域
我的程式碼如下 可是跑起來都沒動作 哪邊出現問題了嗎?
void __fastcall TForm1::img3MouseDown(TObject *Sender, TMouseButton Button,TShiftState Shift, int X, int Y) { //選取矩形區域 bool check=true; int x1,x2,y1,y2; if (check==true) { x1=X,y1=Y; check=false; } else if(check==false) { x2=X,y2=Y; check=true; img4->Canvas->Pen->Color=clPurple; img4->Canvas->Pen->Width=3; img4->Canvas->Pen->Style=bsSolid; img4->Canvas->Pen->Mode=7; img4->Canvas->Rectangle(x1,y1,x2,y2); } } |
JerryKuo
版主 發表:42 回覆:571 積分:322 註冊:2003-03-10 發送簡訊給我 |
引言: 請問一下 我的目的是想在一張圖片上圈選出一個矩形區域 我的程式碼如下 可是跑起來都沒動作 哪邊出現問題了嗎?因為每次都是true,永遠都不會是false,所以都畫不出來 小弟的作法 MouseDown 得到起始座標 MouseUp 得到結束座標 FYRvoid __fastcall TForm1::img3MouseDown(TObject *Sender, TMouseButton Button,TShiftState Shift, int X, int Y) { //選取矩形區域 bool check=true; int x1,x2,y1,y2; if (check==true) { x1=X,y1=Y; check=false; } else if(check==false) { x2=X,y2=Y; check=true; img4->Canvas->Pen->Color=clPurple; img4->Canvas->Pen->Width=3; img4->Canvas->Pen->Style=bsSolid; img4->Canvas->Pen->Mode=7; img4->Canvas->Rectangle(x1,y1,x2,y2); } } |
gemi0305
版主 發表:81 回覆:564 積分:629 註冊:2003-05-11 發送簡訊給我 |
你好,
參考以下程式碼:
< class="code">
bool check=false;
int x1,x2,y1,y2;
//------------------------------------------------------------------ void __fastcall TForm1::Image1MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
check=true;
if(check)
{
x1=X Image1->Left;
y1=Y Image1->Top;
} }
//------------------------------------------------------------------ void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
if(check)
{
x2=X Image1->Left;
y2=Y Image1->Top; Canvas->Pen->Color=clPurple;
Canvas->Pen->Width=3;
Canvas->Pen->Style=bsSolid;
Canvas->Pen->Mode=7;
Canvas->Rectangle(x1,y1,x2,y2);
}
check=false;
} 國泰平安
|
RaynorPao
版主 發表:139 回覆:3622 積分:7025 註冊:2002-08-12 發送簡訊給我 |
引言: 請問一下 我的目的是想在一張圖片上圈選出一個矩形區域 我的程式碼如下 可是跑起來都沒動作 哪邊出現問題了嗎?void __fastcall TForm1::img3MouseDown(TObject *Sender, TMouseButton Button,TShiftState Shift, int X, int Y) { //選取矩形區域 bool check=true; int x1,x2,y1,y2; if (check==true) { x1=X,y1=Y; check=false; } else if(check==false) { x2=X,y2=Y; check=true; img4->Canvas->Pen->Color=clPurple; img4->Canvas->Pen->Width=3; img4->Canvas->Pen->Style=bsSolid; img4->Canvas->Pen->Mode=7; img4->Canvas->Rectangle(x1,y1,x2,y2); } }>>< face="Verdana, Arial, Helvetica"> jiaching 你好: 請參考以下的範例程式碼
------
-- 若您已經得到滿意的答覆,請適時結案!! -- -- 欲知前世因,今生受者是;欲知來世果,今生做者是 -- -- 一切有為法,如夢幻泡影,如露亦如電,應作如是觀 -- |
jiaching
一般會員 發表:21 回覆:21 積分:8 註冊:2003-07-05 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |