改变控件颜色

Question

delphi中的控件 TACTIONTOOLBAR,我想把TOOLBAR的底色改为渐进色，比如说浅蓝到蓝色的渐进色，应该怎么做呢？改成一种纯色直接通过属性就可以改了，可是要改成渐进色就不行，我用VCL SKIN加载，好像也不支持，还请高手解答

Answer 1

procedure TMainForm.tbMenuListCustomDraw(Sender: TToolBar; const ARect: TRect;
  var DefaultDraw: Boolean);
var
  bmp:TBitmap;
begin
  bmp:=TBitmap.Create;
  bmp.LoadFromFile(ExtractFilePath(Application.ExeName) + '\backBmp.bmp');
  Sender.Canvas.StretchDraw(Sender.ClientRect, bmp);
  bmp.Free;
end;

Answer 2

procedure TMainForm.tbMenuListCustomDraw(Sender: TToolBar; const ARect: TRect;
  var DefaultDraw: Boolean);
var
  bmp:TBitmap;
begin
  bmp:=TBitmap.Create;
  bmp.LoadFromFile(ExtractFilePath(Application.ExeName) + '\backBmp.bmp');
  Sender.Canvas.StretchDraw(Sender.ClientRect, bmp);
  bmp.Free;
end;

Answer 3

fangsp 行为有问题，因为你有五颗星

Answer 4

楼上的 他就5个三角 哈哈 
我记得RAIZE好像有个控件可以实现颜色渐变的 

Answer 5

貌似stego控件可以有渐变色的效果！！
顶下，关注