problems in Picture clause of SAY command

[marzio]

@ n,n SAY nVar Picture "999,999,999.99"
in the version fwh 8.12 picture in SAY works fine,
i have tried fwh 9.03 and the follow line visualizes all the commas also with few numbers.
the E operator doesn't work, with the Z operator the box is blank.
i have used xHarbour 1.21

marzio

[Antonio Linares]

Marzio,

Please make this change In Class TSay Method Initiate:

Code: Select all  Expand view  RUN

   ...
   if ::cCaption != nil // don't use Empty() here or blank texts will not show
      // ::SetText( ::cCaption )   previous code
      SetWindowText( ::hWnd, cText )  // new
   else
      ::cCaption = ::GetText()
   endif
   ...
 

[marzio]

Antonio,
1) with this change, i have a new error:
unrecoverable error 9003, too many recursive error handler calls.

i have tried: SetWindowText( ::hWnd, ::cCaption )
like in fwh 8.12 and so it works well.
what do you think?

2) the ELSE condition in fwh 8.12 is: ::cCaption = GetWindowText( ::hWnd )
the ELSE condition in fwh 9.03 is: ::cCaption = ::GetText()
is this correct for fwh 9.03?

thanks, marzio

[Antonio Linares]

Marzio,

> unrecoverable error 9003, too many recursive error handler calls

Please review the created error.log and look for the line where the error comes from, and post it here, thanks.

>
the ELSE condition in fwh 9.03 is: ::cCaption = ::GetText()
is this correct for fwh 9.03?
>

Yes, it is correct. We are preparing the code for Unicode full support.

[marzio]

Code: Select all  Expand view  RUN

Application
===========
   Path and name: T:\marzio\Winclip\Applicazioni\printXls\printXls.exe (32 bits)
   Size: 2,492,928 bytes
   Time from start: 0 hours 0 mins 2 secs
   Error occurred at: 05/04/09, 10:05:01
   Error description: Error BASE/1003  Variable does not exist: CTEXT
   Args:

Stack Calls
===========
   Called from: say.prg => TSAY:INITIATE(0)
   Called from:  => __OBJSENDMSG(0)
   Called from: harbour.prg => OSEND(0)
   Called from: harbour.prg => ASEND(0)
   Called from: dialog.prg => TDIALOG:INITIATE(0)
   Called from: dialog.prg => TDIALOG:HANDLEEVENT(0)
   Called from:  => DIALOGBOXINDIRECT(0)
   Called from: dialog.prg => TDIALOG:ACTIVATE(0)
   Called from: errsysw.prg => ERRORDIALOG(0)
   Called from: errsysw.prg => (b)ERRORSYS(0)
   Called from: say.prg => TSAY:INITIATE(0)
   Called from:  => __OBJSENDMSG(0)
   Called from: harbour.prg => OSEND(0)
   Called from: harbour.prg => ASEND(0)
   Called from: dialog.prg => TDIALOG:INITIATE(0)
   Called from: dialog.prg => TDIALOG:HANDLEEVENT(0)
   Called from:  => DIALOGBOXINDIRECT(0)
   Called from: dialog.prg => TDIALOG:ACTIVATE(0)
   Called from: errsysw.prg => ERRORDIALOG(0)
   Called from: errsysw.prg => (b)ERRORSYS(0)
   Called from: say.prg => TSAY:INITIATE(0)
   Called from:  => __OBJSENDMSG(0)
   Called from: harbour.prg => OSEND(0)
   Called from: harbour.prg => ASEND(0)
   Called from: dialog.prg => TDIALOG:INITIATE(0)
   Called from: dialog.prg => TDIALOG:HANDLEEVENT(0)
   Called from:  => DIALOGBOXINDIRECT(0)
   Called from: dialog.prg => TDIALOG:ACTIVATE(0)
   Called from: errsysw.prg => ERRORDIALOG(0)
   Called from: errsysw.prg => (b)ERRORSYS(0)
   Called from: say.prg => TSAY:INITIATE(0)
   Called from:  => __OBJSENDMSG(0)
   Called from: harbour.prg => OSEND(0)
   Called from: harbour.prg => ASEND(0)
   Called from: dialog.prg => TDIALOG:INITIATE(0)
   Called from: dialog.prg => TDIALOG:HANDLEEVENT(0)
   Called from:  => DIALOGBOXINDIRECT(0)
   Called from: dialog.prg => TDIALOG:ACTIVATE(0)
   Called from: errsysw.prg => ERRORDIALOG(0)
   Called from: errsysw.prg => (b)ERRORSYS(0)
   Called from: say.prg => TSAY:INITIATE(0)
   Called from:  => __OBJSENDMSG(0)
   Called from: harbour.prg => OSEND(0)
   Called from: harbour.prg => ASEND(0)
   Called from: dialog.prg => TDIALOG:INITIATE(0)
   Called from: dialog.prg => TDIALOG:HANDLEEVENT(0)
   Called from:  => DIALOGBOXINDIRECT(0)
   Called from: dialog.prg => TDIALOG:ACTIVATE(0)
   Called from: errsysw.prg => ERRORDIALOG(0)
   Called from: errsysw.prg => (b)ERRORSYS(0)
   Called from: say.prg => TSAY:INITIATE(0)
   Called from:  => __OBJSENDMSG(0)
   Called from: harbour.prg => OSEND(0)
   Called from: harbour.prg => ASEND(0)
   Called from: dialog.prg => TDIALOG:INITIATE(0)
   Called from: dialog.prg => TDIALOG:HANDLEEVENT(0)
   Called from:  => DIALOGBOXINDIRECT(0)
   Called from: dialog.prg => TDIALOG:ACTIVATE(0)
   Called from: errsysw.prg => ERRORDIALOG(0)
   Called from: errsysw.prg => (b)ERRORSYS(0)
   Called from: say.prg => TSAY:INITIATE(0)
   Called from:  => __OBJSENDMSG(0)
   Called from: harbour.prg => OSEND(0)
   Called from: harbour.prg => ASEND(0)
   Called from: dialog.prg => TDIALOG:INITIATE(0)
   Called from: dialog.prg => TDIALOG:HANDLEEVENT(0)
   Called from:  => DIALOGBOXINDIRECT(0)
   Called from: dialog.prg => TDIALOG:ACTIVATE(0)
   Called from: errsysw.prg => ERRORDIALOG(0)
   Called from: errsysw.prg => (b)ERRORSYS(0)
   Called from: say.prg => TSAY:INITIATE(0)
   Called from:  => __OBJSENDMSG(0)

System
======

[Antonio Linares]

Marzio,

Please post here your Class TSay Method Initiate() source code, thanks
It seems as you are using an undeclared cText variable there:

Error description: Error BASE/1003 Variable does not exist: CTEXT
...
Called from: errsysw.prg => (b)ERRORSYS(0)
Called from: say.prg => TSAY:INITIATE(0)
...

[marzio]

Code: Select all  Expand view  RUN

//----------------------------------------------------------------------------//

METHOD Initiate( hDlg ) CLASS TSay

   Super:Initiate( hDlg )

   if ! IsAppThemed()
      if ::lTransparent
         if ! Empty( ::oWnd:oBrush:hBitmap ) .and. !empty( ::oBrush )
            ::SetBrush( ::oWnd:oBrush )
         endif
      endif
   endif            

   if ::cCaption != nil // don't use Empty() here or blank texts will not show
      // ::SetText( ::cCaption )   previous code
      SetWindowText( ::hWnd, cText )  // new
   else
      ::cCaption = ::GetText()
   endif


return nil

//----------------------------------------------------------------------------//

[Antonio Linares]

Marzio,

Instead of:

SetWindowText( ::hWnd, cText ) // new

it should be:

SetWindowText( ::hWnd, ::cCaption ) // new