计算机等级考试二级Delphi辅导知识：Delphi图形图像编程_第4页

　　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;