在线等待，解决就结贴3

Question

statusbar的进度条，要象流光软件一样可以渐变，控件不要说，要自己写的源代码，谢谢

Answer 1

目前D7的进度条好像无法渐变啊。
你自己写一个吧，下面我给你一个画渐变的函数：
画一个渐变矩形，
x0,y0是左上角坐标，
x1,y1是右下角坐标，
颜色c0渐变到c1（可以直接使用TColor），
cvs是目标窗口画布。
function DrawRect( x0,y0,x1,y1: Integer; C0,C1: COLORREF;
                          cvs: TCanvas ):Boolean;
var
  i                      : Integer;
  r0, g0, b0, r1, g1, b1 : BYTE;
begin
  r0 := GetRValue( C0 );
  g0 := GetGValue( C0 );
  b0 := GetBValue( C0 );
  r1 := GetRValue( C1 );
  g1 := GetGValue( C1 );
  b1 := GetBValue( C1 );  with cvs do for i:=x0 to x1 do
  begin
    Pen.Color := RGB( ( r1*(i-x0) + r0*(x1-i) ) div (x1-x0),
                      ( g1*(i-x0) + g0*(x1-i) ) div (x1-x0),
                      ( b1*(i-x0) + b0*(x1-i) ) div (x1-x0) );
    MoveTo( i,y0 );
    LineTo( i,y1 );
  end;
  Result := TRUE;
end;

Answer 2

好你自己再Panel上画也可以的啊！
让Panel充当状态条。

Answer 3

http://218.56.11.178:8018/Default.aspx-》源码-》delphi/kylix->渐变窗体仅供参考