掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
IEの特殊文字をricheditに貼り付けるには (ID:12562)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
procedure TForm1.Button1Click(Sender: TObject); var W1, W2 : WChar; Pw1,Pw2 : WideString; h : integer; aCanvas : TCanvas; begin aCanvas := Image1.Canvas; W1 := WChar($00AE); W2 := WChar($8A21); Pw1 := w1; Pw2 := w2; // 'ＭＳ Ｐゴシック' Image1.Height := 50; Image1.Width := 100; aCanvas.Font.Size := 20; aCanvas.Brush.Color := clWhite; aCanvas.font.Name := 'Arial'; aCanvas.font.Color := clblack; aCanvas.FillRect(Image1.ClientRect); h := aCanvas.TextWidth(PW1) ; if CheckBox1.Checked then // Canvas.TextOut だとなぜか？ Ｒとなる begin aCanvas.TextOut(1,1, PwideChar(Pw1)); aCanvas.font.Name := 'ＭＳ ゴシック'; aCanvas.TextOut(1+h,1, PwideChar(Pw2)); end else // 直接 TextOutW を呼ぶと○＋Ｒが書き込める begin Windows.TextOutW(aCanvas.Handle,1,1, PwideChar(Pw1),1); aCanvas.font.Name := 'ＭＳ ゴシック'; Windows.TextOutW(aCanvas.Handle,1+h,1, PwideChar(pw2),1); end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.