1. Delphi K.Top 討論區
  2. 影音多媒體程式設計討論區(C++Builder)
  3. 不能擷取我選定的範圍
線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數：2419
推到 Plurk!
推到 Facebook!

不能擷取我選定的範圍
尚未結案
HKH
一般會員


發表：10
回覆：16
積分：5
註冊：2005-10-01

發送簡訊給我
#1 引用回覆 回覆 發表時間：2005-11-23 21:55:39 IP:220.134.xxx.xxx 未訂閱
可以請大大幫我看一下... 我要擷取相片的頭部份..但是一直沒辦法擷取成功... 可以請各位大大幫我看一下我的程式碼哪裡有錯.. 我run的結果: 
#include 
#include "tccolor.h"
#include     #include<math.h>    #define max(a,b)        ((a) > (b) ? (a) : (b))
#define min(a,b)        ((a) < (b) ? (a) : (b))
#define max3(a,b,c)        ((a) > (b) ? max((a),(c)) : max((b),(c)))
#define min3(a,b,c)        ((a) < (b) ? min((a),(c)) : min((b),(c)))    #pragma hdrstop    #include "Pro2.h"
#include "Unit2.h"    int p1[640][480];
int col[640][480];
int dummy[640][480];
int HH,WW;
int number=0;
TPoint posi[126];
int x_buffer[255];
int y_buffer[255];
bool DrawFirStPos = true;
bool Masking=false;
bool gbMDown=false;
TRect grtLTRB;
//----------------------------------
.
.
.
.
//--------------------------------------
void __fastcall TForm1::PaintBox1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
 gbMDown=true;
   grtLTRB.Left=X;
   grtLTRB.Top=Y;
//   grtLTRB.Right=X;
//   grtLTRB.Bottom=Y;
}
//---------------------------------------------------------------------------    void __fastcall TForm1::PaintBox1MouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
 if(gbMDown)
   {
    if(X<0) X=0;
      if(X>PaintBox1->Width) X=PaintBox1->Width;
        if(Y<0) Y=0;
          if(Y>PaintBox1->Height) Y=PaintBox1->Height;        PaintBox1->Canvas->CopyMode=cmSrcCopy;
    PaintBox1->Canvas->CopyRect(grtLTRB, Image1->Canvas, grtLTRB);        grtLTRB.Right=X;
    grtLTRB.Bottom=Y;        PaintBox1->Canvas->Brush->Style=bsClear;
    PaintBox1->Canvas->Pen->Style=psDot;
    PaintBox1->Canvas->Pen->Color=clBlack;
    PaintBox1->Canvas->Rectangle(grtLTRB);
   }
}
//---------------------------------------------------------------------------    void __fastcall TForm1::PaintBox1MouseUp(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
 gbMDown=false;
   PaintBox1->Canvas->CopyRect(Rect(0, 0, PaintBox1->Width, PaintBox1->Height),
      Image1->Canvas, Rect(0, 0, Image1->Width, Image1->Height));
   Image7->Canvas->FillRect(Rect(0, 0, Image1->Width, Image1->Height));
   Image7->Canvas->CopyRect(grtLTRB, Image1->Canvas, grtLTRB);
}
RedSnow
版主


發表：79
回覆：1322
積分：845
註冊：2003-12-15

發送簡訊給我
#2 引用回覆 回覆 發表時間：2005-11-24 00:37:49 IP:59.115.xxx.xxx 未訂閱
HKH 妳好：    我不清楚妳的程式中使用 PaintBox 的必要性為何？如果不是必要的話，我建議妳直接在 Image1 上面來處理，以下是我將妳的程式碼酌加修改後，放到 Image1 的 OnMouseDown, OnMouseMove, OnMouseUp 事件中，妳參考看看吧：
void __fastcall TForm2::Image1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    gbMDown = true;
    grtLTRB.Left = X;
    grtLTRB.Top  = Y;
    grtLTRB.Right  = X;
    grtLTRB.Bottom = Y;        Image1->Canvas->Brush->Style = bsClear;
    Image1->Canvas->Pen->Mode = pmXor;  // 或設為 pmNotXor
    Image1->Canvas->Pen->Style = psDot;
    Image1->Canvas->Pen->Color = clWhite;        Image1->Canvas->Rectangle(grtLTRB);  // 繪製第一次的方框 (此時僅為一個點)
}
//---------------------------------------------------------------------------    void __fastcall TForm2::Image1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
    if(gbMDown)
    {
        if (X<0) X = 0;
        if (X>Image1->Width) X = Image1->Width;
        if (Y<0) Y = 0;
        if (Y>Image1->Height) Y = Image1->Height;            Image1->Canvas->Rectangle(grtLTRB);  // 清除前一次繪製的舊方框            grtLTRB.Right  = X;
        grtLTRB.Bottom = Y;            Image1->Canvas->Rectangle(grtLTRB);  // 繪製新方框
    }
}
//---------------------------------------------------------------------------    void __fastcall TForm2::Image1MouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
    gbMDown = false;
    Image1->Canvas->Rectangle(grtLTRB);  // 清除最後一次繪製的方框
    Image7->Canvas->FillRect(Rect(0, 0, Image1->Width, Image1->Height));
    Image7->Canvas->CopyRect(grtLTRB, Image1->Canvas, grtLTRB);  // 複製 Image1 被圈選區域的內容至 Image7
}
//---------------------------------------------------------------------------
7 天天敲鍵盤 v 時時按滑鼠 8
HKH
一般會員


發表：10
回覆：16
積分：5
註冊：2005-10-01

發送簡訊給我
#3 引用回覆 回覆 發表時間：2005-11-24 01:20:46 IP:220.134.xxx.xxx 未訂閱
經過測試還是有問題...在複製到image7影像中為什麼還是沒辦法從最開頭開始畫... 會變成這樣的結果:
引言: HKH 妳好： 我不清楚妳的程式中使用 PaintBox 的必要性為何？如果不是必要的話，我建議妳直接在 Image1 上面來處理，以下是我將妳的程式碼酌加修改後，放到 Image1 的 OnMouseDown, OnMouseMove, OnMouseUp 事件中，妳參考看看吧：
void __fastcall TForm2::Image1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    gbMDown = true;
    grtLTRB.Left = X;
    grtLTRB.Top  = Y;
    grtLTRB.Right  = X;
    grtLTRB.Bottom = Y;        Image1->Canvas->Brush->Style = bsClear;
    Image1->Canvas->Pen->Mode = pmXor;  // 或設為 pmNotXor
    Image1->Canvas->Pen->Style = psDot;
    Image1->Canvas->Pen->Color = clWhite;        Image1->Canvas->Rectangle(grtLTRB);  // 繪製第一次的方框 (此時僅為一個點)
}
//---------------------------------------------------------------------------    void __fastcall TForm2::Image1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
    if(gbMDown)
    {
        if (X<0) X = 0;
        if (X>Image1->Width) X = Image1->Width;
        if (Y<0) Y = 0;
        if (Y>Image1->Height) Y = Image1->Height;            Image1->Canvas->Rectangle(grtLTRB);  // 清除前一次繪製的舊方框            grtLTRB.Right  = X;
        grtLTRB.Bottom = Y;            Image1->Canvas->Rectangle(grtLTRB);  // 繪製新方框
    }
}
//---------------------------------------------------------------------------    void __fastcall TForm2::Image1MouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
    gbMDown = false;
    Image1->Canvas->Rectangle(grtLTRB);  // 清除最後一次繪製的方框
    Image7->Canvas->FillRect(Rect(0, 0, Image1->Width, Image1->Height));
    Image7->Canvas->CopyRect(grtLTRB, Image1->Canvas, grtLTRB);  // 複製 Image1 被圈選區域的內容至 Image7
}
//---------------------------------------------------------------------------
7 天天敲鍵盤 v 時時按滑鼠 8
發表人 - HKH 於 2005/11/24 01:21:54
RedSnow
版主


發表：79
回覆：1322
積分：845
註冊：2003-12-15

發送簡訊給我
#4 引用回覆 回覆 發表時間：2005-11-24 10:57:45 IP:59.115.xxx.xxx 未訂閱
HKH 妳好：    那是位置的指定問題，妳之前沒有提到這種需求，因此我並未做變更，如果妳想要將擷取下來的資料放到 Image7 的左上角，那麼妳可以將前一篇 OnMouseUp 事件的內容修改如下：
void __fastcall TForm2::Image1MouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
    gbMDown=false;
    Image1->Canvas->Rectangle(grtLTRB);        Image7->Canvas->FillRect(Rect(0, 0, Image1->Width, Image1->Height));        TRect DestRect = grtLTRB;
    OffsetRect(&DestRect, -grtLTRB.Left, -grtLTRB.Top);  // 將位置的偏移量設成 Left=0, Top=0，但是保持原來的寬度與高度        Image7->Canvas->CopyRect(DestRect, Image1->Canvas, grtLTRB);
}
7 天天敲鍵盤 v 時時按滑鼠 8
HKH
一般會員


發表：10
回覆：16
積分：5
註冊：2005-10-01

發送簡訊給我
#5 引用回覆 回覆 發表時間：2005-11-25 15:48:11 IP:210.70.xxx.xxx 未訂閱
Redsnow您好： 我的程式碼都照您的意思改過了，用我的照片來做實驗也沒有問題，但是換大張的照片就會出現從游標位置下方才開始選取的錯誤，沒有辦法從滑鼠游標位置開始複製，再麻煩大大指導我一下，謝謝。
RedSnow
版主


發表：79
回覆：1322
積分：845
註冊：2003-12-15

發送簡訊給我
#6 引用回覆 回覆 發表時間：2005-11-25 17:50:40 IP:59.115.xxx.xxx 未訂閱
HKH 妳好：
引言:我的程式碼都照您的意思改過了，用我的照片來做實驗也沒有問題，但是換大張的照片就會出現從游標位置下方才開始選取的錯誤，沒有辦法從滑鼠游標位置開始複製，再麻煩大大指導我一下，謝謝。
我這邊不會有妳描述的問題，我另設了 ScrollBox 在 Image 元件的下層，然後載入較大張的圖給 Image，捲動圖像到右下角的位置，然後再做拉框複製的動作，結果也都正常，不是很清楚妳那邊為何會出現那種狀況？ 或許是妳那邊對 Image 及相關元件各個屬性的設定問題，例如 Image 元件的 Stretch 要設為 false....等，檢查看看吧，再不行就將程式打包上傳好了。 7 天天敲鍵盤 v 時時按滑鼠 8
HKH
一般會員


發表：10
回覆：16
積分：5
註冊：2005-10-01

發送簡訊給我
#7 引用回覆 回覆 發表時間：2005-11-26 17:55:34 IP:220.134.xxx.xxx 未訂閱
RedSnow您好: 我已經發現是我ㄧ些屬性沒設定好，所以才會出現之前的狀況，但是我在測試過程中偶而會發現，在第一次我載入圖檔選取範圍後，如果說再重新要戴入圖檔，程式會變成以下的結果 不知道是我哪裡又設錯了?因為一直找不到原因..
引言: HKH 妳好：
引言:我的程式碼都照您的意思改過了，用我的照片來做實驗也沒有問題，但是換大張的照片就會出現從游標位置下方才開始選取的錯誤，沒有辦法從滑鼠游標位置開始複製，再麻煩大大指導我一下，謝謝。
我這邊不會有妳描述的問題，我另設了 ScrollBox 在 Image 元件的下層，然後載入較大張的圖給 Image，捲動圖像到右下角的位置，然後再做拉框複製的動作，結果也都正常，不是很清楚妳那邊為何會出現那種狀況？ 或許是妳那邊對 Image 及相關元件各個屬性的設定問題，例如 Image 元件的 Stretch 要設為 false....等，檢查看看吧，再不行就將程式打包上傳好了。 7 天天敲鍵盤 v 時時按滑鼠 8
RedSnow
版主


發表：79
回覆：1322
積分：845
註冊：2003-12-15

發送簡訊給我
#8 引用回覆 回覆 發表時間：2005-11-26 21:48:15 IP:61.217.xxx.xxx 未訂閱
HKH 妳好：
引言:我已經發現是我ㄧ些屬性沒設定好，所以才會出現之前的狀況，但是我在測試過程中偶而會發現，在第一次我載入圖檔選取範圍後，如果說再重新要戴入圖檔，程式會變成以下的結果 ... 不知道是我哪裡又設錯了?因為一直找不到原因..
把妳程式中有關載入圖檔的相關敘述貼上來吧，看看是否能找出問題來？ 7 天天敲鍵盤 v 時時按滑鼠 8
HKH
一般會員


發表：10
回覆：16
積分：5
註冊：2005-10-01

發送簡訊給我
#9 引用回覆 回覆 發表時間：2005-11-26 21:54:36 IP:220.134.xxx.xxx 未訂閱 
void __fastcall TForm1::Open1Click(TObject *Sender)
{
Graphics::TBitmap *Bmp = new Graphics::TBitmap();    OpenPictureDialog1->FileName;
if(OpenPictureDialog1->Execute())
       {
       Image1->Picture->LoadFromFile(OpenPictureDialog1->FileName);
       Image1->Width=Image1->Picture->Width;
       Image1->Height=Image1->Picture->Height;
       Bmp->Assign(Image1->Picture->Bitmap);
       Image2->Picture->Assign(Bmp);
       }    Graphics::TBitmap *NBmp = new Graphics::TBitmap();      int            w,h,newW,newH,ratio;
  double         dX,dY,x,y;
  int            i,j;
  int            ix,iy;                    // integer value of (x,y)
  double         fx,fy;                    // float value of (x,y)
  unsigned char  clr,
                 clrR,clrG,clrB,
                 nclr1,nclr2,nclr3,nclr4;  // color of neighbor 4 pixel      w = Image1->Width;
  h = Image1->Height;     /* if(w>h)ratio=w/h;
   else
   ratio=h/w;
 */
  newW = 212;
  newH = 160;
  if((newW <=0) ||(newH <=0))
  {
    ShowMessage("Invalided parameter");
    return;
  }
  NBmp->Width  = newW;
  NBmp->Height = newH;      /* Caculate the step size of movement */
  dX = (double)w/(double)newW;
  dY = (double)h/(double)newH;      for(j = 0 ; j < newH ; j  )
     for(i =0 ; i < newW ; i  )
     {
       x = dX*(double)i;
       y = dY*(double)j;           ix = (int)x;         iy = (int)y;
       fx = x - (float)ix;  fy = y - (float)iy;           nclr1 = GetRValue(Bmp->Canvas->Pixels[ix][iy]);
       nclr2 = GetRValue(Bmp->Canvas->Pixels[ix 1][iy]);
       nclr3 = GetRValue(Bmp->Canvas->Pixels[ix][iy 1]);
       nclr4 = GetRValue(Bmp->Canvas->Pixels[ix 1][iy 1]);
       // Bilinear
       clrR=(byte)((1.0-fx)*(1.0-fy)*(double)nclr1 (fx)*(1.0-fy)*(double)nclr2
                   (1.0-fx)*    (fy)*(double)nclr3 (fx)*    (fy)*(double)nclr4);           nclr1 = GetGValue(Bmp->Canvas->Pixels[ix][iy]);
       nclr2 = GetGValue(Bmp->Canvas->Pixels[ix 1][iy]);
       nclr3 = GetGValue(Bmp->Canvas->Pixels[ix][iy 1]);
       nclr4 = GetGValue(Bmp->Canvas->Pixels[ix 1][iy 1]);
       // Bilinear
       clrG=(byte)((1.0-fx)*(1.0-fy)*(double)nclr1 (fx)*(1.0-fy)*(double)nclr2
                   (1.0-fx)*    (fy)*(double)nclr3 (fx)*    (fy)*(double)nclr4);           nclr1 = GetBValue(Bmp->Canvas->Pixels[ix][iy]);
       nclr2 = GetBValue(Bmp->Canvas->Pixels[ix 1][iy]);
       nclr3 = GetBValue(Bmp->Canvas->Pixels[ix][iy 1]);
       nclr4 = GetBValue(Bmp->Canvas->Pixels[ix 1][iy 1]);
       // Bilinear
       clrB=(byte)((1.0-fx)*(1.0-fy)*(double)nclr1 (fx)*(1.0-fy)*(double)nclr2
                   (1.0-fx)*    (fy)*(double)nclr3 (fx)*    (fy)*(double)nclr4);           NBmp->Canvas->Pixels[i][j] = (TColor)RGB(clrR,clrG,clrB);
     }
  Image2->Width = newW;
  Image2->Height = newH;
  Image2->Picture->Bitmap = NBmp;
  NBmp->PixelFormat = pf24bit;
  Image5->Picture->Assign(NBmp);
   NBmp->SaveToFile("D:\\RG\\1.bmp");
     /*  for(int i=0;i<=NBmp->Height;i  )
       {
         for(int j=0;j<=NBmp->Width;j  )
         {
          Image4->Canvas->Pixels[j][i]=clWhite;
         }
       } */
 delete NBmp;
 delete Bmp;
}
RedSnow
版主


發表：79
回覆：1322
積分：845
註冊：2003-12-15

發送簡訊給我
#10 引用回覆 回覆 發表時間：2005-11-26 23:36:46 IP:61.217.xxx.xxx 未訂閱
HKH 妳好：    就 Image1 載入圖檔的部份，我沒看出有什麼問題？
引言:但是我在測試過程中偶而會發現，在第一次我載入圖檔選取範圍後，如果說再重新要戴入圖檔，程式會變成以下的結果 不知道是我哪裡又設錯了?因為一直找不到原因..
請再進一步說明一下妳現在的問題是什麼？ 7 天天敲鍵盤 v 時時按滑鼠 8
HKH
一般會員


發表：10
回覆：16
積分：5
註冊：2005-10-01

發送簡訊給我
#11 引用回覆 回覆 發表時間：2005-11-26 23:52:29 IP:220.134.xxx.xxx 未訂閱
RedSnow您好: 我的問題是當我再次戴入圖檔後...就會出現戴入的圖檔有前一次選取的範圍.. 這個結果是第二次戴入檔後..有時會出現這樣的畫面..留下我前一張圖片所選取的範圍...
RedSnow
版主


發表：79
回覆：1322
積分：845
註冊：2003-12-15

發送簡訊給我
#12 引用回覆 回覆 發表時間：2005-11-27 00:47:54 IP:59.115.xxx.xxx 未訂閱
HKH 妳好：    我這邊測試的結果未發生妳所描述的狀況，但是沒看到妳其它的程式碼，也無法得知問題出在那裡？如果方便而妳的程式碼不長的話，請將它全部貼上來，如果妳的程式碼很長，那麼不妨考慮一下將檔案打包上傳到 "會員求助程式檔案上傳區" 好了： 會員求助程式檔案上傳區 7 天天敲鍵盤 v 時時按滑鼠 8
HKH
一般會員


發表：10
回覆：16
積分：5
註冊：2005-10-01

發送簡訊給我
#13 引用回覆 回覆 發表時間：2005-11-27 11:52:51 IP:220.134.xxx.xxx 未訂閱
RedSnow您好: 因為主程式不在我這...所以我拿個測試檔給你...會發生一樣的結果... 請先開01.bmp載入圖檔...然後任意選取範圍....他會把選取範圍放在image2..請您再開啟02.bmp...戴入圖檔...此時戴入的圖片就會出現問題..圖檔我已經包到裡面..麻煩您...謝謝^^ http://delphi.ktop.com.tw/topic.php?TOPIC_ID=81938        
引言: HKH 妳好： 我這邊測試的結果未發生妳所描述的狀況，但是沒看到妳其它的程式碼，也無法得知問題出在那裡？如果方便而妳的程式碼不長的話，請將它全部貼上來，如果妳的程式碼很長，那麼不妨考慮一下將檔案打包上傳到 "會員求助程式檔案上傳區" 好了： 會員求助程式檔案上傳區 7 天天敲鍵盤 v 時時按滑鼠 8
RedSnow
版主


發表：79
回覆：1322
積分：845
註冊：2003-12-15

發送簡訊給我
#14 引用回覆 回覆 發表時間：2005-11-27 17:53:50 IP:59.115.xxx.xxx 未訂閱
HKH 妳好：    以妳上傳的程式來看，載入圖檔與顯示圖檔的動作基本上並無問題，妳看到的 "殘留圖像" 事實上是 Image2 的內容，因為妳並未將 Image1 的大小固定下來，因此 Image1 與 Image2 有部份區域會重疊顯示，同時妳在載入圖檔到 Image1 時，並未清除或隱藏 Image2，因此才會造成妳會有 "載入的圖檔有前一次選取的範圍" 的錯覺。 7 天天敲鍵盤 v 時時按滑鼠 8
HKH
一般會員


發表：10
回覆：16
積分：5
註冊：2005-10-01

發送簡訊給我
#15 引用回覆 回覆 發表時間：2005-11-27 18:08:08 IP:220.134.xxx.xxx 未訂閱
RedSnow您好: 那請問有辦法可以解決嗎?請問一下image1大小固定是要把要戴入的圖片先固定成一定長和寬嗎?
引言: HKH 妳好： 以妳上傳的程式來看，載入圖檔與顯示圖檔的動作基本上並無問題，妳看到的 "殘留圖像" 事實上是 Image2 的內容，因為妳並未將 Image1 的大小固定下來，因此 Image1 與 Image2 有部份區域會重疊顯示，同時妳在載入圖檔到 Image1 時，並未清除或隱藏 Image2，因此才會造成妳會有 "載入的圖檔有前一次選取的範圍" 的錯覺。 7 天天敲鍵盤 v 時時按滑鼠 8
RedSnow
版主


發表：79
回覆：1322
積分：845
註冊：2003-12-15

發送簡訊給我
#16 引用回覆 回覆 發表時間：2005-11-27 18:47:35 IP:61.217.xxx.xxx 未訂閱
HKH 妳好：    照妳原來那支程式的設定方式應該就可以了啊，也就是在 Image1 的下方設置 ScrollBox，這樣子就可以無需去限制 Image1 的大小，同時也不會與 Image2 重疊了。      7 天天敲鍵盤 v 時時按滑鼠 8
HKH
一般會員


發表：10
回覆：16
積分：5
註冊：2005-10-01

發送簡訊給我
#17 引用回覆 回覆 發表時間：2005-11-27 19:11:27 IP:220.134.xxx.xxx 未訂閱
RedSnow您好: 但是我之前出錯就是有在Image1 的下方設置 ScrollBox...還是會有殘留影像....所以會是沒設ScrollBox的問題嗎?
RedSnow
版主


發表：79
回覆：1322
積分：845
註冊：2003-12-15

發送簡訊給我
#18 引用回覆 回覆 發表時間：2005-11-27 19:56:46 IP:61.217.xxx.xxx 未訂閱
HKH 妳好：    我自己使用 ScrollBox 配合 Image 元件寫過好幾支程式，裁剪的動作也都處理過，沒發生過妳描述的問題。    對於妳那邊的狀況，我也僅能針對妳提供的程式來做瞭解，如果妳將測試程式加上 ScrollBox 之後可以重現出妳描述的狀況，妳可以將上傳的檔案更新，我再重新下載來測試，看看能否找出問題？      7 天天敲鍵盤 v 時時按滑鼠 8
RedSnow
版主


發表：79
回覆：1322
積分：845
註冊：2003-12-15

發送簡訊給我
#19 引用回覆 回覆 發表時間：2005-11-28 00:28:37 IP:59.115.xxx.xxx 未訂閱
HKH 妳好：    我將妳的程式做了一些修改，並上傳到站上了，請到下列位址去下載：    http://delphi.ktop.com.tw/topic.php?TOPIC_ID=81959 修改的部份如下：
  1. 在 Image 元件下方加上 ScrollBox。
  2. ScrollBox 的 DoubleBuffered 屬性設為 true，以避免或降低 Image 畫框或調整顯示位置時的閃爍現象。
  3. Image1 在未載入圖檔前，先設 Visible 屬性為 false，以免 OnMouseMove 事件在無圖狀態下，仍顯示滑鼠移動的座標值與顏色值。
  4. Image2 在 Image1 重新載入圖檔時，先設 Visible 屬性為 false，以免誤為殘留圖像，在 Image1 框選區域後，才重新恢復 Visible 屬性為 true。
  5. Image1 框選區域的高、寬未超過 Image2 所在位置 ScrollBox 的高、寬時，Image2 的位置設成居中顯示。
  6. Image1 的 OnMouseUp 事件中，加上框選區域的比對，若是右方座標值小於左方，或是下方座標值小於上方，則交換之，以免後續處理動作產生錯誤。
  7. 順便將 Binary 及 Inverse 那兩個按鈕點選後的處理動作改成用 ScanLine 來處理，以加快速度。
  8. 顯示滑鼠所在位置圖素顏色值的 Label，底色及字樣顏色也做了調整，看起來較為清爽些。
請注意！ 為節省空間，原壓縮檔內的 .bmp 圖檔兩個，以及編譯過的 .exe 執行檔均未附在本壓縮檔內。 若打算將本壓縮檔內的檔案覆蓋掉原先的檔案，請將原先的檔案作好備份，以備不時之需。 7 天天敲鍵盤 v 時時按滑鼠 8 發表人 - RedSnow 於 2005/11/28 00:31:18
HKH
一般會員


發表：10
回覆：16
積分：5
註冊：2005-10-01

發送簡訊給我
#20 引用回覆 回覆 發表時間：2005-11-28 00:45:53 IP:220.134.xxx.xxx 未訂閱
RedSnow您好: 我已經將我的主程式上傳到求助區了...不一定是每次都會發生影像殘留..有時就很正常...請您幫我看看...麻煩您了...
RedSnow
版主


發表：79
回覆：1322
積分：845
註冊：2003-12-15

發送簡訊給我
#21 引用回覆 回覆 發表時間：2005-11-28 13:00:50 IP:61.230.xxx.xxx 未訂閱
HKH 妳好：    看了我前一篇沒有？先試一下我上傳的修改版程式。    我剛剛下載了妳重新上傳的主程式，我會測試看看能否找出問題？      7 天天敲鍵盤 v 時時按滑鼠 8
fusung
中階會員


發表：26
回覆：169
積分：99
註冊：2003-11-25

發送簡訊給我
#22 引用回覆 回覆 發表時間：2005-11-28 17:31:34 IP:140.114.xxx.xxx 未訂閱
哈囉, HKH:    打個岔,請問你所謂的影像殘留,是類似下面的情況嗎? 先說明一下我的情況是,先打開第一張圖,隨便匡出一個矩形範圍; 緊接著選取第二張圖(不同張圖),偶而會出現類似上面那張圖的窘境。 後來我的解決方法是在Button1Click最後面插入下列的程式碼: 
            
        grtLTRB.Left = 0;
        grtLTRB.Top  = 0;
        grtLTRB.Right  = 0;
               grtLTRB.Bottom = 0;
        Image1->Canvas->Rectangle(grtLTRB);  // 繪製第一次的方框 (此時僅為一個點)
提供給你參考 <> <> >
------


The first step toward proving things for yourself is to understand how others have done it before!

RedSnow
版主


發表：79
回覆：1322
積分：845
註冊：2003-12-15

發送簡訊給我
#23 引用回覆 回覆 發表時間：2005-11-28 22:17:19 IP:59.115.xxx.xxx 未訂閱
HKH 妳好：    我再三測試後，仍未能碰到妳描述的那種狀況，但是看到前一篇 fusung 的貼圖，似乎又真的會在某些狀態下產生那個問題，程式碼本身是看不出有什麼問題啦～因此只好動用經驗法則來推論，推論的結果是："可能是操作習慣或是操作環境所致"，因為在程式的拉框動作上並未採取很嚴謹的檢查與設定，可能會在某種特殊的狀態下，觸發了 OnMouseUp 的動作，因而造成妳描述的那種狀況。 如果上述的推論是正確的，那麼要解決這個問題就要加上一些設定與檢查，避免 OnMouseUp 事件單獨在某些未知的情況下被觸發，例如： 1. 在載入圖檔的動作之前先設定 gbMDown = false;。 2. 在拉框動作的 OnMouseUp 事件中，在一開頭的地方加上 if (gbMDown) 的檢查，如果 gbMDown 不為 true，則該事件裡的所有敘述都不予執行。 因為我這邊測不出殘留顯示的問題，因此只能請妳按上述方式來試試看囉～ 7 天天敲鍵盤 v 時時按滑鼠 8
HKH
一般會員


發表：10
回覆：16
積分：5
註冊：2005-10-01

發送簡訊給我
#24 引用回覆 回覆 發表時間：2005-12-01 18:16:44 IP:220.134.xxx.xxx 未訂閱
RedSnow您好: 想請問要怎麼做才能讓右邊選取範圍裡的影像尺寸大小跟我在左邊影像框選的大小一致，還有如果左邊影像 需要選到可視範圍以外(也就是需要動ScrollBar的範圍) 要怎麼讓ScrollBar跟著滑鼠的選取範圍移動? 原圖維度700*465..右邊的預設影像大小是300*300
RedSnow
版主


發表：79
回覆：1322
積分：845
註冊：2003-12-15

發送簡訊給我
#25 引用回覆 回覆 發表時間：2005-12-01 20:10:00 IP:61.217.xxx.xxx 未訂閱
HKH 妳好：
引言:想請問要怎麼做才能讓右邊選取範圍裡的影像尺寸大小跟我在左邊影像框選的大小一致，還有如果左邊影像 需要選到可視範圍以外(也就是需要動ScrollBar的範圍) 要怎麼讓ScrollBar跟著滑鼠的選取範圍移動? 原圖維度700*465..右邊的預設影像大小是300*300
我不清楚妳現在的程式是改成如何的？我依據原先我提供的範例修改如下，妳參考一下吧：
void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
    if (gbMDown)
    {
        int xx = ScrollBox1->HorzScrollBar->Position;
        int yy = ScrollBox1->VertScrollBar->Position;            // 如果滑鼠指標的 X 值超過 ScrollBox 可視區域時
         if (X < xx || X > xx ScrollBox1->ClientWidth) {
            if (X < xx) {
                ScrollBox1->HorzScrollBar->Position -= (xx-X);
            } else {
                ScrollBox1->HorzScrollBar->Position  = X-(xx ScrollBox1->ClientWidth);
            }
        }            // 如果滑鼠指標的 Y 值超過 ScrollBox 可視區域時
         if (Y < yy || Y > yy ScrollBox1->ClientHeight) {
            if (Y < yy) {
                ScrollBox1->VertScrollBar->Position -= (yy-Y);
            } else {
                ScrollBox1->VertScrollBar->Position  = Y-(yy ScrollBox1->ClientHeight);
            }
        }            if (X < 0) X = 0;
        if (X > Image1->Width) X = Image1->Width;
        if (Y < 0) Y = 0;
        if (Y > Image1->Height) Y = Image1->Height;            Image1->Canvas->Rectangle(grtLTRB);            grtLTRB.Right  = X;
        grtLTRB.Bottom = Y;            Image1->Canvas->Rectangle(grtLTRB);
    }
}    void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
    if (gbMDown) {
        gbMDown = false;
        Image1->Canvas->Rectangle(grtLTRB);            // 如果右方座標值小於左方，或是下方座標值小於上方，則交換之，以免後續處理動作產生錯誤
         int tmp;
        if (grtLTRB.Right < grtLTRB.Left)
        {
            tmp = grtLTRB.Right;
            grtLTRB.Right = grtLTRB.Left;
            grtLTRB.Left = tmp;
        }
        if (grtLTRB.Bottom < grtLTRB.Top)
        {
            tmp = grtLTRB.Bottom;
            grtLTRB.Bottom = grtLTRB.Top;
            grtLTRB.Top = tmp;
        }            // 重設 Image7 的大小
         Image7->Picture->Bitmap->Width  = grtLTRB.Right  - grtLTRB.Left;
        Image7->Picture->Bitmap->Height = grtLTRB.Bottom - grtLTRB.Top;            TRect DestRect = grtLTRB;
        OffsetRect(&DestRect, -grtLTRB.Left, -grtLTRB.Top);            Image7->Canvas->CopyRect(DestRect, Image1->Canvas, grtLTRB);            if (Image7->Width < ScrollBox2->Width) {  // 如果截圖寬度 小於 ScrollBox 寬度
            Image7->Left = (ScrollBox2->Width - Image7->Width) / 2;  // 居中顯示
         } else {
            Image7->Left = 0;
        }
        if (Image7->Height < ScrollBox2->Height) {  // 如果截圖高度小於 ScrollBox 高度
             Image7->Top = (ScrollBox2->Height - Image7->Height) / 2;  // 居中顯示
         } else {
            Image7->Top = 0;
        }            Image7->Visible = true;
    }
}
7 天天敲鍵盤 v 時時按滑鼠 8 發表人 - RedSnow 於 2005/12/01 20:45:40
系統時間：2024-05-08 11:08:11
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！
5151線上健康照護網 | 台灣西醫網 | 台灣中醫網 | 台灣牙科網 | 台灣照護網 | 趴趴狗旅遊網
大花蓮旅遊網 | 大花蓮民宿網 | 花蓮旅遊網 | 花蓮旅遊 | 花蓮旅遊 | 花蓮住宿
花蓮民宿網 | 花蓮旅遊 | 花蓮住宿 | 花蓮民宿 | 花蓮旅遊 | 花蓮民宿
花蓮住宿 | 大南投旅遊網 | 大南投民宿網 | 日月潭風景區 | 日月潭旅遊網 | 日月潭民宿網
日月潭住宿網 | 宜蘭旅遊網 | 宜蘭民宿網 | 宜蘭住宿網 | 宜蘭旅遊網 | 宜蘭民宿網
宜蘭住宿網 | 宜蘭旅遊網 | 宜蘭民宿網 | 宜蘭住宿網 | 台東旅遊網 | 台東民宿網
台東住宿網 | 台東旅遊網 | 台東民宿網 | 台東住宿網 | 台東旅遊 | 台東民宿
台東住宿 | 綠島旅遊網 | 綠島民宿網 | 綠島住宿網 | 綠島旅遊網 | 綠島民宿網
綠島住宿網 | 綠島旅遊網 | 綠島民宿網 | 綠島住宿網 | 集集旅遊網 | 集集民宿網
集集住宿網 | 關子嶺旅遊網 | 關子嶺民宿網 | 白河旅遊網 | 白河民宿網 | 心脈大師
尊榮牙醫診所 |