【BizBrowser/BizDesigner】OptionボタンのOnChange

仕事で使う機会が多いので、どうしてもBizの情報発信ばっかになる
（あんまり好きじゃないｗ）

OnChangeイベントは値をプログラムで設定しても動いてしまうので
フォームに変数を宣言して、前の値から変わったかどうかを判定してます。
OnChange を動作させないたくない場合は
Optionボタンに値を設定する前にフォームに宣言した変数にOptionボタンに設定する値を前もって設定することで
OnChange内のIF文で即リターンするようにします。

Form Form1 {
	X = 0;
	Y = 0;
	Width = 274;
	Height = 256;
	
	Number optionOldValue = "";
		
	OptionButton OptionButton1 {
		X = 13;
		Y = 15;
		Width = 240;
		Height = 72;
		UseChange = $TRUE;
		
		OptionItem OptionItem1[] {
			Height = 20;
			Width = 150;
			LayoutSpacing = 0;
			LayoutMargin = 2;
			Layout = $VERTICAL;
			LayoutSpacing = 2;
		}
		
		Function OnChange( e ) {
			/* デバッグ */
			print(this.Name  + " - " + e.EventName + "[" + str(this.Value) + "]");
			
			/* 前の値と今の値を比較して同じ場合は何もしない */
			if(^.optionOldValue == this.Value){
				^.optionOldValue = this.Value;
				return;
			}
			
			/* 値を変更するか確認する */
			if(^.Kakunin() == $FALSE){
				/* 値を元に戻す */
				this.Value = ^.optionOldValue;
				
			} else {
				/* 値を退避する */
				^.optionOldValue = this.Value;
				
				/* 本当に動かしたい処理 ⇒ 今回はテキストボックスに値を設定する。*/
				^.TextBox1.Value = this.Value;
				
			}
		}
	}
	
	TextBox TextBox1 {
		X = 13;
		Y = 211;
		Width = 240;
		Height = 24;
	}
	
	Function Kakunin(){
		var ret = //.MessageBox("値を変更してよろしいですか？", "", $OKCANCEL);
		if (ret == CancelSelected) {
			return $FALSE;
		} else {
			return $TRUE;
		}
	}
	
	Button Button1 {
		X = 13;
		Y = 96;
		Width = 240;
		Height = 106;
		Title = "値を初期化";
		
		Function OnTouch( e ) {
			if (^.OptionButton1.Value != ^.optionOldValue) {		/* 設定する値が違うかどうか確認 */
				^.optionOldValue = 0;
			}
			/* 値を初期化 */
			^.OptionButton1.Value = 0;
		}
	}
	
	if ( !$DESIGNTIME ) {
		
		optionOldValue = 0;	/* ↓でCSVを設定すると NULL から 001 になるので OnChangeが動く */
		
		/* オプションボタンの値を設定 */
		OptionButton1.OptionItem1 << csv(.title, .value) {
			"タイトル1","001"
			"タイトル2","002"
			"タイトル3","003"
			"タイトル4","004"
			"タイトル5","005"
			"タイトル6","006"
		};
		
	}
}