关于图象渐变的问题~！

Question

怎么样才能实现image做容器，通过访问数据库产生颜色从左到右渐变的效果。象进度条那样走动。最好能有源代码~！

Answer 1

for i:=0 to image1.width do
    for j:=0 to image1.height do
    begin
        image1.canvas.Pixels[i,j]:=数据库产生的颜色;
    end;

Answer 2

另外加个timer控件就可以让他动起来了

Answer 3

节选一段程序给你
...
type
  Timer1: TTimer;
  Image1: TImage;
.....
private
    { Private declarations }
    rect0:Trect;
var 
...
  l,j,k,m:byte;
  r:integer;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  l:=l+5;
  if l>250 then l:=0;
  k:=k+15;
  if k>250 then k:=0;
  j:=j+5 ;
  if j>250 then j:=0;
  m:=m+5;
  if m>form1.width then m:=0;
  rect0:=rect(0,0,m,form1.height);
  image1.Canvas.brush.color:=rgb(l,j,k);//这里可改为从库中取得颜色！！
  image1.Canvas.FillRect(rect2);
end;
initialization
l:=0;
j:=0;
k:=0;
m:=0;
r:=0;
end;