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

• バックアップ一覧
• 差分 を表示
• 現在との差分 を表示
• 現在との差分 - 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)を追加して、
柱状体の高さをダイアログで指定できるように書き換えてみます。