快捷搜索:

DELPHI图形编辑技巧二则

一、界面色彩渐变效果的实现

界面色彩渐变效果是经由过程用渐变的画刷刷绘依次相邻的矩形块实现的。下面枚举实例阐明:

1.新建一个表单,假设其Width为500,设置一个按钮Button1,按此按钮将把表单置为由左向右由黄变白的渐变效果。

2.Button1按钮的代码如下:

procedure TForm1.Button1Click(Sender: TObject);

var i,j:Integer;

Dct:TRect;

begin

j:=Form1.height;

//得到表单高度

for i:=0 to 255 do

//此处设置RGB()中一个颜色值

begin

Canvas.Brush.Color:=RGB(255,255,i);

//每次画矩形的画刷颜色

Dct:=Rect(i*2,0,(i+1)*2,j);

//每次刷绘的矩形区域

Canvas.FillRect(Dct);

//添补颜色

end;

end;

二、图形整体拉出效果

纯真的图形整体拉出效果对照简单,动态地改变图形区域的大年夜小就可以实现,但事先应将图形的“Stretch”设置为“True”。

举例阐明下拉效果:

1.在表单上放置一图片,高度为200,属性“Height”设为0,“Stretch”设置为True。添加“Timer”构件,“Interval”设为200,“Enable”设为Ture。

2.在Timer1Timer中添加代码:

procedure TForm1.Timer1Timer(Sender: TObject);

begin

Image1.Height:=Image1.Height+20;

//设置增量

if image1.Height=200 then Timer1.Enabled:=FALSE;

//图形整体拉出完毕

end;

您可能还会对下面的文章感兴趣: