【とりあえず】初めての方。足跡どうぞ【足跡】

161：ＪＵＮ：2015/03/06(金) 22:47:10: １４７様

ＪＵＮです。いつもご教示ありがとうございます。
変換候補文字のフォント設定ですが、一応動作しましたので、
報告します。JUNLIB.zip Ver1.4 としてＵＰいたしました。
ImmGetCompositionFont でファイル名称の取得は、うまくいかないの
ですが、設定は可能でした。ソースリストを書いておきますので、
不具合があれば、またお教えください。

sub FEP_ON()
'
' 機能日本語入力モードに設定します
' フォント設定を追加
'
SETIMEMODE 1
'
'
IMH& = GETHWND
'
' 日本語入力用のコンテキストハンドルを取得
'
MH&= WinApi_ImmGetContext( IMH& )
'
' 変換ウィンドウでの文字の表示に現在使われている論理フォントに関する情報を取得
'
API_STS&=ImmGetCompositionFont( MH& , lplf )
'
' フォント情報の設定
'
lplf.lfHeight = G_CRT_FSIZE!
lplf.lfWidth = 0
lplf.lfFaceName = string$( LF_FACESIZE, chr$( 0) )
mid$( lplf.lfFaceName , 1, len(G_CRT_FNAME$) ) = G_CRT_FNAME$
'
' 変換ウィンドウに表示する文字に使う論理フォントを設定
'
API_STS&=ImmSetCompositionFont( MH& , lplf )
'
' コンテキストハンドルを開放
'
ApiReturn& = WinApi_ImmReleaseContext( IMH& , MH& )
'
end sub

新着レスの表示

※書き込む際の注意事項はこちら

※画像アップローダーはこちら

（画像を表示できるのは「画像リンクのサムネイル表示」がオンの掲示板に限ります）

掲示板管理者へ連絡無料レンタル掲示板