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