Webdingsのレ点を描画したい

解決

studio-take 2012-10-09 15:46:52 No: 43144 IP: 192.*.*.*

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-09 16:33:56 No: 43145 IP: 192.*.*.*

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

編集削除

studio-take 2012-10-09 19:43:43 No: 43146 IP: 192.*.*.*

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

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;

編集削除