ダイアログ のバックアップ(No.3)

• バックアップ一覧
• 差分 を表示
• 現在との差分 を表示
• 現在との差分 - Visual を表示
• ソース を表示
• ダイアログ へ行く。
  • 1 (2011-12-04 (日) 19:01:52)
  • 2 (2011-12-04 (日) 22:39:01)
  • 3 (2011-12-04 (日) 23:47:00)
  • 4 (2011-12-06 (火) 14:24:45)
  • 5 (2011-12-06 (火) 15:43:27)

ダイアログを表示する

ダイアログを表示させる方法は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」ボタンを押すと、ダイアログが閉じてプログラムを終了します。