home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 June / PCWorld_2002-06_cd.bin / Software / Komercni / xbase / express / exd17208.r04 / exp17 / Include / Dcpick.ch < prev    next >
Text File  |  2002-01-30  |  8KB  |  106 lines
  1. /*
  2.    Program..: DCPICK.CH
  3.    Author...: Roger Donnay
  4.    Notice...: (c) DONNAY Software Designs 1987-2000
  5.    Date.....: Dec 10, 2000
  6.    Notes....: Special PICKLIST Dialog commands for dCLIP++ / eXpress++
  7. */
  8.  
  9. #include "dcdialog.ch"
  10.  
  11. #command @ <nRow>, <nCol> DCPICKLIST <aPick> LIST <aList>                   ;
  12.               [DATALINK <bLink>]                                            ;
  13.               [PARENT <oParent> ]                                           ;
  14.               [COLOR <fgC> [, <bgC> ] ]                                     ;
  15.               [FONT <(font)> ]                                              ;
  16.               [TOOLTIP <cToolTip> ]                                         ;
  17.               [MESSAGE <cMsg> [INTO <oMsg>]]                                ;
  18.               [CARGO <xCargo>]                                              ;
  19.               [SIZE <nWidth> [, <nHeight>] ]                                ;
  20.               [CAPTION <cLeftCap> [,<cRightCap> ] ]                         ;
  21.               [EVAL <bEval> ]                                               ;
  22.               [WHEN <bWhen>]                                                ;
  23.               [HIDE<bHide>]                                                 ;
  24.               [OBJECT <oObject>]                                            ;
  25.               [ID <cId> ]                                                   ;
  26.               [TITLE <cTitle> ]                                             ;
  27.               [RELATIVE <oRel> ]                                            ;
  28.               [<lIm:IMMEDIATE>]                                             ;
  29.               [<lCopy:COPYITEMS> ]                                          ;
  30.               [<lVisible:VISIBLE>]                                          ;
  31.               [<lInvisible:INVISIBLE>]                                      ;
  32.               [GROUP <cGroup>]                                              ;
  33.  =>                                                                         ;
  34.    AADD( GetList,                                                           ;
  35.     { GETLIST_PICKLIST,                         /* nGETLIST_TYPE         */ ;
  36.       nil,                                      /* nGETLIST_SUBTYPE      */ ;
  37.       nil,                                      /* cGETLIST_CAPTION      */ ;
  38.       {DC_GetAnchorCB(@<aPick>,'A'),<(aPick)>,'A'},                         ;
  39.                                                 /* bGETLIST_VAR          */ ;
  40.       <nRow>,                                   /* nGETLIST_STARTROW     */ ;
  41.       <nCol>,                                   /* nGETLIST_STARTCOL     */ ;
  42.       nil,                                      /* nGETLIST_ENDROW       */ ;
  43.       nil,                                      /* nGETLIST_ENDCOL       */ ;
  44.       <nWidth>,                                 /* nGETLIST_WIDTH        */ ;
  45.       <nHeight>,                                /* nGETLIST_HEIGHT       */ ;
  46.       <font>,                                   /* cGETLIST_FONT         */ ;
  47.       nil,                                      /* cGETLIST_PICTURE      */ ;
  48.       {<bWhen>,<(bWhen)>},                      /* bGETLIST_WHEN         */ ;
  49.       nil,                                      /* bGETLIST_VALID        */ ;
  50.       <cToolTip>,                               /* cGETLIST_TOOLTIP      */ ;
  51.       <xCargo>,                                 /* xGETLIST_CARGO        */ ;
  52.       nil,                                      /* aGETLIST_PRESENTATION */ ;
  53.       [{<bLink>,<(bLink)>}],                    /* bGETLIST_ACTION       */ ;
  54.       nil,                                      /* oGETLIST_OBJECT       */ ;
  55.       nil,                                      /* xGETLIST_ORIGVALUE    */ ;
  56.       [{<cLeftCap>,<cRightCap>,<.lCopy.>,                                   ;
  57.         <.lIm.>}],                              /* xGETLIST_OPTIONS      */ ;
  58.       {<fgC>,<bgC>},                            /* cGETLIST_COLOR        */ ;
  59.       {<cMsg>,[{DC_GetAnchorCB(@<oMsg>,'O'),<oMsg>,'O'}]},                  ;
  60.                                                 /* cGETLIST_MESSAGE      */ ;
  61.       nil,                                      /* cGETLIST_HELPCODE     */ ;
  62.       <(aPick)>,                                /* cGETLIST_VARNAME      */ ;
  63.       nil,                                      /* bGETLIST_READVAR      */ ;
  64.       nil,                                      /* bGETLIST_DELIMVAR     */ ;
  65.       [{DC_GetAnchorCB(@<oObject>,'O'),                                     ;
  66.                         <(oObject)>,'O'}],      /* bGETLIST_GROUP        */ ;
  67.       nil,                                      /* nGETLIST_POINTER      */ ;
  68.       [{DC_GetAnchorCB(@<oParent>,'O'),                                     ;
  69.                        <(oParent)>,'O'}],       /* bGETLIST_PARENT       */ ;
  70.       [{DC_GetAnchorCB(@<aList>,'A'),<(aList)>,'A'}],                       ;
  71.                                                 /* bGETLIST_REFVAR       */ ;
  72.       nil,                                      /* lGETLIST_READONLY     */ ;
  73.       .f.,                                      /* lGETLIST_PIXEL        */ ;
  74.       nil,                                      /* nGETLIST_CURSOR       */ ;
  75.       {<bEval>,<(bEval)>},                      /* bGETLIST_EVAL         */ ;
  76.       [{DC_GetAnchorCb(@<oRel>,'O'),                                        ;
  77.                         <(oRel)>,'O'}],         /* bGETLIST_RELATIVE     */ ;
  78.       nil,                                      /* aGETLIST_OPTIONS2     */ ;
  79.       nil,                                      /* aGETLIST_OPTIONS3     */ ;
  80.       nil,                                      /* aGETLIST_OPTIONS4     */ ;
  81.       nil,                                      /* aGETLIST_OPTIONS5     */ ;
  82.       nil,                                      /* aGETLIST_OPTIONS6     */ ;
  83.       nil,                                      /* aGETLIST_OPTIONS7     */ ;
  84.       nil,                                      /* aGETLIST_OPTIONS8     */ ;
  85.       nil,                                      /* aGETLIST_OPTIONS9     */ ;
  86.       nil,                                      /* cGETLIST_LEVEL        */ ;
  87.       <cTitle>,                                 /* cGETLIST_TITLE        */ ;
  88.       nil,                                      /* cGETLIST_ACCESS       */ ;
  89.       nil,                                      /* bGETLIST_COMPILE      */ ;
  90.       <cId>,                                    /* cGETLIST_ID           */ ;
  91.       nil,                                      /* dGETLIST_REVDATE      */ ;
  92.       nil,                                      /* cGETLIST_REVTIME      */ ;
  93.       nil,                                      /* cGETLIST_REVUSER      */ ;
  94.       {<bHide>,<(bHide)>},                      /* bGETLIST_HIDE         */ ;
  95.       nil,                                      /* nGETLIST_ACCELKEY     */ ;
  96.       nil,                                      /* bGETLIST_GOTFOCUS     */ ;
  97.       nil,                                      /* nGETLIST_ACCELKEY     */ ;
  98.       .f.,                                      /* lGETLIST_TABSTOP      */ ;
  99.       nil,                                      /* nGETLIST_TABGROUP     */ ;
  100.       [<.lVisible.>.AND.!<.lInvisible.>],       /* lGETLIST_VISIBLE      */ ;
  101.       <cGroup>,                                 /* cGETLIST_GETGROUP     */ ;
  102.       .f.,                                      /* lGETLIST_FLAG         */ ;
  103.       {ProcName(),ProcLine()},                  /* aGETLIST_PROC         */ ;
  104.      } )
  105.  
  106.