从 Delphi 中的视图创建屏幕截图 10?

Create a screenshot from the View in Delphi 10?

我想从 Delphi10 中的查看功能创建屏幕截图,而不必将应用程序编译到目标设备,然后在目标设备上对应用程序进行屏幕截图。这将让我创建模型以供批准,而不必为每个示例屏幕编译到每个设备。感谢所有帮助。

这将允许您在 Windows.

运行 移动 风格
  1. 将您当前的移动样式保存在文件中 (*.style)
  2. 在记事本中打开此文本文件并找到 PlatformTarget 例如 PlatformTarget = '[ANDROID][DARKSTYLE][DEFINEFONTSTYLES]'
  3. 替换为 PlatformTarget = '[MSWINDOWS][DARKSTYLE][DEFINEFONTSTYLES]' 保存。
  4. 将此样式作为 Windows 样式加载到样本中。 现在您将在 windows.
  5. 上看到移动样式

如果 firemonkey 由于系统 dpi 较大而缩放形式并使其变大 - 将此行粘贴到 dpr 文件中(项目 > 查看源代码)。

GlobalUseGPUCanvas := true; Application.Initialize;

这将禁用缩放。

另一种方式 - 您可以在 Windows 上使用 NOX 模拟器,并从此处获取屏幕截图。

P.s。 - 不要使用 Delphi Tokyo 来开发 Android 应用程序 - 它会使应用程序变慢、不稳定和错误(或等待 Tokyo 更新)。使用上一个 Delphi 版本 - 柏林更新 2.