HSPTV!掲示板

現在、アドベンチャーゲームを作成していて、そのために
バイナリファイルから読み込んだデータを画面に表示する、というプログラムの中で、
文字が一定の場所に来たら改行させたいのですが、
fontで指定されるのは文字の高さですよね。
そのせいで改行(\n)を入れるところがうまくできないのです。

文字の一文字づつの幅、もしくは文字列の右端のX座標を取得できる方法を
どなたかご存じないでしょうか？

>現在、アドベンチャーゲームを作成していて、そのために
>バイナリファイルから読み込んだデータを画面に表示する、というプログラムの中で、
>文字が一定の場所に来たら改行させたいのですが、
>fontで指定されるのは文字の高さですよね。
>そのせいで改行(\n)を入れるところがうまくできないのです。
もし、「ＭＳ ゴシック」をご利用なら、高さ＝幅　です。

文字の一文字づつの幅、もしくは文字列の右端のX座標を取得できる方法を
どなたかご存じないでしょうか？
「Ｐ」がつくのはわかりませんが、「ＭＳ ゴシック」などならわかる方法があります。

	;ＭＳ ゴシックやＭＳ 明朝の場合
	Mojiret="あいうえお"	;文字列
	H = 16			;高さ
	NAGA = strlen(Mojiret) * H	;計算

NAGAに横の長さの合計が入れられます。
ただし、「プロポーショナル」(?)フォントは使用できません。
(「{会社名}Ｐ {フォント名}」見たいなやつ)

修正。
文中にミスがありました

文字の一文字づつの幅、もしくは文字列の右端のX座標を取得できる方法を
どなたかご存じないでしょうか？
「Ｐ」がつくのはわかりませんが、「ＭＳ ゴシック」などならわかる方法があります。

↓

>文字の一文字づつの幅、もしくは文字列の右端のX座標を取得できる方法を
>どなたかご存じないでしょうか？
「Ｐ」がつくのはわかりませんが、「ＭＳ ゴシック」などならわかる方法があります。

すみませんでした。

画面外にmesで出力してginfo_mesx,ginfo_mesyを使う、という手もありますが、
GetTextExtentPoint32を使えば事前に文字列の表示サイズを調べられます。

#module
#uselib "gdi32.dll"
#func GetTextExtentPoint32 "GetTextExtentPoint32A" int,int,int,int
#deffunc GetTxtExtPoint var tBuf,array tSize
	txtLen=strlen(tBuf)
	dim tSize,2
	GetTextExtentPoint32 hdc,varptr(tBuf),txtLen,varptr(tSize)
	return
#global
textBuf="test"
GetTxtExtPoint textBuf,textSize
mes "x="+textSize(0)+" y="+textSize(1)

付属のサンプルスクリプト(mesinfo.hsp)にmes命令で表示した文字列の範囲を調べるものが
あります。

あと、適切な位置に半角スペースなどがあればDrawTextなどを使用するという手も
ありますが少し面倒だし制限があるみたいですね。

なるほど、そのような手段があるのですか。

今回はginfo_mesxを使おうと思います。
皆さん、情報提供まことにありがとうございました。

遅ればせながら資料提供。
つhttp://hspwiki.nm.land.to/?cmd=read&page=String%2F%B6%EB%B7%C1#g095da3b