TOOLBAR 渐变效果

最新推荐文章于 2020-08-18 10:25:43 发布

weixin_30426957

最新推荐文章于 2020-08-18 10:25:43 发布

阅读量154

点赞数

原文链接：http://www.cnblogs.com/tecsoon/archive/2009/03/28/1423784.html

版权

procedure TForm1.ToolBar1CustomDraw(Sender: TToolBar; const ARect: TRect;
var DefaultDraw: Boolean);
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;

转载于:https://www.cnblogs.com/tecsoon/archive/2009/03/28/1423784.html