Delphi-更改菜单栏颜色

编程问答 2022-08-12

问题描述

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

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

我找到了这个网站并提供了一些建议：

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

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

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

  • 颜色仅适用于菜单项，最后一个菜单项右侧的剩余空间为灰色。我已经将“表单颜色”设置为与菜单相同，但是并没有改变。

  • 每个菜单下拉菜单中的某些条目都应被禁用，如果我不应用着色代码，则它们将正确显示为禁用。应用颜色更改会消除这种视觉效果，并且它们的颜色与菜单下拉菜单中的所有其他条目相同。

我的问题是：

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

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

我是Delphi的新手（实际上是编码），但是如果我可以查找要查找的事物的名称，那么我可以使用Google并从那里获取它。

我正在使用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,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;

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

delphidelphi-10.3-rio