Hi,
is box mandotary in SCROLLMSG class?
Thanks.
nageswaragunupudi wrote:Right now, box is always painted.
Do you want it without border (box) ?
Can it be optional?
// ::oWnd:Box( ::nTop - 1, ::nLeft - 1, ::nBottom + 1, ::nRight + 1 )
nageswaragunupudi wrote:Can it be optional?
Yes. We made this optional from the next version.
If you want to remove the box right now in your application, you need to modify the
fwh\source\classes\scrolmsg.prg:
Comment out line 115
- Code: Select all Expand view RUN
// ::oWnd:Box( ::nTop - 1, ::nLeft - 1, ::nBottom + 1, ::nRight + 1 )
DATA lNoBorder INIT .F.
METHOD New( nRow, nCol, nWidth, nHeight, cText, oWnd, oFont, ;
nSpeed, nClrText, nClrBack, lHoriz, lPixels, lDesign, cVarName, lNoBorder ) CLASS TScrollMsg
DEFAULT nRow := 0, nCol := 0, nWidth := 100, ;
nHeight := If( oFont != nil, Abs( oFont:nHeight ), SAY_CHARPIX_H ),;
nSpeed := 2, nClrText := CLR_BLACK, nClrBack := CLR_WHITE, ;
cText := "", lHoriz := .f., lPixels := .t., lDesign := .f., lNoBorder := .F.
::lVertical := !lHoriz
::lNoBorder := lNoBorder
if !::lNoBorder
::oWnd:Box( ::nTop - 1, ::nLeft - 1, ::nBottom + 1, ::nRight + 1 )
endif
#xcommand @ <nRow>, <nCol> SCROLLMSG [ <oMsg> <label: PROMPT,VAR,TEXT> ] <cText> ;
[ <dlg: OF,WINDOW,DIALOG > <oWnd> ] ;
[ FONT <oFont> ] ;
[ <lPixel: PIXEL, PIXELS > ] ;
[ <color: COLOR,COLORS > <nClrText> [,<nClrBack> ] ] ;
[ SIZE <nWidth>, <nHeight> ] ;
[ SPEED <nSpeed> ] ;
[ <lHoriz: HORIZONTAL> ] ;
[ <design: DESIGN > ] ;
[ <lNoBorder: NOBORDER > ] ;
=> ;
[ <oMsg> := ] TScrollMsg():New( <nRow>, <nCol>, [<nWidth>], [<nHeight>], <cText>,;
[<oWnd>], [<oFont>], [<nSpeed>], ;
[<nClrText>], [<nClrBack>], <.lHoriz.>, <.lPixel.>, ;
<.design.>, [<(oMsg)>], [<.lNoBorder.>] )
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 87 guests