FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index Bugs report & fixes / Informe de errores y arreglos problems in Picture clause of SAY command
marzio
Posts: 193
Joined: Wed Apr 04, 2007 06:54 AM
problems in Picture clause of SAY command
Posted: Mon Apr 27, 2009 08:04 AM

@ 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
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: problems in Picture clause of SAY command
Posted: Tue Apr 28, 2009 09:26 AM
Marzio,

Please make this change In Class TSay Method Initiate:
Code (fw): Select all Collapse
   ...
   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 
   ...
regards, saludos

Antonio Linares
www.fivetechsoft.com
marzio
Posts: 193
Joined: Wed Apr 04, 2007 06:54 AM
Re: problems in Picture clause of SAY command
Posted: Mon May 04, 2009 08:13 AM

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
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: problems in Picture clause of SAY command
Posted: Mon May 04, 2009 10:38 AM

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.

regards, saludos

Antonio Linares
www.fivetechsoft.com
marzio
Posts: 193
Joined: Wed Apr 04, 2007 06:54 AM
Re: problems in Picture clause of SAY command
Posted: Tue May 05, 2009 06:42 AM
Code (fw): Select all Collapse
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
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: problems in Picture clause of SAY command
Posted: Tue May 05, 2009 07:44 AM
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)
...
regards, saludos

Antonio Linares
www.fivetechsoft.com
marzio
Posts: 193
Joined: Wed Apr 04, 2007 06:54 AM
Re: problems in Picture clause of SAY command
Posted: Tue May 05, 2009 08:08 AM
Code (fw): Select all Collapse
//----------------------------------------------------------------------------// 

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
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: problems in Picture clause of SAY command
Posted: Wed May 06, 2009 08:33 AM

Marzio,

Instead of:

 SetWindowText( ::hWnd, cText )  // new

it should be:

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

Antonio Linares
www.fivetechsoft.com

Continue the discussion

Static archive · New replies & topics via GitHub Discussions