📄 chap09.htm
字号:
<P> </P></FONT><FONT SIZE=2><P>class CPolygon : public CPolyline</P><P>{</P><P>public:</P><P>		CPolygon(TCanvas* pCanvas):CPolyline(pCanvas){}</P><P> virtual ~CPolygon() 				 {}</P><P>virtual void OnMouseUp(int,int);</P><P>};</P><P> </P><P>CPolygon</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>是</FONT><FONT SIZE=2>CPolyline</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>的子类别，其差别仅在於它会将首尾两点连接，使其成为一个多边形，因此我们就直接由</FONT><FONT SIZE=2>CPolyline</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>继承而来，只改写其</FONT><FONT SIZE=2>OnMouseUp</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>成员函式即可。</P><P> </P></FONT><FONT SIZE=2><P>void CPolygon::OnMouseUp(int x,int y)</P><P>{</P><P>	m_pCanvas->MoveTo(m_ptOrigin.x,m_ptOrigin.y);</P><P>	m_pCanvas->LineTo(x,y);</P><P>}</P><P> </P><P>XX-03-05 CRectangle</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>类别定义及实作</FONT><FONT SIZE=2> </FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>画矩形的类别</P><P> </P></FONT><FONT SIZE=2><P>class CRectangle : public CShape</P><P>{</P><P>public:</P><P> POINT m_ptMove;</P><P>	 POINT	m_ptOrigin;</P><P>public:</P><P>		CRectangle(TCanvas* pCanvas):CShape(pCanvas)	{}</P><P> virtual ~CRectangle() 				{}</P><P>virtual void OnMouseMove(int,int);</P><P>virtual void OnMouseDown(int,int);</P><P>virtual void OnMouseUp(int,int);</P><P>};</P><P> </P></FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2><P>画矩形类别其实和画线类别有些类似，它们同样必须记载上次滑鼠移动的点，并擦掉原来的图形画出新的图形，所以我只针对其相异的部份加以说明之：</P><P> </P></FONT><FONT SIZE=2><P>//	</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>滑鼠移动事件处理函式</P></FONT><FONT SIZE=2><P>//	</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>原理和</FONT><FONT SIZE=2>CLine</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>类似，只不过改成画矩形。</P></FONT><FONT SIZE=2><P>void CRectangle::OnMouseMove(int x,int y)</P><P>{</P><P> m_pCanvas->Pen->Mode = pmXor;</P><P>	m_pCanvas->Rectangle(m_ptOrigin.x,m_ptOrigin.y,m_ptMove.x,m_ptMove.y);</P><P> m_ptMove.x = x;</P><P> m_ptMove.y = y;</P><P> m_pCanvas->Rectangle(m_ptOrigin.x,m_ptOrigin.y,m_ptMove.x,m_ptMove.y);</P><P> m_pCanvas->Pen->Mode = pmCopy;</P><P>}</P><P> </P><P>XX-03-06 CRoundRect</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>类别定义及实作</FONT><FONT SIZE=2> </FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>画圆矩形的类别</P><P> </P></FONT><FONT SIZE=2><P>class CRoundRect : public CShape</P><P>{</P><P>public:</P><P> POINT m_ptMove;</P><P>	 POINT	m_ptOrigin;</P><P>public:</P><P>		CRoundRect(TCanvas* pCanvas):CShape(pCanvas)	{}</P><P> virtual ~CRoundRect() 				{}</P><P>virtual void OnMouseMove(int,int);</P><P>virtual void OnMouseDown(int,int);</P><P>virtual void OnMouseUp(int,int);</P><P>};</P><P>CRoundRect</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>的实作几乎和</FONT><FONT SIZE=2>Crectangle</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>相同，只不过它们呼叫不同的</FONT><FONT SIZE=2>API</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>罢了，</FONT><FONT SIZE=2>CRoundRect</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>是以</FONT><FONT SIZE=2>Canvas->RoundRect</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>来画出图形的。</P><P> </P></FONT><FONT SIZE=2><P>void CRoundRect::OnMouseMove(int x,int y)</P><P>{</P><P> m_pCanvas->Pen->Mode = pmXor;</P><P>	m_pCanvas->RoundRect(m_ptOrigin.x,m_ptOrigin.y,m_ptMove.x,m_ptMove.y,4,4);</P><P> m_ptMove.x = x;</P><P> m_ptMove.y = y;</P><P> m_pCanvas->RoundRect(m_ptOrigin.x,m_ptOrigin.y,m_ptMove.x,m_ptMove.y,4,4);</P><P> m_pCanvas->Pen->Mode = pmCopy;</P><P>}</P><P> </P><P>XX-03-07 CEllipse </FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>类别定义及实作</FONT><FONT SIZE=2> </FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>画圆形的类别</P><P> </P><P>画圆形的处理和画矩形也大致相同，因为在</FONT><FONT SIZE=2>Windows</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>中是以包围矩形来定义一个圆形，因此和</FONT><FONT SIZE=2>CRoundRect</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>相同的，我们只要改写成画圆函式即可。其馀我就不多说了。</P><P> </P></FONT><FONT SIZE=2><P>class CEllipse : public CShape</P><P>{</P><P>public:</P><P> POINT m_ptMove;</P><P>	 POINT	m_ptOrigin;</P><P>public:</P><P>		CEllipse(TCanvas* pCanvas):CShape(pCanvas)	{}</P><P> virtual ~CEllipse() 				{}</P><P>virtual void OnMouseMove(int,int);</P><P>virtual void OnMouseDown(int,int);</P><P>virtual void OnMouseUp(int,int);</P><P>};</P><P> </P><P>XX-03-08</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>小结</P><P> </P><P>以上就是此绘图程式中所使用的各个物件的定义，此乃血统纯正的</FONT><FONT SIZE=2>C++ </FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>写法的程式，不像</FONT><FONT SIZE=2>C++Builder</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>官方的范例是由</FONT><FONT SIZE=2>Delphi</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>的范例修改而来，充满了</FONT><FONT SIZE=2>Object Pascal</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>的味道。</P><P> </P><P>若你对</FONT><FONT SIZE=2>C++ </FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>尚不太熟悉的话，请你一定要细细领略以上的精神。因为它是</FONT><FONT SIZE=2>C++ </FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>式的物件导向程式最基本且精要的精神所在，当你了解了以上的精神，你就可谓掌握了</FONT><FONT SIZE=2>C++ </FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>的封装、继承、及动态连结这叁把权仗的基本精神。</P><P> </P><P>至於</FONT><FONT SIZE=2>C++ </FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>老手，以上的定义都是很自然就可以接受的。也许有人会质疑以上的物件定义并未考虑到物件的永续性</FONT><FONT SIZE=2> </FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>（</FONT><FONT SIZE=2>Object Persistence</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>）。没错，不过这并不是我疏忽了，而是在本章的程式中图形的存取是以</FONT><FONT SIZE=2>Timage</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>来存取，因此所有向量式的物件都已转化成点阵图了，自然不需考虑到物件的储存问题。</P><P> </P><P>在後续章节，我还会再针对物件的永续性来做一讨论。现在我们先就</FONT><FONT SIZE=2>TImage</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>的点阵图存取方式为平台讨论之。</P><P> </P><P>最後，在完成了物件的定义之後，我们再将程式根据物件导向的方式再加以改写之。因为我目前尚未加入选择物件的方法，所以我只能用预设物件型态的方式来展示程式的结果。</P><P> </P></FONT><FONT SIZE=2><P>//	</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>表格建构函式，设定</FONT><FONT SIZE=2>m_bDraw</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>旗标初值</P></FONT><FONT SIZE=2><P>__fastcall TForm1::TForm1(TComponent* Owner)</P><P>	: TForm(Owner)</P><P>{</P><P>	m_bDraw = FALSE;</P><P>}</P><P> </P><P>//	Form</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>的</FONT><FONT SIZE=2>OnCreate</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>事件处理函式。</FONT><FONT SIZE=2>Form</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>建立时引发。</P></FONT><FONT SIZE=2><P>//	1.</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>设定笔的颜色及宽度。</P></FONT><FONT SIZE=2><P>//	2.</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>产生一个</FONT><FONT SIZE=2>CLine</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>绘图物件。</P></FONT><FONT SIZE=2><P>// </FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>注：你可以自行修改</FONT><FONT SIZE=2>CLine</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>成</FONT><FONT SIZE=2>CPolyline</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>、</FONT><FONT SIZE=2>CPolygon</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>、</FONT><FONT SIZE=2>CRect</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>等值。</P><P> </P></FONT><FONT SIZE=2><P>void __fastcall TForm1::FormCreate(TObject *Sender)</P><P>{</P><P>	Canvas->Pen->Color = clRed;</P><P> Canvas->Pen->Width = 2;</P><P> m_pObj = new CLine(Canvas);</P><P>}</P><P> </P><P>//	Form</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>的</FONT><FONT SIZE=2>OnClose</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>事件处理函式。</FONT><FONT SIZE=2>Form</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>关闭时引发。</P></FONT><FONT SIZE=2><P>//	1.</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>杀掉绘图物件。</P><P> </P></FONT><FONT SIZE=2><P>void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)</P></FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2><P>{</P><P>	</FONT><FONT SIZE=2>delete m_pObj;</P><P>}</P><P> </P><P>//	</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>更改後的</FONT><FONT SIZE=2>OnMouseDown</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>物件处理函式。</P></FONT><FONT SIZE=2><P>//	1.</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>将</FONT><FONT SIZE=2>m_bDraw</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>旗标设为</FONT><FONT SIZE=2> TRUE</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>。</P></FONT><FONT SIZE=2><P>//	2.</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>呼叫绘图物件的</FONT><FONT SIZE=2>OnMouseDown</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>函式。</P></FONT><FONT SIZE=2><P>void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button,</P><P>	TShiftState Shift, int X, int Y)</P><P>{</P><P> m_bDraw = TRUE;</P><P> m_pObj->OnMouseDown(X,Y);</P><P>}</P><P> </P><P>//	</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>更改後的</FONT><FONT SIZE=2>OnMouseMove</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>物件处理函式。</P></FONT><FONT SIZE=2><P>//	1.</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>判断</FONT><FONT SIZE=2>m_bDraw</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>旗标是否为</FONT><FONT SIZE=2> TRUE</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>。</P></FONT><FONT SIZE=2><P>//	2.</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>若是则呼叫绘图物件的</FONT><FONT SIZE=2>OnMouseMove</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>函式。</P><P> </P></FONT><FONT SIZE=2><P>void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,</P><P>	int X, int Y)</P><P>{</P><P>	if (m_bDraw)</P><P> 	m_pObj->OnMouseMove(X,Y);</P><P>}</P><P> </P><P>//	</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>更改後的</FONT><FONT SIZE=2>OnMouseUp</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>物件处理函式。</P></FONT><FONT SIZE=2><P>//	1.</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>将</FONT><FONT SIZE=2>m_bDraw</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>旗标设为</FONT><FONT SIZE=2> FALSE</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>。</P></FONT><FONT SIZE=2><P>//	2.</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>若是则呼叫绘图物件的</FONT><FONT SIZE=2>OnMouseUp</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>函式。</P><P> </P></FONT><FONT SIZE=2><P>void __fastcall TForm1::FormMouseUp(TObject *Sender, TMouseButton Button,</P><P>	TShiftState Shift, int X, int Y)</P><P>{</P>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -