5.3 圖像對象概述
5.3.1 TGraphic對象
TGraphic對象是TBitmap ,TIcon,Tmetafile對象的基類。如果知道圖像的具體類型( 如位圖, 圖標元文件) , 則應將圖像貯存在相應類型的對象中( 如TBitmap,TIcon,Tmetafile),否則應該使用可貯存任何圖像類型的TPicture對象。
5.3.2 TPicture對象
TPicture對象可以保存位圖、圖標或元文件。Graphic屬性中包括圖像的類型;圖像的高度和寬度分別定義在Height,Width屬性中;調用LoadFromFile方法,可以從文件中裝載一幅圖像:
procedure TForm1.FormCreate(Sender: TObject);
begin
BitBtn1.Glyph.LoadFromFile('TARTAN.BMP');
end;
要保存一個位圖,則要用SaveToFile方法;要把圖像復制到剪切板,可以調用TClipboard對象的Assign方法。
5.3.3 TImage部件
TImage部件用以在窗體中顯示圖像,它的Picture 屬性保存著要顯示的圖像, 這是一個TPicture對象。AutoSize,Stretch屬性是用來調節部件與圖像的大小的。當AutoSize 為真值時,TImage部件將根據它所包含的圖像的大小來調整自身的大小;當AutoSize為假值時,不論圖像有多大,部件將保持設計時的大小。如果部件比圖像小, 那麼只有一部分圖像是可見的。當Stretch為真值時,位圖像將根據部件的大小調整自身的大小,當部件大小改變時,元文件也做相應變化。Stretch屬性對圖標沒有作用。
5.3.4 TBitmap Object(位圖對象)
位圖對象包含一個位圖圖像,有HBITMAP,HPALETE句柄,可自動管理調色板。位圖對象也有畫布屬性。位圖的Palette屬性用來控制位圖的顏色映射,它包括256種可顯示的顏色。 如果應用程序用前景色繪制位圖,Palette 屬性的顏色將被加入Windows系統調色板,其它顏色被映射到系統調色板已存在的顏色。如果應用程序用自己的顏色繪制位圖,而其它程序已占有系統調色板,位圖的顏色將被映射到系統調色板中。
如果Monochrome屬性設置成假,位圖將顯示成彩色,反之顯示成黑白色。
調用Draw和StretchDraw方法可在畫布上繪制位圖。
5.4 圖像對象的應用
本章例程中,單擊(文件|浏覽)菜單項,將彈出一個圖像浏覽窗體。如果用戶在窗體中選擇文件列表框的圖形文件,窗體右上角的圖像部件上將出現此文件所代表的圖像;若選擇“雕刻效果”按鈕中檢查框,窗體中的加速按鈕和位圖按鈕上將出現位圖。
以下代碼是將圖像文件裝載至圖像部件上:
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;
這個過程首先判斷文件類型,如果是圖像文件,則將圖像裝載至圖像部件上,並在標簽上列出文件名稱。如果是位圖文件,還將顯示其大小。
在加速按鈕和位圖按鈕中顯示位圖的代碼如下:
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 屬性的效果。當此檢查框被選中時,Stretch設成真值,圖像將根據部件大小調整自身大小。代碼如下:
procedure TImageForm.StretchCheckClick(Sender: TObject);
begin
Image1.Stretch := StretchCheck.Checked;
end;
在這個窗體中,用戶可以在屏幕和打印紙上調整圖像部件的大小、位置。調整圖像的代碼如下:
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;
當用戶按下標有“全尺寸”字樣的按鈕時,另一個窗體將顯示。
圖像打印代碼如下:
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;