时间戳

首页 > 解决方案 > Delphi - 更改菜单栏颜色

delphi - Delphi - 更改菜单栏颜色

问题描述

编辑：滚动到问题底部以查看已回答的工作代码。

我正在尝试更改表单上菜单栏的颜色。

我发现这个网站有一些建议：

https://www.experts-exchange.com/questions/20150240/Color-on-the-MainMenu.html

我将在下面粘贴代码本身。

不幸的是，它并没有像我想要的那样工作。缺点是：

我的问题是：

  1. 是否有一个预卷菜单对象可以让我轻松地为菜单栏着色，包括右侧的空白区域，并保留显示禁用等属性？

  2. 如果没有，有人可以指出我需要对可以解决上述问题的代码进行哪些额外更改的正确方向吗？

我是 Delphi 的新手（和编码，真的），但如果我能找到要查找的东西的名称，那么我可以谷歌并从那里获取。

我正在使用德尔福 10.3。

从上面的链接复制的代码：

type
  TForm1 = class(TForm)
    .....
    procedure FormCreate(Sender: TObject);
  public
    procedure DrawMenuItem(Sender: TObject; ACanvas: TCanvas;
      ARect: TRect; Selected: Boolean);
  end;

...

procedure TForm1.DrawMenuItem(Sender: TObject; ACanvas: TCanvas;
  ARect: TRect; Selected: Boolean);
var
  S: String;
begin
  with ACanvas do
  begin
    S := TMenuItem(Sender).Caption;
    if Selected then
      Brush.Color := clHighLight
    else
      Brush.Color := clLime;
    FillRect(ARect);
    DrawText(ACanvas.Handle, PChar(S), Length(S), ARect, DT_SINGLELINE or DT_VCENTER);
  end;

end;

procedure AllOnDrawTo(M: TMenuItem; P: TMenuDrawItemEvent);
var
  I: Integer;
begin
  M.OnDrawItem := P;
  for I := 0 to M.Count-1 do
    AllOnDrawTo(M.Items[I], P);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to MM.Items.Count -1 do
    AllOnDrawTo(MM.Items[I], DrawMenuItem);
end;

更新：@tom-brunberg 在评论中给了我所需的补充。下面是实现我要求的两个项目的更新代码。我保留了原始代码，因为我认为看到两个选项之间的对比很有趣。

type
  TForm1 = class(TForm)
    .....
    procedure FormCreate(Sender: TObject);
  public
    procedure AdvancedDrawMenuItem(Sender: TObject; ACanvas: TCanvas;
      ARect: TRect; State: TOwnerDrawState);
  end;

...

procedure TForm1.AdvancedDrawMenuItem(Sender: TObject; ACanvas: TCanvas;
  ARect: TRect; State: TOwnerDrawState);
var
  S: String;
begin
  with ACanvas do
  begin
    S := TMenuItem(Sender).Caption;
    // Set the highlight colour when the menu item is selected.  Grey highlight if disabled.
    if odSelected in State then
      if odDisabled in State then
        Brush.Color := clBtnFace
      else
        Brush.Color := clGradientActiveCaption
    else
      Brush.Color := clGradientInactiveCaption;
    // Set the colour of the menu item textm, grey if disabled
    if odDisabled in State then
      Font.Color := clGray
    else
      Font.Color := clBlack;

    // this line fill rest of the top of the form the same colour as the menu.  If its the LAST menu item fill rect all way to the right.  My example has 8 menu items
    if (Parent = nil) and (TMenuItem(Sender).MenuIndex = 8) and not (odSelected in State) then
      ARect.Right := Width;

    FillRect(ARect);
    DrawText(ACanvas.Handle, PChar(S), Length(S), ARect, DT_SINGLELINE or DT_VCENTER);
  end;

end;

procedure AdvancedAllOnDrawTo(M: TMenuItem; P: TAdvancedMenuDrawItemEvent);
var
  I: Integer;
begin
  M.OnAdvancedDrawItem := P;
  for I := 0 to M.Count-1 do
    AdvancedAllOnDrawTo(M.Items[I], P);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to MM.Items.Count -1 do
    AdvancedAllOnDrawTo(MM.Items[I], AdvancedDrawMenuItem);
end;

标签： delphidelphi-10.3-rio

解决方案

我没有给你一个完整的答案，但你确实说过你可以“从那里谷歌”。

您的代码仅将自定义绘图例程应用于菜单项。如果您还想绘制菜单栏本身，则需要有一个自定义的绘图例程。标准的 TMenu OwenerDraw 允许您接收菜单项的事件。菜单确实有一个窗口句柄，这意味着您可以对其进行绘画，理想情况下您希望它能够阻止自己对您所做的任何更改进行过度绘画。看一下 TMenu 绘画的源代码（我没有时间这样做），看看你是否能发现你需要覆盖什么来绘画它。

TMenu 将包装菜单的通用 Windows 处理，因此您可以了解 Windows 如何允许您绘制菜单然后实现它。（这是相当多的谷歌搜索！）

至于启用/禁用反馈您可以在 on draw 事件中绘制任何您喜欢的东西。如果您想在禁用 TMenuItem 时直观地显示不同的内容，请检查它是否已禁用，然后绘制您想要的内容。

推荐阅读