｜目次｜前ﾍﾟｰｼﾞ｜次ﾍﾟｰｼﾞ｜
─────────────────────────────────────
２１．ﾊﾟﾈﾙ(TPanel)の使い方 
─────────────────────────────────────
 [1]ﾊﾟﾈﾙ(TPanel)ｵﾌﾞｼﾞｪｸﾄの作成
　　　   →共通ルーチン【ZVCMPNL】 
  �@予期しない値がｾｯﾄされていないようにローカル変数を削除します[D KILL^ZVCMSUB] 
  �Aｲﾍﾞﾝﾄﾏｽｸを設定します、例では[V2EVENT^ZVCMPNL]ですが-＞適切に設定 
  �Brectﾊﾟﾗﾒﾀを作成します。[D SETRECT^ZVCMPNL] 
     (x,y,w,h):位置サイズ情報(行桁サイズモードに設定後) 
     (color):ｴﾃﾞｯﾄｺﾝﾄﾛｰﾙの色番号(Colorﾌﾟﾛﾊﾟﾃｨ) 
     --＞指定なしの場合ﾃﾞﾌｫﾙﾄの色 
     (font):ｺﾝﾄﾛｰﾙのﾌｵﾝﾄ番号(Fontﾌﾟﾛﾊﾟﾃｨ) 
     --＞指定なしの場合(null)[font=501]のVcom のﾃﾞﾌｫﾙﾄｻｲｽﾞﾌｵﾝﾄをｾｯﾄ[SETRECTにおいて] 
     --＞0:指定の場合ﾃﾞﾌｫﾙﾄのﾌｵﾝﾄ 
     (その他のﾌﾟﾛﾊﾟﾃｨ):(zorder,TabOrder,TabStop)...は必要があれば設定します。 
     ※[D SETRECT^ZVCMPNL] -＞ rectstrが作成される
  �Cｺﾝﾄﾛｰﾙの中に表示するテキストをeditﾊﾟﾗﾒﾀに設定します。[editstr] 
     ※[S editstr="文字列"]
  �D[D CREATE^ZVCMPNL]で使用されるﾊﾟﾗﾒﾀを設定する 
     ※[S cid=(1〜1023の一意の番号)]
     ※[S form=(1〜1023の親ﾌｫｰﾑのﾌｫｰﾑ番号)]
     ※[S parent=(1〜1023の親ｺﾝﾄﾛｰﾙのcid番号)]
     ※[S group=(0〜32767のｸﾞﾙｰﾌﾟ番号)]
     ※[S opt=3D(Ctl3D) 
          0:3D指定なし 
          1:3D指定
     ※[S pm1=内側ﾍﾞﾍﾞﾙ(BevelInner) 
          0:ﾃﾞﾌｫﾙﾄ 
          1:窪んだ形 
          2:盛り上がった形 
          3:ｽﾍﾟｰｽ 
          4:無し  
     ※[S pm2=外側ﾍﾞﾍﾞﾙ(BevelOuter) 
          0:ﾃﾞﾌｫﾙﾄ 
          1:窪んだ形 
          2:盛り上がった形 
          3:ｽﾍﾟｰｽ 
          4:無し  
     ※[S pm3=ﾍﾞﾍﾞﾙ幅(BevelWidth) 
          0:ﾃﾞﾌｫﾙﾄ 
          1-＞5?:ﾍﾞﾍﾞﾙﾄﾞｯﾄ幅  
     ※[S pm4=ﾎﾞｰﾀﾞｽﾀｲﾙ(BorderStyle) 
          0:ﾃﾞﾌｫﾙﾄ 
          1:ｼﾝｸﾞﾙﾎﾞｰﾀﾞ 
          2:ﾎﾞｰﾀﾞ無し 
     ※[S pm5=ﾎﾞｰﾀﾞ幅(borderWidth) 
          0:ﾃﾞﾌｫﾙﾄ 
          1-＞5?:ﾎﾞｰﾀﾞ幅  
     ※[S pm6=文字列の表示(Alignment) 
          0:左詰めで文字列を表示 
          1:中央に文字列を表示 
          2:右詰めで文字列を表示 
     ※[D CREATE^ZVCMPNL]ｺﾝﾄﾛｰﾙｵﾌﾞｼﾞｪｸﾄの作成
  �E作成後ｴﾃﾞｯﾄｺﾝﾄﾛｰﾙの中に表示するテキストを変更する。
     ※[S cid=(1〜1023の一意の番号)]
     ※[S editstr="文字列"]
     ※[D TEXT^ZVCMPNL]ｺﾝﾄﾛｰﾙのテキストを変更する
  �Fｲﾍﾞﾝﾄ応答ﾒｯｾｰｼﾞからｺﾝﾄﾛｰﾙの中に表示されているテキストを取得する
     ※ｲﾍﾞﾝﾄ種別=通常イベントは処理しません 
     ※ｲﾍﾞﾝﾄ応答ﾒｯｾｰｼﾞを読み込む[S RESP=$$ReadMsg^ZVCMSUB(Rtail)
     ※読み込んだ(受信)ｲﾍﾞﾝﾄ応答ﾒｯｾｰｼﾞを分解する[D VCMRESP^ZVCMSUB]
     ※(Revent2):ｲﾍﾞﾝﾄ種別
     ※(Rselcnt):0
     ※(Rmain):ﾊﾟﾈﾙの文字列(ｺﾝﾄﾛｰﾙｺｰﾄﾞは"?"に変換されます)
─────────────────────────────────────
 [2]ﾊﾟﾈﾙ(TPanel)ｵﾌﾞｼﾞｪｸﾄのｲﾍﾞﾝﾄ
　　　   →共通ルーチン【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] 
─────────────────────────────────────
mask1= 8  : (11)フォーカスを失う時応答(ﾋﾞｯﾄ3) 
　※ｲﾍﾞﾝﾄ設定変数を設定  →  D KILLFOCUS^ZVCMEVENT 
　※ﾘｽﾎﾟﾝｽ応答ﾒｯｾｰｼﾞ中のｲﾍﾞﾝﾄｺｰﾄﾞ→ [Revent2=EV2Exit],[Revent1=EV1Exit] 
　※ 【通常発生しない】
─────────────────────────────────────
mask1= 16 : (12)フォーカスを得る時応答(ﾋﾞｯﾄ4) 
　※ｲﾍﾞﾝﾄ設定変数を設定  →  D SETFOCUS^ZVCMEVENT 
　※ﾘｽﾎﾟﾝｽ応答ﾒｯｾｰｼﾞ中のｲﾍﾞﾝﾄｺｰﾄﾞ→ [Revent2=EV2Enter],[Revent1=EV1Enter] 
　※ 【通常発生しない】
─────────────────────────────────────
mask2= 64 : (22)マウス左ダブルクリック応答(ﾋﾞｯﾄ6) 
　※ｲﾍﾞﾝﾄ設定変数を設定  →  D LEFTDBL^ZVCMEVENT 
　※ﾘｽﾎﾟﾝｽ応答ﾒｯｾｰｼﾞ中のｲﾍﾞﾝﾄｺｰﾄﾞ→ [Revent2=EV2DblClick],[Revent1=EV1DblClick] 
─────────────────────────────────────
　※ｲﾍﾞﾝﾄﾏｽｸを設定       →  D SETEVENT^ZVCMEVENT 
───────────────────────────────────
　　　　　　　　　　　　　  21-1
　　　　　｜目次｜前ﾍﾟｰｼﾞ｜次ﾍﾟｰｼﾞ｜