｜目次｜前ﾍﾟｰｼﾞ｜次ﾍﾟｰｼﾞ｜
─────────────────────────────────────
２８．ｽﾃｰﾀｽﾊﾞｰ(TStatusBar)の使い方 
─────────────────────────────────────
 [1]ｽﾃｰﾀｽﾊﾞｰ(TStatusBar)ｵﾌﾞｼﾞｪｸﾄの作成
　　　   →共通ルーチン【ZVCMSTB】(ﾌｫｰﾑの下端にﾒｯｾｰｼｾを表示する) 
  �@予期しない値がｾｯﾄされていないようにローカル変数を削除します[D KILL^ZVCMSUB] 
  �Aｲﾍﾞﾝﾄﾏｽｸを設定します、例では[V2EVENT^ZVCMSTB]ですが-＞適切に設定 
  �Brectﾊﾟﾗﾒﾀを作成します。[D SETRECT^ZVCMSTB] 
     (x,y,w,h):位置サイズ情報(行桁サイズモードに設定後) 
     --＞yは無視されﾌｫｰﾑの下端に作成されます
     (color):ｴﾃﾞｯﾄｺﾝﾄﾛｰﾙの色番号(Colorﾌﾟﾛﾊﾟﾃｨ) 
     --＞指定なしの場合ﾃﾞﾌｫﾙﾄの色 
     (font):ｺﾝﾄﾛｰﾙのﾌｵﾝﾄ番号(Fontﾌﾟﾛﾊﾟﾃｨ) 
     --＞指定なしの場合(null)[font=501]のﾌｵﾝﾄをｾｯﾄ[SETRECTにおいて] 
     --＞0:指定の場合ﾃﾞﾌｫﾙﾄのﾌｵﾝﾄ 
     (その他のﾌﾟﾛﾊﾟﾃｨ):(zorder,TabOrder,TabStop)...は必要があれば設定します。 
     ※[D SETRECT^ZVCMSTB] -＞ rectstrが作成される
  �Cｺﾝﾄﾛｰﾙの中に表示するテキストをeditﾊﾟﾗﾒﾀに設定します。[editstr] 
     ※[S editstr="文字列"]
  �D[D CREATE^ZVCMSTB]で使用されるﾊﾟﾗﾒﾀを設定する 
     ※[S cid=(1〜1023の一意の番号)]
     ※[S form=(1〜1023の親ﾌｫｰﾑのﾌｫｰﾑ番号)]
     ※[S parent=(1〜1023の親ｺﾝﾄﾛｰﾙのcid番号)]
     ※[S group=(0〜32767のｸﾞﾙｰﾌﾟ番号)]
     ※[S opt=(複数個ﾊﾟﾈﾙﾓｰﾄﾞ)]
     0:表示するﾊﾟﾈﾙは1個のみ(SimplePanel=True) 
     1:表示するﾊﾟﾈﾙは複数個(SimplePanel=False) 
     ※[S pm1=(Allignment複数個ﾊﾟﾈﾙﾓｰﾄﾞ)]
     0:左詰めで文字列を表示(Panels-＞Items[0]-＞Allignment=taLeftJustify) 
     1:中央に文字列を表示(Panels-＞Items[0]-＞Allignment=taCenter) 
     2:右詰めで文字列を表示(Panels-＞Items[0]-＞Allignment=taRightJustify) 
     ※[S pm2=(Bevel複数個ﾊﾟﾈﾙﾓｰﾄﾞ)]
     0:窪んだ形(Panels-＞Items[0]-＞Bevel=bvLowered) 
     1:平坦(Panels-＞Items[0]-＞Bevel=bvNone) 
     2:盛り上がった形(Panels-＞Items[0]-＞Bevel=bvRaised) 
     ※[D CREATE^ZVCMSTB]ｺﾝﾄﾛｰﾙｵﾌﾞｼﾞｪｸﾄの作成(複数個ﾊﾟﾈﾙﾓｰﾄﾞでは1個作成)
  �E作成後ｺﾝﾄﾛｰﾙの中に表示するテキストを変更する。
     ※[S cid=(1〜1023の一意の番号)]
     ※[S editstr="表示する文字列"]
     ※[S action=複数個ﾊﾟﾈﾙﾓｰﾄﾞの指定時ﾊﾟﾈﾙインデックス(0,1,2,...)]
     ※[D TEXT^ZVCMSTB]ｺﾝﾄﾛｰﾙのテキストを変更する
  �F複数個ﾊﾟﾈﾙﾓｰﾄﾞの時指定のｺﾝﾄﾛｰﾙidのｽﾃｰﾀｽﾊﾞｰのﾊﾟﾈﾙを1個追加します 
     ※[S cid=(1〜1023の一意の番号)]
     ※[S rectstr=(位置サイズﾊﾟﾗﾒﾀ[D SETRECT^ZVCMSTB]) 
     ※[S editstr="表示する文字列"]
     ※[S action=複数個ﾊﾟﾈﾙﾓｰﾄﾞの指定時ﾊﾟﾈﾙインデックス(0,1,2,...)]
     ※[S pm1=(Allignment複数個ﾊﾟﾈﾙﾓｰﾄﾞ)]
     0:左詰めで文字列を表示(Panels-＞Items[0]-＞Allignment=taLeftJustify) 
     1:中央に文字列を表示(Panels-＞Items[0]-＞Allignment=taCenter) 
     2:右詰めで文字列を表示(Panels-＞Items[0]-＞Allignment=taRightJustify) 
     ※[S pm2=(Bevel複数個ﾊﾟﾈﾙﾓｰﾄﾞ)]
     0:窪んだ形(Panels-＞Items[0]-＞Bevel=bvLowered) 
     1:平坦(Panels-＞Items[0]-＞Bevel=bvNone) 
     2:盛り上がった形(Panels-＞Items[0]-＞Bevel=bvRaised) 
     ※[D ADD^ZVCMSTB]
  �Gｲﾍﾞﾝﾄ応答ﾒｯｾｰｼﾞからｺﾝﾄﾛｰﾙの中に表示されているテキストを取得する
     ※ｲﾍﾞﾝﾄ種別=通常イベントは処理しません 
     ※ｲﾍﾞﾝﾄ応答ﾒｯｾｰｼﾞを読み込む[S RESP=$$ReadMsg^ZVCMSUB(Rtail)
     ※読み込んだ(受信)ｲﾍﾞﾝﾄ応答ﾒｯｾｰｼﾞを分解する[D VCMRESP^ZVCMSUB]
     ※(Revent2):ｲﾍﾞﾝﾄ種別
     ※(Rselcnt):0
     ※(Rmain):null [2008-4-3]
─────────────────────────────────────
 [2]ｽﾃｰﾀｽﾊﾞｰ(TStatusBar)ｵﾌﾞｼﾞｪｸﾄのｲﾍﾞﾝﾄ
　　　   →共通ルーチン【ZVCMEVENT】 
　　　   →共通ルーチン【ZVCMEVENT7】応答ｲﾍﾞﾝﾄｺｰﾄﾞ定数 
─────────────────────────────────────
◆ ｲﾍﾞﾝﾄﾏｽｸを設定(応答を可にする) 
　※ｲﾍﾞﾝﾄ設定変数を初期化→  D CLEAR^ZVCMEVENT 
─────────────────────────────────────
mask0= 2  : (1)マウス左クリックｲﾍﾞﾝﾄ応答(ﾋﾞｯﾄ1) 
　※ｲﾍﾞﾝﾄ設定変数を設定  →  D CLICK^ZVCMEVENT 
　※ﾘｽﾎﾟﾝｽ応答ﾒｯｾｰｼﾞ中のｲﾍﾞﾝﾄｺｰﾄﾞ→ [Revent2=EV2Click],[Revent1=EV1Click] 
─────────────────────────────────────
mask0= 4  : (2)マウス右クリック(ポップアップ)ｲﾍﾞﾝﾄ応答(ﾋﾞｯﾄ2) 
　※ｲﾍﾞﾝﾄ設定変数を設定  →  D POPUP^ZVCMEVENT 
　※ﾘｽﾎﾟﾝｽ応答ﾒｯｾｰｼﾞ中のｲﾍﾞﾝﾄｺｰﾄﾞ→ [Revent2=EV2RClick],[Revent1=EV1Popup] 
─────────────────────────────────────
mask2= 64 : (22)マウス左ダブルクリック応答(ﾋﾞｯﾄ6) 
　※ｲﾍﾞﾝﾄ設定変数を設定  →  D LEFTDBL^ZVCMEVENT 
　※ﾘｽﾎﾟﾝｽ応答ﾒｯｾｰｼﾞ中のｲﾍﾞﾝﾄｺｰﾄﾞ→ [Revent2=EV2DblClick],[Revent1=EV1DblClick] 
─────────────────────────────────────
　※ｲﾍﾞﾝﾄﾏｽｸを設定       →  D SETEVENT^ZVCMEVENT 
───────────────────────────────────
　　　　　　　　　　　　　  28-1
　　　　　｜目次｜前ﾍﾟｰｼﾞ｜次ﾍﾟｰｼﾞ｜