;======================================
; 文字列のピクセル幅、高さを取得
;--------------------------------------
;
; str_size str,int
;
;	str = ピクセルサイズを取得する文字列
;	int = ピクセル取得するもの
;		0 = 文字列の幅
;		1 = 文字列の高さ
;
;	※ stat = 0 は取得失敗。
;
;======================================
;
;  作：せつき
;  HP：http://www.setsuki.com/
;
;--------------------------------------
#include "llmod.as"

#module
#deffunc str_size str,int
;**************************************
; 文字列のピクセル幅、高さを取得
;**************************************
mref p1,32	;文字列の変数
mref p2,1	;0=width, 1=height
mref bm,67	;bmscr構造体
mref stt,64

//文字列のサイズを取得
strlen blen,p1

dim size,2
prm=bm.4,0,blen,0
getptr prm.1,p1
getptr prm.3,size
dllproc "GetTextExtentPoint32A",prm,4,D_GDI
if stat=0 : return
if p2=1 {
	stt=size.1
} else {
	stt=size.0
}
return
;**************************************
#global

screen 0,300,200

//「こんにちは。」の横幅を取得
str_size "こんにちは。",0

//取得した横幅により文字列を真ん中に表示
pos winx-stat/2,0
mes "こんにちは。"

title "文字列の横幅は、"+stat+"pixel でした。"
stop