DELPHI图形编辑技巧二则

红色爱国者725

红色爱国者725

2016-01-29 14:09

DELPHI图形编辑技巧二则,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;
  以上两例在Windows95,Delphi3.0环境下运行通过 
展开更多 50%)
分享

猜你喜欢

DELPHI图形编辑技巧二则

Delphi
DELPHI图形编辑技巧二则

鼠标编程小技巧二则

编程语言 网络编程
鼠标编程小技巧二则

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

Win XP:搜索技巧二则

windows 操作系统
Win XP:搜索技巧二则

Windows XP搜索技巧二则

windows 操作系统
Windows XP搜索技巧二则

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

Windows Update实用技巧二则

windows 操作系统
Windows Update实用技巧二则

PSP《实况足球2024》进攻技巧二则

电脑网络
PSP《实况足球2024》进攻技巧二则

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

《火焰纹章if》职业技能习得条件及效果攻略

《火焰纹章if》职业技能习得条件及效果攻略

命令行参数的使用

命令行参数的使用
下拉加载更多内容 ↓