问题标签 [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.

0 投票
1 回答
92 浏览

sqlite - Firedac SQLite 返回错误的值

我有一个 SQLite 数据库,其中包含一个名为“玩家”的表。我可以在 DB Browser 中看到表中的数据是正确的,但是在尝试检索数据时,它似乎返回的值与数据库中的值完全不同。

数据库中的值: 76561198113034550

返回值:152768822

我通过以下方式获得价值

这是什么原因造成的,我该如何解决?

0 投票
0 回答
118 浏览

delphi - 如何在 Delphi Alexandria 中设置默认表单字体

刚刚安装了 Delphi 11 (Alexandria) 并开始将我们的项目转换为它(从 10.4 开始,我们尝试保持最新)。我惊讶地发现,我们的像素完美(而且非常拥挤)的数据输入表单有几十个TDBEdits 已经变形了。

经过短暂的研究,我发现在其他更改中,“对于 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所示

我按照上面的网址进行了更改,但没有运气。有没有我可以使用的设置?

0 投票
1 回答
83 浏览

delphi - 如何在 TListview 中使用自定义颜色突出显示苹果和橙子?

在 Delphi 11 Alexandria 的 Windows 10 中的 32 位 VCL 应用程序中,我需要突出显示TListView. 这就是我想要实现的目标:

在此处输入图像描述

到目前为止,如果标题包含“苹果”或“橙子”,我已经设法仅突出显示整个标题,使用以下代码:

...结果如下:

在此处输入图像描述

但是,我只需要突出显示“apples”和“oranges”这两个词。我怎样才能做到这一点?

0 投票
1 回答
98 浏览

delphi - 如何将图像从 TImage 绘制到 TListbox?

我正在尝试创建一个带有图像的列表框。图片将从 TImage 组件中获取;我不想使用 TImageList,因为 TImage 可以处理很多图像类型(png、gif、jpg),而且我不必转换它来填充 Imagelist。

所以我已经将我的列表框样式设置为 lbOwnerDrawVariable 并且我正在尝试将 TImage 中的图像绘制到列表框中。我已将 Image1 的宽度和高度设置为 50,因为这是我希望图像在列表框中具有的大小。

这是我的代码:

但是,它不是将图像放在每个列表框项中,而是在列表框本身内绘制了很多图像,其原始大小而不是 50 ......我的代码有什么问题?

在此处输入图像描述

0 投票
1 回答
84 浏览

delphi - 如何在调整列大小时重新绘制 TListView 列?

在 Delphi 11 Alexandria 的 Windows 10 中的 32 位 VCL 应用程序中,我需要TListView在调整列大小的同时重新绘制整个列。ListView 项目和子项目以 显示ListView.OwnerDraw

所以我对 ListView 进行了子类化,以便在列调整大小时得到通知:

不幸的是,它只在调整列大小的末尾做出反应,而不是在调整列大小时做出反应!此外,该列没有重新粉刷!

0 投票
0 回答
41 浏览

delphi - 如何制作带有缩略图的 FileListBox?

我正在尝试使用缩略图构建文件列表框。为了实现这一点,我正在做:

  1. 用文件夹中的文件馈送 a TListBox
  2. 用缩略图构建一个数组——为此我使用一个临时TImage组件来加载图片并调整它的大小。
  3. 用缩略图绘制列表框。

这是我的代码:使用数组TImage而不是的旧版本TBitmap正在工作,但仅在小文件夹中工作-但在包含 100 多个文件的文件夹中,CPU 运行 100% 并且需要大量时间处理,所以我尝试更改TBitmap为TImage`,但现在我看不到缩略图了。

0 投票
1 回答
68 浏览

delphi - 在 OwnerDrawn TListView.OnDrawItem 事件处理程序中选择 ListItem 时如何模拟 ROWSELECT?

在 Delphi 11 Alexandria 的 Windows 10 中的 32 位 VCL 应用程序中,我在 OwnerDrawn TListView.OnDrawItem 事件处理程序中选择了一个 ListItem,并且我希望选择 ENTIRE UNINTERRUPTED 行。不幸的是,不是整行被选中,而是只有行的标题文本部分被选中:

在此处输入图像描述

这是我需要实现的:

在此处输入图像描述

这是表单单元的代码:

这是表单 DFM 文件的代码:

0 投票
2 回答
86 浏览

delphi - 从 RTF 文件中提取纯文本的函数给出错误的结果

在 Delphi 11 Alexandria 的 Windows 10 中的 32 位 VCL 应用程序中,我需要在 RTF 文件中搜索文本。所以我使用这个函数(在这里找到)从 RTF 文件中提取纯文本:

但是,该函数返回的是 RTF 文件的文件路径,而不是 RTF 文件的纯文本内容!

这个函数有什么问题,我怎样才能有效地从 RTF 文件中提取纯文本而不必使用父TRichEdit控件?

0 投票
1 回答
76 浏览

delphi - Delphi冻结而不是抛出访问冲突异常

我面临一个问题,不是 Dephi 11 应该在它应该生成访问冲突时生成访问冲突,而是由于 CPU 使用率高而冻结,我唯一能做的就是强制关闭应用程序进程。

为了模拟这个问题,我可以使用这个代码:

当然我知道这是一个错误的代码,它应该引发访问冲突,因为 test[2] 不存在。但是发生的事情是冻结,这是任务管理器显示的内容:Delphi 的进程挂在一个核心 cpu 的 100% 上。

为什么会这样?它是一个德尔福错误吗?

在此处输入图像描述

0 投票
1 回答
64 浏览

delphi - 如何在继承的 TPageControl 中更改 TTabSheets 的顺序?

通常我更改 PageControl 中 TabSheets 顺序的方法是:

  1. 右键单击表单并选择“以文本形式查看”

  2. 手动编辑源 DFM 以按所需顺序放置 TabSheets

  3. 右键单击源并选择“以表单形式查看”

虽然很麻烦,但这个过程是有效的。

但是现在,我有了新的情况。我正在使用一个从另一个表单继承的表单,该表单已经有一个带有 2 个 TabSheets 的 PageControl。我需要添加第三个选项卡,但这需要按顺序排列第二个。无论我在 DFM 源代码中做什么,都无法将第二个继承的 TabSheet 更改为 PageControl 中的第三页。

是否有另一种方法可以更改继承表单中 TabSheets 的顺序?