｜目次｜前ﾍﾟｰｼﾞ｜次ﾍﾟｰｼﾞ｜
─────────────────────────────────────
４４．ﾊﾞﾘｭｰﾘｽﾄｴﾃﾞｨﾀ(TValueListEditor)の使い方
─────────────────────────────────────
[1]ﾊﾞﾘｭｰﾘｽﾄｴﾃﾞｨﾀ(TValueListEditor)ｵﾌﾞｼﾞｪｸﾄの作成
→共通ルーチン【ZVCMVLS】【ZVCMVLS2】【ZVCMVLS3】
─────────────────────────────────────
TValueListEditorクラスを使うとユーザーはName=Valueという形式の文字列から
構成される文字列リストを編集できるようになります。
デフォルトでは，「Key」という見出しの列に名前が，
「Value」という見出しの列に値が表示されます。
ただし，これらのラベルはカスタマイズ可能です。
プログラマは，ユーザーが Key 列の文字列を選択，追加，
または編集できるかどうかを制御できます。
Value 列の各エントリでは，ユーザーは文字列の編集や，
値を選択するためのドロップダウンリストの指定，
あるいは値を編集可能なダイアログの提供を行うことができます。
─────────────────────────────────────
①予期しない値がｾｯﾄされていないようにローカル変数を削除します[D KILL^ZVCMSUB]
②ｲﾍﾞﾝﾄﾏｽｸを設定します、例では[V2EVENT^ZVCMVLS]ですが-＞適切に設定
③rectﾊﾟﾗﾒﾀを作成します。[D SETRECT^ZVCMVLS]
(x,y,w,h):位置サイズ情報(行桁サイズモードに設定後)
(color):ｺﾝﾄﾛｰﾙの色番号(Colorﾌﾟﾛﾊﾟﾃｨ)
--＞指定なしの場合ﾃﾞﾌｫﾙﾄの色
(font):ｺﾝﾄﾛｰﾙのﾌｵﾝﾄ番号(Fontﾌﾟﾛﾊﾟﾃｨ)
--＞指定なしの場合(null)[font=498]のﾌｵﾝﾄをｾｯﾄ[SETRECTにおいて]
--＞0:指定の場合ﾃﾞﾌｫﾙﾄのﾌｵﾝﾄ
(keycode):ｷｰﾎﾞｰﾄﾞｲﾍﾞﾝﾄを発生させる終了ｷｰｺｰﾄﾞのｾｯﾄ
--＞0を指定した場合0番のｷｰｾｯﾄを指定した意味
※ｲﾍﾞﾝﾄﾏｽｸ設定でｷｰﾎﾞｰﾄﾞｲﾍﾞﾝﾄを有効に設定しないとｷｰﾎﾞｰﾄﾞｲﾍﾞﾝﾄは発生しません
(その他のﾌﾟﾛﾊﾟﾃｨ):(zorder,TabOrder,TabStop)...は必要があれば設定します。
※[D SETRECT^ZVCMVLS -＞ rectstrが作成される
[④-1]ｸﾞﾘｯﾄﾞ作成情報-1をeditﾊﾟﾗﾒﾀに設定します。[editstr]
--＞ローカル変数を削除します[D KILLEDIT^ZVCMVLS]
※[S defwidth=(明示的にサイズ変更されていない全ての列の幅(桁数)小数点可)]
※[S width=(各Columnの幅(;でColumn数分指定)]
＜- vcomﾗｲﾝ数で指定(小数点可)
--＞ ｲﾝﾃﾞｯｸｽ(0)の幅;ｲﾝﾃﾞｯｸｽ(1)の幅;...;
※[S height=(ﾃﾞﾌｫﾙﾄのRowの高さ)]
＜- vcomﾗｲﾝ数で指定(小数点可)
※[S scroll=ｽｸﾛｰﾙﾊﾞｰの指定]
--＞ 1:無し 2:水平方向 3:垂直方向 4:両方(ﾃﾞﾌｫﾙﾄ)
※[S Lindex=左端に表示されるｽｸﾛｰﾙするColumnのｲﾝﾃﾞｯｸｽ(0,1,2,...)](LeftCol)
※[S Tindex=上端に表示されるｽｸﾛｰﾙするRowのｲﾝﾃﾞｯｸｽ(0,1,2,...)](TopRow)
※[S Fcolor=ｽｸﾛｰﾙしない固定部の色](FixedColor)
--＞ 色コード参照
※[S editmode=ｴﾃﾞｯﾄﾓｰﾄﾞの指定](Options＜＜goEditing)
--＞ 1:ｴﾃﾞｯﾄﾓｰﾄﾞ null:参照のみ
※[S options=ｵﾌﾟｼｮﾝの指定(付加)(;で区切って複数指定)](Options)
--＞ ｵﾌﾟｼｮﾝ;ｵﾌﾟｼｮﾝ;ｵﾌﾟｼｮﾝ;...
1:固定列を分ける垂直線が描画される(goFixedVertLine)
2:固定行を分ける水平線が描画される(goFixedHorzLine)
3:ｽｸﾛｰﾙ可能列を分ける垂直線が描画される(goVertLine)
4:ｽｸﾛｰﾙ可能行を分ける水平線が描画される(goHorzLine)
5:各ｾﾙの範囲を一度に選択できる(goRangeSelect)
6:入力ﾌｫｰｶｽのあるｾﾙは特別な背景色で描画(goDrawFocusSelected)
7:ｽｸﾛｰﾙ可能列は個別にｻｲｽﾞ変更できる(goRowSizing)
8:ｽｸﾛｰﾙ可能行は個別にｻｲｽﾞ変更できる(goColSizing)
9:ｽｸﾛｰﾙ可能列は個別にﾏｳｽで移動できる(goRowMoving)
10:ｽｸﾛｰﾙ可能行は個別にﾏｳｽで移動できる(goColMoving)
11:ｾﾙの内容を変更できる(goEditing)
12:[Tab]および[Shift]+[Tab]ｷｰで各ｾﾙ間を移動できる(goTabs)
13:各ｾﾙではなく行全体を選択する(goRowSelect)
14:ｸﾞﾘｯﾄﾞは編集ﾓｰﾄﾞにロックされる(goAlwaysShowEditor)
15:ｽｸﾛｰﾙﾎﾞｯｸｽをﾄﾞﾗｸﾞ中ｸﾞﾘｯﾄﾞｲﾒｰｼﾞが更新される(goThumbTracking)
※[S delopts=ｵﾌﾟｼｮﾝの指定(削除)(;で区切って複数指定)
--＞ ｵﾌﾟｼｮﾝ;ｵﾌﾟｼｮﾝ;ｵﾌﾟｼｮﾝ;...
※[S respkeys=各行の左からのｷｰの個数(1)]
※[D SETEDIT^ZVCMVLS]ｸﾞﾘｯﾄﾞ作成情報を作成
※[S editstr=EDITSTR]
[④-2]ｸﾞﾘｯﾄﾞ作成情報-2をpm1ﾊﾟﾗﾒﾀに設定します。[pm1str]
※[S DisplayOptions=(ﾊﾞﾘｭｰﾘｽﾄｴﾃﾞｨﾀの概観の属性(1;2;3)の様に複数指定可)]
--＞ 1:先頭行はｷｬﾌﾟｼｮﾝを表示する固定行(非ｽｸﾛｰﾙ)(doColumnTitle)
--＞ 2:ｴﾃﾞｨﾀをｻｲｽﾞ変更すると列幅に完全に収まる様に自動調整(doAutoColResize)
--＞ 3:ｷｰ列は固定されている(ｻｲｽﾞ変更すると値列のみ変更)(doKeyColFixed)
※[S DropDownRows=(選択ﾘｽﾄを備えた値に表示されるﾄﾞﾛｯﾌﾟﾀﾞｳﾝﾘｽﾄの長さ)]
--＞ﾃﾞﾌｫﾙﾄ値=8
※[S KeyOptions=(ﾕｰｻﾞのｷｰｽﾄﾛｰｸに応答する方法(1;2;3)の様に複数指定可)]
--＞ 1:ｷｰ列の値を編集出来る(＜＜keyEdit)
--＞ 2:新しいｷｰ/値の列を追加出来る(＜＜keyadd)
--＞ 3:＜delete＞ｷｰでｷｰ/値の列を削除出来る(＜＜keyDelete)
--＞ 4:重複名の名前ｷｰ/値の列を作成出来ない(例外発生)(＜＜keyUnique)
※[S KeyCaption=(ｷｰ列に表示ﾀｲﾄﾙを指定する)(TitleCaptions-＞Strings[0])]
※[S ValueCaption=(値列に表示ﾀｲﾄﾙを指定する)(TitleCaptions-＞Strings[1])]
※[D SETPM1^ZVCMVLS]ｸﾞﾘｯﾄﾞ作成情報を作成
※[S pm1str=PM1STR]
⑤[D CREATE^ZVCMGRD]で使用されるﾊﾟﾗﾒﾀを設定する
※[S cid=(1～1023の一意の番号)]
※[S form=(1～1023の親ﾌｫｰﾑのﾌｫｰﾑ番号)]
※[S parent=(1～1023の親ｺﾝﾄﾛｰﾙのcid番号)]
※[S group=(0～32767のｸﾞﾙｰﾌﾟ番号)]
※[S editstr=(ﾊﾞﾘｭｰﾘｽﾄｴﾃﾞｨﾀ作成ﾊﾟﾗﾒﾀ-1)]
※[S pm1str=(ﾊﾞﾘｭｰﾘｽﾄｴﾃﾞｨﾀ作成ﾊﾟﾗﾒﾀ-2)]
※[D CREATE^ZVCMVLS]ｺﾝﾄﾛｰﾙｵﾌﾞｼﾞｪｸﾄの作成
⑥作成後ﾊﾞﾘｭｰﾘｽﾄｴﾃﾞｨﾀｺﾝﾄﾛｰﾙの中に表示する表データを追加する。
※[S cid=(1～1023の一意の番号)]
※[S start=開始rowｲﾝﾃﾞｯｸｽ(0,1,2,3,...)]
※[D APPEND^ZVCMVLS2]ｺﾝﾄﾛｰﾙの中に表示するデータを追加
※[W "ｷｰ文字列-0=値文字列-0"_$C(13)_$C(10)]
※[W "..."]
※[W "ｷｰ文字列-n=値文字列-n"_$C(13)_$C(10)]
※[W $C(26)
⑦ｲﾍﾞﾝﾄ応答ﾒｯｾｰｼﾞからｺﾝﾄﾛｰﾙの中に選択されているセルを取得する
※ｲﾍﾞﾝﾄ種別=セルが選択イベントと編集されるｲﾍﾞﾝﾄで処理します
※ｲﾍﾞﾝﾄ応答ﾒｯｾｰｼﾞを読み込む[S RESP=$$ReadMsg^ZVCMSUB(Rtail)
※読み込んだ(受信)ｲﾍﾞﾝﾄ応答ﾒｯｾｰｼﾞを分解する[D VCMRESP^ZVCMSUB]
※(Revent2):ｲﾍﾞﾝﾄ種別
※(Rselno):カレントカラム(桁)【最新の選択情報】
※(Rselcnt):カレントロー(行)【最新の選択情報】
※(Rmain):カレントセルの文字列
※[Rsub]:null
※[Roption]:選択セルの矩形(左端;上端;右端;下端;Col数;Row数)(0,1,2...の値)
---＞グリッドのセルが選択されたｲﾍﾞﾝﾄ応答時[選択矩形情報は選択される前の情報]
---＞Col数;Row数は固定部とスクロール可能なものを含みます
※(Rkeycode):ｷｰﾎﾞｰﾄﾞｲﾍﾞﾝﾄ時仮想ｷｰｺｰﾄﾞ
※(Rshift):シフト状態 0:無し 1:シフト 2:ｺﾝﾄﾛｰﾙ 4:＜ALT＞の組み合わせ
※【(61)左上端のセルが変更されたイベント】の場合は
※[Rselno] = 左端カラム(桁)
※[Rselcnt] = 上端ロー(行)
※[Rmain] = 左上端セルの文字列
⑧【留意点】ｺﾏﾝﾄﾞに対する【ｱﾝｻｰ応答ﾒｯｾｰｼﾞ】が送信されてくるものがあります
※D STRINGLIST^ZVCMVLS3-＞選択リストに表示する項目リストをｽﾄﾘﾝｸﾞﾘｽﾄから設定
※D LOADFILE^ZVCMVLS3-＞ﾃｷｽﾄﾌｧｲﾙから項目リストを取得する
※D SAVEFILE^ZVCMVLS3-＞項目リストをﾃｷｽﾄﾌｧｲﾙに保存する
※D LOADSTREAM^ZVCMVLS3-＞選択リストをｽﾄﾘｰﾑから読み込み
※D SAVESTREAM^ZVCMVLS3-＞選択リストをｽﾄﾘｰﾑに保存
⑨PickList[選択肢ﾘｽﾄ]を表示するには以下のようにします
S cid=xxx,editstr="$3$$",pos=nnn D ITEMPROP^ZVCMVLS2-＞[選択肢ﾘｽﾄを表示出来る]
S cid=xxx,editstr="選択肢-1$選択肢-2$選択肢-3$",pos=nnn D PICKLIST^ZVCMVLS2
またはｽﾄﾘﾝｸﾞﾘｽﾄｵﾌﾞｼﾞｪｸﾄを作成しておき
S cid=xxx,srccid=yyy,pos=nnn D STRINGLIST^ZVCMVLS3
─────────────────────────────────────
[2]ﾊﾞﾘｭｰﾘｽﾄｴﾃﾞｨﾀ(TValueListEditor)ｵﾌﾞｼﾞｪｸﾄのｲﾍﾞﾝﾄ
→共通ルーチン【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]
─────────────────────────────────────
mask0= 8 : (3)キーボードｲﾍﾞﾝﾄ応答(ﾋﾞｯﾄ3)
※ｲﾍﾞﾝﾄ設定変数を設定 → D KEYBORD^ZVCMEVENT
※ﾘｽﾎﾟﾝｽ応答ﾒｯｾｰｼﾞ中のｲﾍﾞﾝﾄｺｰﾄﾞ→ [Revent2=EV2Keybord],[Revent1=EV1Keybord]
─────────────────────────────────────
mask0= 128 : (7)グリッドのセルが選択された(ﾋﾞｯﾄ7)[選択矩形情報は選択される前の情報]
※ｲﾍﾞﾝﾄ設定変数を設定 → D SELECTCELL^ZVCMEVENT
※ﾘｽﾎﾟﾝｽ応答ﾒｯｾｰｼﾞ中のｲﾍﾞﾝﾄｺｰﾄﾞ→ [Revent2=EV2SelCell],[Revent1=EV1SellCell]
─────────────────────────────────────
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]
─────────────────────────────────────
mask7= 1 : (56)文字列が変更された(ValueList)(ﾋﾞｯﾄ0)(StringsChange)
--＞ 文字列ﾘｽﾄ内の名前または値が変更された直後【発生しない】
※ｲﾍﾞﾝﾄ設定変数を設定 → D STRINGCHANGE^ZVCMEVENT
※ﾘｽﾎﾟﾝｽ応答ﾒｯｾｰｼﾞ中のｲﾍﾞﾝﾄｺｰﾄﾞ→ [Revent2=EV2StringsCng],[Revent1=EV1Other]
─────────────────────────────────────
mask7= 2 : (57)編集される(ValueList)(ﾋﾞｯﾄ1)(SetEditText)【頻繁に発生】
--＞ ﾕｰｻﾞがｾﾙの値を編集した時(または値セルのカレント位置を変更した)
--＞ [セルが選択されたｲﾍﾞﾝﾄ]の後に選択される前の編集されたセルのｲﾍﾞﾝﾄが発生します
※ｲﾍﾞﾝﾄ設定変数を設定 → D SETEDITTEXT^ZVCMEVENT
※ﾘｽﾎﾟﾝｽ応答ﾒｯｾｰｼﾞ中のｲﾍﾞﾝﾄｺｰﾄﾞ→ [Revent2=EV2SetEdit],[Revent1=EV1Other]
─────────────────────────────────────
mask7= 4 : (58)ローが移動(ValueList)(ﾋﾞｯﾄ2)(RowMoved)
--＞ ｸﾞﾘｯﾄﾞ内の行の位置が変更された時(Optionﾌﾟﾛﾊﾟﾃｨで可能設定)
※ｲﾍﾞﾝﾄ設定変数を設定 → D ROWMOVED^ZVCMEVENT
※ﾘｽﾎﾟﾝｽ応答ﾒｯｾｰｼﾞ中のｲﾍﾞﾝﾄｺｰﾄﾞ→ [Revent2=EV2RowMoved],[Revent1=EV1Other]
─────────────────────────────────────
mask7= 32 : (61)左上端のセルが変更された(ValueList)(ﾋﾞｯﾄ5)(TopLeftChanged)
--＞ ｸﾞﾘｯﾄﾞ内の非固定セルがｽｸﾛｰﾙされた時
※ｲﾍﾞﾝﾄ設定変数を設定 → D TOPLEFTCHANGE^ZVCMEVENT
※ﾘｽﾎﾟﾝｽ応答ﾒｯｾｰｼﾞ中のｲﾍﾞﾝﾄｺｰﾄﾞ→ [Revent2=EV2TopLeftCng],[Revent1=EV1Other]
─────────────────────────────────────
mask7= 64 : (62)編集ボタンがクリック(ValueList)(ﾋﾞｯﾄ6)(EditButtonClick)
--＞ ﾕｰｻﾞがｾﾙ上の省略符号ﾎﾞﾀﾝをｸﾘｯｸか
省略符号ﾎﾞﾀﾝ付きの値ｾﾙにﾌｫｰｶｽがある時[ctrl]+[Enter]を押す
※ｲﾍﾞﾝﾄ設定変数を設定 → D EDITBTNCLICK^ZVCMEVENT
※ﾘｽﾎﾟﾝｽ応答ﾒｯｾｰｼﾞ中のｲﾍﾞﾝﾄｺｰﾄﾞ→ [Revent2=EV2EditBtnClc],[Revent1=EV1Other]
─────────────────────────────────────
mask7= 128 : (63)セルの編集を終了した(ValueList)(ﾋﾞｯﾄ7)(Validate)
--＞ ﾌｫｰｶｽがセルから離れると発生【編集完了時に発生】
※ｲﾍﾞﾝﾄ設定変数を設定 → D VALIDATE^ZVCMEVENT
※ﾘｽﾎﾟﾝｽ応答ﾒｯｾｰｼﾞ中のｲﾍﾞﾝﾄｺｰﾄﾞ→ [Revent2=EV2Validate],[Revent1=EV1Other]
─────────────────────────────────────
※ｲﾍﾞﾝﾄﾏｽｸを設定 → D SETEVENT^ZVCMEVENT
───────────────────────────────────
44-1
｜目次｜前ﾍﾟｰｼﾞ｜次ﾍﾟｰｼﾞ｜