Delphi形式的Unicode TRectangle TText

Question

我是 Delphi 的新手，在 DelphiXE4 编辑器中我正在尝试在表单上制作棋盘 gui，使用 x64 TRectangle 作为棋盘（替代颜色）。我想添加 unicode 棋子，但是在 ObjectInspector 属性中，当我添加 unicode 时，它​​会在表单上逐字显示。如何将 Unicode 添加到 TText（以便表单将 unicode 显示为棋子）？ （在我想将拖放添加到 TRectangles/unicode 国际象棋之后 - 有什么想法吗？）。

Rectangle63: TRectangle;
Rectangle64: TRectangle;
Text1: TText;
Text2: TText;

这是显示问题的屏幕截图：

非常感谢您的帮助，谢谢

编辑： Jeroen 的回答为我解决了这个问题（我通过将实际的 unicode 棋子图像复制/粘贴到 TText 文本属性中来解决这个问题）。到目前为止，我添加了 exe 的屏幕截图。接下来我想将 DRAGNDROP 添加到这些片段中.....

编辑2： （已修复 Jeroen 字体大小问题） 修复了 unicode black king 显示-见截图：

Answer 1

Unicode Chess Pieces 可以在任何 Delphi 应用程序中显示，前提是您喜欢在 Unicode 中包含 Glyphs 的各种 CodePoints 代表 Chess Pieces。

其实，什么平台，什么开发环境都无所谓 你可以使用，只要它们支持 Unicode 并且你有正确的字体。

你需要：

1. 一种输入这些 Unicode 代码点的方法
2. 在您的目标平台上将这些 Unicode 代码点表示为字形的字体

从最后一个开始，对于Microsoft Windows，这些字体可以正常工作：

• Segoe UI
• Tahoma
• Arial Unicode MS

Microsoft Windows 有两种输入方法：

1. 如果您在注册表中启用它：在键盘上通过Alt-codes 输入hexadecimal Unicode CodePoint 数字
2. copy/paste 它们来自以文本形式提供它们的应用程序（即Unicode Input: Selection from Screen）

对于复制/粘贴，我经常使用支持 Unicode 的 Web Browser 转到包含正确字符的网页，或者使用 Character Map 应用程序搜索它们。

为了使复制/粘贴更容易：

• 这些是白色碎片：♔♕♖♗♘♙
• 这些是黑色碎片：♚♛♜♝♞♟

FireMonkey 表单示例，所有部分都在 1 TText 中 TTRectangle：

object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 480
  ClientWidth = 640
  FormFactor.Width = 320
  FormFactor.Height = 480
  FormFactor.Devices = [dkDesktop, dkiPhone, dkiPad]
  DesignerMobile = False
  DesignerWidth = 0
  DesignerHeight = 0
  DesignerDeviceName = ''
  DesignerOrientation = 0
  object Rectangle1: TRectangle
    Height = 50.000000000000000000
    Width = 80.000000000000000000
    object Text1: TText
      Color = claBlack
      Height = 50.000000000000000000
      Text = #9812#9813#9814#9815#9816#9817#9818#9819#9820#9821#9822#9823
      Width = 80.000000000000000000
    end
  end
end

编辑

我认为您的表单文件中存在字体大小问题。使用表单文件的文本创建一个新问题。有两种方法：

1. 打开记事本，并在记事本中打开表单随附的 .FMX 文件；将文本复制到剪贴板
2. 在 Delphi 中，右键单击表单然后选择“查看为文本”，选择所有文本并将其复制到剪贴板，右键单击您的表单文本然后选择“查看为表单”。

将代码粘贴到http://pastebin.com/ 或https://gist.github.com/，然后在新问题中发布该链接。在您在这里发表评论之后，我会看看。