Paint Box

下載連結:
https://docs.google.com/uc?id=0B4PwTcFHZPWbMjQxMTAzZjItMzBkNy00ZmQ4LWIwNjQtOGQxMDE2Yzc3NDU2&export=download&hl=zh_TW

程式畫面:

關鍵程式碼:
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
  if(draw==1)
    Image1->Canvas->LineTo(X,Y);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
  draw=1;
  Image1->Canvas->MoveTo(X,Y);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
  draw=0;
}
//---------------------------------------------------------------------------