COLOR clause in DSMSGBOX
Posted: Tue Feb 02, 2010 2:35 pm
need a way to change colors on message boxes
Donnay Software Web Forums
http://bb.mobile.donnay-software.com/Donnay/
http://bb.mobile.donnay-software.com/Donnay/viewtopic.php?f=2&t=36
Code: Select all
#xtranslate DCMSGBOX <list,...> ;
[TITLE <cTitle>] ;
[TIMEOUT <nSeconds>] ;
[<yesno:YESNO>] ;
[TO <output>] ;
[FONT <cFont>] ;
[BUTTONS <aButtons>] ;
[CHOICE <nChoice>] ;
[HOTKEY <cHotKey>] ;
[EVAL <bEval>] ;
[ICON <nIcon>] ;
[<nr:NOAUTORESTORE>] ;
[<always:ALWAYSONTOP>] ;
[_ALWAYSONTOP <_always>];
[COLOR <nFg> [,<nBg>]] ; <<<<<<<<<<
=> ;
[<output> := ] ;
DC_MsgBox(,,{<list>},<cTitle>,,<nSeconds>,<.yesno.>,<nChoice>, ;
<aButtons>,,,<cHotKey>,<cFont>,<bEval>,<nIcon>,<.nr.>, ;
<.always.>[.OR.<_always>], ;
[{<nFg>,<nBg>}] ) <<<<<<<<<<<<
Code: Select all
FUNCTION dc_msgbox ( nRow, nCol, aMessage, cTitle, lWait, nSeconds, lYesNo,;
nChoice, aItems, aMenuId, cMenuName, cHotKey, cFont, ;
bEval, nIcon, lNoRestore, lAlwaysOnTop, ;
aColor ) <<<<<<<<
FOR i := 1 TO LEN(aMessage)
@ nLine, 1 DCSAY Pad(aMessage[i],nWidth) FONT cFont SIZE 0
IF Valtype(aColor) == 'A' <<<<<<<<<<<
ATail(GetList)[aGETLIST_COLOR] := aColor <<<<<<<<<<<
ENDIF <<<<<<<<<<<
nLine++
NEXT