作了一個類似小畫家畫直線圈圈的功能列如以下 在IMAGE1的ONMOUSEDOWN程式如下 void __fastcall TForm1::Image1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { Graphics::TBitmap *TheBitmap; StartX=(int)X*ScaleFactor; StartY=(int)Y*ScaleFactor; if(Pasting_Enable) { Pasting=true; Masking =false;Drawing=false; Pasting_Enable=false; } else if(Line_Enable||Rect_Enable||Ellipse_Enable) { Pasting=false; Masking=false;Drawing=true; } else { Masking=true;Pasting=false;Drawing=false; TheBitmap=Image1->Picture->Bitmap; TheBitmap->Canvas->Draw(0,0,OrgBitmap); } } 在IMAGE1的ONMOUSEUP程式如下 void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,TShiftState Shift, int X, int Y) { Graphics::TBitmap *TheBitmap; EndX=(int)X*ScaleFactor; EndY=(int)Y*ScaleFactor; if(Pasting) { TheBitmap=Image1->Picture->Bitmap; TheBitmap->Canvas->Draw(0,0,OrgBitmap); TheBitmap->Canvas->Draw(X-StartX,Y-StartY,PasteBitmap); OrgBitmap->Assign(TheBitmap); } if(Drawing) { TheBitmap=Image1->Picture->Bitmap; TheBitmap->Canvas->Draw(0,0,OrgBitmap); TheBitmap->Canvas->Pen->Style=Pen_Style; TheBitmap->Canvas->Pen->Width=Pen_Width; TheBitmap->Canvas->Pen->Color=Pen_Color; if(Line_Enable) { TheBitmap->Canvas->MoveTo(StartX,StartY); TheBitmap->Canvas->LineTo(EndY,EndY); } else if(Rect_Enable) { TheBitmap->Canvas->Brush->Style=bsClear; TheBitmap->Canvas->Rectangle(StartX,StartY,EndY,EndY); } else if(Ellipse_Enable) { TheBitmap->Canvas->Brush->Style=bsClear; TheBitmap->Canvas->Ellipse(StartX,StartY,EndX,EndY); } OrgBitmap->Assign(TheBitmap); } Masking=false; Pasting=false; Drawing=false; } 在IMAGE1的ONMOUSEMOVE程式如下 void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,int X, int Y) { Graphics::TBitmap *TheBitmap; TheBitmap=Image1->Picture->Bitmap; if(TheBitmap->Empty) { StatusBar1->Panels->Items[0]->Text= "X="+IntToStr(X); StatusBar1->Panels->Items[1]->Text= "Y="+IntToStr(Y); } if(Masking){ TheBitmap->Canvas->Pen->Mode=pmBlack; TheBitmap->Canvas->Pen->Width=2; TheBitmap->Canvas->Brush->Style=bsClear; TheBitmap->Canvas->Draw(0,0,OrgBitmap); X=(int)X*ScaleFactor; Y=(int)Y*ScaleFactor; TheBitmap->Canvas->Rectangle(StartX,StartY,X,Y); } if(Pasting) { TheBitmap->Canvas->Draw(0,0,OrgBitmap); X=(int)X*ScaleFactor; Y=(int)Y*ScaleFactor; TheBitmap->Canvas->Draw(X-StartX,Y-StartY,PasteBitmap); TheBitmap->Canvas->Pen->Mode=pmBlack; TheBitmap->Canvas->Pen->Width=2; TheBitmap->Canvas->Brush->Style=bsClear; TheBitmap->Canvas->Rectangle(X-StartX,Y-StartY,X-StartX+PasteBitmap->Width,Y-StartY+PasteBitmap->Height); } if(Drawing) { TheBitmap->Canvas->Draw(0,0,OrgBitmap); X=(int)X*ScaleFactor; Y=(int)Y*ScaleFactor; TheBitmap->Canvas->Pen->Style=Pen_Style; TheBitmap->Canvas->Pen->Width=Pen_Width; TheBitmap->Canvas->Pen->Color=Pen_Color; if(Line_Enable) { TheBitmap->Canvas->MoveTo(StartX,StartY); TheBitmap->Canvas->LineTo(X,Y); } else if(Rect_Enable) { TheBitmap->Canvas->Brush->Style=bsClear; TheBitmap->Canvas->Rectangle(StartX,StartY,X,Y); } else if(Ellipse_Enable) { TheBitmap->Canvas->Brush->Style=bsClear; TheBitmap->Canvas->Ellipse(StartX,StartY,X,Y); } } } 結果可以執行卻沒辦法畫出圖形不知道哪錯了? 發表人 - poetry 於 2005/10/27 00:09:31

您好:    PO程式碼的方式與版規說明請參考下面連結,煩請修改謝謝您的配合 >

這組程式是說開一張圖在元件IMAGE後可以反白,濾波甚至可以在上面畫圈圈直線,程式中的ONMOUSEDOWN,ONMOUSEUP是IMAGE的EVENTS.....

poetry 您好：    您的程式敘述都是將繪製結果畫到 TheBitmap 上面，而最終的結果則是設給了 OrgBitmap，沒有一個動作是將繪製結果畫到 Image1 上面的，所以您看不到繪製的結果。      7 天天敲鍵盤 v 時時按滑鼠 8