改装ToolBar 使得背景颜色渐变(50分)

改装ToolBar 使得背景颜色渐变，怎么实现？？

对Visual C++, Delphi的程序员来说，设计一个漂亮的真彩色工具栏是一件很麻烦的事情。Visual Toolbar 是专门为上述程序设计人员进行真彩色工具条设计的强大工具。您或许有过这样的经历，为了设计一个漂亮的工具条，您是跋山涉水啊，翻山越岭啊，又是Photoshop,又是Snagit,什么拷贝，粘贴您得用的多了去了，最后为了把这些四处搜刮的小图片，凑成一副完整的工具条位图资源，您带上您的老花镜，小心谨慎地对齐一个个图片，累的是腰酸背痛腿抽筋，可是往往效果都不理想。最要命的是，下次你想再中间插入一个按钮，上面的过程，您又得重新来过。有时候，您要花几个小时的时间，来生成真彩色工具条的位图资源！现在好了，Visual Toolbar 1.0可以自动读入小位图文件(支持16×16，24×24，32×32，48×48),自动合并所有小的位图，然后输出您整合以后的位图资源文件。此外，Visual Toolbar 允许用户动态调整按钮图标的顺序，支持鼠标托放！合并以后的位图，再次读入的时候，可以自动重新分割成各个合并前的小图标，方便您插入新的按钮图标！支持剪贴板操作，可以通过剪贴板输入小按钮的位图。Visual Toolbar 可以自动生成禁止按钮的灰度图像，所有操作，瞬间完成！Visual Toolbar 尤其适合Visual C++ 程序开发人员，可以自动生成真彩色的位图资源，让您的程序更Cool!

http://www.pc286.com/SoftView/SoftView_16027.html
可以下载Visual Toolbar控件

procedure TForm1.FormPaint(Sender: TObject);
var
i,j : Integer;
Dct : TRect;
begin
j := ToolBar1.Height;
for i:=0 to (ToolBar1.Width - 1) div 2 do
begin
ToolBar1.Canvas.Brush.Color := RGB(255, 255, Trunc(2*255*i/ToolBar1.Width));
Dct := Rect(ToolBar1.Left + i*2,
ToolBar1.Top + 1,
ToolBar1.Left + (i+1)*2,
ToolBar1.Top + 1 + ToolBar1.Height - 2);
ToolBar1.Canvas.FillRect(Dct);
end;
end;

不行啊，ToolButton就很难

呵呵, 只要让Toolbar透明就行了

帮顶！

╭=========================================╮

80G海量源代码,控件，书籍全免费狂下不停！

http://www.source520.com

╰=========================================╯