home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 June / PCWorld_2002-06_cd.bin / Software / Komercni / xbase / express / exd17208.r04 / exp17 / Include / Dctree.ch < prev    next >
Text File  |  2002-01-30  |  23KB  |  307 lines
  1. /*
  2.    Program..: DCTREE.CH
  3.    Author...: Roger Donnay
  4.    Notice...: (c) DONNAY Software Designs 1987-1998
  5.    Date.....: Oct 21, 1998
  6.    Notes....: Special TREEVIEW Dialog commands for dCLIP++ / eXpress++
  7. */
  8.  
  9. #include "dcdialog.ch"
  10.  
  11. #command @ <nRow> [, <nCol>] DCTREEARRAY <aArray>                           ;
  12.               [ VAR <xVar> ]                                                ;
  13.               [ CAPTION <cCaption> ]                                        ;
  14.               [ PARENT <oParent> ]                                          ;
  15.               [ COLOR <fgC> [, <bgC> ] ]                                    ;
  16.               [ FONT <(font)> ]                                             ;
  17.               [ DATALINK <bLink> ]                                          ;
  18.               [ SIZE <nWidth> [, <nHeight>] ]                               ;
  19.               [ HIDE <bHide> ]                                              ;
  20.               [ WHEN <bWhen> ]                                              ;
  21.               [ EVAL <bEval> ]                                              ;
  22.               [ PREEVAL <bPreEval> ]                                        ;
  23.               [ RELATIVE <oRel> ]                                           ;
  24.               [ OPTIONS <aOptions> ]                                        ;
  25.               [ OBJECT <oObject> ]                                          ;
  26.               [ ID <cId> ]                                                  ;
  27.               [ TITLE <title> ]                                             ;
  28.               [ <lButtons:HASBUTTONS>]                                      ;
  29.               [ <lLines:HASLINES>]                                          ;
  30.               [ GOTFOCUS <bGotFocus> ]                                      ;
  31.               [ LOSTFOCUS <bLostFocus> ]                                    ;
  32.               [ <lTabStop:TABSTOP> ]                                        ;
  33.               [ <lNoTabStop:NOTABSTOP> ]                                    ;
  34.               [ <lVisible:VISIBLE> ]                                        ;
  35.               [ <lInvisible:INVISIBLE> ]                                    ;
  36.               [ TABGROUP <nTabGroup> ]                                      ;
  37.               [ GROUP <cGroup> ]                                            ;
  38.  =>                                                                         ;
  39.    AADD( GetList,                                                           ;
  40.     { GETLIST_TREEARRAY,                        /* nGETLIST_TYPE         */ ;
  41.       nil,                                      /* nGETLIST_SUBTYPE      */ ;
  42.       <cCaption>,                               /* cGETLIST_CAPTION      */ ;
  43.       {DC_GetAnchorCB(@<aArray>,'A'),                                       ;
  44.                  <(aArray)>,'A'},               /* bGETLIST_VAR          */ ;
  45.       <nRow>,                                   /* nGETLIST_STARTROW     */ ;
  46.       <nCol>,                                   /* nGETLIST_STARTCOL     */ ;
  47.       nil,                                      /* nGETLIST_ENDROW       */ ;
  48.       nil,                                      /* nGETLIST_ENDCOL       */ ;
  49.       <nWidth>,                                 /* nGETLIST_WIDTH        */ ;
  50.       <nHeight>,                                /* nGETLIST_HEIGHT       */ ;
  51.       <font>,                                   /* cGETLIST_FONT         */ ;
  52.       nil,                                      /* cGETLIST_PICTURE      */ ;
  53.       {<bWhen>,<(bWhen)>},                      /* bGETLIST_WHEN         */ ;
  54.       nil,                                      /* bGETLIST_VALID        */ ;
  55.       nil,                                      /* cGETLIST_TOOLTIP      */ ;
  56.       nil,                                      /* xGETLIST_CARGO        */ ;
  57.       nil,                                      /* aGETLIST_PRESENTATION */ ;
  58.       nil,                                      /* bGETLIST_ACTION       */ ;
  59.       nil,                                      /* oGETLIST_OBJECT       */ ;
  60.       nil,                                      /* xGETLIST_ORIGVALUE    */ ;
  61.       {<.lButtons.>,<.lLines.>},                /* xGETLIST_OPTIONS      */ ;
  62.       {<fgC>,<bgC>},                            /* cGETLIST_COLOR        */ ;
  63.       nil,                                      /* cGETLIST_MESSAGE      */ ;
  64.       nil,                                      /* cGETLIST_HELPCODE     */ ;
  65.       nil,                                      /* cGETLIST_VARNAME      */ ;
  66.       nil,                                      /* bGETLIST_READVAR      */ ;
  67.       nil,                                      /* bGETLIST_DELIMVAR     */ ;
  68.       [{DC_GetAnchorCb(@<oObject>,'O'),                                     ;
  69.                         <(oObject)>,'O'}],      /* bGETLIST_GROUP        */ ;
  70.       nil,                                      /* nGETLIST_POINTER      */ ;
  71.       [{DC_GetAnchorCB(@<oParent>,'O'),                                     ;
  72.                        <(oParent)>,'O'}],       /* bGETLIST_PARENT       */ ;
  73.       [{DC_GetAnchorCB(@<aOptions>,'A'),                                    ;
  74.                  <(aOptions)>,'A'}],            /* bGETLIST_REFVAR       */ ;
  75.       nil,                                      /* lGETLIST_READONLY     */ ;
  76.       .f.,                                      /* lGETLIST_PIXEL        */ ;
  77.       nil,                                      /* nGETLIST_CURSOR       */ ;
  78.       <bEval>,                                  /* bGETLIST_EVAL         */ ;
  79.       [{DC_GetAnchorCb(@<oRel>,'O'),                                        ;
  80.                         <(oRel)>,'O'}],         /* bGETLIST_RELATIVE     */ ;
  81.       [DC_GetAnchorCB(@<xVar>,,'U',,<bLink>),                               ;
  82.                  <(xVar)>,,'U',,<(bLink)>],     /* aGETLIST_OPTIONS2     */ ;
  83.       nil,                                      /* aGETLIST_OPTIONS3     */ ;
  84.       nil,                                      /* aGETLIST_OPTIONS4     */ ;
  85.       nil,                                      /* aGETLIST_OPTIONS5     */ ;
  86.       nil,                                      /* aGETLIST_OPTIONS6     */ ;
  87.       nil,                                      /* aGETLIST_OPTIONS7     */ ;
  88.       nil,                                      /* aGETLIST_OPTIONS8     */ ;
  89.       nil,                                      /* aGETLIST_OPTIONS9     */ ;
  90.       nil,                                      /* cGETLIST_LEVEL        */ ;
  91.       nil,                                      /* cGETLIST_TITLE        */ ;
  92.       nil,                                      /* cGETLIST_ACCESS       */ ;
  93.       nil,                                      /* bGETLIST_COMPILE      */ ;
  94.       <cId>,                                    /* cGETLIST_ID           */ ;
  95.       nil,                                      /* dGETLIST_REVDATE      */ ;
  96.       nil,                                      /* cGETLIST_REVTIME      */ ;
  97.       nil,                                      /* cGETLIST_REVUSER      */ ;
  98.       {<bHide>,<(bHide)>},                      /* bGETLIST_HIDE         */ ;
  99.       nil,                                      /* nGETLIST_ACCELKEY     */ ;
  100.       {<{bGotFocus}>,<(bGotFocus)>},            /* bGETLIST_GOTFOCUS     */ ;
  101.       {<{bLostFocus}>,<(bLostFocus)>},          /* nGETLIST_ACCELKEY     */ ;
  102.       [<.lTabStop.>.AND.!<.lNoTabStop.>],       /* lGETLIST_TABSTOP      */ ;
  103.       <nTabGroup>,                              /* nGETLIST_TABGROUP     */ ;
  104.       [<.lVisible.>.AND.!<.lInvisible.>],       /* lGETLIST_VISIBLE      */ ;
  105.       <cGroup>,                                 /* cGETLIST_GETGROUP     */ ;
  106.       .f.,                                      /* lGETLIST_FLAG         */ ;
  107.       {ProcName(),ProcLine()},                  /* aGETLIST_PROC         */ ;
  108.       <bPreEval>,                               /* bGETLIST_PREEVAL      */ ;
  109.      } )
  110.  
  111.  
  112. #command @ <nRow> [, <nCol>] DCTREEROOT                                     ;
  113.               [ PARENT <oParent> ]                                          ;
  114.               [ COLOR <fgC> [, <bgC> ] ]                                    ;
  115.               [ FONT <(font)> ]                                             ;
  116.               [ SIZE <nWidth> [, <nHeight>] ]                               ;
  117.               [ HIDE <bHide> ]                                              ;
  118.               [ WHEN <bWhen> ]                                              ;
  119.               [ EVAL <bEval> ]                                              ;
  120.               [ PRESENTATION <aPres> ]                                      ;
  121.               [ PREEVAL <bPreEval> ]                                        ;
  122.               [ RELATIVE <oRel> ]                                           ;
  123.               [ HELPCODE <cHelpCode> ]                                      ;
  124.               [ OBJECT <oObject> ]                                          ;
  125.               [ ID <cId> ]                                                  ;
  126.               [ TOOLTIP <cToolTip> ]                                        ;
  127.               [ TITLE <title> ]                                             ;
  128.               [ <lButtons:HASBUTTONS>]                                      ;
  129.               [ <lLines:HASLINES>]                                          ;
  130.               [ GOTFOCUS <bGotFocus> ]                                      ;
  131.               [ LOSTFOCUS <bLostFocus> ]                                    ;
  132.               [ <lTabStop:TABSTOP> ]                                        ;
  133.               [ <lNoTabStop:NOTABSTOP> ]                                    ;
  134.               [ <lVisible:VISIBLE> ]                                        ;
  135.               [ <lInvisible:INVISIBLE> ]                                    ;
  136.               [ TABGROUP <nTabGroup> ]                                      ;
  137.               [ GROUP <cGroup> ]                                            ;
  138.               [ ITEMCOLLAPSED <bItemCollapsed> ]                            ;
  139.               [ ITEMEXPANDED <bItemExpanded> ]                              ;
  140.               [ ITEMMARKED <bItemMarked> ]                                  ;
  141.               [ ITEMSELECTED <bItemSelected> ]                              ;
  142.  =>                                                                         ;
  143.    AADD( GetList,                                                           ;
  144.     { GETLIST_TREEROOT,                         /* nGETLIST_TYPE         */ ;
  145.       nil,                                      /* nGETLIST_SUBTYPE      */ ;
  146.       nil,                                      /* cGETLIST_CAPTION      */ ;
  147.       nil,                                      /* bGETLIST_VAR          */ ;
  148.       <nRow>,                                   /* nGETLIST_STARTROW     */ ;
  149.       <nCol>,                                   /* nGETLIST_STARTCOL     */ ;
  150.       nil,                                      /* nGETLIST_ENDROW       */ ;
  151.       nil,                                      /* nGETLIST_ENDCOL       */ ;
  152.       <nWidth>,                                 /* nGETLIST_WIDTH        */ ;
  153.       <nHeight>,                                /* nGETLIST_HEIGHT       */ ;
  154.       <font>,                                   /* cGETLIST_FONT         */ ;
  155.       nil,                                      /* cGETLIST_PICTURE      */ ;
  156.       {<bWhen>,<(bWhen)>},                      /* bGETLIST_WHEN         */ ;
  157.       nil,                                      /* bGETLIST_VALID        */ ;
  158.       <cToolTip>,                               /* cGETLIST_TOOLTIP      */ ;
  159.       nil,                                      /* xGETLIST_CARGO        */ ;
  160.       <aPres>,                                  /* aGETLIST_PRESENTATION */ ;
  161.       nil,                                      /* bGETLIST_ACTION       */ ;
  162.       nil,                                      /* oGETLIST_OBJECT       */ ;
  163.       nil,                                      /* xGETLIST_ORIGVALUE    */ ;
  164.       {<.lButtons.>,<.lLines.>},                /* xGETLIST_OPTIONS      */ ;
  165.       [{<fgC>,<bgC>}],                          /* cGETLIST_COLOR        */ ;
  166.       nil,                                      /* cGETLIST_MESSAGE      */ ;
  167.       <cHelpCode>,                              /* cGETLIST_HELPCODE     */ ;
  168.       nil,                                      /* cGETLIST_VARNAME      */ ;
  169.       nil,                                      /* bGETLIST_READVAR      */ ;
  170.       nil,                                      /* bGETLIST_DELIMVAR     */ ;
  171.       [{DC_GetAnchorCb(@<oObject>,'O'),                                     ;
  172.                         <(oObject)>,'O'}],      /* bGETLIST_GROUP        */ ;
  173.       nil,                                      /* nGETLIST_POINTER      */ ;
  174.       [{DC_GetAnchorCB(@<oParent>,'O'),                                     ;
  175.                        <(oParent)>,'O'}],       /* bGETLIST_PARENT       */ ;
  176.       nil,                                      /* bGETLIST_REFVAR       */ ;
  177.       nil,                                      /* lGETLIST_READONLY     */ ;
  178.       .f.,                                      /* lGETLIST_PIXEL        */ ;
  179.       nil,                                      /* nGETLIST_CURSOR       */ ;
  180.       <bEval>,                                  /* bGETLIST_EVAL         */ ;
  181.       [{DC_GetAnchorCb(@<oRel>,'O'),                                        ;
  182.                         <(oRel)>,'O'}],         /* bGETLIST_RELATIVE     */ ;
  183.       nil,                                      /* aGETLIST_OPTIONS2     */ ;
  184.       {<{bItemCollapsed}>,<(bItemCollapsed)>},  /* aGETLIST_OPTIONS3     */ ;
  185.       {<{bItemExpanded}>,<(bItemExpanded)>},    /* aGETLIST_OPTIONS4     */ ;
  186.       {<{bItemMarked}>,<(bItemMarked)>},        /* aGETLIST_OPTIONS5     */ ;
  187.       {<{bItemSelected}>,<(bItemSelected)>},    /* aGETLIST_OPTIONS6     */ ;
  188.       nil,                                      /* aGETLIST_OPTIONS7     */ ;
  189.       nil,                                      /* aGETLIST_OPTIONS8     */ ;
  190.       nil,                                      /* aGETLIST_OPTIONS9     */ ;
  191.       nil,                                      /* cGETLIST_LEVEL        */ ;
  192.       nil,                                      /* cGETLIST_TITLE        */ ;
  193.       nil,                                      /* cGETLIST_ACCESS       */ ;
  194.       nil,                                      /* bGETLIST_COMPILE      */ ;
  195.       <cId>,                                    /* cGETLIST_ID           */ ;
  196.       nil,                                      /* dGETLIST_REVDATE      */ ;
  197.       nil,                                      /* cGETLIST_REVTIME      */ ;
  198.       nil,                                      /* cGETLIST_REVUSER      */ ;
  199.       {<bHide>,<(bHide)>},                      /* bGETLIST_HIDE         */ ;
  200.       nil,                                      /* nGETLIST_ACCELKEY     */ ;
  201.       {<{bGotFocus}>,<(bGotFocus)>},            /* bGETLIST_GOTFOCUS     */ ;
  202.       {<{bLostFocus}>,<(bLostFocus)>},          /* nGETLIST_ACCELKEY     */ ;
  203.       [<.lTabStop.>.AND.!<.lNoTabStop.>],       /* lGETLIST_TABSTOP      */ ;
  204.       <nTabGroup>,                              /* nGETLIST_TABGROUP     */ ;
  205.       [<.lVisible.>.AND.!<.lInvisible.>],       /* lGETLIST_VISIBLE      */ ;
  206.       <cGroup>,                                 /* cGETLIST_GETGROUP     */ ;
  207.       .f.,                                      /* lGETLIST_FLAG         */ ;
  208.       {ProcName(),ProcLine()},                  /* aGETLIST_PROC         */ ;
  209.       <bPreEval>,                               /* bGETLIST_PREEVAL      */ ;
  210.      } )
  211.  
  212. * ------------------------------- *
  213.  
  214. #xcommand  DCTREEITEM                                                       ;
  215.                 [CAPTION <cCaption>]                                        ;
  216.                 [PARENT <oParent>]                                          ;
  217.                 [WHEN <bWhen>]                                              ;
  218.                 [PROTECT <bProtect>]                                        ;
  219.                 [ACTION <bAction> [<lFirstClick:FIRSTCLICK>] ]              ;
  220.                 [HELPCODE <cHelpCode>]                                      ;
  221.                 [TOOLTIP <cToolTip>]                                        ;
  222.                 [MESSAGE <cMsg> [INTO <oMsg>]]                              ;
  223.                 [CARGO <xCargo>]                                            ;
  224.                 [ID <cId>]                                                  ;
  225.                 [OBJECT <oObject>]                                          ;
  226.                 [TITLE <cTitle>]                                            ;
  227.                 [EVAL <bEval>]                                              ;
  228.                 [PREEVAL <bPreEval>]                                        ;
  229.                 [GROUP <cGroup>]                                            ;
  230.                 [IMAGEEXPANDED <nImageExpanded>]                            ;
  231.                 [IMAGENORMAL <nImageNormal>]                                ;
  232.                 [IMAGEMARKED <nImageMarked>]                                ;
  233.                 [DLLNAME <cDllName>]                                        ;
  234.                 [LOCK <cLock>]                                              ;
  235.  =>                                                                         ;
  236.   AADD( DCGUI_GETLIST,                                                      ;
  237.     { GETLIST_TREEITEM,                         /* nGETLIST_TYPE         */ ;
  238.       nil,                                      /* nGETLIST_SUBTYPE      */ ;
  239.       <cCaption>,                               /* cGETLIST_CAPTION      */ ;
  240.       nil,                                      /* bGETLIST_VAR          */ ;
  241.       nil,                                      /* nGETLIST_STARTROW     */ ;
  242.       nil,                                      /* nGETLIST_STARTCOL     */ ;
  243.       nil,                                      /* nGETLIST_ENDROW       */ ;
  244.       nil,                                      /* nGETLIST_ENDCOL       */ ;
  245.       nil,                                      /* nGETLIST_WIDTH        */ ;
  246.       nil,                                      /* nGETLIST_HEIGHT       */ ;
  247.       nil,                                      /* cGETLIST_FONT         */ ;
  248.       nil,                                      /* cGETLIST_PICTURE      */ ;
  249.       {<bWhen>,<(bWhen)>},                      /* bGETLIST_WHEN         */ ;
  250.       nil,                                      /* bGETLIST_VALID        */ ;
  251.       <cToolTip>,                               /* cGETLIST_TOOLTIP      */ ;
  252.       <xCargo>,                                 /* xGETLIST_CARGO        */ ;
  253.       nil,                                      /* aGETLIST_PRESENTATION */ ;
  254.       {<bAction>,<(bAction)>},                  /* bGETLIST_ACTION       */ ;
  255.       nil,                                      /* oGETLIST_OBJECT       */ ;
  256.       nil,                                      /* xGETLIST_ORIGVALUE    */ ;
  257.       {<cLock>},                                /* xGETLIST_OPTIONS      */ ;
  258.       nil,                                      /* aGETLIST_COLOR        */ ;
  259.       {<cMsg>,[{DC_GetAnchorCB(@<oMsg>,'O'),<oMsg>,'O'}]},                  ;
  260.                                                 /* cGETLIST_MESSAGE      */ ;
  261.       <cHelpCode>,                              /* cGETLIST_HELPCODE     */ ;
  262.       nil,                                      /* cGETLIST_VARNAME      */ ;
  263.       nil,                                      /* bGETLIST_READVAR      */ ;
  264.       nil,                                      /* bGETLIST_DELIMVAR     */ ;
  265.       [{DC_GetAnchorCb(@<oObject>,'O'),                                     ;
  266.                         <(oObject)>,'O'}],      /* bGETLIST_GROUP        */ ;
  267.       nil,                                      /* nGETLIST_POINTER      */ ;
  268.       [{DC_GetAnchorCB(@<oParent>,'O'),                                     ;
  269.                         <(oParent)>,'O'}],      /* bGETLIST_PARENT       */ ;
  270.       nil,                                      /* bGETLIST_REFVAR       */ ;
  271.       {<bProtect>,<(bProtect)>},                /* bGETLIST_PROTECT      */ ;
  272.       .f.,                                      /* lGETLIST_PIXEL        */ ;
  273.       nil,                                      /* nGETLIST_CURSOR       */ ;
  274.       <bEval>,                                  /* bGETLIST_EVAL         */ ;
  275.       nil,                                      /* bGETLIST_RELATIVE     */ ;
  276.       <nImageExpanded>,                         /* xGETLIST_OPTIONS2     */ ;
  277.       <nImageNormal>,                           /* xGETLIST_OPTIONS3     */ ;
  278.       <nImageMarked>,                           /* xGETLIST_OPTIONS4     */ ;
  279.       <cDllName>,                               /* xGETLIST_OPTIONS5     */ ;
  280.       <.lFirstClick.>,                          /* xGETLIST_OPTIONS6     */ ;
  281.       nil,                                      /* aGETLIST_OPTIONS7     */ ;
  282.       nil,                                      /* aGETLIST_OPTIONS8     */ ;
  283.       nil,                                      /* aGETLIST_OPTIONS9     */ ;
  284.       nil,                                      /* cGETLIST_LEVEL        */ ;
  285.       <cTitle>,                                 /* cGETLIST_TITLE        */ ;
  286.       nil,                                      /* cGETLIST_ACCESS       */ ;
  287.       nil,                                      /* bGETLIST_COMPILE      */ ;
  288.       <cId>,                                    /* cGETLIST_ID           */ ;
  289.       nil,                                      /* dGETLIST_REVDATE      */ ;
  290.       nil,                                      /* cGETLIST_REVTIME      */ ;
  291.       nil,                                      /* cGETLIST_REVUSER      */ ;
  292.       nil,                                      /* bGETLIST_HIDE         */ ;
  293.       nil,                                      /* nGETLIST_ACCELKEY     */ ;
  294.       nil,                                      /* bGETLIST_GOTFOCUS     */ ;
  295.       nil,                                      /* bGETLIST_LOSTFOCUS    */ ;
  296.       .f.,                                      /* lGETLIST_TABSTOP      */ ;
  297.       nil,                                      /* nGETLIST_TABGROUP     */ ;
  298.       nil,                                      /* lGETLIST_VISIBLE      */ ;
  299.       <cGroup>,                                 /* cGETLIST_GETGROUP     */ ;
  300.       .f.,                                      /* lGETLIST_FLAG         */ ;
  301.       {ProcName(),ProcLine()},                  /* aGETLIST_PROC         */ ;
  302.       <bPreEval>,                               /* bGETLIST_PREEVAL      */ ;
  303.     } )
  304.  
  305.  
  306.  
  307.