Delphi：像工具栏中的渐变一样

发布于 2024-11-30 20:53:54 字数 796 浏览 1 评论 0原文

我需要一个带有渐变的工具栏，但我想要没有热轨的普通按钮。我作为 TToolBar 类执行以下操作：

我的代码：

procedure TForm7.ToolBar1CustomDraw(Sender: TToolBar; const ARect: TRect;
      var DefaultDraw: Boolean);
begin
 GradientFillCanvas(sender.Canvas, clWindow, $00D6D6D6, ARect, gdVertical); //a GraphUtil unit
end;

ComCtrls 单元中的工具栏功能：

function TToolBar.GradientDrawToolBar(const ARect: TRect): Boolean;
begin
  Result := True;
  if gdoGradient in GradientDrawingOptions then
    GradientFillCanvas(Canvas, FGradientStartColor, FGradientEndColor,
      ARect, GradientDirection);
end;

为什么我有不同的结果？

在此处输入图像描述

为我添加：

GetShadowColor(clBtnFace, -25) = $00D6D6D6

原文

I need a tool bar with a gradient, but I want normal buttons without a hot track. I do as a TToolBar class do:

My code:

procedure TForm7.ToolBar1CustomDraw(Sender: TToolBar; const ARect: TRect;
      var DefaultDraw: Boolean);
begin
 GradientFillCanvas(sender.Canvas, clWindow, $00D6D6D6, ARect, gdVertical); //a GraphUtil unit
end;

Tool bar's function from a ComCtrls unit:

function TToolBar.GradientDrawToolBar(const ARect: TRect): Boolean;
begin
  Result := True;
  if gdoGradient in GradientDrawingOptions then
    GradientFillCanvas(Canvas, FGradientStartColor, FGradientEndColor,
      ARect, GradientDirection);
end;

Why do I have different results?

enter image description here