Check Point~

我的期末作業是要做小畫家~~

因為整體的作業頗大的~~

我先做了話矩陣的程式~~

其實還蠻基本的…

但是要先去網路找，抓滑鼠位置的方法~~

然後是使用也是有一些小障礙~~

起初不會用，後來研究一下就好了~~

我是令md,mm做偵測。滑鼠是否按下以及滑鼠是否移動~

這是主程式碼片段:

if (md==1 && mm==0) {

//繪第一個矩形

img->Canvas->Pen->Color = clRed ;

img->Canvas->Rectangle(x1,y1,X,Y) ;

xo = X ; //x_old

yo = Y ; //y_old

}

以下是算按開左鍵~完成繪製

void __fastcall TForm1::imgMouseUp(TObject *Sender, TMouseButton Button,

TShiftState Shift, int X, int Y)

{

md = 0 ;

mm = 0 ;

x1 = X ;

y1 = Y ;

}

以下是未畫矩形:
以下是畫一個:
以下是兩個: