问题标签 [delphi-11-alexandria]
For questions regarding programming in ECMAScript (JavaScript/JS) and its various dialects/implementations (excluding ActionScript). Note JavaScript is NOT the same as Java! Please include all relevant tags on your question; e.g., [node.js], [jquery], [json], [reactjs], [angular], [ember.js], [vue.js], [typescript], [svelte], etc.
sqlite - Firedac SQLite 返回错误的值
我有一个 SQLite 数据库,其中包含一个名为“玩家”的表。我可以在 DB Browser 中看到表中的数据是正确的,但是在尝试检索数据时,它似乎返回的值与数据库中的值完全不同。
数据库中的值: 76561198113034550
返回值:152768822
我通过以下方式获得价值
这是什么原因造成的,我该如何解决?
delphi - 如何在 Delphi Alexandria 中设置默认表单字体
刚刚安装了 Delphi 11 (Alexandria) 并开始将我们的项目转换为它(从 10.4 开始,我们尝试保持最新)。我惊讶地发现,我们的像素完美(而且非常拥挤)的数据输入表单有几十个TDBEdit
s 已经变形了。
经过短暂的研究,我发现在其他更改中,“对于 VCL 应用程序,默认字体现在是 Segoe UI,9 pt。”。我们的表格是为“Tahoma, 8 pt”设计的,以前的默认字体。在运行时,我可以通过在应用程序启动时更改它来修复它Application.DefaultFont
,但是当字体比设计的表单大时,我们不能对表单进行开发工作。
我们所有的表单都使用该ParentFont = True
设置,所以我想更改表单设计器的默认字体。对于较旧的 Delphi 版本,有一个注册表设置可以控制这一点,如https://suretalent.blogspot.com/2011/07/how-to-set-default-form-font-delphi.html所示
我按照上面的网址进行了更改,但没有运气。有没有我可以使用的设置?
delphi - 如何在调整列大小时重新绘制 TListView 列?
在 Delphi 11 Alexandria 的 Windows 10 中的 32 位 VCL 应用程序中,我需要TListView
在调整列大小的同时重新绘制整个列。ListView 项目和子项目以 显示ListView.OwnerDraw
。
所以我对 ListView 进行了子类化,以便在列调整大小时得到通知:
不幸的是,它只在调整列大小的末尾做出反应,而不是在调整列大小时做出反应!此外,该列没有重新粉刷!
delphi - 如何制作带有缩略图的 FileListBox?
我正在尝试使用缩略图构建文件列表框。为了实现这一点,我正在做:
- 用文件夹中的文件馈送 a
TListBox
。 - 用缩略图构建一个数组——为此我使用一个临时
TImage
组件来加载图片并调整它的大小。 - 用缩略图绘制列表框。
这是我的代码:使用数组TImage
而不是的旧版本TBitmap
正在工作,但仅在小文件夹中工作-但在包含 100 多个文件的文件夹中,CPU 运行 100% 并且需要大量时间处理,所以我尝试更改TBitmap
为TImage`,但现在我看不到缩略图了。
delphi - 从 RTF 文件中提取纯文本的函数给出错误的结果
在 Delphi 11 Alexandria 的 Windows 10 中的 32 位 VCL 应用程序中,我需要在 RTF 文件中搜索文本。所以我使用这个函数(在这里找到)从 RTF 文件中提取纯文本:
但是,该函数返回的是 RTF 文件的文件路径,而不是 RTF 文件的纯文本内容!
这个函数有什么问题,我怎样才能有效地从 RTF 文件中提取纯文本而不必使用父TRichEdit
控件?
delphi - 如何在继承的 TPageControl 中更改 TTabSheets 的顺序?
通常我更改 PageControl 中 TabSheets 顺序的方法是:
右键单击表单并选择“以文本形式查看”
手动编辑源 DFM 以按所需顺序放置 TabSheets
右键单击源并选择“以表单形式查看”
虽然很麻烦,但这个过程是有效的。
但是现在,我有了新的情况。我正在使用一个从另一个表单继承的表单,该表单已经有一个带有 2 个 TabSheets 的 PageControl。我需要添加第三个选项卡,但这需要按顺序排列第二个。无论我在 DFM 源代码中做什么,都无法将第二个继承的 TabSheet 更改为 PageControl 中的第三页。
是否有另一种方法可以更改继承表单中 TabSheets 的顺序?