delphi中图形图像与多媒体技术

《delphi中图形图像与多媒体技术》由会员分享，可在线阅读，更多相关《delphi中图形图像与多媒体技术（42页珍藏版）》请在金锄头文库上搜索。

1、第6章 图形图像与多媒体技术,6.1 几何图形控件Shape 6.2 图象控件Image 6.3 画布（Canvas）对象 像素操作 画笔操作 画刷操作 6.4 PaintBox画板控件 6.5 多媒体程序设计 卡通控件 媒体播放器,6.1 几何图形控件Shape,Shape:用于绘制椭圆、正方形等简单的几何图形。 几何图形控件Shape的主要属性 1. Shape属性：该属性用于指定控件的几何形状。 2. Brush属性：该属性用于填充Shape控件的颜色和图案。 3. Pen属性：该属性指定了Shape轮廓的画线的颜色和风格。,几何图形控件Shape,例:在FORM上作一地球. (1)地球

2、由蓝色的经线和纬线组成,设计时可使用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; myshap

3、e.Top:=96; myshape.Height :=233; myshape.Left :=280+15*i; myshape.Width :=250-25*i; myshape.Parent :=form1; end;,第6章 图形图像与多媒体技术,6.1 几何图形控件Shape 6.2 图象控件Image 6.3 画布（Canvas）对象 像素操作 画笔操作 画刷操作 6.4 PaintBox画板控件 6.5 多媒体程序设计 卡通控件 媒体播放器,图象控件Image,(1)Image:在窗体中显示图形 (2)静态引用:窗体上放一个Image控件，Image控件的autosize属性设置

4、为true。 (3)动态引用： 方法一：通过调用过程。 procedure LoadFromFile(const FileName: string) virtual; 方法二：使用打开图片对话框。 例：卫星的制作及使用。,图象控件Image,例：编写Button的单击事件代码如下： begin Image1.picture.loadFromfile(图像文件路径); end;,图象控件Image,也可使用打开图片对话框，在窗体中添加图片对话框openpicturedialog控件，并将button1的click事件代码改为如下所示，则可实现交互式打开图片的方法：,procedure TForm

5、1.Button1Click(Sender: TObject); var filename:string; begin if openpicturedialog1.execute then begin filename:= openpicturedialog1.filename; Image1.picture.loadFromfile(filename); end; end;,第6章 图形图像与多媒体技术,6.1 几何图形控件Shape 6.2 图象控件Image 6.3 画布（Canvas）对象 像素操作 画笔操作 画刷操作 6.4 PaintBox画板控件 6.5 多媒体程序设计 卡通控件

6、 媒体播放器,画布（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; beg

7、in 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.pixelsxt,yt:=clblue; end; end;,画布（Canvas）对象：画笔操作,1. 画线的方法 (1) Moveto方法，作用是将画笔移到指定位置，使用方法为：moveto(x,y,integer)。 (2) lineto方法，作用是画一

8、条到指定位置的直线段，线段起始位置由画布对象的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. 圆角矩形 roundrect(x1,y1,x2,y2,x3,y3:integer);

9、,画布（Canvas）对象：画笔操作,使用Canvas属性基本作图方法，画出如图所示的图形。,画布（Canvas）对象：画笔操作,对窗体1的paint事件编码如下，即可实现。 procedure TForm1.FormPaint(Sender: TObject); begin canvas.pen.color:=clred; with canvas do begin moveto(10,10);/画直线; lineto(100,100); pen.color:=clblue; rectangle(110,10,200,100);/画矩形 pen.color:=clolive; ellipse(

10、210,10,400,100);/画椭圆 pen.color:=clteal; roundrect(410,10,500,100,50,50); /画圆角矩形 pen.color:=clblack; arc(120,200,320,300,120,200,320,200);/画弧形曲线 pen.color:=clgreen; polyline(Point(420,200),Point(380,300),Point(480,240),Point(360,240),Point(460,300),Point(420,200);/画星星 end; end;,满天星星的制作,设计思想: 在FORM上找5

11、0个随机的点(X,Y), 每个随机点产生一颗星星,每次作星星时颜色可变化.,满天星星的制作,Randomize; for I := 1 to 50 do begin with canvas do /控制画笔的颜色 begin case (i div 7) of 0: pen.color:=clgreen; 1: pen.color:=clred; 2: pen.color:=clyellow; 3: pen.color:=clblue; 4: pen.color:=clteal; 5: pen.color:=clnavy; 6: pen.color:=clpurple; end; x1:=ra

12、ndom(form1.left+form1.Width-300 );/产生随机点 y1:=random(form1.Top+form1.Height-300 ); polyline(Point(x1,y1),Point(x1-10,y1+25),Point(x1+15,y1+10),Point(x1-15,y1+10),Point(x1+10,y1+25),Point(x1,y1);/画星星,如何让星星看上去会闪烁呢?,画布（Canvas）对象：画刷操作,画布的画刷（Brush）属性决定图形内部区域的填充方式。 1. 画刷的属性 (1) 颜色属性（Color）。 Canvas.Brush.Co

13、lor: =属性值 (2) 风格属性（Style）。 (3) 位图属性。 存放图形数据的对象，可在程序运行时动态创建和删除。 bitmap.create bitmap.loadfromfile(文件路径）； bitmap.free;,画布（Canvas）对象：作图区域,作图区域Rect是Trect属性的对象，同时也是一个函数。Rect对象的作用就是定义一个矩形区域对象。Rect对象用两个Tpoint类型或用四个整形变量指明区域范围。,画布（Canvas）对象：作图区域,在窗体指定区域中显示图片。 Canvas有三个绘制图像的方法： (1) Draw(x,y: Integer, Graphi:

14、Tgraphic)。 其中x，y为绘图区域右上角的坐标。Graphic参数指明需要绘制的图像、图标或图元文件。 (2) procedure FillRect(const Rect: TRect)。 其中Rect为绘图区域，在调用该过程之前，先由Brush.bitmap指明需要绘制的图像、图标或图元文件。 (3) Stretchdraw(Rect: Trect, Graphi: Tgraphic)。 其中Rect为绘图区域。,画布（Canvas）对象：作图区域,procedure TForm1.FormPaint(Sender: TObject); var bitmap:tbitmap; rec

15、t1:trect; begin bitmap:=tbitmap.create; bitmap.loadfromfile(文件路径); Rect1:=rect(0,0,form1.width, form1.height); canvas.StretchDraw(rect1,bitmap); end;,第6章 图形图像与多媒体技术,6.1 几何图形控件Shape 6.2 图象控件Image 6.3 画布（Canvas）对象 像素操作 画笔操作 画刷操作 6.4 PaintBox画板控件 6.5 多媒体程序设计 卡通控件 媒体播放器,PaintBox画板控件(SYSTEM),PaintBox:利用图

16、片框输出文本与图形. (1) 建立应用程序用户界面。,PaintBox画板控件,(2) 编写程序代码。 procedure TForm1.FormPaint(Sender: TObject); var oldx,oldy,xt,yt:integer; st:real; rect1:trect;,const pi=3.14159; begin with paintbox1 do begin top:=0; left:=0; width:=form1.clientwidth; height:=form1.clientheight; canvas.Pen.color:=clblack; end; oldx:=round(form1.clientwidth/2); oldy:=round(form1.clientheight/2);,paintbox1.canvas.moveto(oldx,0); paintbox1.canvas.lineto(oldx,pain