程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> 第五章-Delphi圖形圖像編程(二)(2)

第五章-Delphi圖形圖像編程(二)(2)

編輯:Delphi

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;

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved