各位前輩....請問一下 現在我可以畫由左往右掃的線(如下圖).....那請問一下由右往左掃...遇到pixel=255時要畫 由高=0到高=h/7的直線....程式該怎麼改呢.....我附上去的是由左往右掃的程式 圖檔: 由左往右掃得程式: void __fastcall TForm1::Button3Click(TObject *Sender) { Graphics::TBitmap *TheBitmap, *TempBitmap; TempBitmap = new Graphics::TBitmap; TempBitmap->Assign(Image1->Picture->Bitmap); TempBitmap->PixelFormat = pf8bit; Byte *ptr; int w,h,i,j; w=Image1->Width; h=Image1->Height; int n=0,line=-1; for(i=0;iScanLine[i]; for(j=0;jCanvas->Pen->Color=clGreen; Image1->Canvas->Pen->Width=3; Image1->Canvas->Pen->Style=psSolid; Image1->Canvas->MoveTo(line,0); Image1->Canvas->LineTo(line,h/7); } } .....謝謝各位.. 正在努力學習中的小弟......

小慶 您好：    我有一個問題與一個建議：    問題： 感覺上您的目的有點像是要把各部分最寬的區域(橫向)標示出來，所以好像應該是由左到右與由右到左的上下掃瞄才對，但不知道您真正的需求為何？ 如果您之前由左到右的問題解決了，那現在只要改變一下橫向for-loop的值就能做由右到左的掃瞄了。    建議： 程式碼可以參考站上貼碼公告，改善貼碼內容。 另外，您在button上寫著"割脖子"，害我猶豫了一下，不知該不該回答這個問題？開開玩笑！< > 感覺您的這個問題應該不難解決，只是您真正的需求我仍無法明白。< > RichTop 敬上 =====***** 把數學當工具，可以解決問題；將數學變能力，能夠發現並解決問題！ =====#####

各位前輩....沒有啦...我想把頭的框框找出來....所以會寫一些比較好笑的名子... 現在我把for(j=0;j ......謝謝各位前輩....

前輩......對耶........小弟我正是想把三個區域pixel=255的地方標示出來 ...................不知道程式又該怎麼改呢......... 謝謝前輩們... 正在努力學習中的小弟.....

小慶 您好：    修改了一下您的程式，請自行對照參考一下！    

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Graphics::TBitmap *TheBitmap, *TempBitmap;
  TempBitmap = new Graphics::TBitmap;
  TempBitmap->Assign(Image1->Picture->Bitmap);
  TempBitmap->PixelFormat = pf8bit;      Byte *ptr;
  int w,h,i,j;
  w=Image1->Width;
  h=Image1->Height;
  int n=0,line=-1;
  int mark=w;
  for (i=0; iScanLine[i];
       line = -1;
       for (j=0; j=250)
              { line=j;
                break;
              }
          }
       if ( line!=-1 && mark>line )
         { mark=line;
           //break;
         }
     }      //if (line != -1)
    { Image1->Canvas->Pen->Color=clGreen;
      Image1->Canvas->Pen->Width=3;
      Image1->Canvas->Pen->Style=psSolid;
      Image1->Canvas->MoveTo(mark,0);
      Image1->Canvas->LineTo(mark,h/7);
    }
  mark=0;
  for (i=0; iScanLine[i];
       line = -1;
       for (j=w-1; j>=0; j--)
          { if (ptr[j]>=250)
              { line=j;
                break;
              }
          }
       if ( line!=-1 && markCanvas->Pen->Color=clGreen;
      Image1->Canvas->Pen->Width=3;
      Image1->Canvas->Pen->Style=psSolid;
      Image1->Canvas->MoveTo(mark,0);
      Image1->Canvas->LineTo(mark,h/7);
    }
  delete TempBitmap;
} 

RichTop 敬上 =====***** 把數學當工具，可以解決問題；將數學變能力，能夠發現並解決問題！ =====#####

太感謝回應我的這位前輩了..............我就是想要這種圖案的處理.... 真的非常謝謝你......... 我把處理過後的圖放上去..... ... 謝謝你 正在努力學習中的小弟