CSDN博客

img wljcr

界面色彩渐变效果的实现

发表于2001/6/13 9:46:00  665人阅读

列举实例说明:
  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;
       
0 0

相关博文

我的热门文章

img
取 消
img