第十二章图形图象与多媒体.docVIP

12.1??几何图形控件Shape几何图形控件位于工具栏上的Additional页中，用于窗体上绘制一些常见的几何图形：矩形、院、椭圆、圆角矩形。 　 1、 shape属性设置需要绘制的几何图形种类，属性取值： ??????? 2、 Brush属性 ?? 该属性设置图形填充的模式和颜色。Brush属性栏中有“+”号，点击后出现子属性：color ,style.（1） color子属性 ????? （2） style子属性??? style子属性的取值确定了图形的填充方式，其属性取值如图：??????????? ?? 3、 pen属性 ???? pen像brush一样包含子属性，有：color,mode,style和width。（1） color子属性的取值同前：（2） style子属性取值： ???? （3） mode子属性确定了pen是如何画线的。 ?????? （4） width子属性表示线宽 ???? 默认值为1。当width属性取值大于1时，style子属性若取值为破折号或圆点则显示为实线。 12.2? ??图象控件Image图象控件image是一种容器控件，它在应用程序窗体上提供一个矩形区域，用于显示各种位图、图标、图文元件。 ?? (1) 双击控件栏additional页上的image控件，在form1中添加image控件。选定image控件，单击对象编辑器中的pcture属性行（）按钮，打开图片对话框，单击load按钮，选择文件。这时，只显示文件的一角，如要显示全图，有两种方法： ?? 一，在对象编辑器中修改autosize属性值为true，则image控件可自动调整大小以适应调入的图形； ?? 二，在对象编辑器中，修改strech属性值为true，则image控件大小不变，图形则自动缩小或放大以适应image控件的大小。 (2)通过调用过程??? procedure LoadFromFile(const filename: string); virtical;在程序运行期间调入图形。 　 12-1】在窗体中显示图形 ????? ? 在窗体上放一个Image1控件,一个,一个图片对话框OpenPictureDialog1控件,Button1控件的Click事件代码: procedure TForm1.Button1Click(Sender: TObject);var? sFile: string;begin? if OpenPictureDialog1.Execute then? begin??? sFile:= OpenPictureDialog1.FileName;??? Image1.Picture.LoadFromFile(sFile);? end;end; 12.3? ??画布canvas对象画布对象，用于应用程序的图形输入。在Delphi中绘图时，是将图形画在窗体、图象控件image控件、画框中的画布canvas上。画布也有自己的属性，它本身也是一个控件，但一般不能单独使用。??? 画布属性是类TCanvas的对象，类TCanvas中最重要的属性有4个：画笔、画刷、字体控件和图形像素组。 本节主要讲授： 像素操作 画笔操作 画刷操作 12.3.1? ?像素操作像素是组成图形的最基本的单位。画布上的每一个点都有一个对应的像素，用来代表此点的颜色。利用画布的Pixels属性，可绘制数学函数曲线。12-2】： 绘制圆的渐开线，如图：?? （1） 在窗体中添加按钮button1，其caption属性值改为“显示”。（2） 按钮button1的click事件代码如下： procedure TForm1.Button1Click(Sender: TObject);var?? xt,yt,t: integer;? x,y: double;begin? x:= Form1.ClientWidth/2;? y:= Form1.ClientHeight/2;? for t:= 0 to 15000 do? begin??? xt:= Round(Cos(t/100)+t*Sin(t/100)/100+x);??? yt:= Round(-Sin(t/100)-t*Cos(t/100)/100+y);??? Canvas.Pixels[xt, yt]:= clBlue;? end;end; 12.3.2?? 画笔操作1? 画线的方法 2? 画矩形的方法 3? 画圆或椭圆的方法 4? 画弧形曲线的方法 5? 画圆角矩形的方法 　 1? 画线的方法 (1) MoveTo方法，作用是将画笔移到指定位置， ? 使用方法为