I noticed that the cuebanner isn't implemented in DCDIALOG for the DCSAY ... GET. It is implemented for DCGET and DCSLE.
I made the changes as below, and this is working.
It's a pitty that the font can't be changed easily, the result isn't very nice. But this is Xbase++ and can't be changed.
Code: Select all
#command @ <nSayRow> [,<nSayCol>] DCSAY [<cText>] GET <uVar> ; //DCSAYGET ;
[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>] ;
[POPKEY <k>] [<g:POPGLOBAL>] [POPSTYLE <s>] ] ;
[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>] ;
[CUEBANNER <cuebanner>] ;
[SAYSUBCLASS <cSaySubClass>] ;
[GETSUBCLASS <cGetSubClass>] ;
[<ft:FORMATTED>] ;
[GETALIGN <nAlign>] ;
=> ;
AADD( DCGUI_GETLIST, DC_GetTemplate(GETLIST_SAY, 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_GET) ) ;
[;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,{ 106, <cuebanner> })] ;
[;DC_GetAddOption(DCGUI_GETLIST,{ 115, <cHelpCode> })]
* ------------------------------- *
