Page 1 of 1

new commands problem

Posted: Wed Apr 26, 2017 11:56 pm
by c-tec
Hello,
I make my first steps to define own commands, but get an compile invalid user of @ ... error with this code. Whats wrong ?
regards
Rudolf

Code: Select all

@ 20,50 HTMLLABEL SIZE 40,1 TEXT "Label"
...


-------------- include file --------------------------
#define GETLIST_LABEL      110


#command @ [<nRow> ,<nCol>] HTMLLABEL  <bcText>                          ;
                [<size:SIZE,SIZE> <nWidth> [,<nHeight>]]                    ;
                [OPTIONS <nOpt>]                                            ;
                [OBJECT <oObject>]                                          ;
                [PARENT <oParent>]                                          ;
                [PARENTID <cPID>]                                           ;
                [<s:STYLE,FONT> <cFont>]                                    ;
                [CARGO <xCargo>]                                            ;
                [TOOLTIP <bcToolTip>]                                       ;
                [MESSAGE <bcMessage>]                                       ;
                [PRESENTATION <aPres>]                                      ;
                [HIDE <bHide>]                                              ;
                [EVAL <bEval>]                                              ;
                [TITLE <cTitle>]                                            ;
                [ID <cId>]                                                  ;
                [GROUP <cGroup>]                                            ;
                [CLASS <bcClass>]                                           ;
 =>                                                                         ;
   AADD( DCGUI_GETLIST,DC_GetTemplate(GETLIST_LABEL) )                      ;
      [;DC_GetListSet(DCGUI_GETLIST,nGETLIST_WIDTH,<nWidth>)]               ;
      [;DC_GetListSet(DCGUI_GETLIST,nGETLIST_HEIGHT,<nHeight>)]             ;
      [;DC_GetListSet(DCGUI_GETLIST,cGETLIST_CAPTION,<bcText>)]             ;
      [;DC_GetListSet(DCGUI_GETLIST,xGETLIST_OPTIONS,{<nOpt>})]               ;
      [;DC_GetListSet(DCGUI_GETLIST,nGETLIST_STARTROW,<nRow>)]              ;
      [;DC_GetListSet(DCGUI_GETLIST,nGETLIST_STARTCOL,<nCol>)]              ;
      [;DC_GetListSet(DCGUI_GETLIST,cGETLIST_FONT,<cFont>)]                 ;
      [;DC_GetListSet(DCGUI_GETLIST,cGETLIST_TOOLTIP,<bcToolTip>)]          ;
      [;DC_GetListSet(DCGUI_GETLIST,cGETLIST_MESSAGE,<bcMessage>)]          ;
      [;DC_GetListSet(DCGUI_GETLIST,xGETLIST_CARGO,<xCargo>)]               ;
      [;DC_GetListSet(DCGUI_GETLIST,aGETLIST_PRESENTATION,<aPres>)]         ;
      [;DC_GetListSet(DCGUI_GETLIST,bGETLIST_GROUP,                         ;
        DC_GetAnchorCB(@<oObject>,'O'))]                                    ;
      [;DC_GetListSet(DCGUI_GETLIST,bGETLIST_PARENT,                        ;
        DC_GetAnchorCB(@<oParent>,'O'))]                                    ;
      [;DC_GetListSet(DCGUI_GETLIST,bGETLIST_PARENT,<cPID>)]                ;
      [;DC_GetListSet(DCGUI_GETLIST,bGETLIST_EVAL,<bEval>)]                 ;
      [;DC_GetListSet(DCGUI_GETLIST,bGETLIST_CLASS,<bcClass>)]              ;
      [;DC_GetListSet(DCGUI_GETLIST,cGETLIST_TITLE,<cTitle>)]               ;
      [;DC_GetListSet(DCGUI_GETLIST,cGETLIST_ID,<cId>)]                     ;
      [;DC_GetListSet(DCGUI_GETLIST,bGETLIST_HIDE,<bHide>)]                 ;
      [;DC_GetListSet(DCGUI_GETLIST,cGETLIST_GETGROUP,<cGroup>)]            ;


Re: new commands problem

Posted: Thu Apr 27, 2017 5:26 am
by rdonnay
You do not have a TEXT clause in your command.

Try this:

@ 20, 50 DCHTMLLABEL "Label" SIZE 40, 1

Re: new commands problem

Posted: Thu Apr 27, 2017 8:24 am
by c-tec
Hello Roger,
thank you, works now ! I forgot to remove the TEXT tag in the second part because it is not needed.
regards
Rudolf