掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
指定のフォントを表示するには？ (ID:33558)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
皆さんありがとうございます。 こちらでもいろいろ試しているのですが。 現状ではうまくいっていません。 procedure TForm1.DrawCanvas(Image: TImage; X: Integer; Y: Integer; WS : WideString); begin TextOutW(Image.Canvas.Handle, X, Y, PWideChar(WS), Length(PWideChar(WS))); end; procedure TForm1.Button1Click(Sender: TObject); begin DrawCanvas(Image1, 10, 30, WideChar($BBF8) + WideChar($C548)); DrawCanvas(Image1, 10, 10, WideChar($4F60) + WideChar($597D)); end; 上記コードでImageに 韓国語、中国語が表示されています。 フォントの指定はしていませんが、Formのフォントは ［MS ゴシック、標準、１０、日本語］ です。 Edit1.Textの入力について Edit1.Text := 'xxx'; コードで入力したときのEdit1 の表示は文字化けします。 IMEから直接入力したときの表示は文字化けしません。 Edit1.Text のデータを表示する方法がわかりません。 Utf8ToUnicode とか UTF8Decode あたりを使ってみましたが 型があっていないのかコンパイルでエラーが出てしまいます。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.