Line Disappear

[acwoo1]

Hi

After I upgraded form FWH1201 to FWH1301

Code: Select all  Expand view

function main

LOCAL oDlg

DEFINE DIALOG oDlg FROM 6, 7 TO 21, 72 ;
      TITLE "Test01" ;
          GRADIENT { { 1, nRGB( 199, 216, 237 ), nRGB( 237, 242, 248 ) } }


@ 0.3, 0.3 to 3.8, 22.414 // This box disappears

@ 1, 1 SAY "This is a test"
@ 2, 1 SAY "This is a another test"

ACTIVATE DIALOG oDlg;
CENTER

RETURN NIL

Please help
Ragards
ACWoo
Using FWH1301+bcc582+harbour1301

[Antonio Linares]

Acwoo,

Please change this line this way:

@ 0.3, 0.3 GROUP TO 3.8, 22.414

[acwoo1]

Thanks

Code: Select all  Expand view

@ 0.3, 0.3 GROUP TO 3.8, 22.414

Box now appears.

Is there any other way to do this without changing all the codes ?
The box was there in FHW1201.

Regards
ACWoo

[Antonio Linares]

AcWoo,

In FiveWin.ch please modifiy these lines this way:

Code: Select all  Expand view

!short: BOX - GROUPS */

#xcommand @ <nTop>, <nLeft>[color=#FF0000] [[/color] GROUP <oGroup> [color=#FF0000]][/color] ;
             [ TO <nBottom>, <nRight> ] ;
             [ <label:LABEL,PROMPT> <cLabel> ] ;
             [ OF <oWnd> ] ;
             [ COLOR <nClrFore> [,<nClrBack>] ] ;
             [ <lPixel: PIXEL> ] ;
             [ <lDesign: DESIGN> ] ;
             [ FONT <oFont> ] ;
             [ <lTransparent: TRANSPARENT> ] ;
             [ SIZE <nWidth>, <nHeight> ] ;
       => ;
          [ <oGroup> := ] TGroup():New( <nTop>, <nLeft>, <nBottom>, <nRight>,;
             <cLabel>, <oWnd>, <nClrFore>, <nClrBack>, <.lPixel.>,;
             [<.lDesign.>], [<oFont>], [<.lTransparent.>], <nWidth>, <nHeight> )

[acwoo1]

Thanks Antonio

It works.

Regards
ACWoo