home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 June / PCWorld_2002-06_cd.bin / Software / Komercni / xbase / express / exd17208.r04 / exp17 / Include / Dcapp.ch < prev    next >
Text File  |  2002-01-30  |  27KB  |  386 lines
  1. /*
  2.    Program..: DCAPP.CH
  3.    Author...: Roger Donnay
  4.    Notice...: (c) DONNAY Software Designs 1987-1998
  5.    Date.....: Apr 2, 1998
  6.    Notes....: Special APP Dialog commands for dCLIP++ / eXpress++
  7. */
  8.  
  9. #include "dcdialog.ch"
  10.  
  11. #ifndef _DCAPPEDIT_CH
  12.  
  13. *******************************************************************************
  14. * Final translation of the DCAPPEDIT command
  15. ******************************************************************************
  16. #command _DCAPPEDIT INTO <oEdit>                                            ;
  17.               [ PARENT <oParent> ]                                          ;
  18.               [ FIELDS <fields,...> ]                                       ;
  19.               [ COLOR <fgC> [, <bgC> ] ]                                    ;
  20.               [ FONT <(font)> ]                                             ;
  21.               [ POSITION <nRow> [, <nCol>] ]                                ;
  22.               [ SIZE <nWidth> [, <nHeight>] [<per:PERCENT>] ]               ;
  23.               [ TITLE <title> ]                                             ;
  24.               [ CAPTION [ FONT <(cFont)>]                                   ;
  25.                    [ COLOR <cFgC> [, <cBgC>] ]                              ;
  26.                    [ ALIGN <cAlign:LEFT,CENTER,RIGHT> ] ]                   ;
  27.               [ HEADING <(head)> [ FONT <(hFont)>]                          ;
  28.                    [ COLOR <hFgC> [, <hBgC>] ]                              ;
  29.                    [ ALIGN <hAlign:LEFT,CENTER,RIGHT> ] ]                   ;
  30.               [ STYLE <style> ]                                             ;
  31.               [ NOACTION <suppress> ]                                       ;
  32.               [ ALIAS <(alias)> ]                                           ;
  33.               [ SEEK <bSeek> ]                                              ;
  34.               [ FOR <bFor> ]                                                ;
  35.               [ WHILE <bWhile> ]                                            ;
  36.               [ TRIGGER <bDelete> [ON] DELETE ]                             ;
  37.               [ TRIGGER <bInsert> [ON] INSERT ]                             ;
  38.               [ TRIGGER <bUpdate> [ON] UPDATE ]                             ;
  39.               [ BITMAP <bitmap> [ <fit:FIT> ] ]                             ;
  40.               [ EVAL <bEval> ]                                              ;
  41.               [ RELATIVE <oRel> ]                                           ;
  42.               [ HIDE <bHide> ]                                              ;
  43.               [ ACCELKEY <nAccel> ]                                         ;
  44.               [ <mod:MODELESS> ]                                            ;
  45.               [ <sav:SAVE> ]                                                ;
  46.               [GOTFOCUS <bGotFocus>]                                        ;
  47.               [LOSTFOCUS <bLostFocus>]                                      ;
  48.               [<lTabStop:TABSTOP>]                                          ;
  49.               [<lNoTabStop:NOTABSTOP>]                                      ;
  50.               [TABGROUP <nTabGroup>]                                        ;
  51.               [<lVisible:VISIBLE>]                                          ;
  52.               [<lInvisible:INVISIBLE>]                                      ;
  53.               [GROUP <cGroup>]                                              ;
  54.  =>                                                                         ;
  55.    AADD( GetList,                                                           ;
  56.     { GETLIST_APPEDIT,                          /* nGETLIST_TYPE         */ ;
  57.       <style>,                                  /* nGETLIST_SUBTYPE      */ ;
  58.       <title>,                                  /* cGETLIST_CAPTION      */ ;
  59.       nil,                                      /* bGETLIST_VAR          */ ;
  60.       <nRow>,                                   /* nGETLIST_STARTROW     */ ;
  61.       <nCol>,                                   /* nGETLIST_STARTCOL     */ ;
  62.       nil,                                      /* nGETLIST_ENDROW       */ ;
  63.       nil,                                      /* nGETLIST_ENDCOL       */ ;
  64.       <nWidth>,                                 /* nGETLIST_WIDTH        */ ;
  65.       <nHeight>,                                /* nGETLIST_HEIGHT       */ ;
  66.       <font>,                                   /* cGETLIST_FONT         */ ;
  67.       nil,                                      /* cGETLIST_PICTURE      */ ;
  68.       {<bFor>,<(bFor)>},                        /* bGETLIST_WHEN         */ ;
  69.       {<bWhile>,<(bWhile)>},                    /* bGETLIST_VALID        */ ;
  70.       nil,                                      /* cGETLIST_TOOLTIP      */ ;
  71.       nil,                                      /* xGETLIST_CARGO        */ ;
  72.       nil,                                      /* aGETLIST_PRESENTATION */ ;
  73.       nil,                                      /* bGETLIST_ACTION       */ ;
  74.       nil,                                      /* oGETLIST_OBJECT       */ ;
  75.       nil,                                      /* xGETLIST_ORIGVALUE    */ ;
  76.       [{<(fields)>}],                           /* xGETLIST_OPTIONS      */ ;
  77.       {<fgC>,<bgC>},                            /* aGETLIST_COLOR        */ ;
  78.       nil,                                      /* cGETLIST_MESSAGE      */ ;
  79.       nil,                                      /* cGETLIST_HELPCODE     */ ;
  80.       <alias>,                                  /* cGETLIST_VARNAME      */ ;
  81.       nil,                                      /* bGETLIST_READVAR      */ ;
  82.       nil,                                      /* bGETLIST_DELIMVAR     */ ;
  83.       [{DC_GetAnchorCB(@<oEdit>,'O'),                                       ;
  84.                        <(oEdit)>,'O'}],         /* bGETLIST_GROUP        */ ;
  85.       nil,                                      /* nGETLIST_POINTER      */ ;
  86.       [{DC_GetAnchorCB(@<oParent>,'O'),                                     ;
  87.                        <(oParent)>,'O'}],       /* bGETLIST_PARENT       */ ;
  88.       nil,                                      /* bGETLIST_OUTVAR       */ ;
  89.       nil,                                      /* lGETLIST_READONLY     */ ;
  90.       .f.,                                      /* lGETLIST_PIXEL        */ ;
  91.       nil,                                      /* nGETLIST_CURSOR       */ ;
  92.       {<bEval>,<(bEval)>},                      /* bGETLIST_EVAL         */ ;
  93.       [{DC_GetAnchorCb(@<oRel>,'O'),                                        ;
  94.                         <(oRel)>,'O'}],         /* bGETLIST_RELATIVE     */ ;
  95.       {<cFont>,<cFgC>,<cBgC>,<(cAlign)>},       /* xGETLIST_OPTIONS2     */ ;
  96.       {<bSeek>,<(bSeek)>},                      /* xGETLIST_OPTIONS3     */ ;
  97.       {<head>,<hFont>,<hFgC>,<hBgC>,<(hAlign)>},/* xGETLIST_OPTIONS4     */ ;
  98.       {<bDelete>,<(bDelete)>},                  /* xGETLIST_OPTIONS5     */ ;
  99.       {<bInsert>,<(bInsert)>},                  /* xGETLIST_OPTIONS6     */ ;
  100.       {<bUpdate>,<(bUpdate)>},                  /* xGETLIST_OPTIONS7     */ ;
  101.       {<bitmap>,<.fit.>},                       /* xGETLIST_OPTIONS8     */ ;
  102.       {<.mod.>,<.sav.>},                        /* xGETLIST_OPTIONS9     */ ;
  103.       nil,                                      /* cGETLIST_LEVEL        */ ;
  104.       nil,                                      /* cGETLIST_TITLE        */ ;
  105.       nil,                                      /* cGETLIST_ACCESS       */ ;
  106.       nil,                                      /* bGETLIST_COMPILE      */ ;
  107.       nil,                                      /* cGETLIST_ID           */ ;
  108.       nil,                                      /* dGETLIST_REVDATE      */ ;
  109.       nil,                                      /* cGETLIST_REVTIME      */ ;
  110.       nil,                                      /* cGETLIST_REVUSER      */ ;
  111.       {<{bHide}>,<(bHide)>},                    /* bGETLIST_HIDE         */ ;
  112.       <nAccel>,                                 /* nGETLIST_ACCELKEY     */ ;
  113.       {<{bGotFocus}>,<(bGotFocus)>},            /* bGETLIST_GOTFOCUS     */ ;
  114.       {<{bLostFocus}>,<(bLostFocus)>},          /* bGETLIST_LOSTFOCUS    */ ;
  115.       [<.lTabStop.>.AND.!<.lNoTabStop.>],       /* lGETLIST_TABSTOP      */ ;
  116.       <nTabGroup>,                              /* nGETLIST_TABGROUP     */ ;
  117.       [<.lVisible.>.AND.!<.lInvisible.>],       /* lGETLIST_VISIBLE      */ ;
  118.       <cGroup>,                                 /* cGETLIST_GETGROUP     */ ;
  119.       .f.,                                      /* lGETLIST_FLAG         */ ;
  120.       {ProcName(),ProcLine()},                  /* lGETLIST_PROC         */ ;
  121.      } )
  122.  
  123. ******************************************************************************
  124. * Final translation of the DCAPPBROWSE command
  125. ******************************************************************************
  126. #command _DCAPPBROWSE  INTO <oBrowse>                                       ;
  127.               [ PARENT <oParent> ]                                          ;
  128.               [ FIELDS <fields,...> ]                                       ;
  129.               [ COLOR <fgC> [, <bgC> ] ]                                    ;
  130.               [ HILITE <fgHC> [, <bgHC> ] ]                                 ;
  131.               [ FONT <(font)> ]                                             ;
  132.               [ POSITION <nRow> [, <nCol>] ]                                ;
  133.               [ SIZE <nWidth> [, <nHeight>] [<per:PERCENT>] ]               ;
  134.               [ TITLE <title> ]                                             ;
  135.               [ STYLE <style> ]                                             ;
  136.               [ ALIAS <(alias)> ]                                           ;
  137.               [ FOR <bFor> ]                                                ;
  138.               [ EVAL <bEval> ]                                              ;
  139.               [ RELATIVE <oRel> ]                                           ;
  140.               [ HIDE <bHide> ]                                              ;
  141.               [ ACCELKEY <nAccel> ]                                         ;
  142.               [ <mod:MODELESS> ]                                            ;
  143.               [ <sav:SAVE> ]                                                ;
  144.               [GOTFOCUS <bGotFocus>]                                        ;
  145.               [LOSTFOCUS <bLostFocus>]                                      ;
  146.               [<lTabStop:TABSTOP>]                                          ;
  147.               [<lNoTabStop:NOTABSTOP>]                                      ;
  148.               [TABGROUP <nTabGroup>]                                        ;
  149.               [<lVisible:VISIBLE>]                                          ;
  150.               [<lInvisible:INVISIBLE>]                                      ;
  151.               [GROUP <cGroup>]                                              ;
  152.  =>                                                                         ;
  153.    AADD( GetList,                                                           ;
  154.     { GETLIST_APPBROWSE,                        /* nGETLIST_TYPE         */ ;
  155.       <style>,                                  /* nGETLIST_SUBTYPE      */ ;
  156.       <title>,                                  /* cGETLIST_CAPTION      */ ;
  157.       nil,                                      /* bGETLIST_VAR          */ ;
  158.       <nRow>,                                   /* nGETLIST_STARTROW     */ ;
  159.       <nCol>,                                   /* nGETLIST_STARTCOL     */ ;
  160.       nil,                                      /* nGETLIST_ENDROW       */ ;
  161.       nil,                                      /* nGETLIST_ENDCOL       */ ;
  162.       <nWidth>,                                 /* nGETLIST_WIDTH        */ ;
  163.       <nHeight>,                                /* nGETLIST_HEIGHT       */ ;
  164.       <font>,                                   /* cGETLIST_FONT         */ ;
  165.       nil,                                      /* cGETLIST_PICTURE      */ ;
  166.       {<bFor>,<(bFor)>},                        /* bGETLIST_WHEN         */ ;
  167.       nil,                                      /* bGETLIST_VALID        */ ;
  168.       nil,                                      /* cGETLIST_TOOLTIP      */ ;
  169.       nil,                                      /* xGETLIST_CARGO        */ ;
  170.       nil,                                      /* aGETLIST_PRESENTATION */ ;
  171.       nil,                                      /* bGETLIST_ACTION       */ ;
  172.       nil,                                      /* oGETLIST_OBJECT       */ ;
  173.       nil,                                      /* xGETLIST_ORIGVALUE    */ ;
  174.       [{<(fields)>}],                           /* xGETLIST_OPTIONS      */ ;
  175.       {<fgC>,<bgC>},                            /* aGETLIST_COLOR        */ ;
  176.       nil,                                      /* cGETLIST_MESSAGE      */ ;
  177.       nil,                                      /* cGETLIST_HELPCODE     */ ;
  178.       <alias>,                                  /* cGETLIST_VARNAME      */ ;
  179.       nil,                                      /* bGETLIST_READVAR      */ ;
  180.       nil,                                      /* bGETLIST_DELIMVAR     */ ;
  181.       [{DC_GetAnchorCB(@<oBrowse>,'O'),                                     ;
  182.                        <(oBrowse)>,'O'}],       /* bGETLIST_GROUP        */ ;
  183.       nil,                                      /* nGETLIST_POINTER      */ ;
  184.       [{DC_GetAnchorCB(@<oParent>,'O'),                                     ;
  185.                        <(oParent)>,'O'}],       /* bGETLIST_PARENT       */ ;
  186.       nil,                                      /* bGETLIST_OUTVAR       */ ;
  187.       nil,                                      /* lGETLIST_READONLY     */ ;
  188.       .f.,                                      /* lGETLIST_PIXEL        */ ;
  189.       nil,                                      /* nGETLIST_CURSOR       */ ;
  190.       {<bEval>,<(bEval)>},                      /* bGETLIST_EVAL         */ ;
  191.       [{DC_GetAnchorCb(@<oRel>,'O'),                                        ;
  192.                         <(oRel)>,'O'}],         /* bGETLIST_RELATIVE     */ ;
  193.       [{<fgHC>,<bgHC>}],                        /* xGETLIST_OPTIONS2     */ ;
  194.       nil,                                      /* xGETLIST_OPTIONS3     */ ;
  195.       nil,                                      /* xGETLIST_OPTIONS4     */ ;
  196.       nil,                                      /* xGETLIST_OPTIONS5     */ ;
  197.       nil,                                      /* xGETLIST_OPTIONS6     */ ;
  198.       nil,                                      /* xGETLIST_OPTIONS7     */ ;
  199.       nil,                                      /* xGETLIST_OPTIONS8     */ ;
  200.       {<.mod.>,<.sav.>},                        /* xGETLIST_OPTIONS9     */ ;
  201.       nil,                                      /* cGETLIST_LEVEL        */ ;
  202.       nil,                                      /* cGETLIST_TITLE        */ ;
  203.       nil,                                      /* cGETLIST_ACCESS       */ ;
  204.       nil,                                      /* bGETLIST_COMPILE      */ ;
  205.       nil,                                      /* cGETLIST_ID           */ ;
  206.       nil,                                      /* dGETLIST_REVDATE      */ ;
  207.       nil,                                      /* cGETLIST_REVTIME      */ ;
  208.       nil,                                      /* cGETLIST_REVUSER      */ ;
  209.       {<{bHide}>,<(bHide)>},                    /* bGETLIST_HIDE         */ ;
  210.       <nAccel>,                                 /* nGETLIST_ACCELKEY     */ ;
  211.       {<{bGotFocus}>,<(bGotFocus)>},            /* bGETLIST_GOTFOCUS     */ ;
  212.       {<{bLostFocus}>,<(bLostFocus)>},          /* bGETLIST_LOSTFOCUS    */ ;
  213.       [<.lTabStop.>.AND.!<.lNoTabStop.>],       /* lGETLIST_TABSTOP      */ ;
  214.       <nTabGroup>,                              /* nGETLIST_TABGROUP     */ ;
  215.       [<.lVisible.>.AND.!<.lInvisible.>],       /* lGETLIST_VISIBLE      */ ;
  216.       <cGroup>,                                 /* cGETLIST_GETGROUP     */ ;
  217.       .f.,                                      /* lGETLIST_FLAG         */ ;
  218.       {ProcName(),ProcLine()},                  /* lGETLIST_PROC         */ ;
  219.      } )
  220.  
  221. ******************************************************************************
  222. * Final translation of the DCAPPFIELD command
  223. ******************************************************************************
  224.  
  225. #command _DCAPPFIELD [<(a)> ->] <(fld)> INTO <oApp>                         ;
  226.               [ EXPR <exp> ]                                                ;
  227.               [ TYPE <(cType)> ]                                            ;
  228.               [ LEN <nLen> ]                                                ;
  229.               [ DEC <nDec> ]                                                ;
  230.               [ FONT <(cFont)> ]                                            ;
  231.               [ COLOR <Ffg1> [, <Fbg1> ] ]                                  ;
  232.               [ HILITE <Ffg2> [, <Fbg2> ] ]                                 ;
  233.               [ ALIGN <Falg> ]                                              ;
  234.               [ WIDTH <nWidth> ]                                            ;
  235.               [ <ro:RO,READONLY> ]                                          ;
  236.               [ <head:CAPTION,HEADING> <(cText1)>                           ;
  237.                  [ FONT <(cFont1)> ]                                        ;
  238.                  [ COLOR <Cfg1> [, <Cbg1> ] ]                               ;
  239.                  [ ALIGN <CAlg1:LEFT,CENTER,RIGHT> ] ]                      ;
  240.               [ <foot:COMMENT,FOOTING> <(cText2)>                           ;
  241.                  [ FONT  <(cFont2)> ]                                       ;
  242.                  [ COLOR <Cfg2> [, <Cbg2> ] ]                               ;
  243.                  [ ALIGN <CAlg2:LEFT,CENTER,RIGHT> ] ]                      ;
  244.               [ EVAL <bEval> ]                                              ;
  245.               [ ACCELKEY <nAccel> ]                                         ;
  246.               [GOTFOCUS <bGotFocus>]                                        ;
  247.               [LOSTFOCUS <bLostFocus>]                                      ;
  248.               [<lTabStop:TABSTOP>]                                          ;
  249.               [<lNoTabStop:NOTABSTOP>]                                      ;
  250.               [TABGROUP <nTabGroup>]                                        ;
  251.               [<lVisible:VISIBLE>]                                          ;
  252.               [<lInvisible:INVISIBLE>]                                      ;
  253.               [GROUP <cGroup>]                                              ;
  254.  =>                                                                         ;
  255.    AADD( GetList,                                                           ;
  256.     { GETLIST_APPFIELD,                         /* nGETLIST_TYPE         */ ;
  257.       <(cType)>,                                /* nGETLIST_SUBTYPE      */ ;
  258.       <exp>,                                    /* cGETLIST_CAPTION      */ ;
  259.       {||[<a>->]<fld> [:=<exp>]},               /* bGETLIST_VAR          */ ;
  260.       nil,                                      /* nGETLIST_STARTROW     */ ;
  261.       nil,                                      /* nGETLIST_STARTCOL     */ ;
  262.       nil,                                      /* nGETLIST_ENDROW       */ ;
  263.       nil,                                      /* nGETLIST_ENDCOL       */ ;
  264.       <nWidth>,                                 /* nGETLIST_WIDTH        */ ;
  265.       nil,                                      /* nGETLIST_HEIGHT       */ ;
  266.       <(cFont)>,                                /* cGETLIST_FONT         */ ;
  267.       nil,                                      /* cGETLIST_PICTURE      */ ;
  268.       nil,                                      /* bGETLIST_WHEN         */ ;
  269.       nil,                                      /* bGETLIST_VALID        */ ;
  270.       nil,                                      /* cGETLIST_TOOLTIP      */ ;
  271.       nil,                                      /* xGETLIST_CARGO        */ ;
  272.       nil,                                      /* aGETLIST_PRESENTATION */ ;
  273.       nil,                                      /* bGETLIST_ACTION       */ ;
  274.       nil,                                      /* oGETLIST_OBJECT       */ ;
  275.       nil,                                      /* xGETLIST_ORIGVALUE    */ ;
  276.       nil,                                      /* xGETLIST_OPTIONS      */ ;
  277.       {<Ffg1>,<Fbg1>},                          /* aGETLIST_COLOR        */ ;
  278.       nil,                                      /* cGETLIST_MESSAGE      */ ;
  279.       nil,                                      /* cGETLIST_HELPCODE     */ ;
  280.       <(fld)>,                                  /* cGETLIST_VARNAME      */ ;
  281.       nil,                                      /* bGETLIST_READVAR      */ ;
  282.       nil,                                      /* bGETLIST_DELIMVAR     */ ;
  283.       nil,                                      /* bGETLIST_GROUP        */ ;
  284.       nil,                                      /* nGETLIST_POINTER      */ ;
  285.       [{DC_GetAnchorCB(@<oApp>,'O'),                                        ;
  286.                        <(oApp)>,'O'}],          /* bGETLIST_PARENT       */ ;
  287.       nil,                                      /* bGETLIST_OUTVAR       */ ;
  288.       <.ro.>,                                   /* lGETLIST_READONLY     */ ;
  289.       .f.,                                      /* lGETLIST_PIXEL        */ ;
  290.       nil,                                      /* nGETLIST_CURSOR       */ ;
  291.       {<bEval>,<(bEval)>},                      /* bGETLIST_EVAL         */ ;
  292.       nil,                                      /* bGETLIST_RELATIVE     */ ;
  293.       {<Ffg2>,<Fbg2>},                          /* xGETLIST_OPTIONS2     */ ;
  294.       <nLen>,                                   /* xGETLIST_OPTIONS3     */ ;
  295.       <nDec>,                                   /* xGETLIST_OPTIONS4     */ ;
  296.       [{__ALIGN,<Falg>}],                       /* xGETLIST_OPTIONS5     */ ;
  297.       {<cText1>,<cFont1>,<Cfg1>,<Cbg1>,[{__ALIGN,<CAlg1>}]},                ;
  298.                                                 /* xGETLIST_OPTIONS6     */ ;
  299.       {<cText2>,<cFont2>,<Cfg2>,<Cbg2>,[{__ALIGN,<CAlg2>}]},                ;
  300.                                                 /* xGETLIST_OPTIONS7     */ ;
  301.       <(a)>,                                    /* xGETLIST_OPTIONS8     */ ;
  302.       IIf(<.exp.>,.T.,<.ro.>),                  /* xGETLIST_OPTIONS9     */ ;
  303.       nil,                                      /* cGETLIST_LEVEL        */ ;
  304.       nil,                                      /* cGETLIST_TITLE        */ ;
  305.       nil,                                      /* cGETLIST_ACCESS       */ ;
  306.       nil,                                      /* bGETLIST_COMPILE      */ ;
  307.       nil,                                      /* cGETLIST_ID           */ ;
  308.       nil,                                      /* dGETLIST_REVDATE      */ ;
  309.       nil,                                      /* cGETLIST_REVTIME      */ ;
  310.       nil,                                      /* cGETLIST_REVUSER      */ ;
  311.       nil,                                      /* bGETLIST_HIDE         */ ;
  312.       <nAccel>,                                 /* nGETLIST_ACCELKEY     */ ;
  313.       {<{bGotFocus}>,<(bGotFocus)>},            /* bGETLIST_GOTFOCUS     */ ;
  314.       {<{bLostFocus}>,<(bLostFocus)>},          /* bGETLIST_LOSTFOCUS    */ ;
  315.       [<.lTabStop.>.AND.!<.lNoTabStop.>],       /* lGETLIST_TABSTOP      */ ;
  316.       <nTabGroup>,                              /* nGETLIST_TABGROUP     */ ;
  317.       [<.lVisible.>.AND.!<.lInvisible.>],       /* lGETLIST_VISIBLE      */ ;
  318.       <cGroup>,                                 /* cGETLIST_GETGROUP     */ ;
  319.       .f.,                                      /* lGETLIST_FLAG         */ ;
  320.       {ProcName(),ProcLine()},                  /* lGETLIST_PROC         */ ;
  321.      } )
  322.  
  323.  
  324. #xtrans  DCAPPEDIT [<clauses,...>] STYLE PLAIN [<*more*>] ;
  325.      =>  DCAPPEDIT [<clauses>] STYLE APPSTYLE_PLAIN [<more>]
  326.  
  327. #xtrans  DCAPPEDIT [<clauses,...>] STYLE 3D [<*more*>] ;
  328.      =>  DCAPPEDIT [<clauses>] STYLE APPSTYLE_3D [<more>]
  329.  
  330. #xtrans  DCAPPEDIT [<clauses,...>] STYLE FANCY [<*more*>] ;
  331.      =>  DCAPPEDIT [<clauses>] STYLE APPSTYLE_FANCY [<more>]
  332.  
  333.  
  334. *******************************************************************************
  335. * Make sure that the APPEDIT command assigns an AppEdit object to a variable
  336. *******************************************************************************
  337. #command  DCAPPEDIT [<clauses,...>] => ;
  338.           _DCAPPEDIT INTO appObject [<clauses>]
  339.  
  340. #command  DCAPPEDIT INTO <oApp> [<clauses,...>] => ;
  341.           _DCAPPEDIT INTO <oApp> [<clauses>]
  342.  
  343.  
  344. #xtrans  DCAPPBROWSE [<clauses,...>] STYLE PLAIN [<*more*>] ;
  345.      =>  DCAPPBROWSE [<clauses>] STYLE APPSTYLE_PLAIN [<more>]
  346.  
  347. #xtrans  DCAPPBROWSE [<clauses,...>] STYLE 3D [<*more*>] ;
  348.      =>  DCAPPBROWSE [<clauses>] STYLE APPSTYLE_3D [<more>]
  349.  
  350. #xtrans  DCAPPBROWSE [<clauses,...>] STYLE FANCY [<*more*>] ;
  351.      =>  DCAPPBROWSE [<clauses>] STYLE APPSTYLE_FANCY [<more>]
  352.  
  353.  
  354. ********************************************************************************
  355. * Make sure that the APPBROWSE command assigns an AppBrowse object to a variable
  356. ********************************************************************************
  357. #command  DCAPPBROWSE [<clauses,...>] => ;
  358.           _DCAPPBROWSE INTO appObject [<clauses>]
  359.  
  360. #command  DCAPPBROWSE INTO <oApp> [<clauses,...>] => ;
  361.           _DCAPPBROWSE INTO <oApp> [<clauses>]
  362.  
  363.  
  364. *******************************************************************************
  365. * Different DCAPPFIELD commands for APPs
  366. *******************************************************************************
  367. #xtranslate   DCAPPFIELD <fld> [<clauses,...>] => ;
  368.              _DCAPPFIELD <fld> INTO appObject [<clauses>]
  369.  
  370. #xtranslate   DCAPPFIELD <fld> := <exp> [<clauses,...>] => ;
  371.              _DCAPPFIELD <fld> INTO appObject EXPR <exp> [<clauses>]
  372.  
  373. #xtranslate   DCAPPFIELD <fld> INTO <oApp> [<clauses,...>] => ;
  374.              _DCAPPFIELD <fld> INTO <oApp> [<clauses>]
  375.  
  376. #xtranslate   DCAPPFIELD <fld> := <exp> INTO <oApp> [<clauses,...>] => ;
  377.              _DCAPPFIELD <fld> INTO <oApp> EXPR <exp> [<clauses>]
  378.  
  379. #define _DCAPPEDIT_CH
  380.  
  381. #include "App.ch"
  382. #include "Natmsg.ch"
  383.  
  384. #endif
  385.  
  386.