5.3 圖像對象概述

　　5.3.1 TGraphic對象

　　TGraphic對象是TBitmap ,TIcon,Tmetafile對象的基類。如果知道圖像的具體類型( 如位圖， 圖標(biāo)元文件) ， 則應(yīng)將圖像貯存在相應(yīng)類型的對象中( 如TBitmap,TIcon,Tmetafile)，否則應(yīng)該使用可貯存任何圖像類型的TPicture對象。

　　5.3.2 TPicture對象

　　TPicture對象可以保存位圖、圖標(biāo)或元文件。Graphic屬性中包括圖像的類型;圖像的高度和寬度分別定義在Height,Width屬性中;調(diào)用LoadFromFile方法，可以從文件中裝載一幅圖像：

　　procedure TForm1.FormCreate(Sender: TObject);

　　begin

　　BitBtn1.Glyph.LoadFromFile('TARTAN.BMP');

　　end;

　　要保存一個位圖，則要用SaveToFile方法;要把圖像復(fù)制到剪切板，可以調(diào)用TClipboard對象的Assign方法。

　　5.3.3 TImage部件

　　TImage部件用以在窗體中顯示圖像，它的Picture 屬性保存著要顯示的圖像， 這是一個TPicture對象。AutoSize,Stretch屬性是用來調(diào)節(jié)部件與圖像的大小的。當(dāng)AutoSize 為真值時，TImage部件將根據(jù)它所包含的圖像的大小來調(diào)整自身的大小;當(dāng)AutoSize為假值時，不論圖像有多大，部件將保持設(shè)計時的大小。如果部件比圖像小， 那么只有一部分圖像是可見的。當(dāng)Stretch為真值時，位圖像將根據(jù)部件的大小調(diào)整自身的大小，當(dāng)部件大小改變時，元文件也做相應(yīng)變化。Stretch屬性對圖標(biāo)沒有作用。

　　5.3.4 TBitmap Object(位圖對象)

　　位圖對象包含一個位圖圖像，有HBITMAP,HPALETE句柄，可自動管理調(diào)色板。位圖對象也有畫布屬性。位圖的Palette屬性用來控制位圖的顏色映射，它包括256種可顯示的顏色。 如果應(yīng)用程序用前景色繪制位圖，Palette 屬性的顏色將被加入Windows系統(tǒng)調(diào)色板，其它顏色被映射到系統(tǒng)調(diào)色板已存在的顏色。如果應(yīng)用程序用自己的顏色繪制位圖，而其它程序已占有系統(tǒng)調(diào)色板，位圖的顏色將被映射到系統(tǒng)調(diào)色板中。

　　如果Monochrome屬性設(shè)置成假，位圖將顯示成彩色，反之顯示成黑白色。

　　調(diào)用Draw和StretchDraw方法可在畫布上繪制位圖。

　　5.4 圖像對象的應(yīng)用

　　本章例程中，單擊(文件|瀏覽)菜單項，將彈出一個圖像瀏覽窗體。如果用戶在窗體中選擇文件列表框的圖形文件，窗體右上角的圖像部件上將出現(xiàn)此文件所代表的圖像;若選擇“雕刻效果”按鈕中檢查框，窗體中的加速按鈕和位圖按鈕上將出現(xiàn)位圖。

　　以下代碼是將圖像文件裝載至圖像部件上：

　　procedure TImageForm.FileListBox1Click(Sender: TObject);

　　var

　　FileExt: string[4];

　　begin

　　FileExt := UpperCase(ExtractFileExt(FileListBox1.Filename));

　　if (FileExt = '.BMP') or (FileExt = '.ICO') or (FileExt = '.WMF') then

　　begin

　　Image1.Picture.LoadFromFile(FileListBox1.Filename);

　　Label1.Caption := ExtractFilename(FileListBox1.Filename);

　　if (FileExt = '.BMP') then

　　begin

　　Label1.Caption := Label1.Caption +

　　Format(' (%d x %d)', [Image1.Picture.Height, Image1.Picture.Width]);

　　ViewForm.Image1.Picture.Bitmap := Image1.Picture.Bitmap;

　　ViewAsGlyph(FileExt);

　　end;

　　if FileExt = '.ICO' then Icon := Image1.Picture.Icon;

　　if FileExt = '.WMF' then

　　ViewForm.Image1.Picture.Metafile := Image1.Picture.Metafile;

　　end;

　　end;

　　這個過程首先判斷文件類型，如果是圖像文件，則將圖像裝載至圖像部件上，并在標(biāo)簽上列出文件名稱。如果是位圖文件，還將顯示其大小。

　　在加速按鈕和位圖按鈕中顯示位圖的代碼如下：

　　procedure TImageForm.CheckBox1Click(Sender: TObject);

　　begin

　　ViewAsGlyph(UpperCase(ExtractFileExt(FileListBox1.Filename)));

　　end;

　　procedure TImageForm.ViewAsGlyph(const FileExt: string);

　　begin

　　if CheckBox1.Checked and (FileExt = '.BMP') then

　　begin

　　SpeedButton1.Glyph := Image1.Picture.Bitmap;

　　SpeedButton2.Glyph := Image1.Picture.Bitmap;

　　SpinEdit1.Value := SpeedButton1.NumGlyphs;

　　BitBtn1.Glyph := Image1.Picture.Bitmap;

　　BitBtn2.Glyph := Image1.Picture.Bitmap;

　　end;

　　end;

　　窗體中有一個檢查框用來檢驗圖像部件的Strecth 屬性的效果。當(dāng)此檢查框被選中時，Stretch設(shè)成真值，圖像將根據(jù)部件大小調(diào)整自身大小。代碼如下：

　　procedure TImageForm.StretchCheckClick(Sender: TObject);

　　begin

　　Image1.Stretch := StretchCheck.Checked;

　　end;

　　在這個窗體中，用戶可以在屏幕和打印紙上調(diào)整圖像部件的大小、位置。調(diào)整圖像的代碼如下：

　　procedure TViewForm.SpinEdit1Change(Sender: TObject);

　　begin

　　IMage1.Height:=105+SpinEdit1.Value*5;

　　IMage1.Width:=105+SpinEdit1.Value*5;

　　end;

　　procedure TViewForm.SpinEdit2Change(Sender: TObject);

　　begin

　　Image1.Left:=40+ SpinEdit2.Value*20;

　　end;

　　procedure TViewForm.SpinEdit3Change(Sender: TObject);

　　begin

　　Image1.Top:=96+SpinEdit3.Value*10;

　　當(dāng)用戶按下標(biāo)有“全尺寸”字樣的按鈕時，另一個窗體將顯示。

　　圖像打印代碼如下：

　　procedure TViewForm.Button1Click(Sender: TObject);

　　begin

　　Printer.BeginDoc;

　　Printer.Canvas.Draw(Trunc(1.5*Image1.Left),Trunc(1.5*Image1.Top), Image1.Picture.Graphic);

　　Printer.EndDoc;

　　end;