ダイアログ

ダイアログを表示する

ダイアログを表示させる方法は2つあります。
1つは、全部で10種類ある定型ダイアログを表示させる方法です。
　手続きを呼ぶだけなので、数値や座標を入力するだけならばこの方法が簡単です。
もう一つは、カスタムダイアログを定義する方法です。
入力欄の他に、チェックボックスやボタンを配置できるので、凝ったレイアウトを作ることができます。

定型ダイアログを表示する。

PROCEDURE TEST;
VAR
		x1,y1,x2,y2:REAL;
BEGIN
		GetRect(x1,y1,x2,y2);
		BeginXtrd(0,50);
		Rect(x1,y1,x2,y2);
		EndXtrd;
END;
Run(TEST);

上記のプログラムに、実数用のダイアログを表示する手続き(RealDialog)を追加して、
柱状体の高さをダイアログで指定できるように書き換えてみます。

実行結果

PROCEDURE TEST;
VAR
		x1,y1,x2,y2,height:REAL;
BEGIN
		GetRect(x1,y1,x2,y2);
		height:=RealDialog('高さを入力して下さい','50');
		IF NOT DidCancel THEN
		BEGIN
			BeginXtrd(0,height);
			Rect(x1,y1,x2,y2);
			EndXtrd;
		END;
END;
Run(TEST);

カスタムダイアログを作る

少しプログラムは長くなりますが、ボタンやチェックボックスを自由に配置できます。
自由度は高いですが、いくつかの処理を自分で制御しなければなりません。
以下のプログラムを実行するとカスタムダイアログを表示します。
「OK」ボタンか「Cancel」ボタンを押すと、ダイアログが閉じてプログラムを終了します。

残念ながら、上記のスクリプトは
エラーになってしまう。