Delphi 为窗体绘制渐变背景,这里使用了Delphi中的Canvas.Brush.Color来实现窗口背景的渐变色,不错吧?如示例图的左右渐变效果,实现的代码:
  for i:=0 to self.Width-1 do
  begin
  c1:=GetRValue(StartColor) Trunc(i*(GetRValue(EndColor)-GetRValue(StartColor))/(self.Width-1));
  c2:=GetGValue(StartColor) Trunc(i*(GetGValue(EndColor)-GetGValue(StartColor))/(self.Width-1));
  c3:=GetBValue(StartColor) Trunc(i*(GetBValue(EndColor)-GetBValue(StartColor))/(self.Width-1));
  Canvas.Brush.Color:=RGB(c1,c2,c3);
  //每次画矩形的画刷颜色
  Dct:=Rect(i,0,i 1,self.Height);
  //每次刷绘的矩形区域
  Canvas.FillRect(Dct);
  //填充颜色
  end;
                                    
                                    
                                        
                                            1