|目次前ページ次ページ|
─────────────────────────────────────
20.ラベル(TLabel)の使い方 
─────────────────────────────────────
 [1]ラベル(TLabel)オブジェクトの作成
      →共通ルーチン【ZVCMLBL】 
  @予期しない値がセットされていないようにローカル変数を削除します[D KILL^ZVCMSUB] 
  Aイベントマスクを設定します、例では[V2EVENT^ZVCMLBL]ですが->適切に設定 
  Brectパラメタを作成します。[D SETRECT^ZVCMLBL] 
     (x,y,w,h):位置サイズ情報(行桁サイズモードに設定後) 
     (color):エデットコントロールの色番号(Colorプロパティ) 
     -->指定なしの場合デフォルトの色 
     (font):コントロールのフオント番号(Fontプロパティ) 
     -->指定なしの場合(null)[font=501]のフオントをセット[SETRECTにおいて] 
     -->0:指定の場合デフォルトのフオント 
     (その他のプロパティ):(zorder,TabOrder,TabStop)...は必要があれば設定します。 
     ※[D SETRECT^ZVCMLBL] -> rectstrが作成される
  Cコントロールの中に表示するテキストをeditパラメタに設定します。[editstr] 
     ※[S editstr="文字列"]
  D[D CREATE^ZVCMLBL]で使用されるパラメタを設定する 
     ※[S cid=(1〜1023の一意の番号)]
     ※[S form=(1〜1023の親フォームのフォーム番号)]
     ※[S parent=(1〜1023の親コントロールのcid番号)]
     ※[S group=(0〜32767のグループ番号)]
     ※[S pm1=(テキストの横方向の配置) 
             0:(デフォルト) 
             1:左端によせる 
             2:右端によせる 
             3:中央 
     ※[S pm2=(テキストの縦方向の配置) 
             0:中央(デフォルト) 
             1:上端によせる 
             2:中央 
             3:下端によせる 
     ※[D CREATE^ZVCMLBL]コントロールオブジェクトの作成
  E作成後エデットコントロールの中に表示するテキストを変更する。
     ※[S cid=(1〜1023の一意の番号)]
     ※[S editstr="文字列"]
     ※[D TEXT^ZVCMLBL]コントロールのテキストを変更する
  Fイベント応答メッセージからコントロールの中に表示されているテキストを取得する
     ※イベント種別=通常イベントは処理しません 
     ※イベント応答メッセージを読み込む[S RESP=$$ReadMsg^ZVCMSUB(Rtail)
     ※読み込んだ(受信)イベント応答メッセージを分解する[D VCMRESP^ZVCMSUB]
     ※(Revent2):イベント種別
     ※(Rselcnt):0
     ※(Rmain):ラベルの文字列(コントロールコードは"?"に変換されます)
─────────────────────────────────────
 [2]ラベル(TLabel)オブジェクトのイベント
      →共通ルーチン【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  
───────────────────────────────────
               20-1
     |目次前ページ次ページ