chap09.htm

创世纪的C++ Builder --------------------------------------------------------------------------------

<P>    m_bDraw = FALSE;</P>
<P>    m_pObj-&gt;OnMouseUp(X,Y);</P>
<P>}</P>
<P>　</P>
</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2><P>瞧！这就是更改後的程式，是不是变得格外简洁呢？除此之外，它最大的优点在於，无论我们日後加入了多少绘图物件，你都不需再修改以上程式中关於绘图物件的处理部份，只要再自行增加一个物件宣告即可。和原先</FONT><FONT SIZE=2>Borland</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>公司产品内附由</FONT><FONT SIZE=2>Object Pascal</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>好吧！让我们先检阅现在的成果。</P>
<P>　</P>
<P><IMG SRC="Image11.gif" WIDTH=459 HEIGHT=348></P>
<P>图</FONT><FONT SIZE=2>XX-04 CLine</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>绘图物件范例。</P>
<P><IMG SRC="Image12.gif" WIDTH=459 HEIGHT=348></P>
<P>图</FONT><FONT SIZE=2>XX-05 CPolyline</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>绘图物件范例（将程式改成</FONT><FONT SIZE=2>new CPolyline</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>）</P>
<P>　</P>
</FONT><FONT SIZE=2><P>XX-04&#9;</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>工具列（</FONT><FONT SIZE=2>ToolBar</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>）的使用</P>
<P>　</P>
<P>到目前为止我们已经将所有绘图物件定义完成，因此理论上你的程式应该可以画出各种不同的绘图物件了。但是前面我提到，目前我们尚未将绘图物件的选择功能实作出来，因此我们是以直接修改程式的方式来绘制不同的图形。这是为了说明方便的权宜之计。</P>
<P>　</P>
<P>在一般的绘图程式中都是以工具列的方式来实作出绘图功能的切换功能，如</FONT><FONT SIZE=2>Windows 95</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>内的小画家即是一典型例子。因此接下来我就为你说明在</FONT><FONT SIZE=2>C++ Builder</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>中实作出工具列的方法。</P>
<P>　</P>
<P><IMG SRC="Image13.gif" WIDTH=461 HEIGHT=352></P>
<P>图</FONT><FONT SIZE=2>XX-06</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>小画家使用的工具列</P>
<P>　</P>
<P>在</FONT><FONT SIZE=2>C++ Builder</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>中实作工具列的方式和其他的程式如</FONT><FONT SIZE=2>Visual C++</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>，</FONT><FONT SIZE=2>Borland C++ </FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>不同。後两者都是直接使用</FONT><FONT SIZE=2>Windows 95</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> (</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>Windows 95</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>内建的</FONT><FONT SIZE=2>ToolBar</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>型别，只是用法较为复杂。）。</P>
<P>　</P>
<P>那麽在</FONT><FONT SIZE=2>C++ Builder</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>中是如何来实作出工具列呢？说穿了其实很简单：那就是利用</FONT><FONT SIZE=2>TPanel</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>和</FONT><FONT SIZE=2>TSpeedButton</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>。</P>
<P>　</P>
</FONT><FONT SIZE=2><P>CPanel</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>是一个多功能的容器元件，因此我们可以用它来做为工具列的平台，使用</FONT><FONT SIZE=2>CPanel</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>是因为它是少数几个可做为容器元件的元件，所以它会自动调整置於其上的软体元件的位置，因此很适合做为放置工具列的平台。</P>
<P>　</P>
<P>注：在</FONT><FONT SIZE=2>C++ Builder</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>的程式模式中大量使用</FONT><FONT SIZE=2>TPanel</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>来做为容器元件。它除了可以做为</FONT><FONT SIZE=2>ToolBar</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>的平台外，另外如状态列</FONT><FONT SIZE=2> (StatusBar)</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>也可以用它来完成，而且它也可以用来做为画面分割的工具，来达成在</FONT><FONT SIZE=2>MFC</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>中类似分割视窗（</FONT><FONT SIZE=2>Splitter Window</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>）效果。</P>
<P>　</P>
</FONT><FONT SIZE=2><P>TSpeedButton</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>快速按钮元件在功能上本来就和工具列有几分类似，现在我们可以将相同属性的快速按钮元件整合在一个</FONT><FONT SIZE=2>TPanel</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>中即可完成我们所要的工具列了。</P>
<P>　</P>
<P>最後我再将工具列的作法按部就班详述之：</P>
<P>　</P>
</FONT><FONT SIZE=2><P>(1) </FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>在表格上加入</FONT><FONT SIZE=2>TPanel</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>元件。</P>
<OL START=2>

<LI>设定</FONT><FONT SIZE=2>TPanel</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>的</FONT><FONT SIZE=2>Align</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>性质为</FONT><FONT SIZE=2> alTop</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>。因为我们希望工具列置於表格上方，所以将它设定为浮贴於表格的上方。如此一来当表格大小改变时，工具列的宽度为跟着改变，而高度则维持原先的高度。</LI>
<LI VALUE=3>将</FONT><FONT SIZE=2>TSpeedButton</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>加入</FONT><FONT SIZE=2>TPanel</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>原件上。</LI></OL>

<P>　</P>
<P>你可以在表格中加入多个上述的工具列，它们会依序自动排列於表格的上方，因此你不需费心去处理这些额外的动作。</P>
<P>　</P>
</FONT><FONT SIZE=2><P>XX-04-01 TSpeedButton </FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>元件解析及设定</P>
<P>　</P>
</FONT><FONT SIZE=2><P>ToolBar</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>可依状况切换其状态。</P>
<OL START=3>

<LI>当使用者点取该功能时，必须执行该功能。</LI></OL>

<P>　</P>
<P>我们来看看</FONT><FONT SIZE=2>TSpeedButton</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>如何达到以上的要求。</P>
<P>　</P>
<P>首先，</FONT><FONT SIZE=2>TSpeedButton</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>具备</FONT><FONT SIZE=2>Glyph</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>性质，可以指定其图形，所以第一个要求不成问题，再来</FONT><FONT SIZE=2>TSpeedButton</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>具备以下叁种状态：</P>
<P>　</P>

<UL>
<LI>一般按钮的功能。</LI>
<LI>可以除能</FONT><FONT SIZE=2>/</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>致能。</LI>
<LI>具备群组特性。（也就是说同一群组的</FONT><FONT SIZE=2>TSpeedButton</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>会互相影响，因此可轻易做出互斥的功能，以绘图程式为例，一次只能使用一种工具，因此当使用者选取工具时，除了被选取的工具之外，其他的工具应该都呈浮起状态）</LI></UL>

<P>　</P>
<P>由上可知，</FONT><FONT SIZE=2>TSpeedButton</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>确实是实作</FONT><FONT SIZE=2>ToolBar</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>的适当人选。</P>
<P>　</P>
</FONT><FONT SIZE=2><P>XX-04-02</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>将</FONT><FONT SIZE=2>SpeedButton</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>加入</FONT><FONT SIZE=2>ToolBar</P>
</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2><P>　</P>
<P>依照我们先前的需求，我们需要一个可以切换绘图工具的工具列，因此我们就照前面所说的方式来完成它。</P>
<P>　</P>
<P><IMG SRC="Image14.gif" WIDTH=464 HEIGHT=35></P>
<P>图</FONT><FONT SIZE=2>XX-07</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>工具列</P>
<P>　</P>
<P>图</FONT><FONT SIZE=2>XX-07</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>就是我所加入的</FONT><FONT SIZE=2>SpeedButton</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>，除此之外还有几个程序必须完成</P>

<UL>
<LI>为</FONT><FONT SIZE=2>SpeedButton</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>命名。取一个有意义的名字。</LI>
<LI>依需要设定其高度及位置。</LI>
<LI>设定图形。</LI>
<LI>设定</FONT><FONT SIZE=2>SpeedButton</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>状态初值。</LI>
<LI>设定群组特性。</LI></UL>

<P>◎&#9;设定事件处理函式。</P>
<P>　</P>
</FONT><FONT SIZE=2><P>SpeedButton</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>的命名原则和一般变数的命名原则相同，简单明了就好。以本程式为例，我们就可以</FONT><FONT SIZE=2>LineButton</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>、</FONT><FONT SIZE=2>RectangleButton</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>等名字命名之。命名时只要改变</FONT><FONT SIZE=2>SpeedButton</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>的</FONT><FONT SIZE=2>Name</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>性质即可。</P>
<P>　</P>
<P>至於设定图形，只要先选取该</FONT><FONT SIZE=2>SpeedButton</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>，然後至物件检视器点取</FONT><FONT SIZE=2>Glyph</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>性质，然後将欲选取的点阵图</FONT><FONT SIZE=2>Load</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>进来，即可完成设定图形的程序了。</P>
<P>　</P>
<P><IMG SRC="Image15.gif" WIDTH=294 HEIGHT=254></P>
<P>图</FONT><FONT SIZE=2>XX-08 Glyph</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>图形之选取。</P>
<P>　</P>
<P>设定状态初值：由於我们希望本程式执行的初始值是使用</FONT><FONT SIZE=2>CLine</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>元件，因此我将</FONT><FONT SIZE=2>LineButton</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>的</FONT><FONT SIZE=2>Down</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>属性为</FONT><FONT SIZE=2>True</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>，其馀则为</FONT><FONT SIZE=2> False</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>。</P>
<P><IMG SRC="Image16.gif" WIDTH=464 HEIGHT=35></P>
<P>图</FONT><FONT SIZE=2>XX-09</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>选取後的状态</P>
<P>　</P>
<P>设定群组特性：群组特性是</FONT><FONT SIZE=2>SpeedButton</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>用以实作出</FONT><FONT SIZE=2>ToolBar</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>的重要功能之一。我们可以将一群</FONT><FONT SIZE=2>SpeedButton</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>设为同一群组，如此一来在此一群组的</FONT><FONT SIZE=2>SpeedButton</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>就具备了互斥特性，也就是说在任何一个</FONT><FONT SIZE=2>SpeedButton</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>按下时，会导致其他的</FONT><FONT SIZE=2>SpeedButton</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>浮起。此为实作</FONT><FONT SIZE=2>ToolBar</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>的必备条件，而利用</FONT><FONT SIZE=2>SpeedButton</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>可以轻易达成此目的。</P>
<P>　</P>
<P>设定群组特性其实很简单，只要把该群组的</FONT><FONT SIZE=2>SpeedButton</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>的</FONT><FONT SIZE=2>GroupIndex</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>性质设为相同数字即可，在此例中我们希望将所有绘图工具列按钮设为同一群组，因此我把该相关工具的</FONT><FONT SIZE=2>GroupIndex</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>性质都设为</FONT><FONT SIZE=2>1</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>。</P>
<P>　</P>
<P>另外，相信你已经发现在上面的工具列中，除了前面所谈到的绘图工具之外，我还多加了两个额外的</FONT><FONT SIZE=2>SpeedButton </FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>，它们是用来设定笔及笔刷的工具。在此例中，我们是以它来叫出另外两个设定笔及笔刷的工具列，因此它必须具备所谓</FONT><FONT SIZE=2>Toggle On/Off</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>的开关功能。也就是类似</FONT><FONT SIZE=2>CheckBox</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>的功能。</P>
<P>　</P>
</FONT><FONT SIZE=2><P>SpeedButton</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>也可轻易达到以上的要求，只要设定该</FONT><FONT SIZE=2>SpeedButton</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>的</FONT><FONT SIZE=2>AllowAllUp</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>属性为</FONT><FONT SIZE=2>True</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>即可以做到此功能。</P>
<P>　</P>
<P>最後我们必须将设定笔及笔刷的两个</FONT><FONT SIZE=2>SpeedButton</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>，</FONT><FONT SIZE=2>PenButton</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>及</FONT><FONT SIZE=2>BrushButton</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>的</FONT><FONT SIZE=2>GroupIndex</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>分别设为</FONT><FONT SIZE=2> 2</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>、</FONT><FONT SIZE=2>3</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>，如此才不会和绘图工具的</FONT><FONT SIZE=2>SpeedButton</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>的群组特性相干扰。</P>
<P>　</P>
</FONT><FONT SIZE=2><P>XX-05</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>工具列的事件处理函式</P>
<P>　</P>
<P>完成的工具列的设定之後，接着我们要设定工具列的处理函式，由於此工具列是用来切换绘图工具的，因此我们只要处理</FONT><FONT SIZE=2>SpeedButton</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>的</FONT><FONT SIZE=2>OnClick</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>事件，再分别根据不同的事件做处理即可。</P>
<P>　</P>
<P>在此例中，</FONT><FONT SIZE=2>OnClick</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>的事件处理函式其很简单，只要删除原来使用的绘图工具物件，再重新启始一个新的绘图工具即可。</P>
<P>　</P>
</FONT><FONT SIZE=2><P>//---------------------------------------------------------------------</P>
<P>void __fastcall TGraphEx::LineButtonClick(TObject *Sender)</P>
</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2><P>{</P>
</FONT><FONT SIZE=2><P>    delete m_pObj;</P>
<P>    m_pObj = new CLine(Canvas);</P>
</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2><P>}</P>
</FONT><FONT SIZE=2><P>//---------------------------------------------------------------------</P>
<P>void __fastcall TGraphEx::PolylineButtonClick(TObject *Sender)</P>
</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2><P>{</P>
</FONT><FONT SIZE=2><P>    delete m_pObj;</P>
<P>    m_pObj = new CPolyline(Canvas);</P>
</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2><P>}</P>
</FONT><FONT SIZE=2><P>//---------------------------------------------------------------------</P>
<P>void __fastcall TGraphEx::PolygonButtonClick(TObject *Sender)</P>
</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2><P>{</P>
</FONT><FONT SIZE=2><P>    delete m_pObj;</P>
<P>    m_pObj = new CPolygon(Canvas);</P>
</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2><P>}</P>
</FONT><FONT SIZE=2><P>//---------------------------------------------------------------------</P>
<P>void __fastcall TGraphEx::RectangleButtonClick(TObject *Sender)</P>
</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2><P>{</P>
</FONT><FONT SIZE=2><P>     delete m_pObj;</P>
</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2><P>&#9;</FONT><FONT SIZE=2> m_pObj = new CRectangle(Canvas);</P>
</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2><P>}</P>
</FONT><FONT SIZE=2><P>//---------------------------------------------------------------------</P>
<P>void __fastcall TGraphEx::EllipseButtonClick(TObject *Sender)</P>
</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2><P>{</P>
</FONT><FONT SIZE=2><P>     delete m_pObj;</P>
</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2><P>&#9;</FONT><FONT SIZE=2> m_pObj = new CEllipse(Canvas);</P>
</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2><P>}</P>
</FONT><FONT SIZE=2><P>//---------------------------------------------------------------------</P>
<P>void __fastcall TGraphEx::RoundRectButtonClick(TObject *Sender)</P>
</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2><P>{</P>
</FONT><FONT SIZE=2><P>   &#9; delete m_pObj;</P>
</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2><P>&#9;</FONT><FONT SIZE=2> m_pObj = new CRoundRect(Canvas);</P>
</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2><P>}</P>
</FONT><FONT SIZE=2><P>//---------------------------------------------------------------------</P>
</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2><P>　</P>
<P>在完成了以上的设定之後，此程式就具备了利用绘图工具列来切换绘图工具的功能。</P>
<P><IMG SRC="Image17.gif" WIDTH=460 HEIGHT=382></P>
<P>图</FONT><FONT SIZE=2>XX-10</FONT><FONT FACE="新细明体" LANG="ZH-TW" SIZE=2>具备绘图工具列的绘图程式范例。</P></FONT></BODY>
</HTML>