Tivoli Service Desk 6.0 Developer's Toolkit Script 言語解説書

ツリー・コントロール

メイン・ページに戻る


DlgTreeInsert

説明

"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 不正な構文

次も参照してください


DlgTreeClear

説明

ツリーからすべてのノードを除去します。

構文

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 不正な構文

次も参照してください


DlgTreeActiveRedraw

説明

ツリー・ノードをプログラム式にツリーに追加する時に、ツリーを図形的に更新するかどうかをコントロールします。

構文

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 不正な構文

次も参照してください


TreeInsert

説明

参照ノードと関連したツリーに新規ノードを作成します。

構文

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 不正な構文

次も参照してください


TreeDelete

説明

指定されたツリー・ノードをツリーから除去します。

構文

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 不明の値

次も参照してください


TreeExpand

説明

指定されたツリー・ノードを拡張または縮小します。

構文

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 不明の値

次も参照してください


TreeSelect

説明

指定されたツリー・ノードを選択します。

構文

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 不明の値

次も参照してください


TreeFindNode

説明

指定されたノードと関連したノードを判別します。

構文

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 不明の値

次も参照してください


TreeSetData

説明

指定されたツリー・ノードにデータを関連付けます。このデータは、任意のタイプとすることができます。

構文

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 不明の値

次も参照してください


TreeGetData

説明

指定されたツリー・ノードに関連付けられたユーザー・データを検索します。

構文

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 不明の値

次も参照してください


TreeSetLabel

説明

指定されたツリー・ノードのテキスト・ラベルを設定します。

構文

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 不明の値

次も参照してください


TreeGetLabel

説明

指定されたツリー・ノードのテキスト・ラベルを検索します。

構文

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 不明の値

次も参照してください


TreeIsExpanded

説明

指定されたノードが拡張されているかどうかを判別します。

構文

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 不明の値

次も参照してください


TreeIsSelected

説明

指定されたノードが選択されているかどうかを判別します。

構文

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 言語解説書

メイン・ページに戻る

著作権