#ゲッターセッターで「戻る」にバグがあるようなので変更(2007/11/28/10)
#ちょっと変更(2007/11/28/04)

テストバーとは分割ステータスバー
テストバーの分割は「100{~}200{~}300{~}-1」
テストバーは「あ{~}い{~}う」
テストバーの3に「え」をテキスト設定
テストバーのアイテムを表示
テストバーの分割数を表示
テストバーの分割を表示
テストバーの0をテキスト取得を表示
テストバーのテキストを表示

!SB_SETTEXT=$401
!SB_GETTEXT=$402
!SB_GETTEXTLENGTHA=$403
!SB_SETPARTS=$404
!SB_GETPARTS=$406
!SB_SIMPLE=$409
■分割ステータスバー +ウィンドウ部品 +マウスプロパティ
　・種類{="分割ステータスバー"}
　・作る〜
　　オブジェクト=VCL_CREATE(自身,名前,VCL_GUI_STATUSBAR)
　　SendMessage(ハンドル,SB_SIMPLE,0,0)
　・分割　←分割設定　→分割取得
　・{非公開}分割設定({配列}L)〜
　　Pとは文字列;Nとは整数=配列要素数(L);確保(P,(N*4))
　　Lで反復;バイナリ設定(INT(対象),P,(4*(回数-1))+1,"INT")
　　SendMessage(ハンドル,SB_SETPARTS,N,POINTER(P))
　・{非公開}分割取得〜
　　Nとは整数=(分割数);Pとは文字列;確保(P,(N*4));Lとは配列
　　SendMessage(ハンドル,SB_GETPARTS,N,POINTER(P))
　　(N)回;配列追加(L,バイナリ取得(P,(4*(回数-1))+1,"INT"))
　　それ=L
　・分割数〜それ=SendMessage(ハンドル,SB_GETPARTS,255,0)
　・テキスト設定({整数}Nに{文字列}Tを)〜SendMessage(ハンドル,SB_SETTEXT,N,POINTER(T))
　・テキスト取得({整数}Nを)〜
　　Tとは文字列;確保(T,(SendMessage(ハンドル,SB_GETTEXTLENGTHA,N,0)&&$ffff))
　　SendMessage(ハンドル,SB_GETTEXT,N,POINTER(T))
　　それ=T
　・テキスト　←テキスト単設定　→テキスト単取得
　・{非公開}テキスト単取得〜それ=テキスト取得(0)
　・{非公開}テキスト単設定({文字列}T)〜テキスト設定(0,T)
　・アイテム　←アイテム設定　→アイテム取得　デフォルト
　・{非公開}アイテム取得〜
　　Lとは配列
　　(分割数)回;配列追加(L,テキスト取得(回数-1))
　　それ=L
　・{非公開}アイテム設定({配列}L)〜Lで反復;テキスト設定((回数-1),対象)