2011計算機等級考試Delphi：Delphi圖形圖像編程

　　5.1.3 TBrush OBject(畫刷對象)

　　畫刷對象用以填充圖形，如用畫刷顏色或圖案對矩形或橢圓進行填充。TBrush擁有一個畫刷句柄(HBrush)。

　　畫刷的顏色定義在Color屬性中。畫刷還有一個Bitmap屬性，該屬性只能在運行時得到，畫刷可使用位圖填充圖形以產(chǎn)生特殊效果。位圖大小為8個象素點，高8個象素點寬。

　　Style屬性定義了畫刷填充圖形的風格。

　　5.1.4 TColor類型

　　TColor類型用于定義一個對象的顏色。很多部件的顏色屬性就是TColor 類型， 在Graphics單元中TColor定義如下：

　　TColor = -(COLOR_ENDCOLORS + 1)..$02FFFFF;

　　這是一個32位二進制數(shù)據(jù)。Graphic單元中還定義了一些常用的顏色常量，這些常量或直接映射成系統(tǒng)調(diào)色板中最相近的顏色，或映射成Wondows 控制面板中顏色部分的系統(tǒng)視頻顏色。

　　直接映射成系統(tǒng)調(diào)色板中的顏色有：

　　ClAqua,CLBlack,ClBlue,ClbkGrray,ClFuchsoa......ClYellow

　　映射程序用4字節(jié)的二進制碼來定義顏色，低3 位字節(jié)代表RGB 相應(yīng)的顏色，如$00FF0000表示純藍，$0000FF00表示純綠，$000000FF表示純紅，$00000000表示黑色，$00FFFFFF表示白色。如果最高位字節(jié)是$00,則表示用系統(tǒng)調(diào)色板中最相近的顏色;最高位字節(jié)是$01，則表示用當前調(diào)色板中最相近的顏色匹配;最高位字節(jié)是$02，則用當前設(shè)備描述表中邏輯調(diào)色板的次相近顏色匹配。

　　用Windows API的SelectPalette函數(shù)可創(chuàng)建邏輯調(diào)色板，要實現(xiàn)邏輯調(diào)色板到硬件調(diào)色板的映射，需用函數(shù)RealizePalett

　　5.2 圖形程序的開發(fā)

　　Graphex.dpr是一個簡單的圖形圖像應(yīng)用程序，運行狀態(tài)如圖5.2。該程序可用鼠標繪制多種圖形，可設(shè)置畫筆顏色、畫刷填充方式;另外還可以瀏覽位圖、元文件、圖標，改變它們的大小，并打印。本節(jié)結(jié)合例程講述以下問題：

　　● 在工具條中添加加速按鈕

　　● 響應(yīng)鼠標事件

　　● 設(shè)置畫筆和畫刷

　　● 實現(xiàn)繪圖的“橡皮擦”功能

　　● 加入狀態(tài)條

　　5.2.1 在工具條中添加加速按鈕

　　加速按鈕是應(yīng)用程序常用的部件，它是替代菜單的快捷形式，通常把多個加速按鈕集中在一個工具條中以方便使用。Graphex中有三個工具條，它們是TPancel部件，面板上有幾組加速按鈕，用以設(shè)置繪圖方式、畫筆、畫刷。

　　每個加速按鈕的glyph屬性是圖像對象，位圖對象用來指示該按鈕是否被使用。glyph 通常需要四幅圖像，分別表示按下、不按、選擇、失效四種狀態(tài)。程序員可根據(jù)個人喜好來選擇圖像。

　　加速按鈕使用圖像來告訴用戶其狀態(tài)和目的，因為按鈕上無標題， 因此應(yīng)給用戶正確的提示：

　　● 把Down屬性設(shè)置成真值使加速按鈕呈按下狀態(tài)

　　● 把Enable屬性設(shè)置成假值使加速按鈕呈失效狀態(tài)。

　　例程中缺省的繪圖工具是畫線，因此應(yīng)用程序開始時畫線按鈕呈按下狀態(tài)。

　　在應(yīng)用程序中，常把一些功能相似的按鈕放在一起，用戶在同一時刻只能選擇其中的一個按鈕。當其它按鈕按下時，原來被按下的按鈕自動彈起，這些選擇排它的按鈕稱為一組加速按鈕。

　　要使多個加速按鈕成為一組，將這些按鈕的GraphIndex屬性設(shè)成相同的值。最簡單的辦法是在設(shè)計狀態(tài)時，用鼠標選中各個加速按鈕，然后設(shè)置GraphIndex值。

　　有時用戶按一個已經(jīng)按下的按鈕，希望該按鈕能夠彈起，這樣沒有任何按鈕被按下，使用AllowAllup 屬性可實現(xiàn)上述功能。對于一組加速按鈕來講，設(shè)置該組中任一按鈕的AllowAllup可使這組的每一個按鈕具有這種功能。

　　Graphex程序中設(shè)計了三組加速按鈕和兩個單獨的加速按鈕。 第一組加速按鈕用來選擇繪圖工具，它與兩個單獨的按鈕處在同一面板中，這個面板是缺省可見的。另外兩個按鈕分別代表畫筆、畫刷。第二組與第三組加速按鈕處在兩個缺省不可見的面板中，它們分別代表不同風格的畫筆和畫刷，只有按下第一個面板中的畫筆(或畫刷)按鈕，第二(或第三) 個面板才會顯示，這樣用戶就可以選擇畫筆、畫刷了。

　　5.2.2 響應(yīng)鼠標事件

　　鼠標常被用作繪圖的工具，應(yīng)用程序利用鼠標位置的變化來繪制各種不同的圖形。鼠標有三個動作：鼠標按鈕按下、鼠標移動、鼠標按鈕彈起。在Delphi中， 對應(yīng)三個動作有三個不同的事件：OnMouseDown,OnMouseMove,OnMouseUp。

　　當Dlephi應(yīng)用程序探測到一個鼠標動作時，它傳遞五個參數(shù)，并調(diào)用相應(yīng)的事件響應(yīng)。

　　程序員可利用這些參數(shù)來定義事件程序。五個參數(shù)如下表5.4：

　　表5.4 鼠標事件的五個參數(shù)

　　━━━━━━━━━━━━━━━━━━━━━━━━━━━

　　參數(shù)　含義

　　──────────────────────────

　　Sender 探測鼠標動作的對象

　　Button 涉及的鼠標按鈕：左鍵，中鍵，右鍵

　　Shift 鼠標動作時，Alt,Ctrl,Shift按鈕的狀態(tài)

　　X,Y 事件發(fā)生時鼠標的坐標

　　━━━━━━━━━━━━━━━━━━━━━━━━━━━

　　當鼠標按下時發(fā)生OnMouseDown事件。舉一個簡單例子來說明程序如何對該事件進

　　行響應(yīng)。假如我們想在鼠標按下的地方出現(xiàn)"Here"。

　　響應(yīng)鼠標的OnMouseDown事件

　　可在該事件中調(diào)用TextOut方法：

　　procedure TForm1.FormMouseDown(Sender: TObject,Button: TMouseButton;

　　Shift : TShifState; X,Y : Integer);

　　begin

　　Canvas.TextOut(X, Y, 'Here!');

　　end;

　　用戶放松鼠標鍵時發(fā)生OnMouseUp事件。該事件發(fā)生時，鼠標到達的對象并不一定是鼠標鍵按下時鼠標所在的對象。例如，用戶可在窗體之外畫一條線段，(鼠標在窗體外，線段在窗體內(nèi))。下面的代碼可用鼠標繪制直線：

　　procedure TForm1.FormMouseDown(Sender:TObject)

　　begin

　　Moveto(x,y);

　　end;

　　procedure TForm1.FormMouse Up(Sender:Tobject)

　　begin

　　Lineto(X, Y);

　　end;

　　畫直線時，用戶只有在松開鼠標才能看見直線，對直線的變化不能進行實時觀測。這是因為鼠標移動時程序沒有進行某種應(yīng)。Delphi定義了OnMouseMove事件來響應(yīng)鼠標移動。以下代碼可使用戶隨時觀測直線的變化：

　　procedure TForm1.FormMouseMove(Sender:Tobject)

　　begin

　　Drowto(X,Y);

　　Moveto(origin);

　　end.

　　origin是起始點。