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  RUN

//   ::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  RUN

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

Thank you Mr. Rao,

I have changed like below.

Code: Select all  Expand view  RUN

DATA lNoBorder              INIT .F.

Code: Select all  Expand view  RUN

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  RUN

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

Code: Select all  Expand view  RUN

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

Code: Select all  Expand view  RUN

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