如何解决Delphi-更改菜单栏颜色
编辑:滚动到问题底部以查看已回答的工作代码。
我正在尝试更改表单上菜单栏的颜色。
我找到了这个网站并提供了一些建议:
https://www.experts-exchange.com/questions/20150240/Color-on-the-MainMenu.html
我将代码本身粘贴在下面。
不幸的是,它并不是我想要的那样工作。缺点是:
-
颜色仅适用于菜单项,最后一个菜单项右侧的剩余空间为灰色。我已经将“表单颜色”设置为与菜单相同,但是并没有改变。
-
每个菜单下拉菜单中的某些条目都应被禁用,如果我不应用着色代码,则它们将正确显示为禁用。应用颜色更改会消除这种视觉效果,并且它们的颜色与菜单下拉菜单中的所有其他条目相同。
我的问题是:
-
是否有一个预卷菜单对象,可以让我轻松地为菜单栏上色,包括右侧的空白区域,并保留显示禁用的属性?
-
如果没有,有人可以为我指出正确的方向,说明我需要对代码进行哪些其他更改以解决上述问题?
我是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;
解决方法
我没有完整的答案,但是您确实说过可以从那里“谷歌搜索”。
您的代码仅将自定义绘图例程应用于菜单项。如果您还想绘制菜单栏本身,则需要为此自定义绘制例程。标准的TMenu OwenerDraw允许您接收菜单项的事件。菜单确实具有窗口句柄,这意味着您可以对其进行绘制,理想情况下,您希望它停止对所做的任何更改进行过度绘制。看看TMenu绘画的源代码(我还没来得及做),看看是否可以发现需要重写的内容。
TMenu将包装Windows的常规菜单处理,因此您可能可以找出Windows如何允许您绘制菜单然后实施该菜单。 (相当多的谷歌搜索!)
关于已启用/已禁用的反馈,您可以在on draw事件中绘制任何所需的图形。如果要在禁用TMenuItem时以视觉方式显示其他内容,请检查是否已禁用,然后绘制所需的内容。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。