在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 屏幕顏色與筆顏色反轉值的結合
━━━━━━━━━━━━━━━━━━━━━━━━━━━