Bug in TSay

[Enrico Maria Giordano]

The following sample shows the problem:

Code: Select all  Expand view  RUN

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oDlg, oSay

    LOCAL n := 0

    DEFINE DIALOG oDlg

    @ 1, 1 SAY oSay PROMPT "Counter: " + LTRIM( STR( n ) );
           SIZE 200, 15

    @ 2, 1 BUTTON "Start";
           ACTION COUNTER( oSay, @n )

    ACTIVATE DIALOG oDlg;
             CENTER

    RETURN NIL


STATIC FUNCTION COUNTER( oSay, n )

    LOCAL i

    FOR i = 1 TO 100
        n++
        oSay:Refresh()
        SYSWAIT( 0.01 )
    NEXT

    TONE( 400, 1 )

    RETURN NIL

It should count from 1 to 100 when the button is pressed. Instead the label shows 1 and is not refreshed anymore.

The cause seems to be the statement

Code: Select all  Expand view  RUN

::VarPut( ::cCaption )

added in the latest TSay class.

EMG

[Enrico Maria Giordano]

Even during reports generation the counter is not updated anymore.

EMG

[Antonio Linares]

Enrico,

We may remove ::VarPut( ::cCaption ) from Class TSay Method SetText(), but then preview page number is wrongly shown.

We need to find a way to fix the preview page number.

[Antonio Linares]

Ok, the solution seems to replace in source\classes\rpreview.prg all oPage:SetText(...) into oPage:VarPut(...)

[Antonio Linares]

This looks as a right fix for rpreview.prg:

Code: Select all  Expand view  RUN

     if ! IsAppThemed()
        oPage:VarPut( TXT_PAGENUM + LTrim( Str( nPage, 4, 0 ) ) + " / " + ;
                                    LTrim( Str( Len( aFiles ) ) ) )
     else                               
        oPage:SetText( TXT_PAGENUM + LTrim( Str( nPage, 4, 0 ) ) + " / " + ;
                                     LTrim( Str( Len( aFiles ) ) ) )
     endif                               


In all places where oPage:SetText() was called.

[Enrico Maria Giordano]

Or just remove

Code: Select all  Expand view  RUN

oBar:Refresh()

EMG

[Antonio Linares]

Enrico,

But if a window is moved over the preview, then it will have the same effect as calling :Refresh()

[Enrico Maria Giordano]

Enrico,

But if a window is moved over the preview, then it will have the same effect as calling :Refresh()

You are right. Instead try to replace

Code: Select all  Expand view  RUN

@ 7, 370 SAY oPAGE PROMPT cPageNum ;

with

Code: Select all  Expand view  RUN

@ 7, 370 SAY oPAGE PROMPT TXT_PAGENUM+ltrim(str(nPage,4,0)) + " / " + ltrim(str(len(aFiles))) ;

EMG

[Antonio Linares]

Enrico,

Yes, thats a better solution. Thanks