home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 June / PCWorld_2002-06_cd.bin / Software / Komercni / xbase / express / exd17208.r04 / exp17 / Include / Dcdir.ch < prev    next >
Text File  |  2002-01-30  |  8KB  |  114 lines
  1. /*
  2.    Program..: DCDIR.CH
  3.    Author...: Roger Donnay
  4.    Notice...: (c) DONNAY Software Designs 1987-1998
  5.    Date.....: Apr 2, 1998
  6.    Notes....: Special DIR Dialog commands for dCLIP++ / eXpress++
  7. */
  8.  
  9. #include "dcdialog.ch"
  10.  
  11. #command @ <nRow>, <nCol> DCDIRTREE                                         ;
  12.               [ DIRS <oDirs> [VAR <cDirVar>] [DATALINK <bDirLink>] ]        ;
  13.               [ FILES <oFiles> [ VAR <cFileVar> ] [DATALINK <bFileLink>] ]  ;
  14.               [ PARENT <oParent> ]                                          ;
  15.               [ EXT <ExtList,...> ]                                         ;
  16.               [ AEXT <aExtList> ]                                           ;
  17.               [ COLOR <fgC> [, <bgC> ] ]                                    ;
  18.               [ FONT <(font)> ]                                             ;
  19.               [ SIZE <nWidth> [, <nHeight> ] ]                              ;
  20.               [ DIRSIZE <nDirWidth> [, <nDirHeight>] ]                      ;
  21.               [ DIRPOS <nDirCol>, <nDirRow> ]                               ;
  22.               [ FILESIZE <nFileWidth> [, <nFileHeight> ] ]                  ;
  23.               [ FILEPOS <nFileCol>, <nFileRow> ]                            ;
  24.               [ AVAILDRIVES <cAvailDrives> ]                                ;
  25.               [ ALIGN <nAlign> ]                                            ;
  26.               [ TITLE <title> ]                                             ;
  27.               [ EVAL <bEval> ]                                              ;
  28.               [ WHEN <bWhen> ]                                              ;
  29.               [ HIDE <bHide> ]                                              ;
  30.               [ TITLE <cTitle> ]                                            ;
  31.               [ RELATIVE <oRel> ]                                           ;
  32.               [ ID <cId> ]                                                  ;
  33.               [ GOTFOCUS <bGotFocus> ]                                      ;
  34.               [ LOSTFOCUS <bLostFocus> ]                                    ;
  35.               [ <lTabStop:TABSTOP> ]                                        ;
  36.               [ <lNoTabStop:NOTABSTOP> ]                                    ;
  37.               [<lVisible:VISIBLE>]                                          ;
  38.               [<lInvisible:INVISIBLE>]                                      ;
  39.               [ TABGROUP <nTabGroup> ]                                      ;
  40.               [ GROUP <cGroup> ]                                            ;
  41.  =>                                                                         ;
  42.    AADD( DCGUI_GETLIST,                                                     ;
  43.     { GETLIST_DIRTREE,                          /* nGETLIST_TYPE         */ ;
  44.       nil,                                      /* nGETLIST_SUBTYPE      */ ;
  45.       <title>,                                  /* cGETLIST_CAPTION      */ ;
  46.       [{DC_GetAnchorCB(@<cDirVar>,'C',,,<bDirLink>),                        ;
  47.             <(cDirVar)>,'C',,,<(bDirLink)>}],   /* bGETLIST_VAR          */ ;
  48.       <nRow>,                                   /* nGETLIST_STARTROW     */ ;
  49.       <nCol>,                                   /* nGETLIST_STARTCOL     */ ;
  50.       nil,                                      /* nGETLIST_ENDROW       */ ;
  51.       nil,                                      /* nGETLIST_ENDCOL       */ ;
  52.       <nWidth>,                                 /* nGETLIST_WIDTH        */ ;
  53.       <nHeight>,                                /* nGETLIST_HEIGHT       */ ;
  54.       <font>,                                   /* cGETLIST_FONT         */ ;
  55.       nil,                                      /* cGETLIST_PICTURE      */ ;
  56.       {<bWhen>,<(bWhen)>},                      /* bGETLIST_WHEN         */ ;
  57.       nil,                                      /* bGETLIST_VALID        */ ;
  58.       nil,                                      /* cGETLIST_TOOLTIP      */ ;
  59.       nil,                                      /* xGETLIST_CARGO        */ ;
  60.       nil,                                      /* aGETLIST_PRESENTATION */ ;
  61.       nil,                                      /* bGETLIST_ACTION       */ ;
  62.       nil,                                      /* oGETLIST_OBJECT       */ ;
  63.       nil,                                      /* xGETLIST_ORIGVALUE    */ ;
  64.       [{<ExtList>}] [<aExtList>],               /* xGETLIST_OPTIONS      */ ;
  65.       {<fgC>,<bgC>},                            /* cGETLIST_COLOR        */ ;
  66.       nil,                                      /* cGETLIST_MESSAGE      */ ;
  67.       nil,                                      /* cGETLIST_HELPCODE     */ ;
  68.       nil,                                      /* cGETLIST_VARNAME      */ ;
  69.       nil,                                      /* bGETLIST_READVAR      */ ;
  70.       nil,                                      /* bGETLIST_DELIMVAR     */ ;
  71.       nil,                                      /* bGETLIST_GROUP        */ ;
  72.       nil,                                      /* nGETLIST_POINTER      */ ;
  73.       [{DC_GetAnchorCB(@<oParent>,'O'),                                     ;
  74.                        <(oParent)>,'O'}],       /* bGETLIST_PARENT       */ ;
  75.       [{DC_GetAnchorCB(@<cFileVar>,'C',,,<bFileLink>),                      ;
  76.             <(cFileVar)>,'C',,,<(bFileLink)>}], /* bGETLIST_REFVAR       */ ;
  77.       nil,                                      /* lGETLIST_READONLY     */ ;
  78.       .f.,                                      /* lGETLIST_PIXEL        */ ;
  79.       nil,                                      /* nGETLIST_CURSOR       */ ;
  80.       {<bEval>,<(bEval)>},                      /* bGETLIST_EVAL         */ ;
  81.       [{DC_GetAnchorCb(@<oRel>,'O'),                                        ;
  82.                         <(oRel)>,'O'}],         /* bGETLIST_RELATIVE     */ ;
  83.       [{DC_GetAnchorCB(@<oDirs>,'O'),                                       ;
  84.                        <(oDirs)>,'O'}],         /* aGETLIST_OPTIONS2     */ ;
  85.       [{DC_GetAnchorCB(@<oFiles>,'O'),                                      ;
  86.                        <(oFiles)>,'O'}],        /* aGETLIST_OPTIONS3     */ ;
  87.       [{<nDirWidth>,<nDirHeight>}],             /* aGETLIST_OPTIONS4     */ ;
  88.       [{<nFileWidth>,<nFileHeight>}],           /* aGETLIST_OPTIONS5     */ ;
  89.       [{<nDirCol>,<nDirRow>}],                  /* aGETLIST_OPTIONS6     */ ;
  90.       [{<nFileCol>,<nFileRow>}],                /* aGETLIST_OPTIONS7     */ ;
  91.       [<cAvailDrives>],                         /* aGETLIST_OPTIONS8     */ ;
  92.       nil,                                      /* aGETLIST_OPTIONS9     */ ;
  93.       nil,                                      /* cGETLIST_LEVEL        */ ;
  94.       <cTitle>,                                 /* cGETLIST_TITLE        */ ;
  95.       nil,                                      /* cGETLIST_ACCESS       */ ;
  96.       nil,                                      /* bGETLIST_COMPILE      */ ;
  97.       <cId>,                                    /* cGETLIST_ID           */ ;
  98.       nil,                                      /* dGETLIST_REVDATE      */ ;
  99.       nil,                                      /* cGETLIST_REVTIME      */ ;
  100.       nil,                                      /* cGETLIST_REVUSER      */ ;
  101.       {<bHide>,<(bHide)>},                      /* bGETLIST_HIDE         */ ;
  102.       nil,                                      /* nGETLIST_ACCELKEY     */ ;
  103.       {<bGotFocus>,<(bGotFocus)>},              /* bGETLIST_GOTFOCUS     */ ;
  104.       {<bLostFocus>,<(bLostFocus)>},            /* nGETLIST_ACCELKEY     */ ;
  105.       [<.lTabStop.>.AND.!<.lNoTabStop.>],       /* lGETLIST_TABSTOP      */ ;
  106.       <nTabGroup>,                              /* nGETLIST_TABGROUP     */ ;
  107.       [<.lVisible.>.AND.!<.lInvisible.>],       /* lGETLIST_VISIBLE      */ ;
  108.       <cGroup>,                                 /* cGETLIST_GETGROUP     */ ;
  109.       .f.,                                      /* lGETLIST_FLAG         */ ;
  110.       {ProcName(),ProcLine()},                  /* aGETLIST_PROC         */ ;
  111.    } )
  112.  
  113.  
  114.