FWD » Core Development » User Interface

SESSION:SYSTEM-ALERT-BOXES = TRUE.

/* scope defined pre-processors mapping OXC attributes to FWD versions  */

&IF DEFINED(FWD-VERSION) = 0 &THEN /* NOT FWD */

  &Scoped-define COMPONENT-HANDLE  COMPONENT-HANDLE

  &Scoped-define HIT-TEST    hitTest

&ELSE                              /* FWD */

  &Scoped-define COMPONENT-HANDLE  HANDLE

  &Scoped-define HIT-TEST    hitTestFwd

&ENDIF

DEFINE VARIABLE hNode       AS COMPONENT-HANDLE NO-UNDO.

DEFINE VARIABLE hNode1      AS COMPONENT-HANDLE NO-UNDO.

DEFINE VARIABLE hNode2      AS COMPONENT-HANDLE NO-UNDO.

DEFINE VARIABLE hNode3      AS COMPONENT-HANDLE NO-UNDO.

DEFINE VARIABLE nodes       AS COMPONENT-HANDLE NO-UNDO.

DEFINE VARIABLE i AS INTEGER.

DEFINE VARIABLE j AS INTEGER.

DEFINE VARIABLE k AS INTEGER.

DEFINE VARIABLE l AS INTEGER.

DEFINE BUTTON bCreateNode        LABEL "Create Selected Node Child".

DEFINE BUTTON bCreateNodeByIndex LABEL "Create Node by Index Child".

DEFINE BUTTON bClearAll          LABEL "ClearAll".

DEFINE BUTTON bPrintFocused      LABEL "Print focused".

DEFINE BUTTON bNodeBold          LABEL "Toggle node bold".

DEFINE BUTTON bSetNodeTag        LABEL "Set Node Tag".

/** Change currently focused cell string value */

DEFINE BUTTON bNodeText          LABEL "Node Text".

DEFINE BUTTON bReloadNodes       LABEL "Reload nodes".

DEFINE BUTTON bSetFont           LABEL "Set Font".

DEFINE BUTTON bCollapseNodeByIndex LABEL "Collapse Node With Absolute Index".

DEFINE BUTTON bEnsureNodeVisible LABEL "Ensure node visible".

DEFINE BUTTON bDeleteNode        LABEL "Delete selected node".

DEFINE BUTTON bDeleteNodeByIndex LABEL "Delete node by node index".

DEFINE BUTTON bDeleteNodeByKey   LABEL "Delete node by node key".

DEFINE BUTTON bExpandSubtree     LABEL "Expand subtree".

DEFINE BUTTON bCollapseSubtree   LABEL "Collapse subtree".

DEFINE VARIABLE fillIn AS CHARACTER NO-UNDO VIEW-AS FILL-IN.

DEFINE FRAME f

   bCreateNode AT COLUMN 1 ROW 16

   bCreateNodeByIndex

   bClearAll

   bPrintFocused

   bNodeText

   bNodeBold

   SKIP

   bSetNodeTag

   fillIn NO-LABEL

   bReloadNodes

   bSetFont

   bEnsureNodeVisible

   bDeleteNode

   bDeleteNodeByIndex

   SKIP 

   bDeleteNodeByKey

   bCollapseNodeByIndex

   bExpandSubtree

   bCollapseSubtree

   WITH SIZE 140 BY 40 TITLE "TreeView Demo".

DEFINE VARIABLE TreeView   AS WIDGET-HANDLE NO-UNDO.

DEFINE VARIABLE chTreeView AS COMPONENT-HANDLE NO-UNDO.

DEFINE VARIABLE Image       AS WIDGET-HANDLE NO-UNDO.

DEFINE VARIABLE chImage     AS COMPONENT-HANDLE NO-UNDO.

DEFINE VARIABLE treeView1    AS COMPONENT-HANDLE NO-UNDO.

CREATE CONTROL-FRAME TreeView ASSIGN

   FRAME           = FRAME f:HANDLE

   HEIGHT          = 15

   WIDTH           = 135

   ROW             = 1

   COLUMN          = 1

   WIDGET-ID       = 2

   HIDDEN          = NO

   SENSITIVE       = YES.

TreeView:NAME = "TreeView".

CREATE CONTROL-FRAME Image ASSIGN

   FRAME           = FRAME f:HANDLE

   HEIGHT          = 1

   WIDTH           = 1

   ROW             = 30 // Make it invisible this way

   COLUMN          = 4

   WIDGET-ID       = 4

   TAB-STOP        = YES

   HIDDEN          = YES

   SENSITIVE       = NO.

Image:NAME = "Image".

DEFINE VARIABLE OCXFile  AS CHARACTER FORMAT "x(128)" NO-UNDO.

OCXFile = SEARCH( "Z:/Projects/test3820/abl/treeview.wrx":U ).

//OCXFile = SEARCH( "U:\\treeview.wrx" ).

ASSIGN

   chTreeView = TreeView:COMPONENT-HANDLE.

   chImage    = Image:COM-HANDLE.

chImage:LoadControls(OCXFile, "Image").

chTreeView:LoadControls(OCXFile, "TreeView").

&IF DEFINED(FWD-VERSION) &THEN  /* FWD */

  ASSIGN

    treeView1 = chTreeView:TreeView

    //treeView1:FONT:SIZE = MLiniGetFontSize() /* Default font size */

    treeView1:ImageList  = chImage:ImageList

    .

  treeView1:OLEDragMode = 1.

  treeView1:OLEDropMode = 1.

&ELSE /* OE */

  ASSIGN

    treeView1                  = chTreeView:Controls:Item(1)

    treeView1:Style            = 7. // It is the default value

    treeView1:Indentation      = 0. // Default IS 38?

    // treeView1:FONT:SIZE     = MLiniGetFontSize() /* Default font size */

    // chTreeView:POPUP-MENU = MENU mnPopUp:HANDLE

    treeView1:ImageList        = chImage:Controls:Item(1)

    .

  // RUN GetDC(INPUT treeView1:HWND, OUTPUT giDevice). 

  // RUN GetDeviceCaps(OUTPUT giXpix, giDevice, {&LOGPIXELSX} ).

  // RUN GetDeviceCaps(OUTPUT giYpix, giDevice, {&LOGPIXELSY} ).

  // RUN ReleaseDC(INPUT treeView1:HWND, INPUT giDevice).

  /* Compute conversion factor pixels to twips

   ** Hittest LIKES twips (=1/1440 inch) */

  // ASSIGN 

  //   gdeXscale = 1440.0 / DECIMAL(giXpix)

  //   gdeYscale = 1440.0 / DECIMAL(giYpix).

&ENDIF

DEFAULT-WINDOW:WIDTH = 160.

DEFAULT-WINDOW:HEIGHT = 30.

ENABLE ALL WITH FRAME f.

DEFINE VARIABLE img1 AS INTEGER.

DEFINE VARIABLE img2 AS INTEGER.

DEFINE VARIABLE img3 AS INTEGER.

DEFINE VARIABLE img4 AS INTEGER.

DEFINE VARIABLE img5 AS INTEGER.

DEFINE VARIABLE img6 AS INTEGER.

ASSIGN

   img1  = 1.

   img2  = 2.

   img3  = 3.

   img4  = 4.

   img5  = 5.

   img6  = 6.

DEFINE VARIABLE images      AS COMPONENT-HANDLE NO-UNDO.

DEFINE VARIABLE listimages  AS COMPONENT-HANDLE NO-UNDO.

ASSIGN

&IF DEFINED(FWD-VERSION) &THEN  /* FWD */

   images     = chImage:ImageList

&ELSE /* OE */

   images     = chImage:Controls:Item(1)

&ENDIF

   listimages = images:ListImages

   .

&IF DEFINED(FWD-VERSION) &THEN

   listimages:Add(img1, "image1", LOAD-PICTURE("/usr/share/icons/Adwaita/16x16/emotes/face-angry.png")).

   listimages:Add(img2, "image2", LOAD-PICTURE("/usr/share/icons/Adwaita/16x16/emotes/face-cool.png")).

   listimages:Add(img3, "image3", LOAD-PICTURE("/usr/share/icons/Adwaita/16x16/emotes/face-crying.png")).

   listimages:Add(img5, "image4", LOAD-PICTURE("/usr/share/icons/Adwaita/16x16/emotes/face-glasses.png")).

   listimages:Add(img5, "image5", LOAD-PICTURE("/usr/share/icons/Adwaita/16x16/emotes/face-laugh.png")).

   listimages:Add(img6, "image6", LOAD-PICTURE("/usr/share/icons/Adwaita/16x16/emotes/face-devilish.png")).

&ELSE

   listimages:Add(img1, "image1", LOAD-PICTURE("C:\\images\\face-angry.bmp")).

   listimages:Add(img2, "image2", LOAD-PICTURE("C:\\images\\face-cool.bmp")).

   listimages:Add(img3, "image3", LOAD-PICTURE("C:\\images\\face-crying.bmp")).

   listimages:Add(img5, "image4", LOAD-PICTURE("C:\\images\\face-glasses.bmp")).

   listimages:Add(img5, "image5", LOAD-PICTURE("C:\\images\\face-laugh.bmp")).

   listimages:Add(img6, "image6", LOAD-PICTURE("C:\\images\\face-devilish.bmp")).

&ENDIF

ASSIGN nodes = treeView1:Nodes.

PROCEDURE reloadNodes .

   &IF DEFINED(FWD-VERSION) &THEN

      treeView1:BuildingTree = TRUE.

   &ENDIF

   nodes:CLEAR.

   DEFINE VARIABLE hRoot  AS COMPONENT-HANDLE NO-UNDO.

   hRoot  = nodes:Add(?, 4, "Root", "Root", img1, img2).

   DO i = 1 TO 5:

      DEFINE VARIABLE key AS CHARACTER FORMAT "x(128)" NO-UNDO.

      key = ENTRY(i, "quick,brown,fox,jumps,over").

      hNode = nodes:Add(hRoot:Index, 4, key, "Node " + key, img1, img2).

      DO j = 1 TO 5:

         DEFINE VARIABLE key2 AS CHARACTER FORMAT "x(128)" NO-UNDO.

         key2     = key + "." + ENTRY(j, "six,little,boys,playing,with,hive").

         hNode2 = nodes:Add(hNode:Index, 4, key2, "Node " + key2, img2, img3).

         DO k = 1 TO 5:

            DEFINE VARIABLE key3 AS CHARACTER FORMAT "x(128)" NO-UNDO.

            key3 = key2 + "." + ENTRY(k, "moe,and,dogged,him,catch").

            hNode3 = nodes:Add(hNode2:Index, 4, key3, "Node " + key3, img3, img4).

            DO l = 1 TO 5:

               DEFINE VARIABLE key4 AS CHARACTER FORMAT "x(128)" NO-UNDO.

               key4 = key3 + "." + ENTRY(l, "tiger,squeals,snout,knee,if").

               nodes:Add(hNode3:Index, 4, key4, "Node " + key4, img5, img6).

            END.

         END.

      END.

   END.

   &IF DEFINED(FWD-VERSION) &THEN

      treeView1:BuildingTree = FALSE.

   &ENDIF

END PROCEDURE.

RUN reloadNodes.

PROCEDURE TreeView.TreeView.OnActivate .

   MESSAGE "OnActivate".

END PROCEDURE.

PROCEDURE TreeView.TreeView.OnChangeNode .

   DEFINE INPUT PARAMETER p-FromNodeKey AS CHARACTER FORMAT "x(128)" NO-UNDO.

   DEFINE INPUT PARAMETER p-FromNodePtr AS INTEGER NO-UNDO.

   DEFINE INPUT PARAMETER p-ToNodeKey   AS CHARACTER FORMAT "x(128)" NO-UNDO.

   DEFINE INPUT PARAMETER p-ToNodePtr   AS INTEGER NO-UNDO.

   MESSAGE "OnChangeNode" p-FromNodeKey p-FromNodePtr p-ToNodeKey p-ToNodePtr.

END PROCEDURE.

PROCEDURE TreeView.TreeView.OnClick .

  MESSAGE "OnClick".

END PROCEDURE.

PROCEDURE TreeView.TreeView.OnDblClick .

  MESSAGE "OnDblClick".

END PROCEDURE.

PROCEDURE TreeView.TreeView.OnCreate .

   MESSAGE "OnCreate".

END PROCEDURE.

PROCEDURE TreeView.TreeView.OnDeactivate .

   MESSAGE "OnDeactivate".

END PROCEDURE.

PROCEDURE TreeView.TreeView.OnDestroy .

   MESSAGE "OnDestroy".

END PROCEDURE.

PROCEDURE TreeView.TreeView.OnKeyPress .

   DEFINE INPUT PARAMETER p-Key AS INTEGER NO-UNDO.

   MESSAGE "OnKeyPress" p-Key.

END PROCEDURE.

PROCEDURE TreeView.TreeView.OnDragDrop .

   MESSAGE "OnDragDrop".

END PROCEDURE.

PROCEDURE TreeView.TreeView.OnDragOver .

   MESSAGE "OnDragOver".

END PROCEDURE.

PROCEDURE TreeView.TreeView.OnEndDrag .

   MESSAGE "OnEndDrag".

END PROCEDURE.

PROCEDURE TreeView.TreeView.OnEnter .

   MESSAGE "OnEnter".

END PROCEDURE.

PROCEDURE TreeView.TreeView.OnExit .

   MESSAGE "OnExit".

END PROCEDURE.

PROCEDURE TreeView.TreeView.OnExpanding .

   DEFINE INPUT PARAMETER p-NodePtr AS INTEGER NO-UNDO.

   DEFINE INPUT PARAMETER p-NodeKey AS CHARACTER FORMAT "x(128)" NO-UNDO.

   DEFINE INPUT-OUTPUT PARAMETER Allowed AS LOGICAL NO-UNDO.

   MESSAGE "OnExpanding" p-NodePtr p-NodeKey Allowed.

   Allowed = TRUE.

END PROCEDURE.

PROCEDURE TreeView.TreeView.OnCollapsing .

   DEFINE INPUT PARAMETER p-NodePtr AS INTEGER NO-UNDO.

   DEFINE INPUT PARAMETER p-NodeKey AS CHARACTER FORMAT "x(128)" NO-UNDO.

   DEFINE INPUT-OUTPUT PARAMETER Allowed AS LOGICAL NO-UNDO.

   MESSAGE "OnCollapsing" p-NodePtr p-NodeKey Allowed.

   Allowed = TRUE.

END PROCEDURE.

PROCEDURE TreeView.TreeView.OnKeyUp .

   DEFINE INPUT PARAMETER key AS INTEGER NO-UNDO.

   DEFINE INPUT PARAMETER p-ShiftState AS INTEGER NO-UNDO.

   MESSAGE "OnKeyUp" key p-ShiftState.

END PROCEDURE.

PROCEDURE menuAction .

   MESSAGE "Hello, world!" VIEW-AS ALERT-BOX.

END PROCEDURE.

DEFINE VARIABLE ghMenu            AS HANDLE    NO-UNDO.

&IF DEFINED(FWD-VERSION) eq 0 &THEN

PROCEDURE SendMessageA EXTERNAL "user32" :

  DEFINE INPUT  PARAMETER hwnd        AS LONG.

  DEFINE INPUT  PARAMETER umsg        AS LONG.

  DEFINE INPUT  PARAMETER wparam      AS LONG.

  DEFINE INPUT  PARAMETER lparam      AS LONG.

  DEFINE RETURN PARAMETER ReturnValue AS LONG.

END PROCEDURE.

&ENDIF

/**

 * Create popup menu.

 */

DEFINE VARIABLE hMenuItem          AS HANDLE NO-UNDO.

CREATE MENU ghMenu

   ASSIGN POPUP-ONLY = TRUE.

CREATE MENU-ITEM hMenuItem

   ASSIGN PARENT = ghMenu

          LABEL  = 'Expand subtree'

          SENSITIVE = TRUE

          TRIGGERS:

            ON CHOOSE

               PERSISTENT RUN expandSubtree IN THIS-PROCEDURE.

          END TRIGGERS.

CREATE MENU-ITEM hMenuItem

   ASSIGN PARENT = ghMenu

          LABEL  = 'Collapse subtree'

          SENSITIVE = TRUE

          TRIGGERS:

            ON CHOOSE

               PERSISTENT RUN collapseSubtree IN THIS-PROCEDURE.

          END TRIGGERS.

CREATE MENU-ITEM hMenuItem

   ASSIGN PARENT = ghMenu

          LABEL  = 'Delete subtree'

          SENSITIVE = TRUE

          TRIGGERS:

            ON CHOOSE

               PERSISTENT RUN deleteSubtree IN THIS-PROCEDURE.

          END TRIGGERS.

CREATE MENU-ITEM hMenuItem

   ASSIGN PARENT = ghMenu

          LABEL  = 'Remove node'

          SENSITIVE = TRUE

          TRIGGERS:

            ON CHOOSE

               PERSISTENT RUN deleteNode IN THIS-PROCEDURE.

          END TRIGGERS.

PROCEDURE TreeView.TreeView.OnMouseRightUp .

   DEFINE INPUT PARAMETER p-ShiftState AS INTEGER NO-UNDO.

   DEFINE INPUT PARAMETER p-X          AS INTEGER NO-UNDO.

   DEFINE INPUT PARAMETER p-Y          AS INTEGER NO-UNDO.

   MESSAGE "OnMouseRightUp" p-ShiftState p-X p-Y.

&IF DEFINED(FWD-VERSION) eq 0 &THEN

  DEFINE VARIABLE iretval AS INTEGER NO-UNDO.

  RUN SendMessageA (INPUT FRAME f:HWND,

                    INPUT 516,

                    INPUT 2,

                    INPUT 0,

                    OUTPUT iretval).

  RUN SendMessageA (INPUT FRAME f:HWND,

                    INPUT 517,

                    INPUT 0,

                    INPUT 0,

                    OUTPUT iretval).

&ELSE

   ASSIGN FRAME f:POPUP-MENU = ghMenu.

   f:OPEN-POPUP().

   ASSIGN FRAME f:POPUP-MENU = ?.

&ENDIF

END PROCEDURE.

PROCEDURE TreeView.TreeView.OnPaint .

   MESSAGE "OnPaint".

END PROCEDURE.

PROCEDURE TreeView.TreeView.OnStartDrag .

   MESSAGE "OnStartDrag".

END PROCEDURE.

PROCEDURE TreeView.TreeView.OnChangeNodeDirect .

   DEFINE INPUT PARAMETER p-FromNodeKey AS CHARACTER NO-UNDO.

   DEFINE INPUT PARAMETER p-FromNodePtr AS INTEGER NO-UNDO.

   DEFINE INPUT PARAMETER p-ToNodeKey   AS CHARACTER NO-UNDO.

   DEFINE INPUT PARAMETER p-ToNodePtr   AS INTEGER NO-UNDO.

   MESSAGE "OnChangeNodeDirect" p-FromNodeKey p-FromNodePtr p-ToNodeKey p-ToNodePtr.

END PROCEDURE.

PROCEDURE TreeView.TreeView.OnChangeTopVisibleNode .

   DEFINE INPUT PARAMETER p-PreviousId      AS CHARACTER NO-UNDO.

   DEFINE INPUT PARAMETER p-CurrentId       AS CHARACTER NO-UNDO.

   DEFINE INPUT PARAMETER p-ScrollNodeCount AS INTEGER NO-UNDO.

   MESSAGE "OnChangeTopVisibleNode" p-PreviousId p-CurrentId p-ScrollNodeCount.

END PROCEDURE.

PROCEDURE TreeView.TreeView.OnCollapsed .

   DEFINE INPUT PARAMETER p-NodePtr AS INTEGER NO-UNDO.

   DEFINE INPUT PARAMETER p-nodeId  AS CHARACTER NO-UNDO.

   MESSAGE "OnCollapsed" p-NodePtr p-nodeId.

END PROCEDURE.

PROCEDURE TreeView.TreeView.OnExpanded .

   DEFINE INPUT PARAMETER p-Key AS CHARACTER NO-UNDO.

   MESSAGE "OnExpanded" p-Key.

END PROCEDURE.

PROCEDURE TreeView.TreeView.OnKeyDown .

   DEFINE INPUT PARAMETER p-key        AS INTEGER NO-UNDO.

   DEFINE INPUT PARAMETER p-ShiftState AS INTEGER NO-UNDO.

   MESSAGE "OnKeyDown" p-key p-ShiftState.

END PROCEDURE.

PROCEDURE TreeView.TreeView.OnMouseLeftDown .

   DEFINE INPUT PARAMETER p-ShiftState AS INTEGER NO-UNDO.

   DEFINE INPUT PARAMETER p-X          AS INTEGER NO-UNDO.

   DEFINE INPUT PARAMETER p-Y          AS INTEGER NO-UNDO.

   MESSAGE "OnMouseLeftDown" p-ShiftState p-X p-Y.

END PROCEDURE.

PROCEDURE TreeView.TreeView.OnMouseLeftUp .

   DEFINE INPUT PARAMETER p-ShiftState AS INTEGER NO-UNDO.

   DEFINE INPUT PARAMETER p-X          AS INTEGER NO-UNDO.

   DEFINE INPUT PARAMETER p-Y          AS INTEGER NO-UNDO.

   MESSAGE "OnMouseLeftUp" p-ShiftState p-X p-Y.

END PROCEDURE.

PROCEDURE TreeView.TreeView.OnTreeDragDrop .

   DEFINE INPUT PARAMETER p-DraggedNodeId    AS CHARACTER NO-UNDO.

   DEFINE INPUT PARAMETER p-NodeIdAtMousePos AS CHARACTER NO-UNDO.

   MESSAGE "OnTreeDragDrop" p-DraggedNodeId p-NodeIdAtMousePos.

END PROCEDURE.

PROCEDURE TreeView.TreeView.OnTreeDragOver .

   DEFINE INPUT        PARAMETER p-DraggedNodeId    AS CHARACTER NO-UNDO.

   DEFINE INPUT        PARAMETER p-NodeIdAtMousePos AS CHARACTER NO-UNDO.

   DEFINE INPUT-OUTPUT PARAMETER p-Accept           AS LOGICAL NO-UNDO.

   MESSAGE "OnTreeDragOver" p-DraggedNodeId p-NodeIdAtMousePos p-Accept.

END PROCEDURE.

PROCEDURE TreeView.TreeView.OnTreeDragStart .

   DEFINE INPUT PARAMETER p-DraggedNodeId AS CHARACTER NO-UNDO.

   MESSAGE "OnTreeDragStart" p-DraggedNodeId.

END PROCEDURE.

ON CHOOSE OF bCreateNode DO:

   DEFINE VARIABLE nodeText AS CHARACTER FORMAT "x(128)" NO-UNDO.

   hNode = treeView1:SelectedItem.

   IF hNode = 0 THEN RETURN.

   MESSAGE "Enter node label/key" SET nodeText.

   IF nodeText = ? THEN RETURN.

   IF LENGTH(TRIM(nodeText)) = 0 THEN RETURN.

   nodes:Add(hNode:Index, 4, nodeText, nodeText, img2, img2).

END.

ON CHOOSE OF bCreateNodeByIndex DO:

   DEFINE VARIABLE nodeText AS CHARACTER FORMAT "x(128)" NO-UNDO.

   DEFINE VARIABLE parentIndex AS INTEGER NO-UNDO.

   MESSAGE "Parent Node Index or blank to create a root node" SET parentIndex.

   IF parentIndex = 0 THEN parentIndex = ?.

   MESSAGE "Enter node label/key" SET nodeText.

   IF nodeText = ? THEN RETURN.

   IF LENGTH(TRIM(nodeText)) = 0 THEN RETURN.

   nodes:Add(parentIndex, 4, nodeText, nodeText, img2, img2).

END.

/** If a node is selected, remove it */

PROCEDURE deleteNode .

   hNode = treeView1:SelectedItem.

   IF hNode = 0 THEN RETURN.

   nodes:Remove(hNode:INDEX).

END.

ON CHOOSE OF bClearAll DO:

   nodes:Clear.

END.

ON CHOOSE OF bPrintFocused DO:

   hNode = treeView1:SelectedItem.

   IF hNode = 0 THEN RETURN.

   MESSAGE "Node:" hNode

      SKIP "FullPath:" hNode:FullPath

      SKIP "Tag:" hNode:Tag

      SKIP "Text:" hNode:Text

      SKIP "Checked:" hNode:Checked

      SKIP "Child:" hNode:Child

      SKIP "FirstSibling:" hNode:FirstSibling

      SKIP "Children:" hNode:Children

      SKIP "Index:" hNode:Index

      SKIP "LastSibling:" hNode:LastSibling

      SKIP "Next:" hNode:Next

      SKIP "Parent:" hNode:Parent

      SKIP "Previous:" hNode:Previous

      SKIP "Root:" hNode:Root

      SKIP "ExpandedImage:" hNode:ExpandedImage

      SKIP "Image:" hNode:Image

      SKIP "SelectedImage:" hNode:SelectedImage

      VIEW-AS ALERT-BOX INFORMATION.

END.

ON CHOOSE OF bSetNodeTag DO:

   DEFINE VARIABLE theNode AS COMPONENT-HANDLE NO-UNDO.

   theNode = treeView1:SelectedItem.

   IF theNode <> ? THEN

   DO:

      DEFINE VARIABLE tag AS CHARACTER FORMAT "x(128)" NO-UNDO.

      tag = theNode:Tag.

      MESSAGE "New Tag:" UPDATE tag.

      theNode:Tag = tag.

      MESSAGE "New tag" theNode:Tag.

   END.

END.

ON CHOOSE OF bNodeText DO:

   DEFINE VARIABLE theNode AS COMPONENT-HANDLE NO-UNDO.

   theNode = treeView1:SelectedItem.

   IF theNode <> ? THEN

   DO:

      DEFINE VARIABLE nodeText AS CHARACTER FORMAT "x(128)" NO-UNDO.

      MESSAGE "String Value:" SET nodeText.

      theNode:Text = nodeText.

  END.

END.

ON CHOOSE OF bNodeBold DO:

   DEFINE VARIABLE theNode AS COMPONENT-HANDLE NO-UNDO.

   theNode = treeView1:SelectedItem.

   IF theNode <> ? THEN

   DO:

      DEFINE VARIABLE nodeBold AS LOGICAL NO-UNDO.

      nodeBold = theNode:Bold.

      MESSAGE "Node bold" nodeBold.

      theNode:Bold = NOT nodeBold.

   END.

END.

PROCEDURE deleteSubtree.

   // TODO: the TreeView does NOT support anything like DeleteChildNodes

   // IF treeView1:SelectedItem <> 0 THEN DO:

   //    treeView1:DeleteChildNodes(treeView1:SelectedItem).

   // END.

END.

ON CHOOSE OF bReloadNodes DO:

   RUN reloadNodes.

END.

/* TODO This currently does not work: need to know how to create Windows-compatible font in 4gl */

ON CHOOSE OF bSetFont DO:

   DEFINE VARIABLE fontName AS CHARACTER FORMAT "x(128)" NO-UNDO.

   fontName = treeView1:Font.

   MESSAGE "Font:" UPDATE fontName.

   treeView1:Font = fontName.

END.

ON CHOOSE OF bCollapseNodeByIndex DO:

   DEFINE VARIABLE nodeIndex AS INTEGER NO-UNDO FORMAT ">>>>>>>>>>9".

   MESSAGE "Node Index" SET nodeIndex.

   DEFINE VARIABLE theNode AS COMPONENT-HANDLE NO-UNDO.

   theNode = nodes:Item(nodeIndex).

   theNode:Expanded = FALSE.

   // FIXME: the following is converted incorrectly

   //   nodes:Item(nodeIndex):Expanded = FALSE.

END.

ON CHOOSE OF bEnsureNodeVisible DO:

   DEFINE VARIABLE nodeIndex AS INTEGER NO-UNDO.

   MESSAGE "Node Index" SET nodeIndex.

   IF nodeIndex = 0 THEN RETURN.

   DEFINE VARIABLE theNode AS COMPONENT-HANDLE NO-UNDO.

   theNode = nodes:Item(nodeIndex).

   theNode:EnsureVisible.

   // FIXME: the following is converted incorrectly

   // nodes:Item(nodeIndex):EnsureVisible.

END.

ON CHOOSE OF bDeleteNode DO:

   RUN deleteNode.

END.

ON CHOOSE OF bDeleteNodeByIndex DO:

   DEFINE VARIABLE nodeIndex AS INTEGER NO-UNDO FORMAT ">>>>>>>>>>9".

   MESSAGE "Node ID" SET nodeIndex.

   nodes:Remove(nodeIndex).

END.

ON CHOOSE OF bDeleteNodeByKey DO:

   DEFINE VARIABLE nodeKey AS CHARACTER FORMAT "x(128)" NO-UNDO.

   MESSAGE "Node Key" SET nodeKey.

   nodes:Remove(nodeKey).

END.

ON CHOOSE OF bExpandSubtree DO:

  RUN expandSubtree.

END.

ON CHOOSE OF bCollapseSubtree DO:

  RUN collapseSubtree.

END.

PROCEDURE expandSubtree.

  RUN expandNodeRecursively (treeView1:SelectedItem).

END PROCEDURE.

PROCEDURE expandNodeRecursively.

   DEFINE INPUT PARAMETER nodeIndex AS INTEGER NO-UNDO.

   IF nodeIndex = 0 THEN

      RETURN.

   DEFINE VARIABLE theNode AS COMPONENT-HANDLE NO-UNDO.

   theNode = nodes:Item(nodeIndex).

   theNode:Expanded = TRUE.

   // FIXME: the following is converted incorrectly

   // nodes:Item(nodeIndex):Expanded = FALSE.

   DEFINE VARIABLE childPtr AS INTEGER NO-UNDO.

   DEFINE VARIABLE childKey AS CHARACTER NO-UNDO.

   treeView1:GetFirstChildNode(nodeIndex, OUTPUT childPtr, OUTPUT childKey).

   DO WHILE childPtr <> 0:

     RUN expandNodeRecursively(childPtr).

     treeView1:GetNextSiblingNode(childPtr, OUTPUT childPtr, OUTPUT childKey).

   END.

END PROCEDURE.

PROCEDURE collapseSubtree.

  RUN collapseNodeRecursively (treeView1:SelectedItem).

END PROCEDURE.

PROCEDURE collapseNodeRecursively.

   DEFINE INPUT PARAMETER nodeIndex AS INTEGER NO-UNDO.

   IF nodeIndex = 0 THEN

     RETURN.

   DEFINE VARIABLE theNode AS COMPONENT-HANDLE NO-UNDO.

   theNode = nodes:Item(nodeIndex).

   theNode:Expanded = FALSE.

   // FIXME: the following is converted incorrectly

   // nodes:Item(nodeIndex):Expanded = FALSE.

  DEFINE VARIABLE childPtr AS INTEGER NO-UNDO.

  DEFINE VARIABLE childKey AS CHARACTER NO-UNDO.

  treeView1:GetFirstChildNode(nodeIndex, OUTPUT childPtr, OUTPUT childKey).

  DO WHILE childPtr <> 0:

    RUN collapseNodeRecursively(childPtr).

    treeView1:GetNextSiblingNode(childPtr, OUTPUT childPtr, OUTPUT childKey).

  END.

END PROCEDURE.

WAIT-FOR CLOSE OF THIS-PROCEDURE.