</font><p><font face="宋體" lang="ZH-CN">表</font>5.3 Mode<font face="宋體"
lang="ZH-CN">的取值及含義</font></p>
<p><font face="宋體" lang="ZH-CN">━━━━━━━━━━━━━━━━━━━━━━━━━━━</font></p>
<p><font face="宋體" lang="ZH-CN">　</font>Mode <font face="宋體" lang="ZH-CN">象素顏色</font></p>
<p><font face="宋體" lang="ZH-CN">──────────────────────────</p>
<p>　</font> PmBlack <font face="宋體" lang="ZH-CN">黑色</p>
<p>　　</font>PmWhite <font face="宋體" lang="ZH-CN">白色</p>
<p>　　</font>PmNop <font face="宋體" lang="ZH-CN">不變</p>
<p>　　</font>PmCopy <font face="宋體" lang="ZH-CN">使用</font>Color<font
face="宋體" lang="ZH-CN">屬性中的顏色</p>
<p>　　</font>PmNotCopy <font face="宋體" lang="ZH-CN">筆顏色的反轉值</p>
<p>　　</font>PmMergePenNot <font face="宋體" lang="ZH-CN">筆的顏色與屏幕顏色反轉值的結合</p>
<p>　　</font>PmNaskNotPen <font face="宋體" lang="ZH-CN">屏幕顏色與筆顏色</p>
<p>　　</font>PmMergeNotPen <font face="宋體" lang="ZH-CN">屏幕顏色與筆顏色反轉值的結合</font></p>
<p><font face="宋體" lang="ZH-CN">━━━━━━━━━━━━━━━━━━━━━━━━━━━　</p>
</font><p>5.1.3 TBrush OBject(<font face="宋體" lang="ZH-CN">畫刷對象</font>)</p>
<font face="宋體" lang="ZH-CN"><p>　　畫刷對象用以填充圖形，如用畫刷顏色或圖案對矩形或橢圓進行填充。</font>TBrush<font
face="宋體" lang="ZH-CN">擁有一個畫刷句柄</font>(HBrush)<font face="宋體"
lang="ZH-CN">。</p>
<p>　　畫刷的顏色定義在</font>Color<font face="宋體" lang="ZH-CN">屬性中。畫刷還有一個</font>Bitmap<font
face="宋體" lang="ZH-CN">屬性，該屬性只能在運行時得到，畫刷可使用位圖填充圖形以產生特殊效果。位圖大小為</font>8<font
face="宋體" lang="ZH-CN">個象素點，高</font>8<font face="宋體" lang="ZH-CN">個象素點寬。</p>
<p>　　</font>Style<font face="宋體" lang="ZH-CN">屬性定義了畫刷填充圖形的風格。</font></p>
<p>5.1.4 TColor<font face="宋體" lang="ZH-CN">類型</p>
<p>　</p>
<p>　　</font>TColor<font face="宋體" lang="ZH-CN">類型用于定義一個對象的顏色。很多部件的顏色屬性就是</font>TColor
<font face="宋體" lang="ZH-CN">類型，</font> <font face="宋體" lang="ZH-CN">在</font>Graphics<font
face="宋體" lang="ZH-CN">單元中</font>TColor<font face="宋體" lang="ZH-CN">定義如下：</p>
<p>　</p>
<p>　　</font>TColor = -(COLOR_ENDCOLORS + 1)..$02FFFFF;</p>
<p>　</p>
<p><font face="宋體" lang="ZH-CN">這是一個</font>32<font face="宋體" lang="ZH-CN">位二進制數據。</font>Graphic<font
face="宋體" lang="ZH-CN">單元中還定義了一些常用的顏色常量，這些常量或直接映射成系統調色板中最相近的顏色，或映射成</font>Wondows
<font face="宋體" lang="ZH-CN">控制面板中顏色部分的系統視頻顏色。</p>
<p>　　直接映射成系統調色板中的顏色有：　</p>
<p>　　</font>ClAqua,CLBlack,ClBlue,ClbkGrray,ClFuchsoa......ClYellow</p>
<font face="宋體" lang="ZH-CN"><p>　　映射程序用</font>4<font face="宋體"
lang="ZH-CN">字節的二進制碼來定義顏色，低</font>3 <font face="宋體"
lang="ZH-CN">位字節代表</font>RGB <font face="宋體" lang="ZH-CN">相應的顏色，如</font>$00FF0000<font
face="宋體" lang="ZH-CN">表示純藍，</font>$0000FF00<font face="宋體" lang="ZH-CN">表示純綠，</font>$000000FF<font
face="宋體" lang="ZH-CN">表示純紅，</font>$00000000<font face="宋體" lang="ZH-CN">表示黑色，</font>$00FFFFFF<font
face="宋體" lang="ZH-CN">表示白色。如果最高位字節是</font>$00,<font
face="宋體" lang="ZH-CN">則表示用系統調色板中最相近的顏色；最高位字節是</font>$01<font
face="宋體" lang="ZH-CN">，則表示用當前調色板中最相近的顏色匹配；最高位字節是</font>$02<font
face="宋體" lang="ZH-CN">，則用當前設備描述表中邏輯調色板的次相近顏色匹配。</p>
<p>　　用</font>Windows API<font face="宋體" lang="ZH-CN">的</font>SelectPalette<font
face="宋體" lang="ZH-CN">函數可創建邏輯調色板，要實現邏輯調色板到硬件調色板的映射，需用函數</font>RealizePalett<font
face="宋體" lang="ZH-CN">　</font></p>
<p>5.2 <font face="宋體" lang="ZH-CN">圖形程序的開發　</p>
<p>　　</font>Graphex.dpr<font face="宋體" lang="ZH-CN">是一個簡單的圖形圖像應用程序，運行狀態如圖</font>5.2<font
face="宋體" lang="ZH-CN">。該程序可用鼠標繪制多種圖形，可設置畫筆顏色、畫刷填充方式；另外還可以瀏覽位圖、元文件、圖標，改變它們的大小，并打印。本節結合例程講述以下問題：</p>
<p>　　●</font> <font face="宋體" lang="ZH-CN">在工具條中添加加速按鈕</p>
<p>　　●</font> <font face="宋體" lang="ZH-CN">響應鼠標事件</p>
<p>　　●</font> <font face="宋體" lang="ZH-CN">設置畫筆和畫刷</p>
<p>　　●</font> <font face="宋體" lang="ZH-CN">實現繪圖的“橡皮擦”功能</p>
<p>　　●</font> <font face="宋體" lang="ZH-CN">加入狀態條</font></p>
<p>5.2.1 <font face="宋體" lang="ZH-CN">在工具條中添加加速按鈕　</p>
<p>　　加速按鈕是應用程序常用的部件，它是替代菜單的快捷形式，通常把多個加速按鈕集中在一個工具條中以方便使用。</font>Graphex<font
face="宋體" lang="ZH-CN">中有三個工具條，它們是</font>TPancel<font
face="宋體" lang="ZH-CN">部件，面板上有幾組加速按鈕，用以設置繪圖方式、畫筆、畫刷。</p>
<p>　　每個加速按鈕的</font>glyph<font face="宋體" lang="ZH-CN">屬性是圖像對象，位圖對象用來指示該按鈕是否被使用。</font>glyph
<font face="宋體" lang="ZH-CN">通常需要四幅圖像，分別表示按下、不按、選擇、失效四種狀態。程序員可根據個人喜好來選擇圖像。</p>
<p>　　加速按鈕使用圖像來告訴用戶其狀態和目的，因為按鈕上無標題，</font>
<font face="宋體" lang="ZH-CN">因此應給用戶正確的提示：</p>
<p>　　●</font> <font face="宋體" lang="ZH-CN">把</font>Down<font face="宋體"
lang="ZH-CN">屬性設置成真值使加速按鈕呈按下狀態</p>
<p>　　●</font> <font face="宋體" lang="ZH-CN">把</font>Enable<font face="宋體"
lang="ZH-CN">屬性設置成假值使加速按鈕呈失效狀態。　</p>
<p>　　例程中缺省的繪圖工具是畫線，因此應用程序開始時畫線按鈕呈按下狀態。</p>
<p>　　在應用程序中，常把一些功能相似的按鈕放在一起，用戶在同一時刻只能選擇其中的一個按鈕。當其它按鈕按下時，原來被按下的按鈕自動彈起，這些選擇排它的按鈕稱為一組加速按鈕。</p>
<p>　　要使多個加速按鈕成為一組，將這些按鈕的</font>GraphIndex<font
face="宋體" lang="ZH-CN">屬性設成相同的值。最簡單的辦法是在設計狀態時，用鼠標選中各個加速按鈕，然后設置</font>GraphIndex<font
face="宋體" lang="ZH-CN">值。</p>
<p>　　有時用戶按一個已經按下的按鈕，希望該按鈕能夠彈起，這樣沒有任何按鈕被按下，使用</font>AllowAllup
<font face="宋體" lang="ZH-CN">屬性可實現上述功能。對于一組加速按鈕來講，設置該組中任一按鈕的</font>AllowAllup<font
face="宋體" lang="ZH-CN">可使這組的每一個按鈕具有這種功能。</font></p>
<p>Graphex<font face="宋體" lang="ZH-CN">程序中設計了三組加速按鈕和兩個單獨的加速按鈕。</font>
<font face="宋體" lang="ZH-CN">第一組加速按鈕用來選擇繪圖工具，它與兩個單獨的按鈕處在同一面板中，這個面板是缺省可見的。另外兩個按鈕分別代表畫筆、畫刷。第二組與第三組加速按鈕處在兩個缺省不可見的面板中，它們分別代表不同風格的畫筆和畫刷，只有按下第一個面板中的畫筆</font>(<font
face="宋體" lang="ZH-CN">或畫刷</font>)<font face="宋體" lang="ZH-CN">按鈕，第二</font>(<font
face="宋體" lang="ZH-CN">或第三</font>) <font face="宋體" lang="ZH-CN">個面板才會顯示，這樣用戶就可以選擇畫筆、畫刷了。　</p>
</font><p>5.2.2 <font face="宋體" lang="ZH-CN">響應鼠標事件　</p>
<p>　　鼠標常被用作繪圖的工具，應用程序利用鼠標位置的變化來繪制各種不同的圖形。鼠標有三個動作：鼠標按鈕按下、鼠標移動、鼠標按鈕彈起。在</font>Delphi<font
face="宋體" lang="ZH-CN">中，</font> <font face="宋體" lang="ZH-CN">對應三個動作有三個不同的事件：</font>OnMouseDown,OnMouseMove,OnMouseUp<font
face="宋體" lang="ZH-CN">。</font></p>
<p><font face="宋體" lang="ZH-CN">當</font>Dlephi<font face="宋體" lang="ZH-CN">應用程序探測到一個鼠標動作時，它傳遞五個參數，并調用相應的事件響應。</p>
<p>程序員可利用這些參數來定義事件程序。五個參數如下表</font>5.4<font
face="宋體" lang="ZH-CN">：　</p>
</font><p><font face="宋體" lang="ZH-CN">表</font>5.4 <font face="宋體" lang="ZH-CN">鼠標事件的五個參數</font>
</p>
<p><font face="宋體" lang="ZH-CN">━━━━━━━━━━━━━━━━━━━━━━━━━━━</p>
<p>　　參數　　　　　　含義</font></p>
<p><font face="宋體" lang="ZH-CN">──────────────────────────</p>
<p>　　</font>Sender <font face="宋體" lang="ZH-CN">探測鼠標動作的對象</p>
<p>　　</font>Button <font face="宋體" lang="ZH-CN">涉及的鼠標按鈕：左鍵，中鍵，右鍵</p>
<p>　　</font>Shift <font face="宋體" lang="ZH-CN">鼠標動作時，</font>Alt,Ctrl,Shift<font
face="宋體" lang="ZH-CN">按鈕的狀態</p>
<p>　　</font>X,Y <font face="宋體" lang="ZH-CN">事件發生時鼠標的坐標</font></p>
<p><font face="宋體" lang="ZH-CN">━━━━━━━━━━━━━━━━━━━━━━━━━━━　</p>
<p>　　當鼠標按下時發生</font>OnMouseDown<font face="宋體" lang="ZH-CN">事件。舉一個簡單例子來說明程序如何對該事件進</p>
<p>行響應。假如我們想在鼠標按下的地方出現</font>&quot;Here&quot;<font
face="宋體" lang="ZH-CN">。</font></p>
<p><font face="宋體" lang="ZH-CN">響應鼠標的</font>OnMouseDown<font face="宋體"
lang="ZH-CN">事件　</p>
<p>　　可在該事件中調用</font>TextOut<font face="宋體" lang="ZH-CN">方法：　</p>
<p>　　</font>procedure TForm1.FormMouseDown(Sender: TObject,Button: TMouseButton;</p>
<p>Shift : TShifState; X,Y : Integer);</p>
<p>begin</p>
<p>Canvas.TextOut(X, Y, 'Here!');</p>
<p>end;　</p>
<p><font face="宋體" lang="ZH-CN">用戶放松鼠標鍵時發生</font>OnMouseUp<font
face="宋體" lang="ZH-CN">事件。該事件發生時，鼠標到達的對象并不一定是鼠標鍵按下時鼠標所在的對象。例如，用戶可在窗體之外畫一條線段，</font>(<font
face="宋體" lang="ZH-CN">鼠標在窗體外，線段在窗體內</font>)<font
face="宋體" lang="ZH-CN">。下面的代碼可用鼠標繪制直線：</font></p>
<p>procedure TForm1.FormMouseDown(Sender:TObject)</p>
<p>begin</p>
<p>Moveto(x,y); </p>
<p>end;</p>
<p>　</p>
<p>procedure TForm1.FormMouse Up(Sender:Tobject)</p>
<p>begin</p>
<p>Lineto(X, Y);</p>
<p>end;</p>
<hr color="#EE9B73" size="1" width="94%">

</TD>
<TD CLASS="tt3" VALIGN="bottom" width="8%"  bgcolor="#e0e0e0"><strong><A HREF="015.htm"><FONT style="FONT-SIZE: 9pt">后一頁</font></A><BR>
<A HREF="013.htm"><FONT style="FONT-SIZE: 9pt">前一頁</font></A><BR>

<A HREF="index.html"><FONT style="FONT-SIZE: 9pt">回目錄</font></A><BR>
<A HREF="../../../../index.htm"><FONT style="FONT-SIZE: 9pt">回首頁</font></A><BR>
</strong>
</TD>
</TR>
</table>
</BODY></HTML>