|目次前ページ次ページ|
─────────────────────────────────────
55.イメージコントロール(表示面)(TImage)の使い方 
─────────────────────────────────────
 [1]イメージコントロール(表示面)(TImage)オブジェクトの作成
      →共通ルーチン【ZVCMIMG】 
   ※(TImage)は親フォーム上にグラフィックイメージを表示します。 
   ※ビットマッブや図形の描画を保持する表示ウィンドウ 
   ※【自分で再描画する必要はありません】
   ※イメージコントロール(TImage)は(TCanvas)オブジェクトを持っており描画コマンドが使えます 
  @予期しない値がセットされていないようにローカル変数を削除します[D KILL^ZVCMSUB] 
  Aイベントマスクを設定します、例では[V2EVENT^ZVCMIMG]ですが->適切に設定 
  Brectパラメタを作成します。[D SETRECT^ZVCMIMG] 
     (x,y,w,h):位置サイズ情報(行桁サイズモードに設定後) 
     (color):エデットコントロールの色番号(Colorプロパティ) 
     -->指定なしの場合デフォルトの色 
     (font):コントロールのフオント番号(Fontプロパティ) 
     -->指定なしの場合(null)[font=501]のVcom のデフォルトサイズフオントをセット[SETRECTにおいて] 
     -->0:指定の場合デフォルトのフオント 
     (その他のプロパティ):(zorder,TabOrder,TabStop)...は必要があれば設定します。 
     ※[D SETRECT^ZVCMIMG] -> rectstrが作成される
  C[D CREATE^ZVCMIMG]で使用されるパラメタを設定する 
     ※[S cid=(1〜1023の一意の番号)]
     ※[S form=(1〜1023の親フォームのフォーム番号)]
     ※[S parent=(1〜1023の親コントロールのcid番号)]
     ※[S group=(0〜32767のグループ番号)]
     ※[S pm3=中のコントロールに応じて自動サイズ変更(AutoSize) 
             0:自動サイズ変更しない 
             1:自動サイズ変更する 
     ※[D CREATE^ZVCMIMG]コントロールオブジェクトの作成
  Dキャンバス描画コマンド 
   ◆※コマンドコードが 1100以上 1199迄の場合は イメージコントロールのキャンバスに 
    描画されます(その場合コントロール種別をイメージコントロールに設定してください) 
   ◆(キャンバスオブジェクトを作成する必要はありません)
     ※【(TCanvas)の記述を参照】してください 
  Eイベント応答メッセージからコントロールの中に表示されているテキストを取得する
     ※イベント種別=通常イベントは処理しません 
     ※イベント応答メッセージを読み込む[S RESP=$$ReadMsg^ZVCMSUB(Rtail)
     ※読み込んだ(受信)イベント応答メッセージを分解する[D VCMRESP^ZVCMSUB]
     ※(Revent2):イベント種別
     ※(Rselcnt):0
     ※(Rmain):null
     ※(Roption):ピクセルX ; ピクセルY ; テキストX ; テキストY 
─────────────────────────────────────
 [2]イメージコントロール(表示面)(TImage)オブジェクトのイベント
      →共通ルーチン【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 
───────────────────────────────────
               55-1
     |目次前ページ次ページ