home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 June / PCWorld_2002-06_cd.bin / Software / Komercni / xbase / express / exd17208.r04 / exp17 / Include / Dcgra.ch < prev    next >
Text File  |  2002-01-30  |  25KB  |  339 lines
  1. /*
  2.    Program..: DCGRA.CH
  3.    Author...: Roger Donnay
  4.    Notice...: (c) DONNAY Software Designs 1987-1999
  5.    Date.....: Aug 30, 1999
  6.    Notes....: Special GRA Dialog commands for dCLIP++ / eXpress++
  7. */
  8.  
  9. #include "dcdialog.ch"
  10.  
  11. /* ------------------------ */
  12.  
  13. #command   @ <nRow>,<nCol> DCGRASTRING [<cText>]                            ;
  14.                 [FONT <cFont>]                                              ;
  15.                 [PICTURE <cPict>]                                           ;
  16.                 [COLOR <ncFgC> [,<ncBgC>] ]                                 ;
  17.                 [PARENT <oParent>]                                          ;
  18.                 [SIZE <nWidth> [,<nHeight>]]                                ;
  19.                 [ROWSPACE <nRowSpace>]                                      ;
  20.                 [<p: PIXEL>]                                                ;
  21.                 [ATTRIBUTE <aAttr>]                                         ;
  22.                 [RELATIVE <oRel>]                                           ;
  23.                 [WHEN <bWhen>]                                              ;
  24.                 [HIDE <bHide>]                                              ;
  25.                 [TITLE <cTitle>]                                            ;
  26.                 [ID <cId>]                                                  ;
  27.                 [<v:VISIBLE>]                                               ;
  28.                 [GROUP <cGroup>]                                            ;
  29.   =>                                                                        ;
  30.    AADD( DCGUI_GETLIST,                                                     ;
  31.     { GETLIST_GRASTRING,                        /* nGETLIST_TYPE         */ ;
  32.       nil,                                      /* nGETLIST_SUBTYPE      */ ;
  33.       <cText>,                                  /* cGETLIST_CAPTION      */ ;
  34.       nil,                                      /* bGETLIST_VAR          */ ;
  35.       <nRow>,                                   /* nGETLIST_STARTROW     */ ;
  36.       <nCol>,                                   /* nGETLIST_STARTCOL     */ ;
  37.       nil,                                      /* nGETLIST_ENDROW       */ ;
  38.       nil,                                      /* nGETLIST_ENDCOL       */ ;
  39.       <nWidth>,                                 /* nGETLIST_WIDTH        */ ;
  40.       <nHeight>,                                /* nGETLIST_HEIGHT       */ ;
  41.       [<cFont>],                                /* cGETLIST_FONT         */ ;
  42.       <cPict>,                                  /* cGETLIST_PICTURE      */ ;
  43.       {<bWhen>,<(bWhen)>},                      /* bGETLIST_WHEN         */ ;
  44.       nil,                                      /* bGETLIST_VALID        */ ;
  45.       nil,                                      /* cGETLIST_TOOLTIP      */ ;
  46.       nil,                                      /* xGETLIST_CARGO        */ ;
  47.       <aAttr>,                                  /* aGETLIST_PRESENTATION */ ;
  48.       nil,                                      /* bGETLIST_ACTION       */ ;
  49.       nil,                                      /* oGETLIST_OBJECT       */ ;
  50.       nil,                                      /* xGETLIST_ORIGVALUE    */ ;
  51.       nil,                                      /* xGETLIST_OPTIONS      */ ;
  52.       [{<ncFgC>,<ncBgC>}],                      /* aGETLIST_COLOR        */ ;
  53.       nil,                                      /* cGETLIST_MESSAGE      */ ;
  54.       nil,                                      /* cGETLIST_HELPCODE     */ ;
  55.       nil,                                      /* cGETLIST_VARNAME      */ ;
  56.       nil,                                      /* bGETLIST_READVAR      */ ;
  57.       nil,                                      /* bGETLIST_DELIMVAR     */ ;
  58.       nil,                                      /* bGETLIST_GROUP        */ ;
  59.       nil,                                      /* nGETLIST_POINTER      */ ;
  60.       [{DC_GetAnchorCB(@<oParent>,'O'),                                     ;
  61.                         <(oParent)>,'O'}],      /* bGETLIST_PARENT       */ ;
  62.       nil,                                      /* bGETLIST_REFVAR       */ ;
  63.       nil,                                      /* bGETLIST_PROTECT      */ ;
  64.       <.p.>,                                    /* lGETLIST_PIXEL        */ ;
  65.       nil,                                      /* nGETLIST_CURSOR       */ ;
  66.       nil,                                      /* bGETLIST_EVAL         */ ;
  67.       [{DC_GetAnchorCb(@<oRel>,'O'),                                        ;
  68.                          <oRel>,'O'}],          /* bGETLIST_RELATIVE     */ ;
  69.       <nRowSpace>,                              /* xGETLIST_OPTIONS2     */ ;
  70.       nil,                                      /* xGETLIST_OPTIONS3     */ ;
  71.       nil,                                      /* xGETLIST_OPTIONS4     */ ;
  72.       nil,                                      /* xGETLIST_OPTIONS5     */ ;
  73.       nil,                                      /* xGETLIST_OPTIONS6     */ ;
  74.       nil,                                      /* xGETLIST_OPTIONS7     */ ;
  75.       nil,                                      /* xGETLIST_OPTIONS8     */ ;
  76.       nil,                                      /* xGETLIST_OPTIONS9     */ ;
  77.       nil,                                      /* cGETLIST_LEVEL        */ ;
  78.       <cTitle>,                                 /* cGETLIST_TITLE        */ ;
  79.       nil,                                      /* cGETLIST_ACCESS       */ ;
  80.       nil,                                      /* bGETLIST_COMPILE      */ ;
  81.       [<cId>],                                  /* cGETLIST_ID           */ ;
  82.       nil,                                      /* dGETLIST_REVDATE      */ ;
  83.       nil,                                      /* cGETLIST_REVTIME      */ ;
  84.       nil,                                      /* cGETLIST_REVUSER      */ ;
  85.       {<bHide>,<(bHide)>},                      /* bGETLIST_HIDE         */ ;
  86.       nil,                                      /* nGETLIST_ACCELKEY     */ ;
  87.       nil,                                      /* bGETLIST_GOTFOCUS     */ ;
  88.       nil,                                      /* bGETLIST_LOSTFOCUS    */ ;
  89.       .f.,                                      /* lGETLIST_TABSTOP      */ ;
  90.       nil,                                      /* nGETLIST_TABGROUP     */ ;
  91.       <.v.>,                                    /* lGETLIST_VISIBLE      */ ;
  92.       <cGroup>,                                 /* cGETLIST_GETGROUP     */ ;
  93.       .f.,                                      /* lGETLIST_FLAG         */ ;
  94.       {ProcName(),ProcLine()},                  /* aGETLIST_PROC         */ ;
  95.     } )
  96.  
  97.  
  98. #command   @ <nSRow>,<nSCol> TO <nERow>,<nECol> DCGRALINE                   ;
  99.                 [COLOR <ncFgC> [,<ncBgC>] ]                                 ;
  100.                 [PARENT <oParent>]                                          ;
  101.                 [SIZE <nWidth> [,<nHeight>]]                                ;
  102.                 [<p: PIXEL>]                                                ;
  103.                 [ATTRIBUTE <aAttr>]                                         ;
  104.                 [RELATIVE <oRel>]                                           ;
  105.                 [WHEN <bWhen>]                                              ;
  106.                 [HIDE <bHide>]                                              ;
  107.                 [TITLE <cTitle>]                                            ;
  108.                 [ID <cId>]                                                  ;
  109.                 [<v:VISIBLE>]                                               ;
  110.                 [GROUP <cGroup>]                                            ;
  111.   =>                                                                        ;
  112.    AADD( DCGUI_GETLIST,                                                     ;
  113.     { GETLIST_GRALINE,                          /* nGETLIST_TYPE         */ ;
  114.       nil,                                      /* nGETLIST_SUBTYPE      */ ;
  115.       nil,                                      /* cGETLIST_CAPTION      */ ;
  116.       nil,                                      /* bGETLIST_VAR          */ ;
  117.       <nSRow>,                                  /* nGETLIST_STARTROW     */ ;
  118.       <nSCol>,                                  /* nGETLIST_STARTCOL     */ ;
  119.       <nERow>,                                  /* nGETLIST_ENDROW       */ ;
  120.       <nECol>,                                  /* nGETLIST_ENDCOL       */ ;
  121.       <nWidth>,                                 /* nGETLIST_WIDTH        */ ;
  122.       <nHeight>,                                /* nGETLIST_HEIGHT       */ ;
  123.       nil,                                      /* cGETLIST_FONT         */ ;
  124.       nil,                                      /* cGETLIST_PICTURE      */ ;
  125.       {<bWhen>,<(bWhen)>},                      /* bGETLIST_WHEN         */ ;
  126.       nil,                                      /* bGETLIST_VALID        */ ;
  127.       nil,                                      /* cGETLIST_TOOLTIP      */ ;
  128.       nil,                                      /* xGETLIST_CARGO        */ ;
  129.       <aAttr>,                                  /* aGETLIST_PRESENTATION */ ;
  130.       nil,                                      /* bGETLIST_ACTION       */ ;
  131.       nil,                                      /* oGETLIST_OBJECT       */ ;
  132.       nil,                                      /* xGETLIST_ORIGVALUE    */ ;
  133.       nil,                                      /* xGETLIST_OPTIONS      */ ;
  134.       [{<ncFgC>,<ncBgC>}],                      /* aGETLIST_COLOR        */ ;
  135.       nil,                                      /* cGETLIST_MESSAGE      */ ;
  136.       nil,                                      /* cGETLIST_HELPCODE     */ ;
  137.       nil,                                      /* cGETLIST_VARNAME      */ ;
  138.       nil,                                      /* bGETLIST_READVAR      */ ;
  139.       nil,                                      /* bGETLIST_DELIMVAR     */ ;
  140.       nil,                                      /* bGETLIST_GROUP        */ ;
  141.       nil,                                      /* nGETLIST_POINTER      */ ;
  142.       [{DC_GetAnchorCB(@<oParent>,'O'),                                     ;
  143.                         <(oParent)>,'O'}],      /* bGETLIST_PARENT       */ ;
  144.       nil,                                      /* bGETLIST_REFVAR       */ ;
  145.       nil,                                      /* bGETLIST_PROTECT      */ ;
  146.       <.p.>,                                    /* lGETLIST_PIXEL        */ ;
  147.       nil,                                      /* nGETLIST_CURSOR       */ ;
  148.       nil,                                      /* bGETLIST_EVAL         */ ;
  149.       [{DC_GetAnchorCb(@<oRel>,'O'),                                        ;
  150.                          <oRel>,'O'}],          /* bGETLIST_RELATIVE     */ ;
  151.       nil,                                      /* xGETLIST_OPTIONS2     */ ;
  152.       nil,                                      /* xGETLIST_OPTIONS3     */ ;
  153.       nil,                                      /* xGETLIST_OPTIONS4     */ ;
  154.       nil,                                      /* xGETLIST_OPTIONS5     */ ;
  155.       nil,                                      /* xGETLIST_OPTIONS6     */ ;
  156.       nil,                                      /* xGETLIST_OPTIONS7     */ ;
  157.       nil,                                      /* xGETLIST_OPTIONS8     */ ;
  158.       nil,                                      /* xGETLIST_OPTIONS9     */ ;
  159.       nil,                                      /* cGETLIST_LEVEL        */ ;
  160.       <cTitle>,                                 /* cGETLIST_TITLE        */ ;
  161.       nil,                                      /* cGETLIST_ACCESS       */ ;
  162.       nil,                                      /* bGETLIST_COMPILE      */ ;
  163.       [<cId>],                                  /* cGETLIST_ID           */ ;
  164.       nil,                                      /* dGETLIST_REVDATE      */ ;
  165.       nil,                                      /* cGETLIST_REVTIME      */ ;
  166.       nil,                                      /* cGETLIST_REVUSER      */ ;
  167.       {<bHide>,<(bHide)>},                      /* bGETLIST_HIDE         */ ;
  168.       nil,                                      /* nGETLIST_ACCELKEY     */ ;
  169.       nil,                                      /* bGETLIST_GOTFOCUS     */ ;
  170.       nil,                                      /* bGETLIST_LOSTFOCUS    */ ;
  171.       .f.,                                      /* lGETLIST_TABSTOP      */ ;
  172.       nil,                                      /* nGETLIST_TABGROUP     */ ;
  173.       <.v.>,                                    /* lGETLIST_VISIBLE      */ ;
  174.       <cGroup>,                                 /* cGETLIST_GETGROUP     */ ;
  175.       .f.,                                      /* lGETLIST_FLAG         */ ;
  176.       {ProcName(),ProcLine()},                  /* aGETLIST_PROC         */ ;
  177.     } )
  178.  
  179.  
  180. #command   @ <nSRow>,<nSCol> TO <nERow>,<nECol> DCGRABOX                    ;
  181.                 [COLOR <ncFgC> [,<ncBgC>] ]                                 ;
  182.                 [PARENT <oParent>]                                          ;
  183.                 [SIZE <nWidth> [,<nHeight>]]                                ;
  184.                 [<p: PIXEL>]                                                ;
  185.                 [ATTRIBUTE <aAttr>]                                         ;
  186.                 [RELATIVE <oRel>]                                           ;
  187.                 [WHEN <bWhen>]                                              ;
  188.                 [HIDE <bHide>]                                              ;
  189.                 [TITLE <cTitle>]                                            ;
  190.                 [ID <cId>]                                                  ;
  191.                 [GROUP <cGroup>]                                            ;
  192.                 [FILL <nFill>]                                              ;
  193.                 [HRADIUS <nHrad>]                                           ;
  194.                 [VRADIUS <nVrad>]                                           ;
  195.                 [<v:VISIBLE>]                                               ;
  196.   =>                                                                        ;
  197.    AADD( DCGUI_GETLIST,                                                     ;
  198.     { GETLIST_GRABOX,                           /* nGETLIST_TYPE         */ ;
  199.       nil,                                      /* nGETLIST_SUBTYPE      */ ;
  200.       nil,                                      /* cGETLIST_CAPTION      */ ;
  201.       nil,                                      /* bGETLIST_VAR          */ ;
  202.       <nSRow>,                                  /* nGETLIST_STARTROW     */ ;
  203.       <nSCol>,                                  /* nGETLIST_STARTCOL     */ ;
  204.       <nERow>,                                  /* nGETLIST_ENDROW       */ ;
  205.       <nECol>,                                  /* nGETLIST_ENDCOL       */ ;
  206.       <nWidth>,                                 /* nGETLIST_WIDTH        */ ;
  207.       <nHeight>,                                /* nGETLIST_HEIGHT       */ ;
  208.       nil,                                      /* cGETLIST_FONT         */ ;
  209.       nil,                                      /* cGETLIST_PICTURE      */ ;
  210.       {<bWhen>,<(bWhen)>},                      /* bGETLIST_WHEN         */ ;
  211.       nil,                                      /* bGETLIST_VALID        */ ;
  212.       nil,                                      /* cGETLIST_TOOLTIP      */ ;
  213.       nil,                                      /* xGETLIST_CARGO        */ ;
  214.       <aAttr>,                                  /* aGETLIST_PRESENTATION */ ;
  215.       nil,                                      /* bGETLIST_ACTION       */ ;
  216.       nil,                                      /* oGETLIST_OBJECT       */ ;
  217.       nil,                                      /* xGETLIST_ORIGVALUE    */ ;
  218.       nil,                                      /* xGETLIST_OPTIONS      */ ;
  219.       [{<ncFgC>,<ncBgC>}],                      /* aGETLIST_COLOR        */ ;
  220.       nil,                                      /* cGETLIST_MESSAGE      */ ;
  221.       nil,                                      /* cGETLIST_HELPCODE     */ ;
  222.       nil,                                      /* cGETLIST_VARNAME      */ ;
  223.       nil,                                      /* bGETLIST_READVAR      */ ;
  224.       nil,                                      /* bGETLIST_DELIMVAR     */ ;
  225.       nil,                                      /* bGETLIST_GROUP        */ ;
  226.       nil,                                      /* nGETLIST_POINTER      */ ;
  227.       [{DC_GetAnchorCB(@<oParent>,'O'),                                     ;
  228.                         <(oParent)>,'O'}],      /* bGETLIST_PARENT       */ ;
  229.       nil,                                      /* bGETLIST_REFVAR       */ ;
  230.       nil,                                      /* bGETLIST_PROTECT      */ ;
  231.       <.p.>,                                    /* lGETLIST_PIXEL        */ ;
  232.       nil,                                      /* nGETLIST_CURSOR       */ ;
  233.       nil,                                      /* bGETLIST_EVAL         */ ;
  234.       [{DC_GetAnchorCb(@<oRel>,'O'),                                        ;
  235.                          <oRel>,'O'}],          /* bGETLIST_RELATIVE     */ ;
  236.       <nFill>,                                  /* xGETLIST_OPTIONS2     */ ;
  237.       <nHrad>,                                  /* xGETLIST_OPTIONS3     */ ;
  238.       <nVrad>,                                  /* xGETLIST_OPTIONS4     */ ;
  239.       nil,                                      /* xGETLIST_OPTIONS5     */ ;
  240.       nil,                                      /* xGETLIST_OPTIONS6     */ ;
  241.       nil,                                      /* xGETLIST_OPTIONS7     */ ;
  242.       nil,                                      /* xGETLIST_OPTIONS8     */ ;
  243.       nil,                                      /* xGETLIST_OPTIONS9     */ ;
  244.       nil,                                      /* cGETLIST_LEVEL        */ ;
  245.       <cTitle>,                                 /* cGETLIST_TITLE        */ ;
  246.       nil,                                      /* cGETLIST_ACCESS       */ ;
  247.       nil,                                      /* bGETLIST_COMPILE      */ ;
  248.       [<cId>],                                  /* cGETLIST_ID           */ ;
  249.       nil,                                      /* dGETLIST_REVDATE      */ ;
  250.       nil,                                      /* cGETLIST_REVTIME      */ ;
  251.       nil,                                      /* cGETLIST_REVUSER      */ ;
  252.       {<bHide>,<(bHide)>},                      /* bGETLIST_HIDE         */ ;
  253.       nil,                                      /* nGETLIST_ACCELKEY     */ ;
  254.       nil,                                      /* bGETLIST_GOTFOCUS     */ ;
  255.       nil,                                      /* bGETLIST_LOSTFOCUS    */ ;
  256.       .f.,                                      /* lGETLIST_TABSTOP      */ ;
  257.       nil,                                      /* nGETLIST_TABGROUP     */ ;
  258.       <.v.>,                                    /* lGETLIST_VISIBLE      */ ;
  259.       <cGroup>,                                 /* cGETLIST_GETGROUP     */ ;
  260.       .f.,                                      /* lGETLIST_FLAG         */ ;
  261.       {ProcName(),ProcLine()},                  /* aGETLIST_PROC         */ ;
  262.     } )
  263.  
  264. #command @ <nRow>,<nCol>  DCGRAPROC <bProc>                                 ;
  265.                 [PARENT <oParent>]                                          ;
  266.                 [TITLE <cTitle>]                                            ;
  267.                 [<p:PIXEL>]                                                 ;
  268.                 [ID <cId>]                                                  ;
  269.                 [GROUP <cGroup>]                                            ;
  270.                 [<v:VISIBLE>]                                               ;
  271.   =>                                                                        ;
  272.    AADD( DCGUI_GETLIST,                                                     ;
  273.     { GETLIST_GRAPROC,                          /* nGETLIST_TYPE         */ ;
  274.       nil,                                      /* nGETLIST_SUBTYPE      */ ;
  275.       nil,                                      /* cGETLIST_CAPTION      */ ;
  276.       nil,                                      /* bGETLIST_VAR          */ ;
  277.       <nRow>,                                   /* nGETLIST_STARTROW     */ ;
  278.       <nCol>,                                   /* nGETLIST_STARTCOL     */ ;
  279.       nil,                                      /* nGETLIST_ENDROW       */ ;
  280.       nil,                                      /* nGETLIST_ENDCOL       */ ;
  281.       nil,                                      /* nGETLIST_WIDTH        */ ;
  282.       nil,                                      /* nGETLIST_HEIGHT       */ ;
  283.       nil,                                      /* cGETLIST_FONT         */ ;
  284.       nil,                                      /* cGETLIST_PICTURE      */ ;
  285.       nil,                                      /* bGETLIST_WHEN         */ ;
  286.       nil,                                      /* bGETLIST_VALID        */ ;
  287.       nil,                                      /* cGETLIST_TOOLTIP      */ ;
  288.       nil,                                      /* xGETLIST_CARGO        */ ;
  289.       nil,                                      /* aGETLIST_PRESENTATION */ ;
  290.       nil,                                      /* bGETLIST_ACTION       */ ;
  291.       nil,                                      /* oGETLIST_OBJECT       */ ;
  292.       nil,                                      /* xGETLIST_ORIGVALUE    */ ;
  293.       nil,                                      /* xGETLIST_OPTIONS      */ ;
  294.       nil,                                      /* aGETLIST_COLOR        */ ;
  295.       nil,                                      /* cGETLIST_MESSAGE      */ ;
  296.       nil,                                      /* cGETLIST_HELPCODE     */ ;
  297.       nil,                                      /* cGETLIST_VARNAME      */ ;
  298.       nil,                                      /* bGETLIST_READVAR      */ ;
  299.       nil,                                      /* bGETLIST_DELIMVAR     */ ;
  300.       nil,                                      /* bGETLIST_GROUP        */ ;
  301.       nil,                                      /* nGETLIST_POINTER      */ ;
  302.       [{DC_GetAnchorCB(@<oParent>,'O'),                                     ;
  303.                         <(oParent)>,'O'}],      /* bGETLIST_PARENT       */ ;
  304.       nil,                                      /* bGETLIST_REFVAR       */ ;
  305.       nil,                                      /* bGETLIST_PROTECT      */ ;
  306.       <.p.>,                                    /* lGETLIST_PIXEL        */ ;
  307.       nil,                                      /* nGETLIST_CURSOR       */ ;
  308.       nil,                                      /* bGETLIST_EVAL         */ ;
  309.       nil,                                      /* bGETLIST_RELATIVE     */ ;
  310.       <bProc>,                                  /* xGETLIST_OPTIONS2     */ ;
  311.       nil,                                      /* xGETLIST_OPTIONS3     */ ;
  312.       nil,                                      /* xGETLIST_OPTIONS4     */ ;
  313.       nil,                                      /* xGETLIST_OPTIONS5     */ ;
  314.       nil,                                      /* xGETLIST_OPTIONS6     */ ;
  315.       nil,                                      /* xGETLIST_OPTIONS7     */ ;
  316.       nil,                                      /* xGETLIST_OPTIONS8     */ ;
  317.       nil,                                      /* xGETLIST_OPTIONS9     */ ;
  318.       nil,                                      /* cGETLIST_LEVEL        */ ;
  319.       <cTitle>,                                 /* cGETLIST_TITLE        */ ;
  320.       nil,                                      /* cGETLIST_ACCESS       */ ;
  321.       nil,                                      /* bGETLIST_COMPILE      */ ;
  322.       [<cId>],                                  /* cGETLIST_ID           */ ;
  323.       nil,                                      /* dGETLIST_REVDATE      */ ;
  324.       nil,                                      /* cGETLIST_REVTIME      */ ;
  325.       nil,                                      /* cGETLIST_REVUSER      */ ;
  326.       nil,                                      /* bGETLIST_HIDE         */ ;
  327.       nil,                                      /* nGETLIST_ACCELKEY     */ ;
  328.       nil,                                      /* bGETLIST_GOTFOCUS     */ ;
  329.       nil,                                      /* bGETLIST_LOSTFOCUS    */ ;
  330.       .f.,                                      /* lGETLIST_TABSTOP      */ ;
  331.       nil,                                      /* nGETLIST_TABGROUP     */ ;
  332.       <.v.>,                                    /* lGETLIST_VISIBLE      */ ;
  333.       <cGroup>,                                 /* cGETLIST_GETGROUP     */ ;
  334.       .f.,                                      /* lGETLIST_FLAG         */ ;
  335.       {ProcName(),ProcLine()},                  /* aGETLIST_PROC         */ ;
  336.     } )
  337.  
  338.  
  339.