在Delphi中，專門定義了一群群組物件和部件用以繪制圖形，完成一些簡單的圖像功能。利用這些物件、部件的方法，可以方便地繪制各種常用圖形；通過設定它們的屬性，能得到不同風格的圖形。另外，通過對滑鼠事件的定義，可以方便的設計圖形繪制程式。

　　1. TCanvas,TPen,TBrush,TColor物件的方法及屬性；

　　2. 繪圖功能的實現；

　　3. TImage,TPicture,TBitBtn,TBitmap部件的方法及屬性；

　　4. 圖像觀測及處理。

　　Graphex.dpr是一個簡單的圖形圖像應用程式，是對以上這些物件和群群元件的具體應用。本章將結合此程式進行講述。　　

5.1 圖形物件概述　

5.1.1 TCanvas Object(畫布物件)

　　TCanvas物件是一個用於繪圖的表面，在這個區欄位上，程式可實現各種繪圖功能，很多部件(如TIMage,TMemo)的Canvas屬性就是TCanvas物件。在部件上繪制圖形就是在部件的畫布上繪制。TCanvas的Brush,Pen,Font屬性分別是TBrush,TPen,TFont物件，它們用於定義繪制圖形的風格。關於TBrush,TPen物件，下節中將詳細介紹。

　　畫布的筆的位置定義在PenPos屬性中，可用MoveTo方法來移動筆。如果要在畫布上輸出文本，可用Textout方法。

　　TCanvas有物件很多方法，可完成常用的繪圖功能，現將方法及功能簡介如表5.1：　

表5.1 TCanvas物件的方法

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

方法標簽　　　　　　　　　形式及敘述

———————————————————————————————————————

Arc Arc(x1,y1,x2,y2,x3,y3,x4,y4 : Integer);

Arc方法在橢圓上畫一段弧，橢圓由(x1,y1),(x2,y2) 兩點所確定的橢圓所決

定。弧的起點是橢圓圓周和橢圓中心與(x3,y3)連線的交點。弧矩形終點是橢

圓圓周和橢圓中心與(x4,y4)連線的交點，以逆時針方向畫弧。

Chord Chord(x1,y1,x2,yx,x3,y3,x4,y4 : Integer);

Chord方法連接橢圓上的兩點，橢圓由(x1,y1),(x2,y3) 兩點所確定的矩形決

定，(x3,y3)是始點，(x4,y4)是終點。

Brushcopy Brushcopy(const Dest : TRect;Bitmap : TBitmap;const Source TRect;

Color : TColor);

         Brushcopy方法把點陣圖的一部分復制到畫布的某個矩形區欄位，並用畫筆的目前顏色覆寫點陣圖的顏色。參數Dest定義畫布的一個矩形區欄位，該矩形用以填充點陣圖，Bitmap定義點陣圖；Source定義點陣圖中的矩形區欄位，該區欄位上的點陣圖

　　　　　　將被復制；Color定義畫筆中，用以覆寫點陣圖的顏色。

CopyRect CopyRect(Dest : TRect;Canvas : TCanvas; Source TRect);

此方法從另一個畫布物件上復制部分圖像到該畫布。Canvas表示源畫布，Source是源畫布上要復制的圖像區欄位。Dest表示目標畫布上將接受復制

圖像的矩形區欄位。

Draw Draw(x,y : Integer;Graphic : TGraphic)；

　　　　　　此方法在畫布給定的像素點坐標(x,y)處畫Graphic所給的圖像，該圖像可以是點陣圖,圖示或元點陣圖。

Ellips Ellips(x1,y1,x2,y2 : Integer);

　　　　　　Ellips方法在畫布指定的矩形邊界上畫一個橢圓，(x1,y1)是矩形左上角的像素坐標，x2,y2是矩形右下角的像素坐標。如果矩形形成一個區欄位，將出現一個橢圓。

LineTo LineTo(x,y : Integer);

LineTo從目前位置畫一條線至(x,y)所指定的位置，並把筆的位置移至(x ,y)。

MoveTo MoveTo(x,y : Integer);

MoveTo 將筆的目前位置設定到點(x,y)處，筆的目前位置在PenPos屬性中，

改變筆的目前位置使用MoveTo方法，不要設法改變PenPos的值。

Die Die(x1,y1,x2,y2,x3,y3,x4,y4 : Longint);

Die方法繪制橢圓的一部分，橢圓由點(x1,y1),(x2,y2)所指定的矩形所決定，制的那部分由橢圓中心到(x3,y3),(x4,y4)兩點的兩條輻射線所決定。

Polygon Polygon(Points : array of TPrint);

Polygon方法在畫布上繪制一系列的點，各點依次連成線，最後將首尾兩點相接形成一個區欄位，並用目前筆刷填充此區欄位。

Polyline Polyline(Ports : array of TPort);

Polyline方法在畫布上用目前畫筆繪制一系列的點，各點依次連成線。

StretchDraw StretchDraw(Const Rect : TRcct : Graphic : TGraphic);

此方法在Rect參數指定的矩形內畫一圖像。圖像延伸改變大小以適應矩形。

Rectangle Rectangle(X1,y1,x2,y2 : Integer);

Rectangle方法在畫布上用目前畫刷繪制矩形，(x1,y1)是矩形的左上角，(x2,y2)是矩形的右下角。

RomlRect RomlRect((x1,y1,x2,y2,x3,y3, : Integer);

DrawFocuseRect

DrawFocusRect(Const Rect : TRect)

此方法繪制一矩形以指示此矩形獲得焦點。此方法是異或(XOR)函數，第二次呼叫時原有矩形將消失。DrawFocuseRect繪制的矩形不能卷動。要實現卷動功能則先呼叫此方法使矩形消失，待卷動過後重新繪制。

5.1.2 Tpen Object(畫筆物件)　

        應用程式常用TPen物件在畫布上繪制各種線段，筆的顏色在Color屬性中定義。線段寬度在Width屬性中定義。

　　Style屬性定義了線段的各種型式，如表5.2：　

表5.2 Styled的取值及含義

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

　　Style　　　　　含義

——————————————————————

　　PSolod 畫固定線段

　　PSDash 畫由底線群群組成的線段

　　PSDot 畫由點群群組成的線段

　　PsDashDot 畫點劃線

　　PsClear 畫雙點劃線

　　PsClear 畫看不見的線段

　　PsInsideFrame 畫邊界的矩形線框

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

　　Mode屬性定義線段的顏色。可結合目前的顏色、螢幕顏色或它們反轉值，對線段的顏色重新定義，但不改變Color屬性。詳見表5.3。　

表5.3 Mode的取值及含義

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

　Mode 像素顏色

——————————————————————————

　 PmBlack 黑色

　　PmWhite 白色

　　PmNop 不變

　　PmCopy 使用Color屬性中的顏色

　　PmNotCopy 筆顏色的反轉值

　　PmMergePenNot 筆的顏色與螢幕顏色反轉值的結合

　　PmNaskNotPen 螢幕顏色與筆顏色

　　PmMergeNotPen 螢幕顏色與筆顏色反轉值的結合

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

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;