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

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