topic-43471

Horizon

Posts: 1387

Joined: Fri May 23, 2008 01:33 PM

is box mandotary in SCROLLMSG class?
Posted: Tue Jul 18, 2023 10:54 AM

Hi,

is box mandotary in SCROLLMSG class?

Thanks.

Regards,

Hakan ONEMLI

Harbour & MSVC 2022 & FWH 23.06

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: is box mandotary in SCROLLMSG class?
Posted: Tue Jul 18, 2023 10:58 AM

Dear Hakan,

Can you provide a small example ?

regards, saludos

Antonio Linares
www.fivetechsoft.com

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: is box mandotary in SCROLLMSG class?
Posted: Tue Jul 18, 2023 11:03 AM

Right now, box is always painted.

Do you want it without border (box) ?

Regards

G. N. Rao.

Hyderabad, India

Horizon

Posts: 1387

Joined: Fri May 23, 2008 01:33 PM

Re: is box mandotary in SCROLLMSG class?
Posted: Tue Jul 18, 2023 11:10 AM

nageswaragunupudi wrote: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?

Regards,

Hakan ONEMLI

Harbour & MSVC 2022 & FWH 23.06

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: is box mandotary in SCROLLMSG class?
Posted: Tue Jul 18, 2023 05:54 PM

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 (fw): Select all Collapse

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

Regards

G. N. Rao.

Hyderabad, India

Horizon

Posts: 1387

Joined: Fri May 23, 2008 01:33 PM

Re: is box mandotary in SCROLLMSG class?
Posted: Tue Jul 18, 2023 06:36 PM

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 (fw): Select all Collapse
//   ::oWnd:Box( ::nTop - 1, ::nLeft - 1, ::nBottom + 1, ::nRight + 1 )

Thank you Mr. Rao,

I have changed like below.

Code (fw): Select all Collapse

DATA lNoBorder              INIT .F.

Code (fw): Select all Collapse

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 (fw): Select all Collapse

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

Code (fw): Select all Collapse

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

Code (fw): Select all Collapse

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

Regards,

Hakan ONEMLI

Harbour & MSVC 2022 & FWH 23.06

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: is box mandotary in SCROLLMSG class?
Posted: Tue Jul 18, 2023 07:37 PM

Good

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

Regards

G. N. Rao.

Hyderabad, India

FiveTech Support Forums

Continue the discussion