HSPTV!掲示板

    test = "あいうえおかきくけこ"
     buffer 1
          font "HG創英角ゴシックUB",26,16
          print test
          a = ginfo(14)
     gsel
     font "HG創英角ゴシックUB",26,16
     print a

mesやprintをする前に、ginfo(14)、出力される文字のXサイズを得るのはどうすればいいでしょうか？
strlenの出力される文字のXサイズ版みたいなのが欲しいのですが。
上のスクリプトでも可能ですが、文字を書かなくてはならない分遅くなってしまうので。

GetTextExtentPoint32を使いましょう。

#module
#uselib "gdi32.dll"
#func GetTextExtentPoint32 "GetTextExtentPoint32A" int,int,int,int
#deffunc messize var tBuf,array tSize
notesel tBuf
repeat notemax
noteget tBuf2,cnt
	tBuf3=tBuf2
	txtLen=strlen(tBuf3)
	dim tSize,2
	GetTextExtentPoint32 hdc,varptr(tBuf3),txtLen,varptr(tSize)
	if cnt=0:x=tSize(0)
	if x<tSize(0):x=tSize(0)
	loop
	tSize(0)=x
	tSize(1)=tSize(1)*notemax
	return
#global

textBuf="tes\ntnofgfggfgi"
messize textBuf,textSize
color 200,200,200
boxf 0,0,textSize(0),textSize(1)
color
mes textBuf

助かりました。ありがとうございます。
GetTextExtentPoint32なんていうのがあるんですね。勉強になりました。