Delphi 图形设计（3）
10.3 图 像 处 理
Delphi提供一组图形图像组件和一组图像类用于图形及图像处理。
常用的图形图像组件有Shape、PaintBox和Image组件，相关的图像类有TGraphic、TPicture和TBitmap。
10.3.1 图形图像组件
1．PaintBox绘图区域组件
Delphi除了允许在Form上直接绘制图形外，还允许使用PaintBox组件来作图。PaintBox 组件位于System选项卡中。
用PaintBox绘制图形与在Form上绘制图形的方法相似，不同的是在程序设计阶段，可以直接设定PaintBox的大小和位置。
在使用Canvas属性绘制图形时，图形的坐标都是相对于PaintBox组件的，即PaintBox的左上角为(0,0) 的坐标，而不用管PaintBox在Form上的位置，同时当图形的大小超出PaintBox组件区域时，超出部分将自动被切割。
2．Shape显示图形组件
Shape组件用于显示简单的图形，如矩形、椭圆等，位于Additional选项卡中。
Shape组件的Width、Height、Left和Top属性决定图形的大小和位置；
Brush和Pen属性的意义与TCanvas中的完全相同；
Shape属性决定所显示图形的形状，取值为stEllipse（椭圆）、stCircle（圆形）、stRectangle（矩形）、stRoundRect（圆角矩形）、stSquare（正方形）或stRoundSquare（圆角正方形）。
3．Image绘图及显示图像组件
Image组件除了可以绘图外，还可用于显示各种不同格式的图像，位于Additional选项卡上。其主要属性如下：
（1）Picture属性。
Picture属性保存Image组件所要显示的图像文件。使用该属性编辑器中的Load按钮，可装入.bmp、.ico、.jpg、.jpeg、.emf、.wmf等图像文件，不能装入.gif图像文件。
程序运行时，可使用Picture属性的LoadFromFile和SaveToFile方法实现图像文件的装入与保存。例如：
Image1.Picture.LoadFromFile('c:\My Documents\fly.bmp'); //装入文件
Image1.Picture.SaveToFile('d:\temp\fly.bmp'); //保存文件
（2）AutoSize属性。
AutoSize属性确定是否调整Image组件的尺寸与图像的大小一致。当取值为True时，调整Image组件的尺寸与图像的大小一致，以显示完整的图像。默认值为False。
（3）Stretch属性。
Stretch属性确定是否改变图像尺寸以适应Image组件的大小。
当取值为True时，图像尺寸与Image的大小一致。如果改变Image组件的大小，图像大小也会随之变化。默认值为False。该属性对图标（ICO）格式的图像无效。
（4）Center属性。
Center属性控制图像是否居中显示。
当取值为True时，图像在Image组件居中显示。默认值为False。当AutoSize和Stretch的取值均为False时，该属性设置有效。
（5）Transparent属性。
Transparent属性确定Image组件是否透明。
当取值为True时，Image组件透明，表示允许在Image组件下面的其他组件可见，否则不透明。该属性只对bitmap位图文件有效。
4．图像对话框
Delphi的标准对话框组件OpenPictureDialog和SavePictureDialog是分别用于打开和保存图像文件的两个对话框。
这些对话框提供对图像文件的预览功能，提供图像文件的过滤功能，默认的图像文件格式为*.bmp、*.ico、*.emf、*.wmf、*.jpg等。
10.3.2 图像类
用Canvas绘制出来的图形只能是一些简单图形，程序中如果需要用到一些复杂的图像，就必须从图像文件中调用。Delphi的图像类具有处理BMP、ICO、JPG等图像文件的能力。
1．TGraphic类及其子类
Delphi能处理的图像文件格式主要有4种：
Bitmap位图文件、Icon图标文件、Metafile图元文件和JPEG图像文件，对应的类分别为TBitmap、TIcon、TMetafile和TJPEGImage，它们都是TGraphic类的子类。
TGraphic类中处理图像文件的属性和方法如下所示。
· Empty只读属性：取值为True时，没有图像数据。
· Width和Height属性：控制图像的宽度和高度。
· LoadFromFile和SaveToFile方法：读取和保存图像文件。
TGraphic类中定义的LoadFromFile和SaveToFile方法是虚方法，读取和保存文件的具体操作由其子类实现。
例如，TBitmap类的LoadFromFile和SaveToFile方法只能读写*.bmp文件，
TIcon类的LoadFromFile和SaveToFile方法只能读写*.ico文件等。这两个方法都只有一个字符串类型的参数，指出文件的路径，路径中包含文件名，且文件名的后缀名必须与子类的类型相对应，否则将导致错误。
TBitmap的主要属性和方法如下所示。
· Canvas属性：返回一个TCanvas类实例，用于在位图上绘制各种图形。
· Create方法：创建一个TBitmap类实例。
· Assign方法：将一个图像数据赋给当前TBitmap类对象。
2．TPicture类
使用TBitmap、TIcon和TMetafile类只能处理固定格式的图像文件，而TPicture类可以处理多种类型的图像文件。
TPicture类有一个Graphic属性，类型为TGraphic，能容纳TGraphic的所有子类对象。同时，TPicture中也有LoadFromFile和SaveToFile方法，它们与TGraphic中文件处理方法不同的是，根据图像文件的后缀名，自动选择合适的文件类型保存或读取图像文件。
3．读取、显示与保存图像
使用TBitmap对象，可读取图像文件，将图像文件显示在窗体上，也可将窗体上的图像文件保存成.bmp文件。例如：
var
bmp1: TBitmap;
bmp1:=TBitmap.Create; //创建TBitmap实例
bmp1.LoadFromFile('C:\WlNDOWS\Clouds.bmp'); //只能读取BMP图像
Form1.Canvas.Draw(0,0,bmp1); //图像显示在窗体上
bmp1.Free; //释放图像对象
在窗体或组件上显示图形可使用Canvas中的Draw和StretchDraw方法，定义如下：
procedure Draw(X,Y: double; Graphic: TGraphic);
procedure StretchDraw(const Rect: TRect; Graphic: TGraphic);
4．打印图像TPrinter类
Delphi中使用TPrinter对象可以访问打印机端口。
如果要使用TPrinter对象打印图像，必须在程序的uses语句中添加Printers单元，这样系统就会自动声明一个TPrinter类的对象printer，之后通过printer可引用TPrinter类的属性。
TPrinter的主要属性见表10-5。
表10-5 TPrinter的主要属性
属 性
意 义
BeginDoc
开始打印
Canvas
在打印一页之前，Canvas在内存中创建这个页所在的位置
EndDoc
结束打印，在调用EndDoc之前并不进行实际的打印操作
NewPage
打印机换页，并将Canvas的Pen属性值回到起始位置(0,0)
PageHeight
返回页的高度
PageNumber
返回正在被打印的页号
TextOut
使文本被发送到Canvas
TPrinter的主要方法有GetPrinter( )和SetPrinter( )，这两个方法用来获取和设置打印机的一些信息。GetPrinter方法声明如下：
procedure GetPrinter(ADevice,ADriver,APort:PChar;var ADeviceMode: THandle);
其中，参数分别表示设备的名称、驱动文件名、端口号以及指向打印机的DevMode结构的句柄变量。
SetPrinter方法的声明格式与GetPrinter的完全一致，只是功能正好相反。
补充：软件开发 , Delphi ,
