VS:CreateTabControl/ja

From Vectorworks Developer
Jump to: navigation, search

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


Description

タブペインコントロールを作成します。タブペインコントロールは、情報を複数のタブペインに表示し、タブボタンでタブペイン間の切り替えができるようにします。


タブペインコントロールを定義するには、最初にそれぞれのタブペイン用のグループを作成します。グループにアイテムを追加し位置揃えをします。
そして、番号をつけてCreateTabControl をコールします。最後に「CreateTabPane」をコールして、それぞれのタブペインに表示するグループを指定します。

PROCEDURE CreateTabControl(
dialogID  :LONGINT;
itemID  :LONGINT);
def vs.CreateTabControl(dialogID, itemID):
    return None

Parameters

dialogID LONGINT ダイアログ番号
itemID LONGINT アイテム番号

Example

PROCEDURE TabControls;

CONST
	kTabControlID = 10;
	kTabPaneID1 = 20;
	kTabPaneID2 = 30;
	kTabPaneID3	= 40;
	
VAR
	dlogID, result  : LONGINT;
	
PROCEDURE DialogProc(VAR item: LONGINT; data: LONGINT);
BEGIN
	CASE item OF
		SetupDialogC:
			BEGIN
				result := 0;
			END;

		END;
END;

BEGIN
	dlogID := CreateLayout('Sample Tab Dialog', FALSE, 'OK', 'Cancel');

	{ Tab Group 1 }
	CreateGroupBox(dlogID, kTabPaneID1, 'Tab 1', FALSE);
	
	CreatePushButton(dlogID, 21, 'Button 1');
	SetFirstGroupItem(dlogID, kTabPaneID1, 21);	
	CreatePushButton(dlogID, 22, 'Button 2');
	SetBelowItem(dlogID, 21, 22, 0, 0);
	CreatePushButton(dlogID, 23, 'Button 3');
	SetBelowItem(dlogID, 22, 23, 0, 0);
	
	
	{ Tab Group 2 }
	CreateGroupBox(dlogID, kTabPaneID2, 'Tab 2', FALSE);
	
	CreatePushButton(dlogID, 31, 'Button 4');
	SetFirstGroupItem(dlogID, kTabPaneID2, 31);
	CreatePushButton(dlogID, 32, 'Button 5');
	SetRightItem(dlogID, 31, 32, 0, 0);
	CreatePushButton(dlogID, 33, 'Button 6');
	SetRightItem(dlogID, 32, 33, 0, 0);
	
	
	{ Tab Group 3 }
	CreateGroupBox(dlogID, kTabPaneID3, 'Tab 3', FALSE);
	
	CreatePushButton(dlogID, 41, 'Button 7');
	SetFirstGroupItem(dlogID, kTabPaneID3, 41);
	CreatePushButton(dlogID, 42, 'Button 8');
	SetRightItem(dlogID, 41, 42, 0, 0);
	CreatePushButton(dlogID, 43, 'Button 9');
	SetBelowItem(dlogID, 42, 43, 0, 0);
	

	{ Create tab control 1 }
	CreateTabControl(dlogID, kTabControlID);
	SetFirstLayoutItem(dlogID, kTabControlID);
	
	{ Add the tab panes to tab control }
	CreateTabPane(dlogID, kTabControlID, kTabPaneID1);
	CreateTabPane(dlogID, kTabControlID, kTabPaneID2);
	CreateTabPane(dlogID, kTabControlID, kTabPaneID3);
	
	result := RunLayoutDialog(dlogID, DialogProc);
END;
RUN(TabControls);

Version

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

See Also

関連関数:

VS:CreateTabPane | VS:CreateGroupBox | VS:RunLayoutDialog

関連関数:

[[VS:CreateTabPane]] | [[VS:CreateGroupBox]]

| [[VS:RunLayoutDialog]]
Personal tools
NamespacesFFFF

Variants
Actions
Advanced Search
See Also
Navigation
Toolbox
In other languages