gpt4 book ai didi

delphi - TActionMainMenuBar 和 TActionToolbar 丢失设置

转载 作者:行者123 更新时间:2023-12-03 14:46:54 33 4
gpt4 key购买 nike

我最近偶然发现了一种非常奇怪的行为。当我在程序中使用 TActionMainMenuBar(或 TActionToolBar)、编译并运行,然后启动 Photoshop CS5 或 Internet Explorer 9 时,ActionMainMenuBar(和 ActionToolBar)会丢失其所有设置。指定颜色图中定义的颜色消失,字体设置也丢失。有人以前见过这个并知道解决方法吗?

D2007 Pro(应用所有更新)、D2010 Pro(应用所有更新)、Vista Home Premium 32 位、NVidia GForce 8600 GT,已安装最新驱动程序。

重现步骤:

  1. 将 TActionManager 和 TActionMainMenuBar 拖放到表单上
  2. 创建包含一些菜单项的类别
  3. 将类别拖到 ActionMainMenuBar
  4. 将 TwilightColorMap 分配给 ActionMainMenuBar
  5. 运行程序
  6. 启动 IE9 或 Photoshop CS5
  7. 看着所有预定义设置消失(您必须再次关闭 IE9 才能看到效果)

如果先启动 Photoshop 或 IE,然后再启动 Delphi 程序,则不会发生任何情况。在 IDE 的设计模式下也存在该错误。一位开发人员同事已经通过 Win7 Pro 32 位和 ATI Radeon 9800 Pro 确认了他的系统所描述的行为。

感谢任何评论/解决方案

菲尔

PS:使用 Photoshop CS3 不会产生此错误

最佳答案

这是重现问题的另一种方法:

  • 完成问题中的步骤 1 到 4(包括删除 TwilightColorMap)。
  • 使用代码  Perform(WM_SETTINGCHANGE, 0, 0); 将按钮添加到表单中在其点击处理程序中。
  • 运行应用程序并按下按钮。


现在我们知道 WM_SETTINGCHANGE广播可能是导致问题的原因,我们可能想知道启动 IE 是否会产生相同的结果:

type
TForm1 = class(TForm)
..
protected
procedure WMSettingChange(var Message: TWMSettingChange);
message WM_SETTINGCHANGE;
..

procedure TForm1.WMSettingChange(var Message: TWMSettingChange);
begin
Memo1.Lines.Add(IntToHex(Message.Flag, 4) + ', ' + Message.Section);
inherited;
end;

运行应用程序并启动 IE 后,几秒钟后,备忘录中将显示以下内容:

0000, Software\Microsoft\Internet Explorer\SearchScopes

我不知道每次启动时 IE 都会对我们的表单(以及所有其他顶级窗口)说些什么,而且我不知道它是否在地球上的每个 Windows 盒子上或只是你和我的 Windows 盒子上都这样做,但显然 ActionMainMenuBar不擅长处理它。


一个win控件(表单),接收WM_WININICHANGE ,执行CM_WININICHANGE并在收到后向其所有控件广播相同的内容。下面是菜单栏的处理方式:

procedure TCustomActionMainMenuBar.CMWininichange(var Message: TWMWinIniChange);
begin
inherited;
RequestAlign;
Font.Assign(Screen.MenuFont);
end;

认为系统菜单字体可能已更改(代码应该在消息中查找“WindowsThemeElement”或“WindowMetrics”部分,但无论如何..),它是从刷新的 Screen.MenuFont 重新分配的。 。问题是,我们并没有完全使用它。

此外,ColorMap 响应 CM_WININICHANGE通过调用 UpdateColors 重置其颜色方法。这甚至是documented :

UpdateColors is called automatically when an ActionBand component receives a CM_WININICHANGE message.

<小时/>因此,解决方案将涉及决定要做什么并覆盖这两种行为,我尝试评论以下解决方案,以了解为什么我相信这将是正确的解决方案:

type
// Derive your own ColorMap that would reset its own colors.
// This is an interposer for simplicity..
TTwilightColorMap = class(actncolormaps.TTwilightColorMap)
public
procedure UpdateColors; override;
published
property Color default clGreen;
property FontColor default clYellow;
property MenuColor default $4488FF;
// reintroduce as many property as necessary, probably all is necessary..
end;

TForm1 = class(TForm)
..
private
FSaveMenuFont: TFont; // will hold initial main menu bar's font settings
protected
procedure WMSettingChange(var Message: TWMSettingChange);
message WM_SETTINGCHANGE;
end;

..

procedure TForm1.FormCreate(Sender: TObject);
begin
FSaveMenuFont := TFont.Create;
FSaveMenuFont.Assign(ActionMainMenuBar1.Font);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
FSaveMenuFont.Destroy;
end;

procedure TForm1.WMSettingChange(var Message: TWMSettingChange);
begin
inherited;
// The below are the *section*s that really changing system settings
// would notify that I'm aware of, there may be more...
if (Message.Section <> 'WindowsThemeElement')
or (Message.Section <> 'WindowMetrics') then
ActionMainMenuBar1.Font.Assign(FSaveMenuFont)
else
// Develop your logic here. The system menu font might really have been
// changed. You can get it from Screen.MenuFont. But then if we had been
// using the system font, the control already applies the change by default.

end;

procedure TTwilightColorMap.UpdateColors;
begin
inherited;
// Reset your colors, note that system colors might have been
// changed or not. If changed, they should be reflected in 'cl..' constants.
Color := clGreen;
FontColor := clYellow;
MenuColor := $4488FF;
end;

关于delphi - TActionMainMenuBar 和 TActionToolbar 丢失设置,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/9577540/

33 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com