VS:CreateTabControl/ja
.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
See Also
関連関数:
VS:CreateTabPane | VS:CreateGroupBox | VS:RunLayoutDialog
関連関数:
[[VS:CreateTabPane]] | [[VS:CreateGroupBox]]
| [[VS:RunLayoutDialog]]