; ステータスバーを表示するモジュール Ver.1.0
; 
; (C)2005-2006 AHD
; 
; このスクリプトはHSP3専用です

#uselib "comctl32.dll"
#func global InitCommonControls "InitCommonControls"

#module __sttbar__

#deffunc sttdisp array partpos		;ステータスバー(だけ)を表示

InitCommonControls

winobj "msctls_statusbar32","",0,0x50000003
hStatus = objinfo_hwnd(stat)

chkstt=length(partpos)
num=chkstt
if(chkstt=0):num=0:partpos=-1

sendmsg hStatus, 0x0404, num, varptr(partpos)

return

#deffunc sttmes int meshndl,str STATUS	;ステータスバーに文字列を表示

sendmsg hStatus, 0x0401, meshndl, STATUS

return

#global