【正文】 第 10章 其他編程 第 10章 其他編程 Delphi實(shí)用教程 第 10章 其他編程 圖形圖像處理 1. TCanvas Object（畫布對(duì)象） 常用方法及功能 : （ 1） Arc方法 ▲ 語法： Arc(x1,y1,x2,y2,x3,y3,x4,y4:Integer) Arc方法在橢圓上畫一段弧 ， 橢圓由 （ x1,y1） 、 (x2,y2)兩點(diǎn)所 確定的橢圓所決定 。 弧的起點(diǎn)是橢圓圓周和橢圓中心與 (x3,y3) 連線的交點(diǎn) 。 弧矩形終點(diǎn)是橢圓周和橢圓中心與 (x4,y4)連線的 交點(diǎn) ， 以逆時(shí)針方向畫弧 。 例如 ， 以下的程序?qū)⒃诖翱谥袑⒃诖翱谥欣L制一個(gè)圓?。? procedure (Sender:TObject)。 var R:TRect。 begin R:=GetClientRect。 (,, ,)。 end。 第 10章 其他編程 （ 2） Chord方法 ▲ 語法： Chord(x1,y1,x2,y2,x3,y3,x4,y4:Integer) Chord方法連接橢圓上的兩點(diǎn) ， 橢圓由 （ x1， y1） 、 （ x2， y2） 兩點(diǎn)所確定的矩形決定 ， （ x3， y3） 是始點(diǎn) ， （ x4， y4） 是終點(diǎn) 。 例如 ， 在 Form1窗體上放置一個(gè)按鈕 “ 連接橢圓上的兩點(diǎn) ” ， 雙擊該按鈕 ， 輸入下面的代碼： procedure (Sender:TObject)。 var R:TRect。 begin R:=GetClientRect。 {Get coordinates of the current window.} (,, ,)。 end。 第 10章 其他編程 Canvas類的 Chord方法示例 第 10章 其他編程 （ 3） Brushcopy方法 ▲ 語法： Brushcopy(const Dest: TRect。Bitmap: Tbitmap。 const Source TRect。Color:Tcolor) Brushcopy方法把位圖的一部分復(fù)制到畫布的某個(gè)矩形區(qū)域， 并用畫筆的當(dāng)前顏色替換位圖的顏色。 ● Dest定義畫布的一個(gè)矩形區(qū)域，該矩形用以填充位圖， ● Bitmap定義位圖； ● Source定義位圖中的矩形區(qū)域，該區(qū)域上的位圖將被復(fù)制； ● Color定義畫筆中，用以替換位圖的顏色。 第 10章 其他編程 （ 4） CopyRect方法 ▲ 語法： CopyRect(Dest:TRect。Canvas:TCanvas。SourceTRect) 此方法從另一個(gè)畫布對(duì)象上復(fù)制部分圖像到該畫布。 ● Canvas表示復(fù)制畫布， ● Source是源畫布上要復(fù)制的圖像區(qū)域， ● Dest表示目標(biāo)畫布上將接受復(fù)制圖像的矩形區(qū)域。 第 10章 其他編程 （ 5） Draw方法 ▲ 語法： Draw(x,y:Integer。Graphic:Tgraphic) 此方法在畫布給定的像素點(diǎn)坐標(biāo)（ x， y）處畫由參數(shù) Graphic所給的圖像，該圖像可以是位圖、圖標(biāo)或元位圖。 Tcanvas的其他方法列于表中。 第 10章 其他編程 2. Tpen Object（ 畫筆對(duì)象） 用于在畫布上繪制各種線段，該對(duì)象常用的屬性有： l Color：定義筆的顏色； l Width：定義線段寬度； l Style：定義線段的各種類型，如表所示； 第 10章 其他編程 ● Mode：定義線段的顏色，取值如表所示。 第 10章 其他編程 3. Tbrush Object（畫刷對(duì)象） 畫刷對(duì)象用以填充圖形，如用畫刷顏色或圖案對(duì)矩形或橢圓進(jìn)行填充。 Tbrush擁有一個(gè)畫刷句柄 (Hbrush)。畫刷的顏色定義在 Color屬性中，畫刷還有一個(gè) Bitmap屬性，該屬性只能在運(yùn)行時(shí)得到，畫刷可使用位圖填充圖形以產(chǎn)生特殊效果。 第 10章 其他編程 4. TColor類型 TColor類型用于定義一個(gè)對(duì)象的顏色。很多部件的顏色屬性就是TColor類型，在 Graphics單元中 TColor定義如下： TColor=(COLOR_ENDCOLORS+1)… $02FFFFF。 第 10章 其他編程 圖形圖像組件 1. Image組件 Image組件是一個(gè)容器組件，它在應(yīng)用程序窗體窗口中提供了一 個(gè)矩形區(qū)域，用于顯示和輸出位圖、圖標(biāo)、圖元文件或用戶自定 義的圖形文件。 Image組件的常用屬性表。 第 10章 其他編程 圖形圖像組件 2. Shape組件 Shape組件用于在窗體中繪制幾何圖形，如橢圓、矩形和圓角矩形等。該組件的常用屬性有： l Shape：指明需要繪制的幾何圖形，它可能的取值和含義 如表所示； l Brush：指明在幾何圖形中填充的樣式； l Pen：指定幾何圖形所使用的線型 。 第 10章 其他編程 圖形圖像組件 3. PaintBox組件 該組件是一個(gè)簡單的畫板，它為應(yīng)用程序提供了可在窗體的特定矩形區(qū)域內(nèi)畫圖的方法。 PaintBox組件的主要屬性有： (1) Anchors屬性 該屬性包含 4個(gè)子屬性（ akLeft、 akTop、 akRight和 akBotton），用來指定在運(yùn)行過程中，當(dāng)父組件是可調(diào)時(shí)，它相對(duì)于父組件邊沿的位置。 (2) BoundsRect屬性 該屬性用來指定組件的矩形邊界，用其父組件的坐標(biāo)系來表示。 第 10章 其他編程 圖形圖像組件 例如，以下代碼用于繪制矩形： procedure (Sender:TObject)。 var MyRect:TRect。 begin MyRect:=。 =+2*()。 :=+() div 2。 :=MyRect。 end。 (3) Canvas屬性 該屬性僅在運(yùn)行時(shí)有效 ， 使用該屬性可以在組件表面的特定區(qū)域進(jìn)行繪圖 。 (4) Color屬性 該屬性可用于除 “ 顏色 ” 對(duì)話框以外的所有組件或?qū)ο?。 (5) Constaints屬性 該屬性強(qiáng)制指定組件的大小 。 第 10章 其他編程 （ Picture）對(duì)象 1. 讀取圖像 讀取圖像需要使用 LoadFromFile方法來調(diào)用，同時(shí)配合 OpenDialog函數(shù)來選擇相應(yīng)的圖像文件。下面的代碼實(shí)現(xiàn)對(duì) 圖像文件的讀?。? procedure (Sender:Tobject)。 begin if then begin CurrentFile:=。 (CurrentFile)。 end。 end。 第 10章 其他編程 （ Picture）對(duì)象 2. 保存圖像 為將 Image組件中的圖像保存為文件，可調(diào)用 Image組件的Picture屬性的 SaveToFile方法。 SaveToFile方法需要一個(gè)保存文件的文件名。下面的代碼是一般程序常用的“ Save”和“ Save As”菜單的處理程序： procedure (Sender:Tobject) begin if CurrentFile’’ then (CurrentFile) else SaveAsClick(Sender)。 end。 procedure (Sender:TObject)。 begin if then begin CurrentFile:=。 Save1Click(Sender)。 end。 end。 第 10章 其他編程 （ Picture）對(duì)象 3. 替換圖像 用戶可以在任何進(jìn)修替換掉 Image組件中的圖像，只要將一新的圖像對(duì)象賦給 Picture就可以了。下面的代碼實(shí)現(xiàn)用一個(gè)新的位圖對(duì)象代替原有的 Image組件中的 Picture中的圖像對(duì)象的功能： Bitmap:Tbitmap: begin Bitmap:=。 :=NewWidth。 :=NewHeight。 :=Bitmap。 CurrentFile:=’’。 end。 第 10章 其他編程 （ Picture）對(duì)象 【 例 】 屏幕復(fù)制，將當(dāng)前屏幕的圖像抓下來，顯示到窗口中；還可以文件的形式保存起來。步驟如下： (1) 建立用戶界面：建立窗體 Form1，添加一個(gè) Panel、一個(gè) Timer、 一個(gè) SavePictureDialog、四個(gè) Button控件并在 Panel控件上添加一個(gè) Image控件。 (2) 再創(chuàng)建窗體 Form2， 用于窗口抓圖的顯示窗口；在該窗體中添加一 個(gè) Image控件和 Timer控件 ， 其中 Image控件用于保存圖像 。 (3) 設(shè)置控件屬性：對(duì)添加的控件按下表設(shè)置其屬性 。 第 10章 其他編程 （ Picture）對(duì)象 控件的屬性設(shè)置 第 10章 其他編程 （ Picture）對(duì)象 (4) 激活第一個(gè)單元文件，單擊 Delphi 7的 File菜單下的 Use Unit項(xiàng)， 出現(xiàn)窗口，選擇 Unit2，單擊 OK。 (5) 編寫程序代碼如下 : procedure (Sender: TObject)。 // 完成對(duì)屏幕的復(fù)制 ， 并粘帖到 Image控件中 var Fullscreen:Tbitmap。 Fullscreencanvas:tcanvas。 dc:HDC。 begin :=false。 fullscreen:=。 // 建立一個(gè) BITMAP來存放圖像 :=。 dc:=getdc(0)。 // API函數(shù) ， 獲取屏幕 fullscreencanvas:=。 // 建立一個(gè) CANVAS對(duì)象 :=dc。 (rect(0,0,), fullscreencanvas,rect(0,0,))。 第 10章 其他編程 （ Picture）對(duì)象 。 releasedc(0,dc)。 :=fullscreen。 // 將拷貝下的圖像賦給 IMAGE對(duì)象 :=。 :=。 。 :=wsnormal。 。 messagebeep(1)。 end。 procedure (Sender: TObject)。 begin close。 end。 第 10章 其他編程 （ Picture）對(duì)象 procedure (Sender: TObject)。 begin :=wsminimized。 。 :=true。 end。 procedure (Sender: TObject)。 begin if then begin ()。 end。 end。 第 10章 其他編程 （ Picture）對(duì)象 procedure (Sender: TObject)。 begin 。 。 :=true。 end。 end. var Form2: TForm2。 foldx,x1,y1,x2,y2