程序员经验分享-hwhale

在 TOpenDialog 中右键单击文件时，使用自定义样式会显示无效字符

2024-01-05

请参阅以下步骤进行重现。在 XE2 中运行良好，但在 XE8 中运行不佳。

  1. 创建新的 VCL 表单应用程序 - Delphi
  2. Place a TButton and a TOpenDialog在表格上
  3. 在按钮中OnClick事件调用OpenDialog1.Execute
  4. 运行程序，打开文件对话框，然后右键单击文本文件 => 显示菜单项 ok
  5. 转到项目/选项/应用程序/外观。启用并选择自定义样式（例如“Ruby Graphite”）并重新编译
  6. 运行程序，打开文件对话框，然后右键单击文本文件 => 无法正确显示菜单项（显示无效字符）

使用 XE8 订阅更新 1 进行测试（Windows 从 8.1 升级到 10）


Windows 10 在负责绘制 shell 弹出菜单的代码中引入了一些内部更改。所以必须修改VCL Style代码才能兼容Windows 10。我刚刚报告将此信息发送给 EMB https://quality.embarcadero.com/browse/RSP-11682

作为解决方法，您可以使用VCL 样式实用程序 https://github.com/RRUZ/vcl-styles-utils解决此问题的项目（只需添加Vcl.Styles.Utils.Menus单元到您的项目）。

检查下一个图像，左侧弹出菜单使用标准VCL样式，右侧菜单使用VCL Styles Utils项目。

本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)

Delphi

Windows10

delphixe8

vclstyles

topendialog

在 TOpenDialog 中右键单击文件时，使用自定义样式会显示无效字符 的相关文章

  • 在 Delphi 中淡入 alpha 混合 PNG 表单

    几年前 当 Vista 首次发布时 我曾提出过这个问题 但始终没有解决这个问题 并把它搁置起来 留待以后再考虑 我有一个启动屏幕 我花了很大力气让它看起来很棒 这是 32bpp alpha 混合的 PNG 我有一些代码 如果需要 我可以挖掘

  • 如何读取和更改 TEdit 控件的值？

    我有一个表格TForm1有 5TEdit and 2 TBitBtn 我还需要该程序 以便在输入数字数据后Edit1 and Edit2 on BitBtn1Click Edit1 and Edit2值将被求和并显示在Edit3 你想做这样

  • 如何在拥有句柄时检查给定进程是否正在运行

    我在用ShellExecuteEx启动应用程序 成功开始阅读后TShellExecuteInfo hProcess获取已启动进程的句柄 我想定期检查我的应用程序启动的进程是否仍在运行 两个或多个同名进程可以同时运行 我想确保我的应用程序正在

  • 如果加载 dll 找不到依赖项，有什么方法可以捕获错误吗？

    我正在编写一个 Windows 32 位程序 可以使用多个可能的 dll 之一 所以它尝试依次加载每个 dll 使用SysUtils SafeLoadLibrary如果加载成功 它就会使用该 dll 不幸的是 其中一些 dll 静态链接到其

  • TFrame继承重构

    我提出的另一个 TFrame IDE 注册组件问题 感谢各位程序员的帮助 尝试 Darrian 的 TFrame 继承建议here https stackoverflow com questions 382562 delphi visual

  • Delphi Prism 中 TStringList 的替代品。

    我正在将用 Delphi 2007 Net 编写的应用程序迁移到 Delphi Prism 哪个是替换 TStringList 和 TStrings 类的最佳选择 提前致谢 Bye 只需使用 NET 框架中内置的 List 类型 或者字符串

  • 为什么 TImage 旋转我的图像？

    编写一个移动应用程序 它从安全网站提取图像 如下所示 第一个图像 提取不正确 注意网络版本与移动版本 第二个图像在网站上正确显示 但 Delphi TImage 由于某种原因正在旋转它我不明白为什么 旋转设置为 0 并且在 TImage 组

  • FireDac 添加下划线 1 以区分具有相同名称的 2 个列名

    我有一个连接 2 个表的选择 因此这些表中存在具有相似名称的列 因此现在在检索结果时 FireDac 将下划线 1 添加到第二个列名称以区分这两个表 Select from Table1 inner join Table2 on Table

  • Delphi XE4 中是否可以更改应用程序短标题而不使其与项目 dpr 名称相同？

    我正在编写我的第一个由 delphi 驱动的 iPhone 应用程序 我已经创建了它 但我希望将其命名为 dpr 文件名称以外的名称 因为 dpr 文件不能包含空格 例如 EXE 名称并不总是与人们可能分配给应用程序的人类可读名称相同 而在

  • Windows 10：任务栏中的图标大小错误

    从 Windows 10 开始 任务栏中的图标大小似乎为 24x24px 如果 Windows 选择图标文件中的 24px 版本进行显示 那么这不会有问题 但它选择了 32px 版本并将其缩小 这会导致丑陋的伪像 尤其是当你的图标中有直线时

  • 将字符串作为 PChar 从 CSharp 传递到 Delphi DLL

    我正在尝试将字符串从 C 传递到 Delphi 构建的 DLL Delphi DLL 需要 PChar 这是Delphi导出 procedure DLL Message Location PChar AIntValue integer st

  • 我有进程 ID，需要使用 Delphi 5 以编程方式关闭关联进程

    任何人都可以帮我提供一个编码示例 以便在我拥有进程 ID 时关闭关联的进程 我将使用 Delphi 5 在 Windows 2003 服务器上以编程方式执行此操作 如果您有进程 ID 并希望强制终止该进程 可以使用以下代码 function

  • Firebird 或 NexusDB

    我知道有很多与 Delphi 数据库相关的问题 但我只考虑这两个数据库 我需要查询大约 100 000 条记录 根据您的经验 哪个更快 作为嵌入式 as C S Thanks 我还没用过 Nexus tbh 但我经常使用 Firebird

  • Windows 上的 git 忽略文件名大小写更改 [重复]

    这个问题在这里已经有答案了 我有一个reactjs应用程序 我正在将所有文件名标准化为小写以符合Nodejs 最佳实践 https devcenter heroku com articles node best practices stic

  • 让线程在窗体关闭时保持运行

    我在我的应用程序上创建了一个同步线程 我想知道如果我关闭申请表 是否有办法让该线程保持打开状态 直到完成同步过程 调用线程的WaitFor方法在您的 DPR 文件中 之后Application Run线 如果线程已经运行完毕 那么WaitF

  • 如何将 Delphi Chromium Embedded (TChromium) 组件的声音静音？

    我需要将某个声音静音TChromium组件来制作无声浏览器 主要问题是在 Windows XP 上 当我将浏览器的声音静音时 它会静音整个系统的声音 有没有办法让电脑静音TChromium成分 我已经成功使用以下代码 procedure C

  • 在该对象调用的事件期间销毁该对象

    我有一个按钮 它的 OnClick 事件调用一个销毁按钮的过程 但随后 线程 想要返回到 OnClick 事件 并且我遇到了访问冲突 我完全被难住了 您需要在按钮的所有代码执行完毕后销毁该按钮 执行此操作的标准方法是将用户定义的消息发布到表

  • Delphi：如何计算大文件的 SHA 哈希值

    您好 我需要生成 5 Gig 文件的 SHA 您知道有一个非基于字符串的 Delphi 库可以做到这一点吗 你应该使用DCPcrypt v2 http www cityinthesky co uk cryptography html读取缓冲

  • 在 tlistbox 中绘制缩略图

    在 DelphiXE 中 我使用 tFileOpenDialog 选择一个文件夹 然后在 tListBox 中列出该文件夹中的所有 jpg 文件 我允许将列表项拖放到列表中进行自定义排序 以便稍后按顺序显示它们 我希望能够在文件名旁边绘制图

  • 构建机器是否需要单独的 Delphi XE4 许可证？

    用于通过以下方式构建应用程序dcc32在构建服务器上我可以使用 Delphi Trial 这种方法的许可证没有任何问题 现在 我将通过以下方式在 TeamCity 上构建 Delphi XE4 应用程序msbuild 我是否需要拥有构建机器

随机推荐

  • 熊猫数据框条件更改

    我正在处理 csv 时间序列数据 它显示每个时间范围内的步数 一旦步数超过 65535 它将从 0 开始计数 等等 但是 由于并非所有数据集都有 65535 计数 有些从 65530 开始 然后是 5 如果他们在时间范围内走了几个步骤 我不

  • 将 MATLAB 轴移动半步

    我正在尝试定位 MATLAB 的刻度以与我的网格对齐 但我找不到偏移标签的好方法 另外 如果我跑set gca XTickLabel 1 10 我的 x 刻度标签最终的范围为 1 到 5 这给出了什么 您需要移动刻度 但先获取标签并在移动后

  • 如何检测 iframe 大小调整？

    我有一个页面 其功能可以将此页面中的 iframe 高度调整为 iframe 内容的高度 但是当 iframe 具有切换操作时 高度会发生变化 并且该函数不会检测 iframe 的大小调整 有没有办法检测我的 iframe 内容是否发生变化

  • 为什么缓存控制：最大年龄不起作用？

    我正在倾斜http标头 并且我想在 缓存控制 字段上运行测试 所以我构建了一个只有默认页面的asp net网站 在这个页面中 我正在测试 缓存控制 字段 其 Page Load 中的代码如下 Response AddHeader Cache

  • 跨平台.Net？ [关闭]

    Closed 这个问题不符合堆栈溢出指南 help closed questions 目前不接受答案 如果您要编写一个在本地运行并调用 Web 服务的 GUI 应用程序 以实现跨平台 您可以使用 Net 来完成吗 您会推荐哪些工具 我正在考

  • 从 Backbone.js 模型中删除属性

    有没有办法从 a 中删除属性Backbone http documentcloud github com backbone model 原因是我在保存时传递了额外的数据来执行某些操作 但随后该数据会自动添加到我的模型中 文档说不要直接编辑

  • 为什么某些 SQLite 方法需要 Object[] 形式的参数，而其他方法则需要 String[] 形式？

    我对它的设计很好奇Android SQLite API http developer android com reference android database sqlite SQLiteDatabase html 例如 我们有 publ

  • 是时候通过 9600 波特串行发送 32KB 了？

    我想知道我的数学是否正确 如果我的波特率为 9600 那么这意味着每秒发送 9600 位 对吧 如果是这样 那么 9600 bit sec lt gt 1000 ms 9600 bit 0 1042 ms bit 因此 发送 32KB 应该

  • Cocoa Touch 中的协调控制器设计模式

    我正在创建一个带有大量自定义视图的 iOS 应用程序 因此 使用默认的 Cocoa 视图不是一个选项 然后 我决定和协调 中介控制器设计模式 在 Apress Pro Objective C Design Patterns for iOS

  • 主动配置

    Visual Studio 项目中的确切位置是活动配置 release debug等 存储 我相当确定它存储在 suo 文件中 它是一个二进制文件 存储各种用户 计算机特定设置 您可以找到有关此文件的更多信息here http msdn m

  • Git 哈希对象在 Powershell、CMD 和 Bash 中产生不同的 SHA1？

    我认为无论平台如何 SHA1 值都是相同的 我今天遇到了这个问题 希望我能在这里得到一些澄清 我的测试字符串是 Apple Pie In Bash echo Apple Pie git hash object stdin 23991897e

  • IP分片与重组

    我目前正在浏览我的网络幻灯片 想知道是否有人可以帮助我了解碎片和重组的概念 我了解它是如何工作的 即数据报如何被分割成更小的块 因为网络链接有一个 MTU 然而图片中的例子让我感到困惑 因此 前两部分显示的长度为 1500 因为这是 MSU

  • Promise 解析为子流 stdout 并拒绝子流 stderr

    我想建立一个使用以下命令生成子进程的承诺require child process spawn 该过程将其输出流式传输到stdout及其错误stderr 我希望承诺 reject child stderr stream or its dat

  • 如何通过特定选择来组织 Backbone 集合？

    我有一系列物品 我想跟踪当前的选择 当用户单击集合中的不同项目时 我想指示该项目已被选中并显示所选项目的详细信息 将此视为具有详细视图的列表 就像典型的电子邮件客户端 Example of a master detail layout so

  • 除了提交表单之外，在失去焦点时触发 html5 电子邮件验证器

    我有一个电子邮件输入字段 我使用 ajax 检查电子邮件是否已存在于我的数据库中 以防止该电子邮件输入失去焦点 我想在进行 ajax 调用之前确保输入的电子邮件格式正确 我可以使用 html5 内置电子邮件验证器来执行此操作还是必须编写自己

  • 如何引用使用无服务器框架创建的 AWS lambda 函数的 Arn 和名称

    我正在使用 Serverless Framework 创建 lambda 函数 并希望能够在 serverless yml 的其他部分交叉引用其 Arn 和名称 我很惊讶我发现这个有多困难 因为如果 lambda 是通过普通的 CloudF

  • VSCode 无法识别较新的 CSS

    VSCode 会在它无法识别的 CSS 下生成一条波浪线 例如 justify self start 无法识别命名网格线 这 col 给它带来问题 例如 grid template columns repeat 6 col 150px 我尝

  • CMD For 循环不保存 set /a 值

    不知道如何很好地解释这一点 所以这是代码 echo off set test 0 for f a in textfile txt do rem loops five times 5 lines in textfile txt set a t

  • 发送电子邮件时更改文本（字符串）的颜色

    当我将文本 字符串 输出到电子邮件时 我试图更改它的颜色 我的代码是 String appdata txtFromSpinner location getText date getText start getText finish getT

  • 在 TOpenDialog 中右键单击文件时，使用自定义样式会显示无效字符

    请参阅以下步骤进行重现 在 XE2 中运行良好 但在 XE8 中运行不佳 创建新的 VCL 表单应用程序 Delphi Place a TButton and a TOpenDialog在表格上 在按钮中OnClick事件调用OpenDia

热门标签