Webdingsのレ点を描画したい

解決

studio-take 2012-10-10 00:46:52 No: 43144

StringGridで１列目にフォント名Webdingsのレ点（=a）を描画して、
チェックを実現したいのですが、OnDrawCellでコーディングしても
「a」が表示されてしまいます。

if ACol = 1 then
TStringGrid(Sender).Canvas.Font.Name := 'Webdings'
else
TStringGrid(Sender).Canvas.Font.Name := 'ＭＳＰゴシック';

日本語フォントは、変更可能みたいですが、TimesNewRomanとか英語フォントが反映されないみたいなんですが。

igy 2012-10-10 01:33:56 No: 43145

FontのCharsetプロパティに SYMBOL_CHARSET を指定してもダメですか？

studio-take 2012-10-10 04:43:43 No: 43146

ありがとうございます。
うまくいきました。

begin
TStringGrid(Sender).Canvas.Font.Name := 'Webdings';
TStringGrid(Sender).Canvas.Font.Charset := 2;//'SYMBOL_CHARSET';
end
else
begin
TStringGrid(Sender).Canvas.Font.Name := 'ＭＳＰゴシック';
TStringGrid(Sender).Canvas.Font.Charset := 128;//'SHIFTJIS_CHARSET';
end;