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.
