如何使 Edit1.Font.Charset 与主题（视觉样式）一起使用

Question

如果您有一个带有 TEdit“TestEdit”的非主题、非 Unicode VCL 应用程序，并将 TestEdit.Font.Charset 设置为 RUSSIAN_CHARSET TestEdit 将显示西里尔字符。但是，如果您将应用程序切换为使用主题，这将不再起作用。请尝试以下操作来查看：

1. 创建一个新的 VCL 应用程序。
2. 关闭默认的Unit1而不保存。
3. 将项目源代码 (Project1.pas) 替换为本文底部的代码，并保存为 CharsetTest.pas。
4. 取消选中项目选项中的运行时主题。
5. 运行程序，单击单选按钮，观察编辑框的字体。
6. 现在检查项目选项中的运行时主题或将 XPMan 添加到使用子句中。
7. 重复步骤 5。

我的问题是：有没有办法让应用程序即使在主题化时也遵循字符集？ （无需切换到 Unicode。）

program CharsetTest;

uses
  Windows,
  Classes,
  Graphics,
  Controls,
  Forms,
  Dialogs,
  StdCtrls,
  ExtCtrls;

{$R *.res}

type
  TForm1 = class(TForm)
  private
    CharsetRadioGroup: TRadioGroup;
    TestEdit: TEdit;
    procedure CharsetRadioGroupClick(Sender: TObject);
  public
    constructor Create(AOwner: TComponent); override;
  end;

constructor TForm1.Create(AOwner: TComponent);
begin
  inherited CreateNew(AOwner);

  BorderWidth := 8;
  Caption := 'Charset Test';
  ClientHeight := 180;
  ClientWidth := 250;

  CharsetRadioGroup := TRadioGroup.Create(Self);
  CharsetRadioGroup.Name := 'CharsetRadioGroup';
  CharsetRadioGroup.Height := 105;
  CharsetRadioGroup.Align := alTop;
  CharsetRadioGroup.Caption := 'Charset';
  CharsetRadioGroup.Parent := Self;
  CharsetRadioGroup.Items.Add('Default');
  CharsetRadioGroup.Items.Add('Russian');
  CharsetRadioGroup.Items.Add('Greek');
  CharsetRadioGroup.OnClick := CharsetRadioGroupClick;

  TestEdit := TEdit.Create(Self);
  TestEdit.Name := 'TestEdit';
  TestEdit.Align := alBottom;
  TestEdit.Font.Size := 20;
  TestEdit.Font.Name := 'Courier New';
  TestEdit.Text := 'äöüÄÖÜß';
  TestEdit.Parent := Self;

  CharsetRadioGroup.ItemIndex := 1;
end;

procedure TForm1.CharsetRadioGroupClick(Sender: TObject);
begin
  case CharsetRadioGroup.ItemIndex of
    0:
      TestEdit.Font.Charset := DEFAULT_CHARSET;
    1:
      TestEdit.Font.Charset := RUSSIAN_CHARSET;
    2:
      TestEdit.Font.Charset := GREEK_CHARSET;
  end;
end;

var
  Form1: TForm1;

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Answer 1

不是直接答案，但您可以使用 TMS Unicode 控件 添加 Unicode 支持编辑，并将应用程序的其余部分保留原样。几年前，我们这样做是为了在单个组合框中获得支持，而且开销还不错。

TMS 包所基于的原始 TNT Unicode 库可在此处，但 TMS 并不昂贵，而且自从购买以来他们已经做了很多改进。

Answer 2

这似乎是 Windows 编辑控件的问题：

• 编辑控件和字符集以及 XP
• XPMan 字符集问题（尝试 2）

在我们升级到最新的（阅读“启用 Unicode”）Delphi 之前，我们的一些客户将不得不忍受没有主题的生活。