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

檢查Image的顏色

尚未結案
黑輪
中階會員


發表:135
回覆:188
積分:64
註冊:2004-01-29

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-02-28 15:30:43 IP:140.124.xxx.xxx 未訂閱
我要檢查Image 上某一點的顏色是不是紅色與或黑色 Image4->Canvas->Pixels[2][3]==clWhite; Image4->Canvas->Pixels[5][8]==clRed; 用這樣對不對?
taishyang
站務副站長


發表:377
回覆:5490
積分:4563
註冊:2002-10-08

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-02-28 16:25:26 IP:140.135.xxx.xxx 未訂閱
黑輪您好:    若是純紅色R:255, G:0, B:0或是純黑色R:0, G:0, B:0 的確是用您的方式即可 建議改成這樣
  if (Image4->Picture->Bitmap->Canvas->Pixels[2][3]==clWhite)
    ShowMessage("白色");
順心 發表人 -
黑輪
中階會員


發表:135
回覆:188
積分:64
註冊:2004-01-29

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-02-28 17:14:50 IP:140.124.xxx.xxx 未訂閱
if(Image4->Canvas->Pixels[2][3]==clWhite) { } 我一開始是用這樣,可是程式卻不會進入迴圈,後來改成 if(Image4->Canvas->Pixels[2][3]==255) { } 才有正確的反應 為什麼會這樣?
taishyang
站務副站長


發表:377
回覆:5490
積分:4563
註冊:2002-10-08

發送簡訊給我
#4 引用回覆 回覆 發表時間:2004-02-28 17:34:36 IP:140.135.xxx.xxx 未訂閱
黑輪您好:
引言: if(Image4->Canvas->Pixels[2][3]==clWhite) {} 我一開始是用這樣,可是程式卻不會進入迴圈,後來改成 if(Image4->Canvas->Pixels[2][3]==255) 255代表什麼呢? {} 才有正確的反應 為什麼會這樣?
您用
void __fastcall TForm1::Image1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
  ShowMessage(Image1->Canvas->Pixels[X][Y]);
}
就可知為什麼會有反應了 所以請確認與確定您的圖片是純紅和純白,並試試下面的code
void __fastcall TForm1::Image1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
  if (Image1->Canvas->Pixels[X][Y]==clRed)
    ShowMessage("red");
  if (Image1->Canvas->Pixels[X][Y]==clWhite)
    ShowMessage("white");
}
順心 發表人 -
黑輪
中階會員


發表:135
回覆:188
積分:64
註冊:2004-01-29

發送簡訊給我
#5 引用回覆 回覆 發表時間:2004-03-08 11:02:30 IP:140.124.xxx.xxx 未訂閱
沒錯啦~~ 感謝你哦~
系統時間:2024-04-28 15:25:32
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!