Tivoli Service Desk 6.0 Developer's Toolkit Script 言語解説書
ツリー・コントロール
メイン・ページに戻る
説明
"root" レベル・ノードをツリーに挿入します。
構文
Integer DlgTreeInsert( handle : WINDOW, treeId : STRING, REF node : TREENODE, label : STRING, userData : ANY, position : POSITION );
引き数の注
引き数名 |
説明 |
handle |
ツリーを含むダイアログ・ボックスのウィンドウ・ハンドル |
treeId |
ツリーの ID |
node |
ツリーに挿入された新規作成ノード |
label |
挿入されるツリー・ノードに表示されるテキスト・ラベル |
userData |
挿入されるツリー・ノードに関連付けられるデータ |
position |
新規ノードの挿入方法を決定するのに使用される関連 |
例
KNOWLEDGEBASE の例;ROUTINES
PROCEDURE Example;
PRIVATE
TYPES
MyRecord IS RECORD
Field1 : STRING;
Field2 : STRING;
Field3 : STRING;
Field4 : STRING;
Field5 : STRING;END;
VARIABLES
ROUTINES
PROCEDURE Example IS
VARIABLES
ret : Integer;
whdl : Window;
root : TreeNode;
rootRecord : MyRecord;
ACTIONS
ret := DlgCreate( $Desktop, whdl, 'tree[TREE_FORM]', $NullHandler );
DlgTreeInsert(whdl, 'TREE_CONTROL', root, 'Root', rootRecord, $FIRST );
WinWait(whdl);
END;
戻りコード
戻りコード |
説明 |
1 |
コマンドが正常に完了しました |
0 |
ツリー・コントロールが見つかりません |
-1 |
不正なウィンドウ・ハンドル |
-2 |
不明の値 |
-9 |
不正な構文 |
次も参照してください
説明
ツリーからすべてのノードを除去します。
構文
Integer DlgTreeClear( handle : WINDOW, treeId : STRING );
引き数の注
引き数名 |
説明 |
handle |
ツリーを含むダイアログ・ボックスのウィンドウ・ハンドル |
treeId |
ツリーの ID |
例
KNOWLEDGEBASE の例;
ROUTINES
PROCEDURE Example ;
PRIVATE
TYPES
MyRecord IS RECORD
Field1 : STRING;
Field2 : STRING;
Field3 : STRING;
Field4 : STRING;
Field5 : STRING;
END;
VARIABLES
ROUTINES
PROCEDURE Example IS
VARIABLES
ret : Integer;
whdl : Window;
root : TreeNode;
rootRecord : MyRecord;
ACTIONS
ret := DlgCreate( $Desktop, whdl, 'tree[TREE_FORM]', $NullHandler );
DlgTreeInsert( whdl, 'TREE_CONTROL', root, 'Root', rootRecord, $FIRST );
DlgTreeClear( whdl, 'TREE_CONTROL' );
WinWait(whdl);
END;
戻りコード
戻りコード |
説明 |
1 |
コマンドが正常に完了しました |
-1 |
不正なウィンドウ・ハンドル |
-2 |
不明の値 |
-9 |
不正な構文 |
次も参照してください
説明
ツリー・ノードをプログラム式にツリーに追加する時に、ツリーを図形的に更新するかどうかをコントロールします。
構文
Integer DlgTreeActiveRedraw( handle : WINDOW, treeId : STRING, state : BOOLEAN );
引き数の注
引き数名 |
説明 |
Handle |
ツリーを含むダイアログ・ボックスのウィンドウ・ハンドル |
TreeId |
ツリーの ID |
State |
ツリー・ノードが挿入された時にツリーが図形的に更新されるべきかを表示するフラグ (「Yes」に対しては TRUE、「No」に対しては FALSE ) |
注
アクティブ再ドローをオフにすることによって、ツリーへのノード追加はより早くなります。すべてのノードをツリーに追加した後でアクティブ再ドローをオンにすると、ツリーを図形的に更新します。
例
KNOWLEDGEBASE の例;
ROUTINESPROCEDURE Example;
PRIVATE
TYPES
MyRecord IS RECORD
Field1 : STRING;
Field2 : STRING;
Field3 : STRING;
Field4 : STRING;
Field5 : STRING;END;
VARIABLES
ROUTINES
PROCEDURE Example IS
VARIABLES
ret : Integer;
whdl : Window;
root : TreeNode;
node : TreeNode;
rootRecord : MyRecord;
nodeRecord : MyRecord;
ACTIONS
ret := DlgCreate( $Desktop, whdl, 'tree[TREE_FORM]', $NullHandler );
DlgTreeInsert( whdl, 'TREE_CONTROL', root, 'Root', rootRecord, $FIRST );
DlgTreeActiveRedraw( whdl, 'TREE_CONTROL', FALSE );
TreeInsert( root, node, 'Node', nodeRecord, $FIRSTCHILD );
DlgTreeActiveRedraw( whdl, 'TREE_CONTROL', TRUE );
WinWait(whdl);
END;
戻りコード
戻りコード |
説明 |
1 |
コマンドが正常に完了しました |
-1 |
不正なウィンドウ・ハンドル |
-2 |
不明の値 |
-9 |
不正な構文 |
次も参照してください
説明
参照ノードと関連したツリーに新規ノードを作成します。
構文
Integer TreeInsert( referenceNode : TREENODE, REF newNode : TREENODE, label
: STRING, userData : ANY, position : POSITION );
引き数の注
引き数名 |
説明 |
referenceNode |
挿入されるノードに関連したノード |
newNode |
挿入されるノードの値 |
label |
挿入されるツリー・ノードに表示されるテキスト・ラベル |
userData |
挿入されるツリー・ノードに関連付けられるデータ |
position |
参照ノードの挿入されるノードとの関連 |
例
KNOWLEDGEBASE の例;
ROUTINES
PROCEDURE Example;
PRIVATE
TYPES
MyRecord IS RECORD
Field1 : STRING;
Field2 : STRING;
Field3 : STRING;
Field4 : STRING;
Field5 : STRING;
END;
VARIABLES
ROUTINES
PROCEDURE Example IS
VARIABLES
ret : Integer;
whdl : Window;
root : TreeNode;
node : TreeNode;
rootRecord : MyRecord;
nodeRecord : MyRecord;
ACTIONS
ret := DlgCreate( $Desktop, whdl, 'tree[TREE_FORM]', $NullHandler );
DlgTreeInsert( whdl, 'TREE_CONTROL', root, 'Root', rootRecord, $FIRST );
TreeInsert( root, node, 'Node', nodeRecord, $FIRSTCHILD );
TreeExpand( root, TRUE );
WinWait(whdl);
END;
戻りコード
戻りコード |
説明 |
1 |
コマンドが正常に完了しました |
-1 |
不正なウィンドウ・ハンドル |
-2 |
不明の値 |
-9 |
不正な構文 |
次も参照してください
説明
指定されたツリー・ノードをツリーから除去します。
構文
Integer TreeDelete( node : TREENODE );
引き数の注
引き数名 |
説明 |
node |
ターゲット・ツリー・ノード |
例
KNOWLEDGEBASE の例;
ROUTINES
PROCEDURE Example;
PRIVATE
TYPES
MyRecord IS RECORD
Field1 : STRING;
Field2 : STRING;
Field3 : STRING;
Field4 : STRING;
Field5 : STRING;
END;
VARIABLES
ROUTINES
PROCEDURE Example IS
VARIABLES
ret : Integer;
whdl : Window;
root : TreeNode;
rootRecord : MyRecord;
ACTIONS
ret := DlgCreate( $Desktop, whdl, 'tree[TREE_FORM]', $NullHandler );
DlgTreeInsert( whdl, 'TREE_CONTROL', root, 'Root', rootRecord, $FIRST );
TreeDelete( root );
WinWait(whdl);
END;
戻りコード
戻りコード |
説明 |
1 |
コマンドが正常に完了しました |
-2 |
不明の値 |
次も参照してください
説明
指定されたツリー・ノードを拡張または縮小します。
構文
Integer TreeExpand( node : TREENODE, state : BOOLEAN );
引き数の注
引き数名 |
説明 |
node |
ターゲット・ツリー・ノード |
state |
ノードの拡張状態を表すフラグ (「拡張状態」に対しては TRUE、「縮小状態」に対しては FALSE) |
例
KNOWLEDGEBASE の例;
ROUTINES
PROCEDURE Example;
PRIVATE
TYPES
MyRecord IS RECORD
Field1 : STRING;
Field2 : STRING;
Field3 : STRING;
Field4 : STRING;
Field5 : STRING;
END;
VARIABLES
ROUTINES
PROCEDURE Example IS
VARIABLES
ret : Integer;
whdl : Window;
root : TreeNode;
node : TreeNode;
rootRecord : MyRecord;
nodeRecord : MyRecord;
ACTIONS
ret := DlgCreate( $Desktop, whdl, 'tree[TREE_FORM]', $NullHandler );
DlgTreeInsert( whdl, 'TREE_CONTROL', root, 'Root', rootRecord, $FIRST );
TreeInsert( root, node, 'Node', nodeRecord, $FIRSTCHILD );
TreeExpand( root, TRUE ); -- Expand the root node
TreeExpand( root, FALSE ); -- Collapse the root node
WinWait(whdl);
END;
戻りコード
戻りコード |
説明 |
1 |
コマンドが正常に完了しました |
-2 |
不明の値 |
次も参照してください
説明
指定されたツリー・ノードを選択します。
構文
Integer TreeSelect( node : TREENODE );
引き数の注
引き数名 |
説明 |
node |
ターゲット・ツリー・ノード |
例
KNOWLEDGEBASE の例;
ROUTINES
PROCEDURE Example;
PRIVATE
TYPES
MyRecord IS RECORD
Field1 : STRING;
Field2 : STRING;
Field3 : STRING;
Field4 : STRING;
Field5 : STRING;
END;
VARIABLES
ROUTINES
PROCEDURE Example IS
VARIABLES
ret : Integer;
whdl : Window;
root : TreeNode;
node : TreeNode;
rootRecord : MyRecord;
nodeRecord : MyRecord;
ACTIONS
ret := DlgCreate( $Desktop, whdl, 'tree[TREE_FORM]', $NullHandler );
DlgTreeInsert( whdl, 'TREE_CONTROL', root, 'Root', rootRecord, $FIRST );
TreeInsert( root, node, 'Node', nodeRecord, $FIRSTCHILD );
TreeSelect( root );
WinWait(whdl);
END;
戻りコード
戻りコード |
説明 |
1 |
コマンドが正常に完了しました |
-2 |
不明の値 |
次も参照してください
説明
指定されたノードと関連したノードを判別します。
構文
Integer TreeFindNode( node : TREENODE, REF newNode : TREENODE, relatedHow : POSITION );
引き数の注
引き数名 |
説明 |
node |
検索されるツリー・ノード |
newNode |
検索から戻されたツリー・ノード |
relatedHow |
初期ノードの所要のノードとの関連 |
例
KNOWLEDGEBASE の例;
ROUTINES
PROCEDURE Example;
PRIVATE
TYPES
MyRecord IS RECORD
Field1 : STRING;
Field2 : STRING;
Field3 : STRING;
Field4 : STRING;
Field5 : STRING;
END;
VARIABLES
ROUTINES
PROCEDURE Example IS
VARIABLES
ret : Integer;
whdl : Window;
root : TreeNode;
node : TreeNode;
foundNode : TreeNode;
rootRecord : MyRecord;
nodeRecord : MyRecord;
ACTIONS
ret := DlgCreate( $Desktop, whdl, 'tree[TREE_FORM]', $NullHandler );
DlgTreeInsert( whdl, 'TREE_CONTROL', root, 'Root', rootRecord, $FIRST );
TreeInsert( root, node, 'Node', nodeRecord, $FIRSTCHILD ); ret := TreeFindNode( root, foundNode, $FIRSTCHILD );
if ( ret = 1 ) then
-- Found it...
TreeExpand( root, TRUE );
TreeSelect( foundNode );
WinMessageBox( $Desktop, 'Node Search', $MBOK, 'Found' );
else
-- Not found...
WinMessageBox( $Desktop, 'Node Search', $MBOK, 'Not found' );
end;
WinWait(whdl);
END;
戻りコード
戻りコード |
説明 |
1 |
コマンドが正常に完了しました |
0 |
ツリー・コントロールが見つかりません |
-1 |
不正なウィンドウ・ハンドル |
-2 |
不明の値 |
次も参照してください
説明
指定されたツリー・ノードにデータを関連付けます。このデータは、任意のタイプとすることができます。
構文
Integer TreeSetData( node : TREENODE , userData : ANY );
引き数の注
引き数名 |
説明 |
node |
ターゲット・ツリー・ノード |
userData |
ツリー・ノードに関連付けられるデータ |
例
KNOWLEDGEBASE の例;
ROUTINES
PROCEDURE Example;
PRIVATE
TYPES
MyRecord IS RECORD
Field1 : STRING;
Field2 : STRING;
Field3 : STRING;
Field4 : STRING;
Field5 : STRING;
END;
VARIABLES
ROUTINES
PROCEDURE Example IS
VARIABLES
ret : Integer;
whdl : Window;
root : TreeNode;
rootRecord : MyRecord;
ACTIONS
ret := DlgCreate( $Desktop, whdl, 'tree[TREE_FORM]', $NullHandler );
DlgTreeInsert( whdl, 'TREE_CONTROL', root, 'Root', rootRecord, $FIRST );
rootRecord.Field1 := 1;
rootRecord.Field2 := 2;
rootRecord.Field3 := 3;
rootRecord.Field4 := 4;
rootRecord.Field5 := 5;
TreeSetData( root, rootRecord );
WinWait(whdl);
END;
戻りコード
戻りコード |
説明 |
1 |
コマンドが正常に完了しました |
-2 |
不明の値 |
次も参照してください
説明
指定されたツリー・ノードに関連付けられたユーザー・データを検索します。
構文
Integer TreeGetData( node : TREENODE, REF userData : ANY );
引き数の注
引き数名 |
説明 |
node |
ターゲット・ツリー・ノード |
userData |
ツリー・ノードから検索されたデータ |
例
KNOWLEDGEBASE の例;
ROUTINES
PROCEDURE Example;
PRIVATE
TYPES
MyRecord IS RECORD
Field1 : STRING;
Field2 : STRING;
Field3 : STRING;
Field4 : STRING;
Field5 : STRING;
END;
VARIABLES
ROUTINES
PROCEDURE Example IS
VARIABLES
ret : Integer;
whdl : Window;
root : TreeNode;
rootRecord : MyRecord;
newRecord : MyRecord;
ACTIONS
ret := DlgCreate( $Desktop, whdl, 'tree[TREE_FORM]', $NullHandler );
rootRecord.Field1 := 1;
rootRecord.Field2 := 2;
rootRecord.Field3 := 3;
rootRecord.Field4 := 4;
rootRecord.Field5 := 5;
DlgTreeInsert( whdl, 'TREE_CONTROL', root, 'Root', rootRecord, $FIRST );
TreeGetData( root, newRecord );
WinWait(whdl);
END;
戻りコード
戻りコード |
説明 |
1 |
コマンドが正常に完了しました |
-1 |
不正なウィンドウ・ハンドル |
-2 |
不明の値 |
次も参照してください
説明
指定されたツリー・ノードのテキスト・ラベルを設定します。
構文
Integer TreeSetLabel( node : TREENODE, label : STRING );
引き数の注
引き数名 |
説明 |
node |
ターゲット・ツリー・ノード |
label |
ツリー・ノードに表示されるテキスト・ラベル |
例
KNOWLEDGEBASE の例;
ROUTINES
PROCEDURE Example;
PRIVATE
TYPES
MyRecord IS RECORD
Field1 : STRING;
Field2 : STRING;
Field3 : STRING;
Field4 : STRING;
Field5 : STRING;
END;
VARIABLES
ROUTINES
PROCEDURE Example IS
VARIABLES
ret : Integer;
whdl : Window;
root : TreeNode;
rootRecord : MyRecord;
ACTIONS
ret := DlgCreate( $Desktop, whdl, 'tree[TREE_FORM]', $NullHandler );
DlgTreeInsert( whdl, 'TREE_CONTROL', root, 'Root', rootRecord, $FIRST );
TreeSetLabel( root, 'New Root' );
WinWait(whdl);
END;
戻りコード
戻りコード |
説明 |
1 |
コマンドが正常に完了しました |
-2 |
不明の値 |
次も参照してください
説明
指定されたツリー・ノードのテキスト・ラベルを検索します。
構文
Integer TreeGetLabel( node : TREENODE, REF label : STRING );
引き数の注
引き数名 |
説明 |
node |
ターゲット・ツリー・ノード |
label |
ツリー・ノードに現在表示されているテキスト・ラベル |
例
KNOWLEDGEBASE の例;
ROUTINES
PROCEDURE Example;
PRIVATE
TYPES
MyRecord IS RECORD
Field1 : STRING;
Field2 : STRING;
Field3 : STRING;
Field4 : STRING;
Field5 : STRING;
END;
VARIABLES
ROUTINES
PROCEDURE Example IS
VARIABLES
ret : Integer;
whdl : Window;
root : TreeNode;
rootRecord : MyRecord;
rootLabel : String;
ACTIONS
ret := DlgCreate( $Desktop, whdl, 'tree[TREE_FORM]', $NullHandler );
DlgTreeInsert( whdl, 'TREE_CONTROL', root, 'Root', rootRecord, $FIRST );
TreeGetLabel( root, rootLabel );
WinWait(whdl);
END;
戻りコード
戻りコード |
説明 |
1 |
コマンドが正常に完了しました |
-1 |
不正なウィンドウ・ハンドル |
-2 |
不明の値 |
次も参照してください
説明
指定されたノードが拡張されているかどうかを判別します。
構文
Boolean TreeIsExpanded( node : TREENODE );
引き数の注
引き数名 |
説明 |
node |
ターゲット・ツリー・ノード |
例
KNOWLEDGEBASE の例;
ROUTINES
PROCEDURE Example;
PRIVATE
TYPES
MyRecord IS RECORD
Field1 : STRING;
Field2 : STRING;
Field3 : STRING;
Field4 : STRING;
Field5 : STRING;
END;
VARIABLES
ROUTINES
PROCEDURE Example IS
VARIABLES
ret : Integer;
expanded : Boolean;
whdl : Window;
root : TreeNode;
node : TreeNode;
rootRecord : MyRecord;
nodeRecord : MyRecord;
ACTIONS
ret := DlgCreate( $Desktop, whdl, 'tree[TREE_FORM]', $NullHandler );
DlgTreeInsert( whdl, 'TREE_CONTROL', root, 'Root', rootRecord, $FIRST );
TreeInsert( root, node, 'Node', nodeRecord, $FIRSTCHILD ); expanded := TreeIsExpanded( root );
if ( expanded ) then
-- Tree node is expanded...
Nothing;
else
-- Tree node is not expanded...
Nothing;
end;
WinWait(whdl);
END;
戻りコード
戻りコード |
説明 |
1 |
ツリーは拡張されています |
0 |
ツリーは拡張されていません |
-2 |
不明の値 |
次も参照してください
説明
指定されたノードが選択されているかどうかを判別します。
構文
Boolean TreeIsSelected( node : TREENODE );
引き数の注
引き数名 |
説明 |
node |
ターゲット・ツリー・ノード |
例
KNOWLEDGEBASE の例;
ROUTINES
PROCEDURE Example;
PRIVATE
TYPES
MyRecord IS RECORD
Field1 : STRING;
Field2 : STRING;
Field3 : STRING;
Field4 : STRING;
Field5 : STRING;
END;
VARIABLES
ROUTINES
PROCEDURE Example IS
VARIABLES
ret : Integer;
selected : Boolean;
whdl : Window;
root : TreeNode;
node : TreeNode;
rootRecord : MyRecord;
nodeRecord : MyRecord;
ACTIONS
ret := DlgCreate( $Desktop, whdl, 'tree[TREE_FORM]', $NullHandler );
DlgTreeInsert( whdl, 'TREE_CONTROL', root, 'Root', rootRecord, $FIRST );
TreeInsert( root, node, 'Node', nodeRecord, $FIRSTCHILD );
selected := TreeIsSelected( root );
if ( selected ) then
-- Tree node is selected...
Nothing;
else
-- Tree node is not selected...
Nothing;
end;
WinWait(whdl);
END;
戻りコード
戻りコード |
説明 |
1 |
ツリーは拡張されています |
0 |
ツリーは拡張されていません |
-2 |
不明の値 |
次も参照してください
Tivoli Service Desk 6.0 Developer's Toolkit Script 言語解説書
メイン・ページに戻る
著作権