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