VS:ShowItem/ja

.VectorScript|VectorScript ..VS:Function Reference|Function Reference ..VS:Function_Reference_Appendix|Appendix

Description

ダイアログアイテムの表示／非表示を設定します。

PROCEDURE ShowItem(
          dialogID   :LONGINT;
          item       :INTEGER;
          show       :BOOLEAN);

def vs.ShowItem(dialogID, item, show):
    return None

Parameters

dialogID		LONGINT		ダイアログ番号
item		INTEGER		アイテム番号
show		BOOLEAN		アイテム設定（TRUE：表示／FALSE：非表示 ）

Example

PROCEDURE dialogID_Main;
VAR
	dialogID :INTEGER;

PROCEDURE dialogID_Setup;
BEGIN
	dialogID := CreateLayout('Example Dialog', FALSE, 'OK', 'Cancel');
	CreateRadioButton (dialogID,  4,  'Option One');
	CreateEditReal    (dialogID,  5,  1, 0.0, 16);
	CreateRadioButton (dialogID,  6,  'Option Two');
	CreateEditReal    (dialogID,  7,  1, 0.0, 16);
	SetFirstLayoutItem(dialogID,  4);
	SetRightItem      (dialogID,  4,   5,  0, 0);
	SetBelowItem      (dialogID,  4,   6,  0, 0);
	SetRightItem      (dialogID,  6,   7,  0, 0);
END;

PROCEDURE dialogID_Handler(VAR item :LONGINT; data :LONGINT);
BEGIN
	CASE item OF
		SetupDialogC:
			BEGIN
				SetItem(4, TRUE);
				ShowItem(dialogID, 7, FALSE);
			END;
		 4:
			BEGIN
				ShowItem(dialogID, 5, TRUE);
				ShowItem(dialogID, 7, FALSE);
			END;
		 6:
			BEGIN
				ShowItem(dialogID, 7, TRUE);
				ShowItem(dialogID, 5, FALSE);
			END;
	END;
END;

BEGIN
	dialogID_Setup;
	IF RunLayoutDialog(dialogID, dialogID_Handler) = 1 then BEGIN
	END;
END;
RUN(dialogID_Main);

Version

利用可能バージョン: VectorWorks11.5