void __fastcall TForm1::Image2MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{    ListBox1->Items->Add("X座標=>" IntToStr(X) ", Y座標=>" IntToStr(Y));
    Image2->Canvas->Pen->Width = 1;
    Image2->Canvas->Pen->Color = clRed;               if (number > 0) {
        Image2->Canvas->MoveTo(x_buffer[number-1], y_buffer[number-1]);
        Image2->Canvas->LineTo(X, Y);
        Image2->Canvas->PenPos = Point(X,Y);
        Image2->Canvas->Brush->Color=clRed;              }        x_buffer[number] = X;
    y_buffer[number] = Y;
    posi[bezier]=Point(X,Y);
    number  ;
    bezier  ;    

void __fastcall TForm1::Image2MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{    ListBox1->Items->Add("X座標=>" IntToStr(X) ", Y座標=>" IntToStr(Y));
    Image2->Canvas->Pen->Width = 1;
    Image2->Canvas->Pen->Color = clRed;               if (number > 0) {
        Image2->Canvas->MoveTo(x_buffer[number-1], y_buffer[number-1]);
        Image2->Canvas->LineTo(X, Y);
        Image2->Canvas->PenPos = Point(X,Y);
        Image2->Canvas->Brush->Color=clRed;//這邊就是我要在封閉曲線上色的程式碼...是參考前面大大的文章              }        x_buffer[number] = X;
    y_buffer[number] = Y;
    posi[bezier]=Point(X,Y);
    number  ;
    bezier  ;
}
void __fastcall TForm1::N2Click(TObject *Sender)
{
  Image4->Canvas->Pen->Width = 1;
  Image4->Canvas->Pen->Color = clWhite;
  Image4->Canvas->PolyBezier(posi,bezier-1);
}

引言: HKH 妳好： 妳貼上來的程式碼似乎不太完整，而且也沒看到有填色的動作，請補強一下，或許比較容易找出問題來。 7 天天敲鍵盤 v 時時按滑鼠 8

void __fastcall TForm2::Image2MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    ListBox1->Items->Add("X座標=>" IntToStr(X) ", Y座標=>" IntToStr(Y));
    if (Shift.Contains(ssShift)) { // 如果在點擊滑鼠鍵時，有按下鍵盤的 Shift 鍵
        Image2->Canvas->Brush->Color = clRed;  // 設定填塗的顏色
        Image2->Picture->Bitmap->Canvas->FloodFill(X, Y, clRed, fsBorder);  // 做填色動作
    } else {
        Image2->Canvas->Pen->Width = 1;
        Image2->Canvas->Pen->Color = clRed;            if (number > 0) {
            Image2->Canvas->MoveTo(x_buffer[number-1], y_buffer[number-1]);
            Image2->Canvas->LineTo(X, Y);
            Image2->Canvas->PenPos = Point(X,Y);
        }            x_buffer[number] = X;
        y_buffer[number] = Y;
        posi[bezier]=Point(X,Y);
        number  ;
        bezier  ;
    }
}

引言: HKH 妳好： 妳那段程式主要是繪製線段，看不出來觸發 "填色" 的時機為何？另外妳標示出來的那一行僅是設定筆刷的顏色而已，並非填色的動作。 我不知道妳打算如何設定填色的時機，以下我先暫時以按下滑鼠鍵時，若也有按下鍵盤的 Shift 鍵就當作填色的時機，妳參考一下吧：

void __fastcall TForm2::Image2MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    ListBox1->Items->Add("X座標=>" IntToStr(X) ", Y座標=>" IntToStr(Y));
    if (Shift.Contains(ssShift)) { // 如果在點擊滑鼠鍵時，有按下鍵盤的 Shift 鍵
        Image2->Canvas->Brush->Color = clRed;  // 設定填塗的顏色
        Image2->Picture->Bitmap->Canvas->FloodFill(X, Y, clRed, fsBorder);  // 做填色動作
    } else {
        Image2->Canvas->Pen->Width = 1;
        Image2->Canvas->Pen->Color = clRed;            if (number > 0) {
            Image2->Canvas->MoveTo(x_buffer[number-1], y_buffer[number-1]);
            Image2->Canvas->LineTo(X, Y);
            Image2->Canvas->PenPos = Point(X,Y);
        }            x_buffer[number] = X;
        y_buffer[number] = Y;
        posi[bezier]=Point(X,Y);
        number  ;
        bezier  ;
    }
}

7 天天敲鍵盤 v 時時按滑鼠 8

引言:想請問一下...就是我要做填色動作是在我把點連成封閉曲線後就自動上色... 我有做一個listbox去紀錄我所點的座標位置...但是當我點回原點成封閉曲線...往往最後一點會跟原點有誤差...這樣該怎麼處理?該如何上色?

void __fastcall TForm1::Image2MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    ListBox1->Items->Add("X座標=>" IntToStr(X) ", Y座標=>" IntToStr(Y));
    if (Shift.Contains(ssCtrl)) {  // 如果在點擊滑鼠鍵時，有按下鍵盤的 Ctrl 鍵
           Image2->Canvas->MoveTo(x_buffer[number-1], y_buffer[number-1]);  // 由前一個記錄的位置開始準備繪製
        Image2->Canvas->LineTo(x_buffer[0], y_buffer[0]);  // 畫一條直線接回原點
    } else if (Shift.Contains(ssShift)) { // 如果在點擊滑鼠鍵時，有按下鍵盤的 Shift 鍵
        Image2->Canvas->Brush->Color = clRed;  // 設定填塗的顏色
        Image2->Picture->Bitmap->Canvas->FloodFill(X, Y, clRed, fsBorder);  // 做填色動作
    } else {
        Image2->Canvas->Pen->Width = 1;
        Image2->Canvas->Pen->Color = clRed;            if (number > 0) {
            Image2->Canvas->MoveTo(x_buffer[number-1], y_buffer[number-1]);
            Image2->Canvas->LineTo(X, Y);
            Image2->Canvas->PenPos = Point(X,Y);
        }            x_buffer[number] = X;
        y_buffer[number] = Y;
        posi[bezier]=Point(X,Y);
        number  ;
        bezier  ;
    }
}

Image2->Canvas->Pen->Color = clRed;
想改成自訂的顏色
Image2->Canvas->Pen->Color = (TColor)RGB(252,241,160);

引言:我在寫的過程中發生一點錯誤想請問一下... 就是我的畫筆顏色本來設是 Image2->Canvas->Pen->Color = clRed; 想改成自訂的顏色 Image2->Canvas->Pen->Color = (TColor)RGB(252,241,160); 但結果卻變成整張圖都是我自訂的顏色...這是未什麼?

// 下列兩個為全域變數
TColor LineColor = clRed;  // 繪製線條的顏色
TColor FillColor = (TColor)RGB(252,241,160);  // 填塗封閉區域的顏色    void __fastcall TForm2::Image2MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    ListBox1->Items->Add("X座標=>" IntToStr(X) ", Y座標=>" IntToStr(Y));
    if (Shift.Contains(ssCtrl)) {
        Image2->Canvas->MoveTo(x_buffer[number-1], y_buffer[number-1]);
        Image2->Canvas->LineTo(x_buffer[0], y_buffer[0]);        } else if (Shift.Contains(ssShift)) {
        Image2->Canvas->Brush->Color = FillColor;
        Image2->Picture->Bitmap->Canvas->FloodFill(x_buffer[number-1] 1, y_buffer[number-1] 1, LineColor, fsBorder);
    } else {
        Image2->Canvas->Pen->Width = 1;
        Image2->Canvas->Pen->Color = LineColor;            if (number > 0) {
            Image2->Canvas->MoveTo(x_buffer[number-1], y_buffer[number-1]);
            Image2->Canvas->LineTo(X, Y);
            Image2->Canvas->PenPos = Point(X,Y);
        }            x_buffer[number] = X;
        y_buffer[number] = Y;
        posi[bezier] = Point(X,Y);
        number  ;
        bezier  ;
    }
}

void __fastcall TForm1::N2Click(TObject *Sender)
{
  Image4->Canvas->Pen->Width = 1;
  Image4->Canvas->Pen->Color = clWhite;
  Image4->Canvas->PolyBezier(posi,bezier-1);
}

引言: HKH 妳好：

引言:我在寫的過程中發生一點錯誤想請問一下... 就是我的畫筆顏色本來設是 Image2->Canvas->Pen->Color = clRed; 想改成自訂的顏色 Image2->Canvas->Pen->Color = (TColor)RGB(252,241,160); 但結果卻變成整張圖都是我自訂的顏色...這是未什麼?

整張圖都變成自定色？那應該不僅僅是變更了 Pen Color，而應該還變更了 Brush Color 吧？ 請查看 BCB Help 對 FloodFill() 函式的說明，它的第三個參數是顏色值，函式會對這個顏色值所形成的封閉區域填上 Brush 所設定的顏色，因此就本篇所寫的範例而言，該參數應該要與繪製線段的顏色相同才行，否則就會將整個 Image 都填上 Brush 所設定的顏色了。 我將程式再修改一下，將繪製線段以及填充的顏色分別以變數來設定，這樣子應該就更能提供程式的易讀性了：

// 下列兩個為全域變數
TColor LineColor = clRed;  // 繪製線條的顏色
TColor FillColor = (TColor)RGB(252,241,160);  // 填塗封閉區域的顏色    void __fastcall TForm2::Image2MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    ListBox1->Items->Add("X座標=>" IntToStr(X) ", Y座標=>" IntToStr(Y));
    if (Shift.Contains(ssCtrl)) {
        Image2->Canvas->MoveTo(x_buffer[number-1], y_buffer[number-1]);
        Image2->Canvas->LineTo(x_buffer[0], y_buffer[0]);        } else if (Shift.Contains(ssShift)) {
        Image2->Canvas->Brush->Color = FillColor;
        Image2->Picture->Bitmap->Canvas->FloodFill(x_buffer[number-1] 1, y_buffer[number-1] 1, LineColor, fsBorder);
    } else {
        Image2->Canvas->Pen->Width = 1;
        Image2->Canvas->Pen->Color = LineColor;            if (number > 0) {
            Image2->Canvas->MoveTo(x_buffer[number-1], y_buffer[number-1]);
            Image2->Canvas->LineTo(X, Y);
            Image2->Canvas->PenPos = Point(X,Y);
        }            x_buffer[number] = X;
        y_buffer[number] = Y;
        posi[bezier] = Point(X,Y);
        number  ;
        bezier  ;
    }
}

7 天天敲鍵盤 v 時時按滑鼠 8

Image2->Picture->Bitmap->Canvas->FloodFill(x_buffer[number-1] 1, y_buffer[number-1] 1, LineColor, fsBorder);

Image2->Picture->Bitmap->Canvas->FloodFill(X, Y, LineColor, fsBorder);

1. 妳將繪製貝茲曲線時的顏色設為白色，若是 Image4 的底色也為白色的話，那將會無法看到繪製的結果。
2. 經我測試的結果，好像使用 PolyBezier() 函式時，傳入的 TPoint 陣列的大小必須要與實際使用到的 TPoint 數量相符，否則就會怪怪的，原因我未找出來，因此我加上一段處理，在執行 PolyBezier() 函式之前，建立一組與 bezier 變數數值相同的 TPoint 陣列，然後將這組陣列傳給 PolyBezier() 函式來使用，這樣子就可以正確的繪製出貝茲曲線了：

   void __fastcall TForm1::N2Click(TObject *Sender)
   {
       TPoint *np = new TPoint[bezier];        for(int i=0; iCanvas->Pen->Width = 1;
       Image4->Canvas->Pen->Color = clRed;
       Image4->Canvas->PolyBezier(np, bezier-1);        delete np;
   }

引言:

經我測試的結果，好像使用 PolyBezier() 函式時，傳入的 TPoint 陣列的大小必須要與實際使用到的 TPoint 數量相符，否則就會怪怪的，原因我未找出來，因此我加上一段處理，在執行 PolyBezier() 函式之前，建立一組與 bezier 變數數值相同的 TPoint 陣列，然後將這組陣列傳給 PolyBezier() 函式來使用，這樣子就可以正確的繪製出貝茲曲線了：

void __fastcall TForm1::N2Click(TObject *Sender)
{
    TPoint *np = new TPoint[bezier];        for(int i=0; iCanvas->Pen->Width = 1;
    Image4->Canvas->Pen->Color = clRed;
    Image4->Canvas->PolyBezier(np, bezier-1);        delete np;
}

[/list=1] 7 天天敲鍵盤 v 時時按滑鼠 8 發表人 - RedSnow 於 2005/11/13 22:51:52

void __fastcall TForm1::N2Click(TObject *Sender)
{
    int nn = (bezier - 1) / 3;
    if (nn > 0) {
        Image4->Canvas->Pen->Width = 1;
        Image4->Canvas->Pen->Color = clRed;
        Image4->Canvas->PolyBezier(posi, nn*3);
    }
}