｜目次｜前ﾍﾟｰｼﾞ｜次ﾍﾟｰｼﾞ｜
─────────────────────────────────────
３９．ﾏﾝｽｶﾚﾝﾀﾞ(TManthCalender)の使い方
─────────────────────────────────────
[1]ﾏﾝｽｶﾚﾝﾀﾞ(TManthCalender)ｵﾌﾞｼﾞｪｸﾄの作成
→共通ルーチン【ZVCMCAL】
TMonthCalendar を使うと，
ユーザーは Windows 組み込みのカレンダーコントロールを使って
特定の日付または日付の範囲を指定できます。
TMonthCalendar は，システムロケールに従って日付を表示します。
①予期しない値がｾｯﾄされていないようにローカル変数を削除します[D KILL^ZVCMSUB]
②ｲﾍﾞﾝﾄﾏｽｸを設定します、例では[V2EVENT^ZVCMCAL]ですが-＞適切に設定
③rectﾊﾟﾗﾒﾀを作成します。[D SETRECT^ZVCMCAL]
(x,y,w,h):位置サイズ情報(行桁サイズモードに設定後)
(color):ｺﾝﾄﾛｰﾙの色番号(Colorﾌﾟﾛﾊﾟﾃｨ)
--＞指定なしの場合ﾃﾞﾌｫﾙﾄの色
(font):ｺﾝﾄﾛｰﾙのﾌｵﾝﾄ番号(Fontﾌﾟﾛﾊﾟﾃｨ)
--＞指定なしの場合(null)[font=501]のﾌｵﾝﾄをｾｯﾄ[SETRECTにおいて]
--＞0:指定の場合ﾃﾞﾌｫﾙﾄのﾌｵﾝﾄ
(keycode):ｷｰﾎﾞｰﾄﾞｲﾍﾞﾝﾄを発生させる終了ｷｰｺｰﾄﾞのｾｯﾄ
--＞0を指定した場合0番のｷｰｾｯﾄを指定した意味
※ｲﾍﾞﾝﾄﾏｽｸ設定でｷｰﾎﾞｰﾄﾞｲﾍﾞﾝﾄを有効に設定しないとｷｰﾎﾞｰﾄﾞｲﾍﾞﾝﾄは発生しません
(その他のﾌﾟﾛﾊﾟﾃｨ):(zorder,TabOrder,TabStop)...は必要があれば設定します。
※[D SETRECT^ZVCMCAL] -＞ rectstrが作成される
④ｺﾝﾄﾛｰﾙの作成時ﾌﾟﾛﾊﾟﾃｨ(ﾏﾝｽｶﾚﾝﾀﾞ作成パラメタ)をeditﾊﾟﾗﾒﾀに設定します。[editstr]
--＞[D KILLEDIT^ZVCMCAL]ローカル変数を削除(定義されていないとnullを設定)
※[S Date=選択開始日付]
-＞ yyyymmdd, yyyy.mm.dd, yyyy/mm/dd, yyyy-mm-dd の様に指定
※[S MultiSelect=複数の日付を選択可能]
-＞ 0:単一選択 1:複数の日付を選択
※[S Range=選択可能な日数の最大値]
※[S EndDate=選択終了日付]
-＞ yyyymmdd, yyyy.mm.dd, yyyy/mm/dd, yyyy-mm-dd の様に指定
※[S MinDate=スクロール可能な最小日付]
-＞ yyyymmdd, yyyy.mm.dd, yyyy/mm/dd, yyyy-mm-dd の様に指定
※[S MaxDate=スクロール可能な最大日付]
-＞ yyyymmdd, yyyy.mm.dd, yyyy/mm/dd, yyyy-mm-dd の様に指定
※[S FirstWeek=カレンダの左端に表示される曜日(7:日曜 1:月曜)]
※[S Today=カレンダの下部に今日の日付表示(1:表示 0:非表示)]
※[S TodayCircle=今日の日付を丸く囲む(1:丸く囲む 0:囲まない)]
※[S WeekNo=年初からの週数を左端に表示(1:表示 0:非表示)]
カレンダの各パートに使われる色を色番号で指定
※[S BackColor=月と月の間の背景色]
※[S MonthBackColor=ｶﾚﾝﾀﾞの背景色]
※[S TextColor=日付のﾌｵﾝﾄ]
※[S TitleBackColor=ﾀｲﾄﾙﾊﾞｰの背景色]
※[S TitleTextColor=ﾀｲﾄﾙﾊﾞｰのﾌｵﾝﾄ]
※[S TrailingTextColor=表示月でない日付のﾌｵﾝﾄ]
※[D SETEDIT^ZVCMCAL]ﾌﾟﾛﾊﾟﾃｨﾊﾟﾗﾒﾀ作成-＞EDITSTR
※[S editstr=EDITSTR]
⑤[D CREATE^ZVCMCAL]で使用されるﾊﾟﾗﾒﾀを設定する
※[S cid=(1～1023の一意の番号)]
※[S form=(1～1023の親ﾌｫｰﾑのﾌｫｰﾑ番号)]
※[S parent=(1～1023の親ｺﾝﾄﾛｰﾙのcid番号)]
※[S group=(0～32767のｸﾞﾙｰﾌﾟ番号)]
※[D CREATE^ZVCMCAL]ｴﾃﾞｯﾄｺﾝﾄﾛｰﾙｵﾌﾞｼﾞｪｸﾄの作成
⑥選択開始日付を設定
※[S cid=(1～1023の一意の番号)]
※[S editstr=選択開始日付]
-＞ yyyymmdd, yyyy.mm.dd, yyyy/mm/dd, yyyy-mm-dd の様に指定
※[D DATE^ZVCMCAL]タブ選択表示を変更する
⑦ｲﾍﾞﾝﾄ応答ﾒｯｾｰｼﾞから選択されている日付を取得する
※ｲﾍﾞﾝﾄ種別=通常クリックイベントで処理します
※ｲﾍﾞﾝﾄ応答ﾒｯｾｰｼﾞを読み込む[S RESP=$$ReadMsg^ZVCMSUB(Rtail)
※読み込んだ(受信)ｲﾍﾞﾝﾄ応答ﾒｯｾｰｼﾞを分解する[D VCMRESP^ZVCMSUB]
※(Revent2):ｲﾍﾞﾝﾄ種別
※(Rmain):選択開始日付
※[Rsub]:複数の日付を選択可能の時選択終了日付(以外はnull)
─────────────────────────────────────
[2]ﾏﾝｽｶﾚﾝﾀﾞ(TManthCalender)ｵﾌﾞｼﾞｪｸﾄのｲﾍﾞﾝﾄ
→共通ルーチン【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
───────────────────────────────────
39-1
｜目次｜前ﾍﾟｰｼﾞ｜次ﾍﾟｰｼﾞ｜