home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 June / PCWorld_2002-06_cd.bin / Software / Komercni / xbase / express / exd17208.r04 / exp17 / Include / Dcudc.ch < prev    next >
Text File  |  2002-01-30  |  8KB  |  112 lines
  1. /*
  2.    Program..: DCUDC.CH
  3.    Author...: Roger Donnay
  4.    Notice...: (c) DONNAY Software Designs 1987-1998
  5.    Date.....: Sep 26, 1998
  6.    Notes....: Template for USER-DEFINED COMMANDS for dCLIP++ / eXpress++
  7. */
  8.  
  9.  
  10. #include 'dcdialog.ch'
  11.  
  12.  
  13. #define GETLIST_USERCOMMAND   GETLIST_USER + 1
  14.  
  15. #command  @ <nRow>,<nCol> DCUSERTEMPLATE                                    ;
  16.                 [SIZE <nHeight> [,<nWidth>]]                                ;
  17.                 [GROUP <oGroup>]                                            ;
  18.                 [PARENT <oParent>]                                          ;
  19.                 [CAPTION <cCaption>]                                        ;
  20.                 [ACTION <bAction>]                                          ;
  21.                 [TYPE <nType>]                                              ;
  22.                 [FONT <cFont>]                                              ;
  23.                 [CURSOR <nCursor>]                                          ;
  24.                 [COLOR <ncFgC> [,<ncBgC>] ]                                 ;
  25.                 [CARGO <xCargo>]                                            ;
  26.                 [PRESENTATION <aPres>]                                      ;
  27.                 [MESSAGE <cMsg>]                                            ;
  28.                 [TOOLTIP <cToolTip>]                                        ;
  29.                 [HELPCODE <cHelpCode>]                                      ;
  30.                 [VALID <bValid>]                                            ;
  31.                 [WHEN <bWhen>]                                              ;
  32.                 [EVAL <bEval>]                                              ;
  33.                 [HIDE <bHide>]                                              ;
  34.                 [<p :PIXEL>]                                                ;
  35.                 [TITLE <cTitle>]                                            ;
  36.                 [RELATIVE <oRel>]                                           ;
  37.                 [ID <cId>]                                                  ;
  38.                 [ACCELKEY <nAccel>]                                         ;
  39.                 [GOTFOCUS <bGotFocus>]                                      ;
  40.                 [LOSTFOCUS <bLostFocus>]                                    ;
  41.                 [<lTabStop:TABSTOP>]                                        ;
  42.                 [<lNoTabStop:NOTABSTOP>]                                    ;
  43.                 [TABGROUP <nTabGroup>]                                      ;
  44.                 [<lVisible:VISIBLE>]                                        ;
  45.                 [<lInvisible:INVISIBLE>]                                    ;
  46.   =>                                                                        ;
  47.    AADD( GetList,                                                           ;
  48.     { GETLIST_USERCOMMAND,                      /* nGETLIST_TYPE         */ ;
  49.       <nType>,                                  /* nGETLIST_SUBTYPE      */ ;
  50.       <cCaption>,                               /* cGETLIST_CAPTION      */ ;
  51.       nil,                                      /* bGETLIST_VAR          */ ;
  52.       <nRow>,                                   /* nGETLIST_STARTROW     */ ;
  53.       <nCol>,                                   /* nGETLIST_STARTCOL     */ ;
  54.       nil,                                      /* nGETLIST_ENDROW       */ ;
  55.       nil,                                      /* nGETLIST_ENDCOL       */ ;
  56.       <nWidth>,                                 /* nGETLIST_WIDTH        */ ;
  57.       <nHeight>,                                /* nGETLIST_HEIGHT       */ ;
  58.       <cFont>,                                  /* cGETLIST_FONT         */ ;
  59.       <cPict>,                                  /* cGETLIST_PICTURE      */ ;
  60.       {<{bWhen}>,<(bWhen)>},                    /* bGETLIST_WHEN         */ ;
  61.       {<{bValid}>,<(bValid)>},                  /* bGETLIST_VALID        */ ;
  62.       <cToolTip>,                               /* cGETLIST_TOOLTIP      */ ;
  63.       <xCargo>,                                 /* xGETLIST_CARGO        */ ;
  64.       <aPres>,                                  /* aGETLIST_PRESENTATION */ ;
  65.       {<bAction>,<(bAction)>},                  /* bGETLIST_ACTION       */ ;
  66.       nil,                                      /* oGETLIST_OBJECT       */ ;
  67.       nil,                                      /* xGETLIST_ORIGVALUE    */ ;
  68.       nil,                                      /* xGETLIST_OPTIONS      */ ;
  69.       [{<ncFgC>,<ncBgC>}],                      /* aGETLIST_COLOR        */ ;
  70.       <cMsg>,                                   /* cGETLIST_MESSAGE      */ ;
  71.       <cHelpCode>,                              /* cGETLIST_HELPCODE     */ ;
  72.       nil,                                      /* cGETLIST_VARNAME      */ ;
  73.       nil,                                      /* bGETLIST_READVAR      */ ;
  74.       nil,                                      /* bGETLIST_DELIMVAR     */ ;
  75.       {DC_GetAnchorCB(@<oGroup>,'O'),<(oGroup)>},/* bGETLIST_GROUP        */ ;
  76.       nil,                                      /* nGETLIST_POINTER      */ ;
  77.       [{DC_GetAnchorCB(@<oParent>,'O'),                                     ;
  78.                         <(oParent)>,'O'}],      /* bGETLIST_PARENT       */ ;
  79.       {|a|MyUserDefinedFunction(a)},            /* bGETLIST_REFVAR       */ ;
  80.       nil,                                      /* lGETLIST_READONLY     */ ;
  81.       <.p.>,                                    /* lGETLIST_PIXEL        */ ;
  82.       <nCursor>,                                /* nGETLIST_CURSOR       */ ;
  83.       [{<bEval>,<(bEval)>}],                    /* bGETLIST_EVAL         */ ;
  84.       [{DC_GetAnchorCb(@<oRel>,'O'),                                        ;
  85.                         <(oRel)>,'O'}],         /* bGETLIST_RELATIVE     */ ;
  86.       nil,                                      /* xGETLIST_OPTIONS2     */ ;
  87.       nil,                                      /* xGETLIST_OPTIONS3     */ ;
  88.       nil,                                      /* xGETLIST_OPTIONS4     */ ;
  89.       nil,                                      /* xGETLIST_OPTIONS5     */ ;
  90.       nil,                                      /* xGETLIST_OPTIONS6     */ ;
  91.       nil,                                      /* xGETLIST_OPTIONS7     */ ;
  92.       nil,                                      /* xGETLIST_OPTIONS8     */ ;
  93.       nil,                                      /* xGETLIST_OPTIONS9     */ ;
  94.       nil,                                      /* cGETLIST_LEVEL        */ ;
  95.       <cTitle>,                                 /* cGETLIST_TITLE        */ ;
  96.       nil,                                      /* cGETLIST_ACCESS       */ ;
  97.       nil,                                      /* bGETLIST_COMPILE      */ ;
  98.       <cId>,                                    /* cGETLIST_ID           */ ;
  99.       nil,                                      /* dGETLIST_REVDATE      */ ;
  100.       nil,                                      /* cGETLIST_REVTIME      */ ;
  101.       nil,                                      /* cGETLIST_REVUSER      */ ;
  102.       {<{bHide}>,<(bHide)>},                    /* bGETLIST_HIDE         */ ;
  103.       <nAccel>,                                 /* nGETLIST_ACCELKEY     */ ;
  104.       {<{bGotFocus}>,<(bGotFocus)>},            /* bGETLIST_GOTFOCUS     */ ;
  105.       {<{bLostFocus}>,<(bLostFocus)>},          /* nGETLIST_ACCELKEY     */ ;
  106.       [<.lTabStop.>.AND.!<.lNoTabStop.>],       /* lGETLIST_TABSTOP      */ ;
  107.       <nTabGroup>,                              /* nGETLIST_TABGROUP     */ ;
  108.       [<.lVisible.>.AND.!<.lInvisible.>],       /* lGETLIST_VISIBLE      */ ;
  109.     } )
  110.  
  111.  
  112.