problem with modified dcsay get

This forum is for eXpress++ general support.
Post Reply
Message
Author
c-tec
Posts: 379
Joined: Tue Apr 20, 2010 1:36 am
Location: SALZBURG/AUSTRIA
Contact:
Contact c-tec

problem with modified dcsay get

#1 Post by c-tec »

Hello,
I try to make a own command CTHTMLSAY and GET modifing dcdialog.ch. When compiling it seems that the result is the same in the ppo file, but when checking the resutling getlist in the new commands a lot of things are missing. I made a own CTHTMLSAY and CTHTMLGET und use this in the combined command. Why do i get at runtime this different results in the getlist ?
Attached getlist element arra screenshots from the original command and my modified command.
regards
Rudolf

Code: Select all

#define GETLIST_HTMLSAY         120
#define GETLIST_HTMLGET         121



@   2,1 DCSAY     "Name"       GET cUserName1 pict "@S30"  saysize 10 message "Username eingeben"    into oMsg    getid "get1 "
@   3,1 CTHTMLSAY "Vorname"    GET cUserName2 pict "@S30"  saysize 10 message "Vorname eingeben"     into oMsg    getid "get2"




// ppo result seems equal
*--------------------- original ----------------------------------------------------------------------
AADD( GetList, DC_GetTemplate(12, 1) ) ;
DC_GetListSet(GetList,3,"Name")  ;
DC_GetListSet(GetList,5, 2) ;
DC_GetListSet(GetList,6, 1) ;
DC_GetListSet(GetList,9, 10)     ;
DC_GetListSet(GetList,23,{ "Username eingeben",nil}) ;
DC_GetListSet(GetList,23, DC_GetAnchorCB(@ oMsg,'O'),2)           ;
DC_GetListSet(GetList,23,{ "Username eingeben",nil}) ;
DC_GetListSet(GetList,23, DC_GetAnchorCB(@ oMsg,'O'),2)                           ;
DC_GetListSet(GetList,70, {'DCSAYGET',,,"Name", "2","1","10",""} ) ;
AADD( GetList,DC_GetTemplate(2) ) ;
DC_GetListSet(GetList,4, DC_GetAnchorCB(@ cUserName1,, cUserName1, "@S30",,,,"cUserName1")) ;
DC_GetListSet(GetList,29,Len(GetList)-1)      ;
DC_GetListSet(GetList,12, "@S30")        ;
DC_GetListSet(GetList,23,{ "Username eingeben",nil}) ;
DC_GetListSet(GetList,23, DC_GetAnchorCB(@ oMsg,'O'),2)  ;
DC_GetListSet(GetList,25,{"cUserName1",})      ;
DC_GetListSet(GetList,31, DC_GetAnchorCB(@ cUserName1,, cUserName1))                    ;
DC_GetListSet(GetList,49,DC_GetIdDefault( "get1 ","cUserName1",'GET_'))                         ;
DC_GetListSet(GetList,70, {'DCSAYGET',,,"cUserName1", "","","",""} )     ;
DC_GetAddOption(GetList,{ 105,  "Username eingeben" })

*--------------------- modified command -------------------------------------------------------------------
AADD( GetList, DC_GetTemplate(120, 1) ) ;
DC_GetListSet(GetList,3,"Vorname")  ;
DC_GetListSet(GetList,5, 3) ;
DC_GetListSet(GetList,6, 1) ;
DC_GetListSet(GetList,9, 10)     ;
DC_GetListSet(GetList,23,{ "Vorname eingeben",nil}) ;
DC_GetListSet(GetList,23, DC_GetAnchorCB(@ oMsg,'O'),2)           ;
DC_GetListSet(GetList,23,{ "Vorname eingeben",nil}) ;
DC_GetListSet(GetList,23, DC_GetAnchorCB(@ oMsg,'O'),2)                           ;
DC_GetListSet(GetList,70, {'DCSAYGET',,,"Vorname", "3","1","10",""} ) ;
AADD( GetList,DC_GetTemplate(121) ) ;
DC_GetListSet(GetList,4, DC_GetAnchorCB(@ cUserName2,, cUserName2, "@S30",,,,"cUserName2")) ;
DC_GetListSet(GetList,29,Len(GetList)-1)      ;
DC_GetListSet(GetList,12, "@S30")        ;
DC_GetListSet(GetList,23,{ "Vorname eingeben",nil}) ;
DC_GetListSet(GetList,23, DC_GetAnchorCB(@ oMsg,'O'),2)  ;
DC_GetListSet(GetList,25,{"cUserName2",})      ;
DC_GetListSet(GetList,31, DC_GetAnchorCB(@ cUserName2,, cUserName2))                    ;
DC_GetListSet(GetList,49,DC_GetIdDefault( "get2","cUserName2",'GET_'))                         ;
DC_GetListSet(GetList,70, {'DCSAYGET',,,"cUserName2", "","","",""} )     ;
DC_GetAddOption(GetList,{ 105,  "Vorname eingeben" })



*----------------- INCLUDE -------------------------------------------------------------------------------------



#command   @ <nRow> [,<nCol>] CTHTMLSAY [<cText>]                               ; //DCSAY
                [SAYVAR <uSayVar>]                                          ;
                [<font:FONT,SAYFONT> <cFont>]                               ;
                [PICTURE <cPict>]                                           ;
                [<color:COLOR,SAYCOLOR> <ncFgC> [,<ncBgC>] ]                ;
                [PARENT <oParent>]                                          ;
                [PARENTID <cPID>]                                           ;
                [<option:OPTIONS,SAYOPTIONS> <nOpt>]                        ;
                [<size:SIZE,SAYSIZE> <nWidth> [,<nHeight>]]                 ;
                [<p: PIXEL>] [_PIXEL <_pixel>]                              ;
                [PRESENTATION <aPres>]                                      ;
                [<tool:TOOLTIP,SAYTOOLTIP> <cToolTip>]                      ;
                [MESSAGE <cMessage>]                                        ;
                [<object:OBJECT,SAYOBJECT> <oObject>]                       ;
                [CARGO <xCargo>]                                            ;
                [CURSOR <nCursor>]                                          ;
                [<eval:EVAL,SAYEVAL> <bEval>]                               ;
                [<preeval:PREEVAL,SAYPREEVAL> <bPreEval>]                   ;
                [<posteval:POSTEVAL,SAYPOSTEVAL> <bPostEval>]               ;
                [RELATIVE <oRel>]                                           ;
                [WHEN <bWhen>]                                              ;
                [HIDE <bHide>]                                              ;
                [HELPCODE <cHelpCode>]                                      ;
                [TITLE <cTitle>]                                            ;
                [<id:ID,SAYID> <cId>]                                       ;
                [<lVisible:VISIBLE>] [_VISIBLE <_vis>]                      ;
                [<lInvisible:INVISIBLE>] [_INVISIBLE <_invis>]              ;
                [GROUP <cGroup>]                                            ;
                [<lGraString:GRASTRING>] [_GRASTRING <_grastring>]          ;
                [CLASS <bcClass>]                                           ;
                [HYPERLINK <bHyperLink>]                                    ;
                [RESIZE <aReSize> [<sf:SCALEFONT>]]                         ;
                [<lAlignRight:ALIGNRIGHT>] [_ALIGNRIGHT <_alignright>]      ;
                [DRAG <bDrag> [TYPE <nDragType>] [DIALOG <bDD>]]            ;
                [DROP <bDrop> [TYPE <nDropType>] [CURSOR <nDropCursor>]]    ;
                [<config:CONFIG,SAYCONFIG> <oConfig>]                       ;
                [SUBCLASS <cSubClass>]                                      ;
                [<ft:FORMATTED>]                                            ;
  =>                                                                        ;
   AADD( DCGUI_GETLIST, DC_GetTemplate(GETLIST_HTMLSAY, XBPSTATIC_TYPE_TEXT) )  ;
     ;DC_GetListSet(DCGUI_GETLIST,cGETLIST_CAPTION,<cText>)                 ;
    [;DC_GetListSet(DCGUI_GETLIST,bGETLIST_VAR,                             ;
              DC_GetAnchorCB(@<uSayVar>,'C'))]                              ;
    [;DC_GetListSet(DCGUI_GETLIST,nGETLIST_STARTROW,<nRow>)]                ;
    [;DC_GetListSet(DCGUI_GETLIST,nGETLIST_STARTCOL,<nCol>)]                ;
    [;DC_GetListSet(DCGUI_GETLIST,nGETLIST_WIDTH,<nWidth>)]                 ;
    [;DC_GetListSet(DCGUI_GETLIST,nGETLIST_HEIGHT,<nHeight>)]               ;
    [;DC_GetListSet(DCGUI_GETLIST,cGETLIST_FONT,<cFont>)]                   ;
    [;DC_GetListSet(DCGUI_GETLIST,cGETLIST_PICTURE,<cPict>)]                ;
    [;DC_GetListSet(DCGUI_GETLIST,bGETLIST_WHEN,<bWhen>)]                   ;
    [;DC_GetListSet(DCGUI_GETLIST,cGETLIST_TOOLTIP,<cToolTip>)]             ;
    [;DC_GetListSet(DCGUI_GETLIST,cGETLIST_MESSAGE,<cMessage>)]             ;
    [;DC_GetListSet(DCGUI_GETLIST,xGETLIST_CARGO,<xCargo>)]                 ;
    [;DC_GetListSet(DCGUI_GETLIST,aGETLIST_PRESENTATION,<aPres>)]           ;
    [;DC_GetListSet(DCGUI_GETLIST,xGETLIST_OPTIONS,{<nOpt>})]               ;
    [;DC_GetListSet(DCGUI_GETLIST,aGETLIST_COLOR,{<ncFgC>,<ncBgC>})]        ;
    [;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,lGETLIST_PIXEL,<.p.>)]                    ;
    [;DC_GetListSet(DCGUI_GETLIST,nGETLIST_CURSOR,<nCursor>)]               ;
    [;DC_GetListSet(DCGUI_GETLIST,bGETLIST_EVAL,<bEval>)]                   ;
    [;DC_GetListSet(DCGUI_GETLIST,bGETLIST_RELATIVE,                        ;
          DC_GetAnchorCb(@<oRel>,'O'))]                                     ;
    [;DC_GetListSet(DCGUI_GETLIST,xGETLIST_OPTIONS2,<.lGraString.>)]        ;
    [;DC_GetListSet(DCGUI_GETLIST,xGETLIST_OPTIONS2,<_grastring>)]          ;
    [;DC_GetListSet(DCGUI_GETLIST,xGETLIST_OPTIONS5,<.lAlignRight.>)]       ;
    [;DC_GetListSet(DCGUI_GETLIST,xGETLIST_OPTIONS5,<_alignright>)]         ;
    [;DC_GetListSet(DCGUI_GETLIST,xGETLIST_OPTIONS6,<.ft.>)]                ;
    [;DC_GetListSet(DCGUI_GETLIST,xGETLIST_OPTIONS9,<bHyperLink>)]          ;
    [;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>)]              ;
    [;DC_GetListSet(DCGUI_GETLIST,cGETLIST_HELPCODE,<cHelpCode>)]           ;
    [;DC_GetListSet(DCGUI_GETLIST,bGETLIST_PREEVAL,<bPreEval>)]             ;
    [;DC_GetListSet(DCGUI_GETLIST,bGETLIST_POSTEVAL,<bPostEval>)]           ;
    [;DC_GetListSet(DCGUI_GETLIST,lGETLIST_VISIBLE,<.lVisible.>)]           ;
    [;DC_GetListSet(DCGUI_GETLIST,lGETLIST_VISIBLE,!<.lInvisible.>)]        ;
    [;DC_GetListSet(DCGUI_GETLIST,lGETLIST_VISIBLE,<_vis>)]                 ;
    [;DC_GetListSet(DCGUI_GETLIST,lGETLIST_VISIBLE,!<_invis>)]              ;
    [;DC_GetListSet(DCGUI_GETLIST,bGETLIST_CLASS,<bcClass>)]                ;
    [;DC_GetListSet(DCGUI_GETLIST,oGETLIST_CONFIG,<oConfig>)]               ;
    [;DC_GetListSet(DCGUI_GETLIST,aGETLIST_RESIZE,<aReSize>)]               ;
    [;DC_GetListSet(DCGUI_GETLIST,aGETLIST_RESIZE,<.sf.>,3)]                ;
    [;DC_GetListSet(DCGUI_GETLIST,aGETLIST_DRAGDROP,                        ;
      {<bDrag>,<nDragType>,<bDD>,<bDrop>,<nDropType>,<nDropCursor>})]       ;
    [;DC_GetListSet(DCGUI_GETLIST,cGETLIST_SUBCLASS,<cSubClass>)]           ;
     ;DC_GetListSet(DCGUI_GETLIST,aGETLIST_VARS,                            ;
                     {'DCSAYGET',<(oObject)>,<(oParent)>,<(cText)>,         ;
                       #<nRow>,#<nCol>,#<nWidth>,#<nHeight>} )



#command  @ <nSayRow> [,<nSayCol>] CTHTMLSAY [<cText>] GET <uVar>           ;  // SAYGET
                [GETPOS <nGetRow> [,<nGetCol>] ]                            ;
                [DATALINK <bLink>]                                          ;
                [SAYVAR <uSayVar>]                                          ;
                [<color:COLOR,SAYCOLOR> <ncSayFgC> [,<ncSayBgC>] ]          ;
                [GETCOLOR <ncGetFgC> [,<ncGetBgC>] ]                        ;
                [OPTION <option>]                                           ;
                [<lGraString:GRASTRING>] [_GRASTRING <_grastring>]          ;
                [SAYSIZE <nSayWidth> [,<nSayHeight>]]                       ;
                [GETSIZE <nGetWidth> [,<nGetHeight>]]                       ;
                [PARENT <oParent>]                                          ;
                [PARENTID <cPID>]                                           ;
                [MESSAGE <cMsg> [INTO <oMsg>]]                              ;
                [VALID <bValid>]                                            ;
                [SAYOPTION <nSayOpt>]                                       ;
                [SAYHELPCODE <cSayHelpCode>]                                ;
                [<hc:HELPCODE,GETHELPCODE> <cHelpCode>]                     ;
                [PREBLOCK <preblock>]                                       ;
                [POSTBLOCK <postblock>]                                     ;
                [<kb:KEYBLOCK,KEYBOARD> <keyblock>]                         ;
                [PICTURE <cPict>]                                           ;
                [WHEN <bWhen>]                                              ;
                [HIDE <bHide>]                                              ;
                [EDITPROTECT <bProtect>]                                    ;
                [<u: UNREADABLE>] [_UNREADABLE <_unreadable>]               ;
                [<p: PIXEL>] [_PIXEL <_pixel>]                              ;
                [<noconfirm: NOCONFIRM>] [_NOCONFIRM <_noconfirm>]          ;
                [<confirm: CONFIRM>] [_CONFIRM <_confirm>]                  ;
                [SAYPRESENTATION <aSayPres>]                                ;
                [GETPRESENTATION <aGetPres>]                                ;
                [TOOLTIP <cToolTip>]                                        ;
                [SAYTOOLTIP <cSayToolTip>]                                  ;
                [GETTOOLTIP <cGetToolTip>]                                  ;
                [SAYOBJECT <oSayObject>]                                    ;
                [GETOBJECT <oGetObject>]                                    ;
                [SAYCURSOR <nSayCursor>]                                    ;
                [GETCURSOR <nGetCursor>]                                    ;
                [SAYCARGO <xSayCargo>]                                      ;
                [GETCARGO <xGetCargo>]                                      ;
                [SAYEVAL <bSayEval>]                                        ;
                [SAYPREEVAL <bSayPreEval>]                                  ;
                [SAYPOSTEVAL <bSayPostEval>]                                ;
                [GETEVAL <bGetEval>]                                        ;
                [GETPREEVAL <bGetPreEval>]                                  ;
                [GETPOSTEVAL <bGetPostEval>]                                ;
                [SAYTITLE <cSayTitle>]                                      ;
                [GETTITLE <cGetTitle>]                                      ;
                [SAYFONT <cSayFont>]                                        ;
                [GETFONT <cGetFont>]                                        ;
                [COMBO [HEIGHT <nComboHeight>] [WIDTH <nComboWidth>]        ;
                    [COMBOWHEN <cw>] [COMBOHIDE <ch>]                       ;
                    [DATA <acbComboData>]                                   ;
                    [<nf:FIELD,ELEMENT> <nbField>] [RETURN <bReturn>]       ;
                    [CAPTION <cComboCaption>] [FONT <cComboFont>]           ;
                    [HOTKEY <nComboHotKey>] [LISTFONT <cListFont>]          ;
                    [<keydrop:KEYDROP>]                                     ;
                    [LISTPRESENTATION <aListPres>] ]                        ;
                [NAME <cVarName>]                                           ;
                [RELATIVE <oRel>]                                           ;
                [SAYID <cSayId>]                                            ;
                [GETID <cGetId>]                                            ;
                [POPUP <bPopUp> [<lPopTab:POPTABSTOP>]                      ;
                   [<d:DROPDOWN>] [POPCAPTION <c>] [POPFONT <f>]            ;
                   [POPWIDTH <w>] [POPHEIGHT <h>]                           ;
                   [POPWHEN <pw>] [POPHIDE <ph>]                            ;
                   [POPSTYLE <s>] [POPKEY <k>] [<g:POPGLOBAL>] ]            ;
                   [POPTOOLTIP <t>]                                         ;
                [<pv:POPVALID>]                                             ;
                [ACCELKEY <nAccel>]                                         ;
                [REFERENCE <xRef>]                                          ;
                [GOTFOCUS <bGotFocus>]                                      ;
                [LOSTFOCUS <bLostFocus>]                                    ;
                [<lTabStop:TABSTOP>] [_TABSTOP <_tab>]                      ;
                [<lNoTabStop:NOTABSTOP>] [_NOTABSTOP <_notab>]              ;
                [TABGROUP <nTabGroup>]                                      ;
                [<pass:PASSWORD> [<showlast:SHOWLASTCHAR>]]                 ;
                   [_PASSWORD <_password>] [_SHOWLASTCHAR <_showlast>]      ;
                [PASSCHAR <cPassChar>]                                      ;
                [<proper:PROPER> [PROPOPTIONS <aProperOptions>]]            ;
                [_PROPER <_proper>]                                         ;
                [<ljust:LEFTJUSTIFY>] [_LEFTJUSTIFY <_leftjustify>]         ;
                [RANGE <nStart>, <nEnd>]                                    ;
                [<lVisible:VISIBLE>] [_VISIBLE <_vis>]                      ;
                [<lInvisible:INVISIBLE>] [_INVISIBLE <_invis>]              ;
                [GROUP <cGroup>]                                            ;
                [SAYCLASS <bcSayClass>]                                     ;
                [GETCLASS <bcGetClass>]                                     ;
                [HYPERLINK <bHyperLink>]                                    ;
                [<lCalc:CALCULATOR>] [_CALCULATOR <_calc>]                  ;
                [RESIZE <aReSize>  [<sf:SCALEFONT>]]                        ;
                [SAYRESIZE <aSayReSize> [<sfs:SCALEFONT>]]                  ;
                [GETRESIZE <aGetReSize> [<sfg:SCALEFONT>]]                  ;
                [<lAlignRight:ALIGNRIGHT>] [_ALIGNRIGHT <_alignright>]      ;
                [SAYDRAG <bSDrag> [TYPE <nSDragType>] [DIALOG <bSDD>]]         ;
                [SAYDROP <bSDrop> [TYPE <nSDropType>] [CURSOR <nSDropCursor>]] ;
                [GETDRAG <bGDrag> [TYPE <nGDragType>] [DIALOG <bGDD>]]         ;
                [GETDROP <bGDrop> [TYPE <nGDropType>] [CURSOR <nGDropCursor>]] ;
                [SAYCONFIG <oSayConfig>]                                    ;
                [GETCONFIG <oGetConfig>]                                    ;
                [SAYSUBCLASS <cSaySubClass>]                                ;
                [GETSUBCLASS <cGetSubClass>]                                ;
                [<ft:FORMATTED>]                                            ;
                [GETALIGN <nAlign>]                                         ;
  =>                                                                        ;
   AADD( DCGUI_GETLIST, DC_GetTemplate(GETLIST_HTMLSAY, XBPSTATIC_TYPE_TEXT) )  ;
     ;DC_GetListSet(DCGUI_GETLIST,cGETLIST_CAPTION,<cText>)                 ;
    [;DC_GetListSet(DCGUI_GETLIST,bGETLIST_VAR,                             ;
              DC_GetAnchorCB(@<uSayVar>,'C'))]                              ;
    [;DC_GetListSet(DCGUI_GETLIST,nGETLIST_STARTROW,<nSayRow>)]             ;
    [;DC_GetListSet(DCGUI_GETLIST,nGETLIST_STARTCOL,<nSayCol>)]             ;
    [;DC_GetListSet(DCGUI_GETLIST,nGETLIST_WIDTH,<nSayWidth>)]              ;
    [;DC_GetListSet(DCGUI_GETLIST,nGETLIST_HEIGHT,<nSayHeight>)]            ;
    [;DC_GetListSet(DCGUI_GETLIST,cGETLIST_FONT,<cSayFont>)]                ;
    [;DC_GetListSet(DCGUI_GETLIST,cGETLIST_TOOLTIP,<cToolTip>)]             ;
    [;DC_GetListSet(DCGUI_GETLIST,cGETLIST_TOOLTIP,<cSayToolTip>)]          ;
    [;DC_GetListSet(DCGUI_GETLIST,cGETLIST_MESSAGE,{<cMsg>,nil})]           ;
    [;DC_GetListSet(DCGUI_GETLIST,cGETLIST_MESSAGE,                         ;
         DC_GetAnchorCB(@<oMsg>,'O'),2)]                                    ;
    [;DC_GetListSet(DCGUI_GETLIST,xGETLIST_CARGO,<xSayCargo>)]              ;
    [;DC_GetListSet(DCGUI_GETLIST,aGETLIST_PRESENTATION,<aSayPres>)]        ;
    [;DC_GetListSet(DCGUI_GETLIST,xGETLIST_OPTIONS,{<nSayOpt>})]            ;
    [;DC_GetListSet(DCGUI_GETLIST,aGETLIST_COLOR,{<ncSayFgC>,<ncSayBgC>})]  ;
    [;DC_GetListSet(DCGUI_GETLIST,bGETLIST_GROUP,                           ;
          DC_GetAnchorCB(@<oSayObject>,'O'))]                               ;
    [;DC_GetListSet(DCGUI_GETLIST,bGETLIST_PARENT,                          ;
          DC_GetAnchorCB(@<oParent>,'O'))]                                  ;
    [;DC_GetListSet(DCGUI_GETLIST,bGETLIST_PARENT,<cPID>)]                  ;
    [;DC_GetListSet(DCGUI_GETLIST,lGETLIST_PIXEL,<.p.>)]                    ;
    [;DC_GetListSet(DCGUI_GETLIST,nGETLIST_CURSOR,<nSayCursor>)]            ;
    [;DC_GetListSet(DCGUI_GETLIST,bGETLIST_EVAL,<bSayEval>)]                ;
    [;DC_GetListSet(DCGUI_GETLIST,cGETLIST_MESSAGE,{<cMsg>,nil})]           ;
    [;DC_GetListSet(DCGUI_GETLIST,cGETLIST_MESSAGE,                         ;
         DC_GetAnchorCB(@<oMsg>,'O'),2)]                                    ;
    [;DC_GetListSet(DCGUI_GETLIST,bGETLIST_RELATIVE,                        ;
          DC_GetAnchorCb(@<oRel>,'O'))]                                     ;
    [;DC_GetListSet(DCGUI_GETLIST,cGETLIST_HELPCODE,<cSayHelpCode>)]        ;
    [;DC_GetListSet(DCGUI_GETLIST,xGETLIST_OPTIONS2,<.lGraString.>)]        ;
    [;DC_GetListSet(DCGUI_GETLIST,xGETLIST_OPTIONS2,<_grastring>)]          ;
    [;DC_GetListSet(DCGUI_GETLIST,xGETLIST_OPTIONS5,<.lAlignRight.>)]       ;
    [;DC_GetListSet(DCGUI_GETLIST,xGETLIST_OPTIONS5,<_alignright>)]         ;
    [;DC_GetListSet(DCGUI_GETLIST,xGETLIST_OPTIONS6,<.ft.>)]                ;
    [;DC_GetListSet(DCGUI_GETLIST,xGETLIST_OPTIONS9,<bHyperLink>)]          ;
    [;DC_GetListSet(DCGUI_GETLIST,cGETLIST_TITLE,<cSayTitle>)]              ;
    [;DC_GetListSet(DCGUI_GETLIST,cGETLIST_ID,<cSayId>)]                    ;
    [;DC_GetListSet(DCGUI_GETLIST,cGETLIST_GETGROUP,<cGroup>)]              ;
    [;DC_GetListSet(DCGUI_GETLIST,bGETLIST_PREEVAL,<bSayPreEval>)]          ;
    [;DC_GetListSet(DCGUI_GETLIST,bGETLIST_POSTEVAL,<bSayPostEval>)]        ;
    [;DC_GetListSet(DCGUI_GETLIST,lGETLIST_VISIBLE,<.lVisible.>)]           ;
    [;DC_GetListSet(DCGUI_GETLIST,lGETLIST_VISIBLE,!<.lInvisible.>)]        ;
    [;DC_GetListSet(DCGUI_GETLIST,lGETLIST_VISIBLE,<_vis>)]                 ;
    [;DC_GetListSet(DCGUI_GETLIST,lGETLIST_VISIBLE,!<_invis>)]              ;
    [;DC_GetListSet(DCGUI_GETLIST,bGETLIST_CLASS,<bcSayClass>)]             ;
    [;DC_GetListSet(DCGUI_GETLIST,oGETLIST_CONFIG,<oSayConfig>)]            ;
    [;DC_GetListSet(DCGUI_GETLIST,aGETLIST_RESIZE,<aReSize>)]               ;
    [;DC_GetListSet(DCGUI_GETLIST,aGETLIST_RESIZE,<.sf.>,3)]                ;
    [;DC_GetListSet(DCGUI_GETLIST,aGETLIST_RESIZE,<aSayReSize>)]            ;
    [;DC_GetListSet(DCGUI_GETLIST,aGETLIST_RESIZE,<.sfs.>,3)]               ;
    [;DC_GetListSet(DCGUI_GETLIST,cGETLIST_SUBCLASS,<cSaySubClass>)]        ;
    [;DC_GetListSet(DCGUI_GETLIST,aGETLIST_DRAGDROP,                        ;
      {<bSDrag>,<nSDragType>,<bSDD>,<bSDrop>,<nSDropType>,<nSDropCursor>})] ;
    [;DC_GetListSet(DCGUI_GETLIST,bGETLIST_HIDE,<bHide>)]                   ;
     ;DC_GetListSet(DCGUI_GETLIST,aGETLIST_VARS,                            ;
                     {'DCSAYGET',<(oSayObject)>,<(oParent)>,<(cText)>,      ;
                       #<nSayRow>,#<nSayCol>,#<nSayWidth>,#<nSayHeight>} )  ;
   ;AADD( DCGUI_GETLIST,DC_GetTemplate(GETLIST_HTMLGET) )                   ; // GET from SAYGET
    [;DC_GetListSet(DCGUI_GETLIST,bGETLIST_VAR,                             ;
      DC_GetAnchorCB(@<uVar>,,<uVar>,<cPict>,<bLink>,,,<(uVar)>))]          ;
     ;DC_GetListSet(DCGUI_GETLIST,nGETLIST_POINTER,Len(DCGUI_GETLIST)-1)    ;
    [;DC_GetListSet(DCGUI_GETLIST,nGETLIST_STARTROW,<nGetRow>)]             ;
    [;DC_GetListSet(DCGUI_GETLIST,nGETLIST_STARTCOL,<nGetCol>)]             ;
    [;DC_GetListSet(DCGUI_GETLIST,nGETLIST_WIDTH,<nGetWidth>)]              ;
    [;DC_GetListSet(DCGUI_GETLIST,nGETLIST_HEIGHT,<nGetHeight>)]            ;
    [;DC_GetListSet(DCGUI_GETLIST,cGETLIST_FONT,<cGetFont>)]                ;
    [;DC_GetListSet(DCGUI_GETLIST,cGETLIST_PICTURE,<cPict>)]                ;
    [;DC_GetListSet(DCGUI_GETLIST,bGETLIST_WHEN,<bWhen>)]                   ;
    [;DC_GetListSet(DCGUI_GETLIST,bGETLIST_VALID,<bValid>)]                 ;
    [;DC_GetListSet(DCGUI_GETLIST,cGETLIST_TOOLTIP,<cToolTip>)]             ;
    [;DC_GetListSet(DCGUI_GETLIST,cGETLIST_TOOLTIP,<cGetToolTip>)]          ;
    [;DC_GetListSet(DCGUI_GETLIST,xGETLIST_CARGO,<xGetCargo>)]              ;
    [;DC_GetListSet(DCGUI_GETLIST,aGETLIST_PRESENTATION,<aGetPres>)]        ;
    [;DC_GetListSet(DCGUI_GETLIST,aGETLIST_COLOR,{<ncGetFgC>,<ncGetBgC>})]  ;
    [;DC_GetListSet(DCGUI_GETLIST,cGETLIST_MESSAGE,{<cMsg>,nil})]           ;
    [;DC_GetListSet(DCGUI_GETLIST,cGETLIST_MESSAGE,                         ;
         DC_GetAnchorCB(@<oMsg>,'O'),2)]                                    ;
    [;DC_GetListSet(DCGUI_GETLIST,cGETLIST_HELPCODE,<cHelpCode>)]           ;
    [;DC_GetListSet(DCGUI_GETLIST,cGETLIST_VARNAME,{<(uVar)>,<(bLink)>})]   ;
    [;DC_GetListSet(DCGUI_GETLIST,cGETLIST_VARNAME,<cVarName>)]             ;
    [;DC_GetListSet(DCGUI_GETLIST,bGETLIST_READVAR,                         ;
         DC_GetAnchorCB(@<xRef>,,<xRef>)]                                   ;
    [;DC_GetListSet(DCGUI_GETLIST,bGETLIST_GROUP,                           ;
         DC_GetAnchorCB(@<oGetObject>,'O'))]                                ;
    [;DC_GetListSet(DCGUI_GETLIST,bGETLIST_PARENT,                          ;
         DC_GetAnchorCB(@<oParent>,'O'))]                                   ;
    [;DC_GetListSet(DCGUI_GETLIST,bGETLIST_PARENT,<cPID>)]                  ;
    [;DC_GetListSet(DCGUI_GETLIST,bGETLIST_REFVAR,                          ;
         DC_GetAnchorCB(@<uVar>,,<uVar>))]                                  ;
    [;DC_GetListSet(DCGUI_GETLIST,bGETLIST_PROTECT, <bProtect>)]            ;
    [;DC_GetListSet(DCGUI_GETLIST,lGETLIST_PIXEL,<.p.>)]                    ;
    [;DC_GetListSet(DCGUI_GETLIST,lGETLIST_PIXEL,<_pixel>)]                 ;
    [;DC_GetListSet(DCGUI_GETLIST,nGETLIST_CURSOR,<nGetCursor>)]            ;
    [;DC_GetListSet(DCGUI_GETLIST,bGETLIST_EVAL,<bGetEval>)]                ;
    [;DC_GetListSet(DCGUI_GETLIST,bGETLIST_RELATIVE,                        ;
         DC_GetAnchorCb(@<oRel>,'O'))]                                      ;
    [;DC_GetListSet(DCGUI_GETLIST,xGETLIST_OPTIONS2,                        ;
     {<bPopUp>,,<.lPopTab.>,<.d.>,<.pv.>,<c>,<f>,<w>,<h>,<s>,<k>,<.g.>,     ;
      <t>,<.lCalc.>,<pw><cw>,<ph><ch>,<nAlign>})]                           ;
    [;DC_GetListSet(DCGUI_GETLIST,xGETLIST_OPTIONS3,<.u.>)]                 ;
    [;DC_GetListSet(DCGUI_GETLIST,xGETLIST_OPTIONS3,<_unreadable>)]         ;
    [;DC_GetListSet(DCGUI_GETLIST,xGETLIST_OPTIONS4,<.noconfirm.>)]         ;
    [;DC_GetListSet(DCGUI_GETLIST,xGETLIST_OPTIONS4,!<.confirm.>)]          ;
    [;DC_GetListSet(DCGUI_GETLIST,xGETLIST_OPTIONS5,{<.pass.>,<cPassChar>,<.showlast.>})];
    [;DC_GetListSet(DCGUI_GETLIST,xGETLIST_OPTIONS5,{<_password>,<cPassChar>,<_showlast>})] ;
    [;DC_GetListSet(DCGUI_GETLIST,xGETLIST_OPTIONS6,{<.proper.>,<aProperOptions>})] ;
    [;DC_GetListSet(DCGUI_GETLIST,xGETLIST_OPTIONS6,{<_proper>,<aProperOptions>})] ;
    [;DC_GetListSet(DCGUI_GETLIST,xGETLIST_OPTIONS7,<.ljust.>)]             ;
    [;DC_GetListSet(DCGUI_GETLIST,xGETLIST_OPTIONS7,<_leftjustify>)]        ;
    [;DC_GetListSet(DCGUI_GETLIST,xGETLIST_OPTIONS8,{<nStart>,<nEnd>})]     ;
    [;DC_GetListSet(DCGUI_GETLIST,xGETLIST_OPTIONS9,<keyblock>)]            ;
    [;DC_GetListSet(DCGUI_GETLIST,cGETLIST_TITLE,<cGetTitle>)]              ;
    [;DC_GetListSet(DCGUI_GETLIST,cGETLIST_ID,DC_GetIdDefault(<cGetId>,<(uVar)>,'GET_'))] ;
    [;DC_GetListSet(DCGUI_GETLIST,bGETLIST_HIDE,<bHide>)]                   ;
    [;DC_GetListSet(DCGUI_GETLIST,nGETLIST_ACCELKEY,<nAccel>)]              ;
    [;DC_GetListSet(DCGUI_GETLIST,bGETLIST_GOTFOCUS,<bGotFocus>)]           ;
    [;DC_GetListSet(DCGUI_GETLIST,bGETLIST_LOSTFOCUS,<bLostFocus>)]         ;
    [;DC_GetListSet(DCGUI_GETLIST,lGETLIST_TABSTOP,<.lTabStop.>)]           ;
    [;DC_GetListSet(DCGUI_GETLIST,lGETLIST_TABSTOP,<_tab>)]                 ;
    [;DC_GetListSet(DCGUI_GETLIST,lGETLIST_TABSTOP,!<.lNoTabStop.>)]        ;
    [;DC_GetListSet(DCGUI_GETLIST,lGETLIST_TABSTOP,!<_notab>)]              ;
    [;DC_GetListSet(DCGUI_GETLIST,nGETLIST_TABGROUP,<nTabGroup>)]           ;
    [;DC_GetListSet(DCGUI_GETLIST,lGETLIST_VISIBLE,<.lVisible.>)]           ;
    [;DC_GetListSet(DCGUI_GETLIST,lGETLIST_VISIBLE,<_vis>)]                 ;
    [;DC_GetListSet(DCGUI_GETLIST,lGETLIST_VISIBLE,!<.lInvisible.>)]        ;
    [;DC_GetListSet(DCGUI_GETLIST,lGETLIST_VISIBLE,!<_invis>)]              ;
    [;DC_GetListSet(DCGUI_GETLIST,cGETLIST_GETGROUP,<cGroup>)]              ;
    [;DC_GetListSet(DCGUI_GETLIST,bGETLIST_PREEVAL,<bGetPreEval>)]          ;
    [;DC_GetListSet(DCGUI_GETLIST,bGETLIST_POSTEVAL,<bGetPostEval>)]        ;
    [;DC_GetListSet(DCGUI_GETLIST,bGETLIST_CLASS,<bcGetClass>)]             ;
    [;DC_GetListSet(DCGUI_GETLIST,oGETLIST_CONFIG,<oGetConfig>)]            ;
    [;DC_GetListSet(DCGUI_GETLIST,aGETLIST_RESIZE,<aReSize>)]               ;
    [;DC_GetListSet(DCGUI_GETLIST,aGETLIST_RESIZE,<.sf.>,3)]                ;
    [;DC_GetListSet(DCGUI_GETLIST,aGETLIST_RESIZE,<aGetReSize>)]            ;
    [;DC_GetListSet(DCGUI_GETLIST,aGETLIST_RESIZE,<.sfg.>,3)]               ;
    [;DC_GetListSet(DCGUI_GETLIST,cGETLIST_SUBCLASS,<cGetSubClass>)]        ;
    [;DC_GetListSet(DCGUI_GETLIST,aGETLIST_DRAGDROP,                        ;
      {<bGDrag>,<nGDragType>,<bGDD>,<bGDrop>,<nGDropType>,<nGDropCursor>})] ;
     ;DC_GetListSet(DCGUI_GETLIST,aGETLIST_VARS,                            ;
                     {'DCSAYGET',<(oGetObject)>,<(oParent)>,<(uVar)>,       ;
                      #<nGetRow>,#<nGetCol>,#<nGetWidth>,#<nGetHeight>} )   ;
    [;DC_GetAddOption(DCGUI_GETLIST,<option>)]                              ;
    [;DC_GetAddOption(DCGUI_GETLIST,                                        ;
       { 120, <nComboHeight>, <acbComboData>, <nbField>, <bReturn>,         ;
              <nComboWidth>, <cComboCaption>, <cComboFont>,                 ;
              <nComboHotKey>, <cListFont>, <aListPres>, <.keydrop.> }) ]    ;
    [;DC_GetAddOption(DCGUI_GETLIST,{ 103, <preblock> })]                   ;
    [;DC_GetAddOption(DCGUI_GETLIST,{ 104, <postblock> })]                  ;
    [;DC_GetAddOption(DCGUI_GETLIST,{ 105, <cMsg> })]                       ;
    [;DC_GetAddOption(DCGUI_GETLIST,{ 115, <cHelpCode> })]

* ------------------------------- *

#command  @ <nRow> [,<nCol>] CTHTMLGET [<uVar>]                                 ; //DCGET
                [DATALINK <bLink> ]                                         ;
                [<color:COLOR,GETCOLOR> <ncFgC> [,<ncBgC>] ]                ;
                [<size:SIZE,GETSIZE> <nWidth> [,<nHeight>] ]                ;
                [<font:FONT,GETFONT> <cFont>]                               ;
                [COMBO [HEIGHT <nComboHeight>] [WIDTH <nComboWidth>]        ;
                    [DATA <acbComboData>]                                   ;
                    [<nf:FIELD,ELEMENT> <nbField>] [RETURN <bReturn>]       ;
                    [CAPTION <cComboCaption>] [FONT <cComboFont>]           ;
                    [HOTKEY <nComboHotKey>] [LISTFONT <cListFont>]          ;
                    [<keydrop:KEYDROP>]                                     ;
                    [LISTPRESENTATION <aListPres>]                          ;
                    [COMBOWHEN <cw>] [COMBOHIDE <ch>]] ;
                [PARENT <oParent>]                                          ;
                [PARENTID <cPID>]                                           ;
                [<n:NAME,VARNAME> <cVarName>]                               ;
                [OPTION <option>]                                           ;
                [MESSAGE <cMsg> [INTO <oMsg>]]                              ;
                [VALID <bValid>]                                            ;
                [HELPCODE <cHelpCode>]                                      ;
                [PREBLOCK <preblock>]                                       ;
                [POSTBLOCK <postblock>]                                     ;
                [<kb:KEYBLOCK,KEYBOARD> <keyblock>]                         ;
                [PICTURE <cPict>]                                           ;
                [WHEN <bWhen>]                                              ;
                [HIDE <bHide>]                                              ;
                [<pp:EDITPROTECT,PROTECT> <bProtect>]                       ;
                [<p: PIXEL>] [_PIXEL <_pixel>]                              ;
                [<u: UNREADABLE>] [_UNREADABLE <_unreadable>]               ;
                [<noconfirm: NOCONFIRM>]                                    ;
                [<confirm: CONFIRM>]                                        ;
                [<pres:PRESENTATION,GETPRESENTATION> <aPres>]               ;
                [<tool:TOOLTIP,GETTOOLTIP> <cToolTip>]                      ;
                [<obj:OBJECT,GETOBJECT> <oObject>]                          ;
                [<cur:CURSOR,GETCURSOR> <nCursor>]                          ;
                [CARGO <xCargo>]                                            ;
                [<eval:EVAL,GETEVAL> <bEval>]                               ;
                [<preeval:PREEVAL,GETPREEVAL> <bPreEval>]                   ;
                [<posteval:POSTEVAL,GETPOSTEVAL> <bPostEval>]               ;
                [POPUP <bPopUp> [<lPopTab:POPTABSTOP>]                      ;
                   [<d:DROPDOWN>] [REFERENCE <xRef>]                        ;
                   [POPCAPTION <c>] [POPFONT <f>]                           ;
                   [POPWIDTH <w>] [POPHEIGHT <h>]                           ;
                   [POPWHEN <pw>] [POPHIDE <ph>]                            ;
                   [POPSTYLE <s>] [POPKEY <k>] [<g:POPGLOBAL>] ]            ;
                   [POPTOOLTIP <t>]                                         ;
                [<pv:POPVALID>]                                             ;
                [RELATIVE <oRel>]                                           ;
                [TITLE <cTitle>]                                            ;
                [<id:ID,GETID> <cId>]                                       ;
                [ACCELKEY <nAccel>]                                         ;
                [GOTFOCUS <bGotFocus>]                                      ;
                [LOSTFOCUS <bLostFocus>]                                    ;
                [<lTabStop:TABSTOP>] [_TABSTOP <_tab>]                      ;
                [<lNoTabStop:NOTABSTOP>] [_NOTABSTOP <_notab>]              ;
                [TABGROUP <nTabGroup>]                                      ;
                [<pass:PASSWORD> [<showlast:SHOWLASTCHAR>]]                 ;
                   [_PASSWORD <_password>] [_SHOWLASTCHAR <_showlast>]      ;
                [PASSCHAR <cPassChar>]                                      ;
                [<proper:PROPER> [PROPOPTIONS <aProperOptions>]]            ;
                [_PROPER <_proper>]                                         ;
                [<ljust:LEFTJUSTIFY>] [_LEFTJUSTIFY <_leftjustify>]         ;
                [RANGE <nStart>, <nEnd>]                                    ;
                [<lVisible:VISIBLE>] [_VISIBLE <_vis>]                      ;
                [<lInvisible:INVISIBLE>] [INVISIBLE <_invis>]               ;
                [GROUP <cGroup>]                                            ;
                [<lCellEditor:CELLEDITOR>] [_CELLEDITOR <_celleditor>]      ;
                [CLASS <bcClass>]                                           ;
                [<lCalc:CALCULATOR>] [_CALCULATOR <_calc>]                  ;
                [RESIZE <aReSize>  [<sf:SCALEFONT>]]                        ;
                [DRAG <bDrag> [TYPE <nDragType>] [DIALOG <bDD>]]            ;
                [DROP <bDrop> [TYPE <nDropType>] [CURSOR <nDropCursor>]]    ;
                [CONFIG <oConfig>]                                          ;
                [CUEBANNER <cuebanner>]                                     ;
                [SUBCLASS <cSubClass>]                                      ;
                [ALIGN <nAlign>]                                            ;
  =>                                                                        ;
   AADD( DCGUI_GETLIST,                                                     ;
        DC_GetTemplate(GETLIST_HTMLGET, IIF(<.lCellEditor.>,1,0)) )         ;
    [;DC_GetListSet(DCGUI_GETLIST,bGETLIST_VAR,                             ;
      DC_GetAnchorCB(@<uVar>,,<uVar>,<cPict>,<bLink>,,,<(uVar)>))]          ;
    [;DC_GetListSet(DCGUI_GETLIST,nGETLIST_STARTROW,<nRow>)]                ;
    [;DC_GetListSet(DCGUI_GETLIST,nGETLIST_STARTCOL,<nCol>)]                ;
    [;DC_GetListSet(DCGUI_GETLIST,nGETLIST_WIDTH,<nWidth>)]                 ;
    [;DC_GetListSet(DCGUI_GETLIST,nGETLIST_HEIGHT,<nHeight>)]               ;
    [;DC_GetListSet(DCGUI_GETLIST,cGETLIST_FONT,<cFont>)]                   ;
    [;DC_GetListSet(DCGUI_GETLIST,cGETLIST_PICTURE,<cPict>)]                ;
    [;DC_GetListSet(DCGUI_GETLIST,bGETLIST_WHEN,<bWhen>)]                   ;
    [;DC_GetListSet(DCGUI_GETLIST,bGETLIST_VALID,<bValid>)]                 ;
    [;DC_GetListSet(DCGUI_GETLIST,cGETLIST_TOOLTIP,<cToolTip>)]             ;
    [;DC_GetListSet(DCGUI_GETLIST,xGETLIST_CARGO,<xCargo>)]                 ;
    [;DC_GetListSet(DCGUI_GETLIST,aGETLIST_PRESENTATION,<aPres>)]           ;
    [;DC_GetListSet(DCGUI_GETLIST,aGETLIST_COLOR,{<ncFgC>,<ncBgC>})]        ;
    [;DC_GetListSet(DCGUI_GETLIST,cGETLIST_MESSAGE,{<cMsg>,nil})]           ;
    [;DC_GetListSet(DCGUI_GETLIST,cGETLIST_MESSAGE,                         ;
         DC_GetAnchorCB(@<oMsg>,'O'),2)]                                    ;
    [;DC_GetListSet(DCGUI_GETLIST,cGETLIST_HELPCODE,<cHelpCode>)]           ;
    [;DC_GetListSet(DCGUI_GETLIST,cGETLIST_VARNAME,                         ;
                {<(uVar)>,<(bLink)>})]                                      ;
    [;DC_GetListSet(DCGUI_GETLIST,cGETLIST_VARNAME,<cVarName>)]             ;
    [;DC_GetListSet(DCGUI_GETLIST,bGETLIST_READVAR,                         ;
         DC_GetAnchorCB(@<xRef>,,<xRef>))]                                  ;
    [;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_REFVAR,                          ;
         DC_GetAnchorCB(@<uVar>,,<uVar>))]                                  ;
    [;DC_GetListSet(DCGUI_GETLIST,bGETLIST_PROTECT, <bProtect>)]            ;
    [;DC_GetListSet(DCGUI_GETLIST,lGETLIST_PIXEL,<.p.>)]                    ;
    [;DC_GetListSet(DCGUI_GETLIST,lGETLIST_PIXEL,<_pixel>)]                 ;
    [;DC_GetListSet(DCGUI_GETLIST,nGETLIST_CURSOR,<nCursor>)]               ;
    [;DC_GetListSet(DCGUI_GETLIST,bGETLIST_EVAL,<bEval>)]                   ;
    [;DC_GetListSet(DCGUI_GETLIST,bGETLIST_RELATIVE,                        ;
         DC_GetAnchorCb(@<oRel>,'O'))]                                      ;
    [;DC_GetListSet(DCGUI_GETLIST,xGETLIST_OPTIONS2,                        ;
     {<bPopUp>,,<.lPopTab.>,<.d.>,<.pv.>,<c>,<f>,<w>,<h>,<s>,<k>,<.g.>,     ;
      <t>,<.lCalc.>,<pw><cw>,<ph><ch>,<nAlign>})]                           ;
    [;DC_GetListSet(DCGUI_GETLIST,xGETLIST_OPTIONS3,<.u.>)]                 ;
    [;DC_GetListSet(DCGUI_GETLIST,xGETLIST_OPTIONS3,<_unreadable>)]         ;
    [;DC_GetListSet(DCGUI_GETLIST,xGETLIST_OPTIONS4,<.noconfirm.>)]         ;
    [;DC_GetListSet(DCGUI_GETLIST,xGETLIST_OPTIONS4,!<.confirm.>)]          ;
    [;DC_GetListSet(DCGUI_GETLIST,xGETLIST_OPTIONS5,{<.pass.>,<cPassChar>,<.showlast.>})];
    [;DC_GetListSet(DCGUI_GETLIST,xGETLIST_OPTIONS5,{<_password>,<cPassChar>,<_showlast>})] ;
    [;DC_GetListSet(DCGUI_GETLIST,xGETLIST_OPTIONS6,{<.proper.>,<aProperOptions>})] ;
    [;DC_GetListSet(DCGUI_GETLIST,xGETLIST_OPTIONS6,{<_proper>,<aProperOptions>})] ;
    [;DC_GetListSet(DCGUI_GETLIST,xGETLIST_OPTIONS7,<.ljust.>)]             ;
    [;DC_GetListSet(DCGUI_GETLIST,xGETLIST_OPTIONS7,<_leftjustify>)]        ;
    [;DC_GetListSet(DCGUI_GETLIST,xGETLIST_OPTIONS8,{<nStart>,<nEnd>})]     ;
    [;DC_GetListSet(DCGUI_GETLIST,xGETLIST_OPTIONS9,<keyblock>)]            ;
    [;DC_GetListSet(DCGUI_GETLIST,cGETLIST_TITLE,<cTitle>)]                 ;
    [;DC_GetListSet(DCGUI_GETLIST,cGETLIST_ID,DC_GetIdDefault(<cId>,<(uVar)>,'GET_'))] ;
    [;DC_GetListSet(DCGUI_GETLIST,bGETLIST_HIDE,<bHide>)]                   ;
    [;DC_GetListSet(DCGUI_GETLIST,nGETLIST_ACCELKEY,<nAccel>)]              ;
    [;DC_GetListSet(DCGUI_GETLIST,bGETLIST_GOTFOCUS,<bGotFocus>)]           ;
    [;DC_GetListSet(DCGUI_GETLIST,bGETLIST_LOSTFOCUS,<bLostFocus>)]         ;
    [;DC_GetListSet(DCGUI_GETLIST,lGETLIST_TABSTOP,<.lTabStop.>)]           ;
    [;DC_GetListSet(DCGUI_GETLIST,lGETLIST_TABSTOP,<_tab>)]                 ;
    [;DC_GetListSet(DCGUI_GETLIST,lGETLIST_TABSTOP,!<.lNoTabStop.>)]        ;
    [;DC_GetListSet(DCGUI_GETLIST,lGETLIST_TABSTOP,!<_notab>)]              ;
    [;DC_GetListSet(DCGUI_GETLIST,nGETLIST_TABGROUP,<nTabGroup>)]           ;
    [;DC_GetListSet(DCGUI_GETLIST,lGETLIST_VISIBLE,<.lVisible.>)]           ;
    [;DC_GetListSet(DCGUI_GETLIST,lGETLIST_VISIBLE,<_vis>)]                 ;
    [;DC_GetListSet(DCGUI_GETLIST,lGETLIST_VISIBLE,!<.lInvisible.>)]        ;
    [;DC_GetListSet(DCGUI_GETLIST,lGETLIST_VISIBLE,!<_invis>)]              ;
    [;DC_GetListSet(DCGUI_GETLIST,cGETLIST_GETGROUP,<cGroup>)]              ;
    [;DC_GetListSet(DCGUI_GETLIST,bGETLIST_PREEVAL,<bPreEval>)]             ;
    [;DC_GetListSet(DCGUI_GETLIST,bGETLIST_POSTEVAL,<bPostEval>)]           ;
    [;DC_GetListSet(DCGUI_GETLIST,bGETLIST_CLASS,<bcClass>)]                ;
    [;DC_GetListSet(DCGUI_GETLIST,oGETLIST_CONFIG,<oConfig>)]               ;
    [;DC_GetListSet(DCGUI_GETLIST,aGETLIST_RESIZE,<aReSize>)]               ;
    [;DC_GetListSet(DCGUI_GETLIST,aGETLIST_RESIZE,<.sf.>,3)]                ;
    [;DC_GetListSet(DCGUI_GETLIST,cGETLIST_SUBCLASS,<cSubClass>)]           ;
    [;DC_GetListSet(DCGUI_GETLIST,aGETLIST_DRAGDROP,                        ;
      {<bDrag>,<nDragType>,<bDD>,<bDrop>,<nDropType>,<nDropCursor>})]       ;
     ;DC_GetListSet(DCGUI_GETLIST,aGETLIST_VARS,                            ;
                     {'DCGET',<(oObject)>,<(oParent)>,<(uVar)>,             ;
                      #<nRow>,#<nCol>,#<nWidth>,#<nHeight>} )               ;
    [;DC_GetAddOption(DCGUI_GETLIST,<option>)]                              ;
    [;DC_GetAddOption(DCGUI_GETLIST,                                        ;
       { 120, <nComboHeight>, <acbComboData>, <nbField>, <bReturn>,         ;
              <nComboWidth>, <cComboCaption>, <cComboFont>,                 ;
              <nComboHotKey>, <cListFont>, <aListPres>, <.keydrop.> }) ]    ;
    [;DC_GetAddOption(DCGUI_GETLIST,{ 103, <preblock> })]                   ;
    [;DC_GetAddOption(DCGUI_GETLIST,{ 104, <postblock> })]                  ;
    [;DC_GetAddOption(DCGUI_GETLIST,{ 105, <cMsg> })]                       ;
    [;DC_GetAddOption(DCGUI_GETLIST,{ 106, <cuebanner> })]                  ;
    [;DC_GetAddOption(DCGUI_GETLIST,{ 115, <cHelpCode> })]

* ------------------------ *
Attachments
original command
original command
2017-09-18_17h07_25.png (10.98 KiB) Viewed 14378 times
say from modified command
say from modified command
2017-09-18_17h09_57.png (12.69 KiB) Viewed 14378 times
get from modified command
get from modified command
2017-09-18_17h11_24.png (16.89 KiB) Viewed 14378 times
Rudolf Reinthaler
digital pen & paper systems
http://www.formcommander.net
Top
User avatar
rdonnay
Site Admin
Posts: 4762
Joined: Wed Jan 27, 2010 6:58 pm
Location: Boise, Idaho USA
Contact:
Contact rdonnay

Re: problem with modified dcsay get

#2 Post by rdonnay »

Rudolf -

You cannot just make a new command without also changing the DC_ReadGui() processor.

You changed the type of GET from a 2 to a 121.
DC_ReadGui() doesn't know what to do with a 121 because it isn't defined.

If you are going to create custom commands, then I need to give you a mechanism to do this.

First, I would never suggest that you modify DCDIALOG.CH.

Instead, you would put your own commands and defines in a custom CH file and #include "dcdialog.ch" at the top.

Bobby Drakos makes his own commands all the time and never touches eXpress++ CH or PRG files.

Give me an idea of what you are trying to do and I will help you with this.
The eXpress train is coming - and it has more cars.
Top
User avatar
sdenjupol148
Posts: 151
Joined: Thu Jan 28, 2010 10:27 am
Location: NYC

Re: problem with modified dcsay get

#3 Post by sdenjupol148 »

Hi Rudolph,

I'm sure if this will help you, but to illustrate what Roger mentioned in the previous post, I've created my own .CH file called BdmsLib.ch

In it, I can create whatever I like without having to touch any of the original express code.

In addition, changing any of Roger's functionality in any way would eventually become counter-productive.
If you added or modified something in one of his functions, then the next time you upgraded your installation, you would have to remember to add any modifications back in. In addition, if Roger upgraded anything in that function, it might no longer work with your changes.
If it is necessary for you to change something, I would suggest you copy out any of his code and insert directly into your software renaming the function to something else.
If however, you take the .CH approach, I have included a couple examples of some of the things I do from BdmsLib.ch.

This is to create a popup button anywhere on the screen next to an object

//
// POPUP
//
#command POPUPBUTTON <bPopUp> ;
[PARENT <oParent>] ;
[REF <cId>] ;
[COLOR <ncFGc>, <ncBGc>] ;
[GROUP <cGroup>] ;
[WHEN <bWhen>] ;
[HIDE <bHide>] ;
[ID <cId>] ;
[POPFONT <cFont>] ;
[POPCAPTION <cCaption>] ;
[POPKEY <nKey>] ;
[POPTOOLTIP <cTooltip>] ;
=> ;
@ DCGUI_ROW, DCGUI_COL DCPUSHBUTTON ;
SIZE 20,20 PIXEL ;
ACTION {||Eval(<bPopUp>), DC_GetRefresh(GetList,<cId>)} ;
TABSTOP ;
[PARENT <oParent>] ;
[GROUP <cGroup>] ;
[COLOR <ncFGc>, <ncBGc>] ;
[WHEN <bWhen>] ;
[HIDE <bHide>] ;
[ID <cId>] ;
[FONT <cFont>] ;
[ACCELKEY <nKey>] ;
[CAPTION <cCaption>] ;
[TOOLTIP <cTooltip>]

---------------------------------------------------
This check box function calls my function which is based off of Roger's DC_CheckBox.
I've included all code below

This is in BdmsLib.ch:
//
// CHECKBOX
//
#command @ <nRow>, <nCol> CHECKBOX [<cVal>] ;
[PROMPT <cPrompt>] ;
[PARENT <oParent>] ;
[YESVAL <cYesVal>] ;
[NOVAL <cNoVal>] ;
[COLOR <nFgC> [,<nBgC>] ] ;
[FONT <cFont>] ;
[SIZE <nWidth> [,<nHeight>] ] ;
[ID <cId>] ;
[GROUP <cGroup>] ;
[PRES <aPres>] ;
[SAYPOS <nSayRow>,<nSayCol>] ;
[OBJECT <oChkMark>] ;
[ACTION <bAction>] ;
[DATALINK <bDataLink>] ;
[GOTFOCUS <bGotFocus>] ;
[LOSTFOCUS <bLostFocus>] ;
[EDITPROTECT <bEditProtect>] ;
[HIDE <bHide>] ;
[WHEN <bWhen>] ;
[VALID <bValid>] ;
[ACCELKEY <anAccelKey>] ;
[TOOLTIP <cToolTip>] ;
=> ;
Check_Box( @<cVal>, <cPrompt>, <cYesVal>, <cNoVal>, @GetList, [@<oParent>], [@<oChkMark>],;
<nRow>, <nCol>, <cFont>, <nFgC>, <nBgC>, <nWidth>, <nHeight>, <cId>, <cGroup>, <aPres>,;
<nSayRow>, <nSayCol>, <bAction>, <bDataLink>, <bGotFocus>, <bLostFocus>, ;
<bEditProtect>, <bHide>, <bWhen>, <bValid>, <anAccelKey>, <cToolTip> )

This is the function called:

#INCLUDE "AppEvent.CH"
#INCLUDE "DcDialog.CH"

/*
CHECK_BOX Function
--------------------

Author ...: Spyros B. Drakos
Date .....: 4/22/2002 2:03PM
Resides ..: BDMSLIB.DLL

Creates a check box that can use either logicals as indicators or can return
strings to describe the checked and unchecked values.


<cVal> The check box value. It can be a logical value or a
string. If it's a string, it will be compared to the values
passed in cYesVal and cNoVal.

<cPrompt> The 'SAY' value.

<cYesVal> If the check box is checked, the value contained in
cYesVal will be returned. cYesVal can also be a logical.

<cNoVal> If the checkbox is unchecked, the value in cNoVal
will be returned. cNoVal can also be a logical.

<GetList> The GetList is automatically passed by reference.
NOTE: GetList must be declared first.

<oParent> Optional parent object on which the checkbox will be
placed.

<nRow> The row (in Text coordinates) on which to place the
checkbox

<nCol> The Column (in Text coordinates) at which to place the
checkbox.

<ncFGc>, <ncBGc> are foreground and background colors.
They may be character strings representing valid text-based
colors supported by SetColor() or they may be numeric constants
which begin with either the prefix GRA_CLR_ or the prefix
XBPSYSCLR_ as defined in GRA.CH or XBP.CH. IF <bncFGc> is a
code block is must return a 2-element array containing a
foreground and background color.

<cFont> Optional Font to use for the prompt. All fonts must be specified as a
character string containing the compound name of a font. It consists of the point
size followed by the name of the font family plus an optional font attribute "normal",
"italic" or "bold" (for example, "10.Courier Italic"). Defaults to nil.

<nWidth>, <nHeight> Width and height of the prompt.

<cId> Optional Get ID.

<cGroup> Optional group Id Name.

<nSayRow> Optional row position to place the prompt. By default the
prompt will be placed next to the checkbox.

<nSayCol> Optional column position to place the prompt. By default the
prompt will be placed next to the checkbox.

<bAction> Optional codeblock to be evaluated when the checkbox is
activated.

<bDataLink> is an optional code block that is evaluated every time Get/Set
codeblock is evaluated, ie when the data is read from the <uVar> into the
object.

<bDataLink> is also evaluated when DC_GetRefresh() is called unless the
<lDataLink> parameter of DC_GetRefresh() is .FALSE.

<bGotFocus> is a code block that is evaluated when this object receives
input focus. bGotFocus := {|uNIL1,uNIL2,self|...}

<bLostFocus> is a code block that is evaluated when this object loses input
focus. bLostFocus := {|uNIL1,uNIL2,self|...}

<bEditProtect> Optional codeblock that must return a logical value. When
.T. the checkbox is unneditable but not greyed out. When .F. the checkbox
is editable.

<bWhen> is a code block that is evaluated in the event loop. This code
block must return a logical value. If the value returned is .FALSE. then
the object will be disabled and grayed. If the value returned is .TRUE.
then the object will be enabled. The object is passed as a parameter to the
code block.

<bValid> is an optional condition tested during the execution of the GUI
gets by the READ command before a Getobject loses input focus (before it
is deactivated). When the condition returns the value .T. (true), the Get
object loses the input focus. Otherwise, it remains active. <bValid> is a
code block that must return a logical value when it is evaluated. The
object passed as a parameter to the code block.

<anAccelKey> is a numeric "hot-key" assignment that will set
focus to the checkbox object when the hot-key is pressed. The key
must be a valid key with the prefix xbeK_*. These keys are
defined in APPEVENT.CH. <anAccel> may also be an array of numeric
values to assign more than one key to the object.


<cToolTip> Optional pop up tooltips for the checkbox.



The Following command Directive Allows The Function To Be Coded without
To Remember The Entire Parameter List.
Include The Header File BDMSLIBS.CH



C H E C K _ B O X

#command @ <nRow>, <nCol> DCCHECK [<cVal>] ;
[PROMPT <cPrompt>] ;
[PARENT <oParent>] ;
[YESVAL <cYesVal>] ;
[NOVAL <cNoVal>] ;
[FONT <cFont>] ;
[COLOR <ncFgC> [,<ncBgC>] ] ;
[SIZE <nWidth> [,<nHeight>] ] ;
[ID <cId>] ;
[GROUP <cGroup>] ;
[PRES <aPres>] ;
[SAYPOS <nSayRow>,<nSayCol>] ;
[OBJECT <oChkMark>] ;
[ACTION <bAction>] ;
[DATALINK <bDataLink>] ;
[GOTFOCUS <bGotFocus>] ;
[LOSTFOCUS <bLostFocus>] ;
[EDITPROTECT <bEditProtect>] ;
[HIDE <bHide>] ;
[WHEN <bWhen>] ;
[VALID <bValid>] ;
[ACCELKEY <anAccelKey>] ;
[TOOLTIP <cToolTip>] ;
=> ;
Check_Box( @<cVal>, <cPrompt>, <cYesVal>, <cNoVal>, @GetList, @<oParent>, @<oChkMark>, ;
<nRow>, <nCol>, <cFont>, <ncFgC>, <ncBgC>, <nWidth>, <nHeight>, <cId>, <cGroup>, <aPres>,;
<nSayRow>, <nSayCol>, <bAction>, <bDataLink>, <bGotFocus>, <bLostFocus>, ;
<bEditProtect>, <bHide>, <bWhen>, <bValid>, <anAccelKey>, <cToolTip> )

*/

*---------------------------------------------------------------------------------------
FUNCTION Check_Box(cStr, cPrompt, cYesVal, cNoVal, GetList, oParent, oChkMark, nRow, nCol, ;
cFont, nFgC, nBgC, nWidth, nHeight, cId, cGroup, aPres, nSayRow, nSayCol, ;
bAction, bDataLink, bGotFocus, bLostFocus, bEditProtect, ;
bHide, bWhen, bValid, anAccelKey, cToolTip )

LOCAL lChkMark
LOCAL bGetSet

LOCAL cReturn := ""

cId := IIF( ValType(cId) = 'C', cId, 'CHKBOX~' )

IF ValType(cYesVal) = 'C'
IF Empty(cNoVal)
cNoVal := Space(Len(cYesVal))
ENDIF
ELSEIF cYesVal = nil
cYesVal := .T.
cNoVal := .F.
ENDIF

IF Empty(bDataLink)
bGetSet := {|x|IIF(x==nil,cStr==cYesVal,cStr:=IIF(x,cYesVal,cNoVal))}
ELSE
bGetSet := {|x,y|y:=IIF(x==nil,cStr==cYesVal,cStr:=IIF(x,cYesVal,cNoVal)), ;
IIF( DC_GetDataLink(),Eval(bDataLink),nil),y}
ENDIF

IF ValType(nSayRow) = 'N' .AND. ValType(nSayCol) = 'N'
@ nSayRow,nSayCol DCSAY cPrompt SAYSIZE nWidth,nHeight SAYRIGHTCENTER ;
PARENT oParent TOOLTIP cToolTip
cPrompt := nil
ENDIF

@ nRow,nCol DCCHECKBOX bGetSet ;
PROMPT cPrompt ;
OBJECT oChkMark ;
PARENT oParent ;
FONT cFont ;
COLOR nFgC,nBgC ;
SIZE nWidth,nHeight ;
ID cId ;
GROUP cGroup ;
PRES aPres ;
GOTFOCUS bGotFocus ;
LOSTFOCUS bLostFocus ;
ACTION bAction ;
DATALINK bDataLink ;
EDITPROTECT bEditProtect ;
ACCELKEY anAccelKey ;
HIDE bHide ;
WHEN bWhen ;
VALID bValid ;
TABSTOP ;
TOOLTIP cToolTip

ATail(GetList)[aGETLIST_PROC] := {ProcName(1), ProcLine(1)}
ATail(GetList)[aGETLIST_VARS] := { 'CHECK_BOX',,oParent,nRow,nCol,nWidth,nHeight }

RETURN nil


Hope this helps,

Bobby
Top
c-tec
Posts: 379
Joined: Tue Apr 20, 2010 1:36 am
Location: SALZBURG/AUSTRIA
Contact:
Contact c-tec

Re: problem with modified dcsay get

#4 Post by c-tec »

Hello Roger,Bobby,
thank you, of corse I use my own ch file for this things. I use my own commands to make HTML dialogs with Metro UI style. I add this commands in a separate ch file to add my own controls to the getlist. Then I cerate the getlist with

Code: Select all

DCGETOPTIONS HIDE
dcread gui save exit title "Testdialog" PARENT @oDlg OPTIONS getoptions
oDlg:destroy()
cHTML := parsegetlist(oSV,cHTML,Getlist)
...
I have several own commands that are working fine, so I copied from dcdialog.ch dccheckbox, dcmenubar, dcmenuitem etc. for modifying. And I added new commands like you did it for your HTML interface. I would like to remove things from the cargo slot to separate parameters like ROLE, STYLE, CLASS etc. The only problem I have is with my modified DCSAY GET, only here the result is wrong. Maybe a little addon to DC_ReadGui() could help to recognice the new DCSAY READ command correct. I will look at the code, maybe I find something.

regards
Rudolf


p.s. this is a sample code for the attached screenshots

Code: Select all

function dchtmlsample(oSV,cHTML)
******************************************************************
*  oSV is a DCVARGROUP with all session parameters, formvars and the request object
*  cHTML is the HTML template where to inject the resulting code
******************************************************************
local getlist := {},oMsg,lTest := .t.,cList := "",aList := {"list1","list2","list3","lists4","list5"}
local cGet1 := "Get1Value with datepicker", cGet2 := "Get with button and upload", cGet3 := "disabled get",cGet4 := "readonly get",cGet5 := "Get with buttons"
local oDlg,cMemo := "",cSource := stripfunction("dchtmlsample","webfunca.prg"),cEmail := "r.reinthaler@c-tec.at"
local getoptions := {},lTest2 := .t.,lTest3 := .t.,cInfo := "this is a demo text for standard multiline",cInfo2 := "this is a demo text tinymce editor",lTest4 := .t.,oBrowse
local cUserName := padlen("Username",30),cUserName2 := space(50),nUser := 2124,cPWD := space(50),cMsg := "cMsg",aData := {},oBrowse2,cKeyBoard := "Get with keyboard"
local aSel := saveopen("USER"),cRad := "1",nLine := 1,nPointer := 1
local aSidebar := {}
local aAppbar := {}
local aCarousel := {}
local oMenu1,oMenu2,oMenu3,oMenubar,cContent := [<h1 class="text-light">Right charm</h1>]
*-------------------- create a appbar on top -----------------------------------
aadd(aAppbar,{"mif-home:Home","javascript:callfunction('INDEX')"}) // for a icon simply put the name to the first token
aadd(aAppbar,{"--------",""})
aadd(aAppbar,{"mif-power:Send form","javascript:sendform('SENDFORM1')"})
aadd(aAppbar,{"mif-backward:Back","javascript:history.go(-1)"})
aadd(aAppbar,{"Sourcecode","javascript:sendform('VIEWFILE','DCHTMLSOURCE')"}) // open a template with a file alias DCHTMLSOURCE as content
aadd(aAppbar,{"Support","javascript:alert('Support')"})
aadd(aAppbar,{"Help","javascript:alert('Help')"})

*------------------- sidebar on the bottom of the demo ---------------------------
aadd(aSidebar,{"mif-apps","all itmes","#"})
aadd(aSidebar,{"mif-vpn-pub1","websites","#"})
aadd(aSidebar,{"mif-drive-eta","virutal machines","#"})
aadd(aSidebar,{"mif-cloud","Cloud services","#"})
aadd(aSidebar,{"mif-database","SQL databases","#"})
aadd(aSidebar,{"mif-cogs","automation","#"})
aadd(aSidebar,{"mif-apps","all items","#"})
aadd(aSidebar,{"mif-vpn-pub1","websites","#"})
aadd(aSidebar,{"mif-vpn-pub1","websites","#"})

aadd(aCarousel,[<h2>First slide</h2><p>Carousel :: Metro UI CSS - The front-end framework for developing projects on the web in Windows Metro Style</p>])
aadd(aCarousel,[images/1.jpg])
aadd(aCarousel,[images/2.jpg])
aadd(aCarousel,[images/3.jpg])
aadd(aCarousel,[images/4.jpg])


DCMENUBAR oMenuBar
DCMENUITEM "mif-home:Home"         PARENT oMenuBar ACTION {||__webfunc("javascript:callfunction('INDEX');")}
DCMENUITEM "mif-chefron-left:Back" PARENT oMenuBar ACTION {||__webfunc("javascript:history.go(-1);")}
DCMENUITEM "mif-power:Send form and check result"   PARENT oMenuBar ACTION {||__webfunc("javascript:sendform('SENDFORM1');")}
DCMENUITEM "Sourcecode"            PARENT oMenuBar ACTION {||__webfunc("javascript:sendform('VIEWFILE','DCHTMLSOURCE');")}
DCMENUITEM "Template"              PARENT oMenuBar ACTION {||__webfunc("javascript:sendform('VIEWFILE','DCHTMLTPL');")}
DCMENUITEM "Screenshot server"     PARENT oMenuBar ACTION {||__webfunc("javascript:sendform('SCREENSHOT');")}
DCMENUITEM "Logfiles"     PARENT oMenuBar ACTION {||__webfunc("javascript:sendform('LOGFILES');")}

DCSUBMENU oMenu2 PROMPT "Menü 2" BARTEXT "Menü 2 Bar" PARENT oMenuBar
DCMENUITEM 'Menuitem 1 '  PARENT oMenu2 ACTION {||__webfunc("javascript:alert('menu 2.1')")}
DCMENUITEM 'Menuitem 2 '  PARENT oMenu2 ACTION {||__webfunc("javascript:alert('menu 2.2')")}
DCMENUITEM 'Menuitem 3 '  PARENT oMenu2 ACTION {||__webfunc("javascript:alert('menu 2.3')")}

DCSUBMENU oMenu3 PROMPT "Menü 3" BARTEXT "Menü 3 Bar" PARENT oMenuBar
DCMENUITEM 'Menuitem 1 '  PARENT oMenu3 ACTION {||__webfunc("javascript:alert('menu 3.1')")}
DCMENUITEM 'Menuitem 2 '  PARENT oMenu3 ACTION {||__webfunc("javascript:alert('menu 3.2')")}
DCMENUITEM 'Menuitem 3 '  PARENT oMenu3 ACTION {||__webfunc("javascript:alert('menu 3.3')")}


@   0,1 CTHTMLCODE TEMPLATE "FLUENT-MENU-DEMO" ID "fluemenu" CONTAINER "fluent menue" ADDROWOFFSET 160 // read from template and add 60 to row offset for next absolut positioned control

@   1,1 dcsay "ID"         get nUser      pict "99999" saysize 10 message "User ID eingeben"     into oMsg    getid "get1"         GETCARGO "style=readonly"
@   2,1 dcsay "Name"       get cUserName  pict "@S30"  saysize 10 message "Username eingeben"    into oMsg    getid "get2"
@   3,1 dcsay "Vorname"    get cUserName2 pict "@S30"  saysize 10 message "Vorname eingeben"     into oMsg    getid "get_combo"    //COMBO DATA {"Franz","Karl","Kurt"} work in progress
@   4,1 dcsay "Passwort"   get cPWD       pict "@S15"  saysize 10 message "Passwort eingeben"    into oMsg    getid "get_password" GETCARGO "style=password"
@   5,1 dcsay "Email"      get cEmail     pict "@S30"  saysize 10                                             getid "get_email"    GETCARGO "style=email"

@   6,1 dccheckbox lTest  prompt "Checkbox "                id "id_checkbox1"
@   7,1 dccheckbox lTest2 prompt "Checkbox indeterminate"   id "id_checkbox2" CARGO "style=indeterminate"
@   8,1 dccheckbox lTest3 prompt "Checkbox small"           id "id_checkbox3" CARGO "style=small"

@   6.8,27 dccheckbox lTest4 prompt "Checkbox switch"          id "id_checkbox4" CARGO "style=switch"
@     8,27 dccheckbox lTest4 prompt "Checkbox switch"          id "id_checkbox5" CARGO "style=switch-original"


@ 10,1         dcradio cRad prompt "Radio 1 " value "1" id "id_radio1"
@ 10,_col()+10 dcradio cRad prompt "Radio 2 " value "2" id "id_radio2"

@ 12,1 dcsay "Testsay" saysize 10  id "id_testsay" FONT "15.Arial" COLOR GRA_CLR_RED,GRA_CLR_BLACK CARGO "style=font-size=20px;"
@ 12,_col()+10 dcget  cGet1 getid "id_testget" CARGO "role=datepicker"

@   14,1 dcget  cGet2 getid "id_testget_fileupload"      CARGO "style=file-button"  VALID {||"required"}
@   17,1 dcget  cGet3 getid "id_testget_disabled"        CARGO "style=disabled"
@   16,20 HTMLLISTGET {"select 1","select 2","select 3"} SIZE 30,1


@   18,1 dcget  cGet4 getid "id_testget_readonly"                    CARGO "style=readonly"
@   19,1 dcget  cKeyBoard getid "id_testget_keyboard" GETSIZE 35,1.5 CARGO "class=keyboard"
@ 20.5,1 dcget  cGet5 getid "id_testget_buttons"      GETSIZE 35,1.5 CARGO {{"button","images\location.png"},{"button","images\group.png"},{"button","images\power.png"}}

@ 23,1 CTHTMLLABEL "Listbox" SIZE 15,1.2 COLOR GRA_CLR_BLACK,GRA_CLR_PALEGRAY CARGO "style=font-size=20px;center"
@ 25,1 dclistbox cList LIST aList SIZE 15,8

@ 32, 1 dcpushbuttonxp caption "Send 1"      size 10,1.2 action {||__webfunc([sendform('SENDFORM1')])} ID "butest1"
@ 32,11 dcpushbuttonxp caption "small"       size 10,1.2 action {||__webfunc([sendform('SENDFORM1')])} CARGO "style=small;success"  ID "butest2"
@ 32,21 dcpushbuttonxp caption "shadow"      size 10,1.2 action {||__webfunc([sendform('SENDFORM1')])} CARGO "style=shadow;danger"  ID "butest3"

@ 34, 1 dcpushbuttonxp caption "rounded"     size 10,1.2 action {||__webfunc([sendform('SENDFORM1')])} CARGO "style=rounded;warning"  ID "butest4"
@ 34,11 dcpushbuttonxp caption "Link"        size 10,1.2 action {||__webfunc([sendform('SENDFORM1')])} CARGO "style=link"             ID "butest5"

@  1,50 CTHTMLLABEL "Multiline textarea" CARGO "style=font-size=20px;center"
@  2,50 dcmultiline cInfo  size 60,10 id "textarea_1"
@ 10,50 dcmultiline cInfo2 size 60,10 id "mytextarea" CARGO "style=tinymce" // tinymce editor style multiline

@ 20,50 CTHTMLLABEL "Donuts "      SIZE 40,1.2 COLOR GRA_CLR_WHITE,GRA_CLR_PALEGRAY CARGO "style=font-size=20px;center" ID "label_donut"//
@ 22,50 CTHTMLDONUT "Donut"  VALUE 37  SIZE 40,15 ID "donut1"
@ 22,70 CTHTMLDONUT "Donut"  VALUE 70  SIZE 40,15 CARGO [style=animate="10"] ID "donut2"


@ 29,70 CTHTMLCHARMBARBUTTON "Charm bar"  SIZE 10,1  CONTENT cContent

@ 38, 1 DCSTATIC TYPE XBPSTATIC_TYPE_BITMAP SIZE 12,5 CARGO "source=images\1.jpg"                    ID "STATICBMP1" GROUP "Images"
@ 38,14 DCSTATIC TYPE XBPSTATIC_TYPE_BITMAP SIZE 12,5 CARGO "source=images\2.jpg;style=rounded"      ID "STATICBMP2" GROUP "Images"
@ 38,27 DCSTATIC TYPE XBPSTATIC_TYPE_BITMAP SIZE 12,5 CARGO "source=images\3.jpg;style=bordered"     ID "STATICBMP3" GROUP "Images"
@ 38,40 DCSTATIC TYPE XBPSTATIC_TYPE_BITMAP SIZE 12,5 CARGO "source=images\4.jpg;style=polaroid"     ID "STATICBMP4" GROUP "Images"
@ 38,53 DCSTATIC TYPE XBPSTATIC_TYPE_BITMAP SIZE 12,5 CARGO "source=images\5.jpg;style=bordered handing image-format-hd" ID "STATICBMP5" GROUP "Images"
@ 38,66 DCSTATIC TYPE XBPSTATIC_TYPE_BITMAP SIZE 12,5 CARGO "source=images\1.jpg;style=bordered handing ani image-format-hd" ID "STATICBMP6" GROUP "Images"


aadd(aData,{1,"Maier","Franz","Finkenweg",11})
aadd(aData,{2,"Müller","Kurt","Zeisigweg",12})
aadd(aData,{3,"Schmid","Hans","Amselweg",13})
aadd(aData,{4,"Hauer","Maria","Pfauenweg",14})
aadd(aData,{5,"Huber","Gertraud","Spatzenweg",15})

nLine := 43

@ nLine++,1 dcsay "Array browser + row edit" saysize 100  id "id_source" //CARGO "style=h1"
@ nLine,1 DCBROWSE oBrowse DATA aData SIZE 100,20 POINTER nPointer DATALINK {||__webfunc([DCHTMLBROWSEEDIT])} CARGO {"canedit,candelete,canadd","EDITWIN","Kundendaten bearbeiten","500","350"} ID "ARRAYBROWSE1"
DCBROWSECOL ELEMENT 1 WIDTH 4    PARENT oBrowse  HEADER "Nummer" CARGO "role=id" ID "nummer"
DCBROWSECOL ELEMENT 2 WIDTH 10   PARENT oBrowse  HEADER "Name"         ID "name"
DCBROWSECOL ELEMENT 3 WIDTH 10   PARENT oBrowse  HEADER "Vorname"      ID "vorname"
DCBROWSECOL ELEMENT 4 WIDTH 10   PARENT oBrowse  HEADER "Straße"       ID "strasse"
DCBROWSECOL ELEMENT 5 WIDTH 4    PARENT oBrowse  HEADER "Hausnummer"   ID "hnr"

@ nLine+20,0 dcpushbuttonxp caption "New Record"    size 10,1.2 action {||__webfunc({"BROWSEEDIT","ARRAYBROWSE1","ADD"})} CARGO "style=success" PARENTID "ARRAYBROWSE1"

nLine += 21

@ nLine++,1 dcsay "Database browser + row edit and append records with button below" saysize 100  id "id_source" //CARGO "style=h1"
@ nLine,1 DCBROWSE oBrowse2 ALIAS "USER" SIZE 70,20  DATALINK {||__webfunc([DCHTMLBROWSEEDITB])} CARGO {"canedit,candelete,canadd","EDITWIN","Kundendaten bearbeiten","500","350"} ID "DBBROWSE1"
DCBROWSECOL FIELD user->aktiv       WIDTH 1    HEADER "A"             PARENT oBrowse2 ID "aktiv"
DCBROWSECOL FIELD user->id          WIDTH 4    HEADER "ID"            PARENT oBrowse2 ID "id" CARGO "role=id"
DCBROWSECOL FIELD user->name        WIDTH 10   HEADER "Name"          PARENT oBrowse2 ID "name"
DCBROWSECOL FIELD user->Login       WIDTH 10   HEADER "Login"         PARENT oBrowse2 ID "login"
DCBROWSECOL FIELD user->lastlogin   WIDTH 15   HEADER "Letzter Login" PARENT oBrowse2 ID "lastlogin"
DCBROWSECOL FIELD user->email       WIDTH 15   HEADER "Email"         PARENT oBrowse2 ID "email"

@ nLine    ,73 dcpushbuttonxp caption "New Record 1"    size 10,1.2 action {||__webfunc({"BROWSEEDIT","DBBROWSE1","ADD"})} CARGO "style=success" PARENTID "DBBROWSE1"
@ nLine+1.5,73 dcpushbuttonxp caption "New Record 2"    size 10,1.2 action {||__webfunc({"BROWSEEDIT","DBBROWSE1","ADD"})} CARGO "style=shadow;danger"  PARENTID "DBBROWSE1"
@ nLine+3  ,73 dcpushbuttonxp caption "New Record 3"    size 10,1.2 action {||__webfunc({"BROWSEEDIT","DBBROWSE1","ADD"})} CARGO "style=warning" PARENTID "DBBROWSE1" ID "bu_browseadd"
nLine += 22

@ nLine,1 CTHTMLSIDEBAR aSidebar ID "sidebar" ADDCOLOFFSET 150 CARGO "style=sidebar2 dark" // add coloffset to place all following controls right side of the menue

@ nLine,15 CTHTMLCODE TEXT '<h5>Render days</h5><div data-role="calendar"></div>' ID "calendar" ADDCOLOFFSET -150 //insert HTML and set col offset back if elements are following this one

@ nLine,55 CTHTMLWIDGET TYPE WT_PANEL SIZE 35,4 CAPTION "Panel Caption" DATA "Lorem ipsum dolor sit amet, consectetur adipiscing elit. Aenean luctus lectus sit amet odio ullamcorper malesuada dignissim justo gravida." ID "widget_panel" CARGO "style=alert"

nLine += 12
@ nLine,25 CTHTMLWIDGET TYPE WT_CAROUSEL SIZE 40,8 CAPTION "Carousel" DATA aCarousel ID "widget_carousel" //CARGO [style=data-effect="fade"]

nLine += 10
@   nLine,1 CTHTMLAPPBAR aAppbar ID "appbar" //REPLACE "NAVBAR" ADDROWOFFSET 150 // create HTML and insert into template to placeholder <%NAVBAR%>, not processed because a standard menu is used
nLine += 3
@   nLine,1 CTHTMLAPPBAR aAppbar ID "breadcrumbs" TYPE "BC 2 small"//REPLACE "BREADCRUMBS" ADDROWOFFSET 150  // create HTML and insert into template to placeholder <%NAVBAR%>, not processed because a standard menu is used

nLine += 6
@ nLine++,1 CTHTMLLABEL "Live webcam Salzburg Gaisberg" SIZE 35,1 COLOR GRA_CLR_BLACK,GRA_CLR_PALEGRAY CARGO "style=font-size=20px;center"
@ ++nLine,1 CTHTMLWIDGET TYPE WT_MEDIA SIZE 35,10 CAPTION "Live video capture" DATA "" ID "widget_media" CARGO "button=open;takepicture"



DCGETOPTIONS HIDE
dcread gui save exit title "Userdate" PARENT @oDlg OPTIONS getoptions
oDlg:destroy()

cHTML := parsegetlist(oSV,cHTML,Getlist)
prot(cHTML,"log/response.html")
saveopen(aSel)
return cHTML
Attachments
2017-09-19_08h34_28.png
2017-09-19_08h34_28.png (34.23 KiB) Viewed 14351 times
2017-09-19_08h33_57.png
2017-09-19_08h33_57.png (206.03 KiB) Viewed 14351 times
2017-09-19_08h33_43.png
2017-09-19_08h33_43.png (54.96 KiB) Viewed 14351 times
Rudolf Reinthaler
digital pen & paper systems
http://www.formcommander.net
Top
c-tec
Posts: 379
Joined: Tue Apr 20, 2010 1:36 am
Location: SALZBURG/AUSTRIA
Contact:
Contact c-tec

Re: problem with modified dcsay get

#5 Post by c-tec »

and the last screenshot
regards Rudolf
Attachments
2017-09-19_08h34_43.png
2017-09-19_08h34_43.png (286.6 KiB) Viewed 14350 times
Rudolf Reinthaler
digital pen & paper systems
http://www.formcommander.net
Top
c-tec
Posts: 379
Joined: Tue Apr 20, 2010 1:36 am
Location: SALZBURG/AUSTRIA
Contact:
Contact c-tec

Re: problem with modified dcsay get

#6 Post by c-tec »

Hello,
now I copied _dcgetbx.prg and make my own dc_readguiHTML(), I think this can solve the problems because here are several parts where I have to add my new commands for correct work. Its no problem if it is not covered from future eXpress++ updates. Its still fascinating what you can do with eXpress++ !
regards
Rudolf
Rudolf Reinthaler
digital pen & paper systems
http://www.formcommander.net
Top
c-tec
Posts: 379
Joined: Tue Apr 20, 2010 1:36 am
Location: SALZBURG/AUSTRIA
Contact:
Contact c-tec

Re: problem with modified dcsay get

#7 Post by c-tec »

Hello Bobby, Roger,
works great now, I have copied the _dcgetbx.prg to my readhtml.prg, renamed dc_readgui() and the class dc_getlist and added all my HTML controls in the code where needed. Now I can use the full features of dc_getlist for my modified and new HTML conrols.
regards
Rudolf
Rudolf Reinthaler
digital pen & paper systems
http://www.formcommander.net
Top
Post Reply

Return to “eXpress++ Support”