Delphi编写图形图象的设计

Delphi编写图形图象的设计
2012年01月11日
　　.图形图像
　　1.       图象控件IMAGE
　　图象控件TIMAGE是一种容器控件,它在应用程序窗体上提供一个矩形区域,用于显示各种位图.图标.图元文件.
　　它在ADDITIONAL页上.
　　给IMAGE加图有两种方法:
　　1)      在FORM1中添加IMAGE控件.选定IMAGE控件,单击对象编辑器中的PICTURE属性三点按钮,打开图片对话框
　　单击LOAD…选择图片
　　2).通过调用过程.
　　PROCEDURE  LOADFROMFILE(CONST FILENAME:STRING);VIRTUAL;
　　在程序运行期间调入图形.
　　例: image1.picture.loadfromfile(‘c:\110.bmp’);
　　重要属性有：
　　autosize:当设置为(true)真时，图像框会随图形变大或缩小。
　　Strech:拉伸属性，当设置为(true)真时，图像会随图像框而变大或缩小。
　　2.       几何图形控件SHAPE
　　几何图形控件位于工具栏上的ADDITIONAL页中,用于窗体上绘制一些常见的几何图形,如矩形.圆.椭圆.圆角矩形等.
　　其中重要属性有:
　　SHAPE属性:设置需要绘制的几何图形种类.有以下值:
　　STCIRCLE圆
　　STELLIPSE椭圆
　　STRECTANGLE矩形
　　BRUSH属性:设置图形填充的模式和颜色.其下有:
　　COLOR.填充颜色
　　STYLE:填充风格.
　　例:变脸猪
　　步骤:
　　1)      在窗体上设计不同控件,其中有六个时间控件和六个SHAPE设计时间控件的INTERVAL,注意两个眼睛,与两个耳朵时间控件的间隔相同.
　　750
　　400
　　Trunc                           将实型值截取为整型值
　　Randomize                       用一随机数初始化内置的随机数生成器
　　Random                         返回一随机函数
　　300
　　200
　　200
　　400
　　500
　　1000
　　procedure TForm1.Timer1Timer(Sender: TObject);
　　var
　　r,g,b:integer;
　　begin
　　randomize; //用一随机数初始化内置的随机数生成器
　　r:=trunc(random(256)); //取得一个255以内的随机数并取整
　　g:=trunc(random(256));
　　b:=trunc(random(256));
　　shape1.Brush.Color:=rgb(r,g,b);
　　end;
　　procedure TForm1.Timer2Timer(Sender: TObject);
　　var
　　r,g,b:integer;
　　begin
　　randomize; //用一随机数初始化内置的随机数生成器
　　r:=trunc(random(256));
　　g:=trunc(random(256));
　　b:=trunc(random(256));
　　shape2.Brush.Color:=rgb(r,g,b);
　　end;
　　其它同理.
　　3.颜色常量.
　　在DELPHI中除了可以使用RGB(R,G,B)颜色以外,还可以使用系统中给定的颜色常量.
　　例:EDIT1.COLOR:=CLRED;
　　颜色常量有:
　　CLAQUA浅绿色.
　　CLBLACK黑色.
　　CLBLUE蓝色.
　　CLDKGRAY灰黑色.
　　CLFUCHSIA紫红色.
　　CLGRAY灰色.
　　CLGREEN绿色.
　　CLLIME橙绿色.
　　CLLTGRAY浅灰色.
　　CLMAROON栗色.
　　CLNAVY深蓝色.
　　CLOLIVE深绿色.
　　CLPURPLE紫色.
　　CLRED红色.
　　CLSILVER银色.
　　CLTEAL水色.
　　CLWHILE白色.
　　CLYELLOW黄色.
　　RGB(R,G,B)分别为RED,GREEN,BLUE取值范围为0~255
　　创建图标文件.
　　在WINDOWS中.图标文件有多种类型,在DELPHI中很多地方也需要用到图标.比如要改窗体标题栏上的图标等.
　　我们可以选择WINDOWS系统中图标,也可以用DELPHI的工具自建图标.
　　步骤1.开始à程序àBORLAND  DELPHI7àIMAGE EDITOR
　　单击”FILE”菜单àNEWà.RES
　　.DCR
　　.ICO
　　.BMP
　　.CURà选择其中一种类型
　　在做图时与WINDWOS中画图一样.
　　2.找到所在目录
　　例如: C:\program files\delphi6\bin\imagedit.exe
　　3.       单击DELPHI中”TOOL”菜单àIMAGE EDITOR.