2011计算机等级考试Delphi：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;