is box mandotary in SCROLLMSG class?

[Horizon]

Hi,

is box mandotary in SCROLLMSG class?

Thanks.

[Antonio Linares]

Dear Hakan,

Can you provide a small example ?

[nageswaragunupudi]

Right now, box is always painted.
Do you want it without border (box) ?

[Horizon]

Right now, box is always painted.
Do you want it without border (box) ?

Yes, Mr. Rao, I want it without border. Can it be optional?

[nageswaragunupudi]

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

//   ::oWnd:Box( ::nTop - 1, ::nLeft - 1, ::nBottom + 1, ::nRight + 1 )
 

[Horizon]

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

//   ::oWnd:Box( ::nTop - 1, ::nLeft - 1, ::nBottom + 1, ::nRight + 1 )
 

Thank you Mr. Rao,

I have changed like below.

Code: Select all  Expand view

DATA lNoBorder              INIT .F.

Code: Select all  Expand view

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.

Code: Select all  Expand view

  ::lVertical := !lHoriz
   ::lNoBorder           := lNoBorder

Code: Select all  Expand view

     if !::lNoBorder
     ::oWnd:Box( ::nTop - 1, ::nLeft - 1, ::nBottom + 1, ::nRight + 1 )
   endif

Code: Select all  Expand view

#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.>] )

[nageswaragunupudi]

Good
Our implementation is slightly different, but on the same lines.