0

Delphi 6 でビルドされた古いアプリケーションがあります。ユーザーが画面のフォントとコードページを変更できるカスタマイズに取り組んでいます。これを行うには、すべてのフォーム、コンテナ、コントロールなどを再帰的に調べます。

これはほとんどの場合機能します。

しかし不思議なことに、TRadioButton でフォントの文字セットを変更できないようです。グループの見出しは正常に機能しますが、内部の項目はフォントを継承しますが、コンテナーの文字セットを継承しません。

グループボックスとアイテム、同じコンテンツを示す例

サンプル テキストは、ANSI エンコードされた中国語、文字セット GB2312 で入力されます。

ExtCtrls のソースを見て、次のようなことを試しました

 TRadioButton(  thegroup.items[i] ).Font.Charset := programFilePrefFont.Charset;

..しかし、それは医療アクセス違反を与えます。

Windows のロケール設定をグローバルに変更すると結果が異なると思いますが、Win10 では難しいです。

TNT で作業できることはわかっていますが、変更には多くの場所が関係しているため、現時点ではありません。これは、ちょっとした好奇心にもなりました。

ご意見ありがとうございます。

4

1 に答える 1