Delphi中图形图像与多媒体技术.pptVIP

6.1 几何图形控件Shape Shape:用于绘制椭圆、正方形等简单的几何图形。 几何图形控件Shape的主要属性 1. Shape属性：该属性用于指定控件的几何形状。 2. Brush属性：该属性用于填充Shape控件的颜色和图案。 3. Pen属性：该属性指定了Shape轮廓的画线的颜色和风格。 几何图形控件Shape 例:在FORM上作一地球. (1)地球由蓝色的经线和纬线组成,设计时可使用10个由大到小的竖放的椭圆作经线,再由10个由大到小的横放的椭圆作纬线. (2)通过计算得到每一个椭圆的(left,top)及(height,width)的值. 几何图形控件Shape:参考代码 for i:=1 to 10 do begin myshape:=tshape.Create(self); myshape.Name :=shape+inttostr(i); myshape.Shape :=stellipse; myshape.Pen.Color :=clblue; myshape.Brush .style:=bsbdiagonal; myshape.Top:=96; myshape.Height :=233; myshape.Left :=280+15*i; myshape.Width :=250-25*i; myshape.Parent :=form1; end; 图象控件Image (1)Image:在窗体中显示图形 (2)静态引用:窗体上放一个Image控件，Image控件的autosize属性设置为true。 (3)动态引用： 方法一：通过调用过程。 procedure LoadFromFile(const FileName: string) virtual; 方法二：使用打开图片对话框。 例：卫星的制作及使用。 图象控件Image 例：编写Button的单击事件代码如下： begin Image1.picture.loadFromfile((‘图像文件路径)); end; 图象控件Image 也可使用打开图片对话框，在窗体中添加图片对话框openpicturedialog控件，并将button1的click事件代码改为如下所示，则可实现交互式打开图片的方法： 画布（Canvas）对象 说明：画布（Canvas）对象应用程序的图形输入。DELPHI中的 绘图，是将图形画在控件中的画布上。 画 布本身也是一种控件，但一般不单独使用。 画布（Canvas）对象：像素操作 使用Pset方法绘制圆的渐开线，如图所示。 (1) 在窗体中添加按钮button1,其caption属性值改为“显示”。 画布（Canvas）对象：像素操作 (2) 按钮button1的click事件代码如下： procedure TForm1.Button1Click(Sender: TObject); var xt,yt,t:integer; x,y:real; 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; 画布（Canvas）对象：画笔操作 1. 画线的方法 (1) Moveto方法，作用是将画笔移到指定位置，使用方法为：moveto(x,y,integer)。 (2) lineto方法，作用是画一条到指定位置的直线段，线段起始位置由画布对象的Penpos属性值即画笔的当前位置确定。使用方法为：lineto(x,y: Integer)。 (3) 画折线的方法，使用方法为Polyline(points:array of TPoint)。 2. 画矩形的方法 rectangle(x1,y1,x2,y2:integer); 3. 画圆或椭圆的方法 ellipse(x1,y1,x2,y2:integer); 4. 画弧形曲线的方法 arc(x1,y1,x2,y2,x3,y3,x4,y4:integer); 5. 圆角矩形