Problem with the last FW 9.04

[Maurizio]

Hello Antonio

There is a problems in SAY with PICTURE .

This is the samples TESTFLDB.PRG adapted for simulate the error .
The line is :

REDEFINE SAY oSay ID 10 OF oFld:aDialogs[ 1 ] PROMPT 123456.99 PICTURE "@ZE 999999.99"

Regards Maurizio

Code: Select all  Expand view

// Testing FiveWin own folders controls support

#include "FiveWin.ch"
#include "Folder.ch"

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

function Main()

   local oDlg, oBrush, oFld, oCbx, oSay
   local nValue := 2, oChk, lChk := .t.
   local cItem

   SET _3DLOOK ON

   DEFINE BRUSH oBrush RESOURCE "Sky"

   DEFINE DIALOG oDlg RESOURCE "Test"  BRUSH oBrush TRANSPARENT

   REDEFINE FOLDER oFld ID 110 OF oDlg ;
      PROMPT "CA-Cli&pper", "&and", "&Windows", "&Magic" ;
      DIALOGS "Sub1", "Sub2"

   oFld:aEnable = { .t., .t., .f., .f. }
   
   REDEFINE GROUP ID 5 OF oFld:aDialogs[ 1 ]

   REDEFINE COMBOBOX oCbx VAR cItem ITEMS { "This", "is", "a test" } ;
      ID 100 OF oFld:aDialogs[ 1 ]

   REDEFINE CHECKBOX oChk VAR lChk ID 92 OF oFld:aDialogs[ 1 ] ON CHANGE MsgBeep()

   REDEFINE SAY oSay ID 10 OF oFld:aDialogs[ 1 ] PROMPT 123456.99  PICTURE "@ZE 999999.99"

   REDEFINE GROUP ID 105 OF oFld:aDialogs[ 1 ]

   REDEFINE BUTTON ID 110 OF oFld:aDialogs[ 1 ] ;   // Redefining a child
      ACTION oChk:SetText( Time() )

   REDEFINE BUTTON ID 120 OF oFld:aDialogs[ 1 ] ;
      ACTION DoBrowse()
     
   REDEFINE BITMAP ID 130 OF oFld:aDialogs[ 1 ] ;
      FILE "..\bitmaps\question.bmp" TRANSPARENT

   REDEFINE RADIO nValue ID 110, 120, 130 OF oFld:aDialogs[ 2 ] ;
      ON CHANGE MsgBeep()

   REDEFINE BUTTON ID 104 OF oFld:aDialogs[ 2 ] ;   // Redefining a child
      ACTION oFld:SetPrompts( { "one", "two", "three", "four" } )

   REDEFINE BUTTON ID 120 OF oDlg ;
      ACTION oDlg:End()

   oFld:aDialogs[ 1 ]:bRClicked = { || MsgInfo( "page 1" ) }
   oFld:aDialogs[ 2 ]:bRClicked = { || MsgInfo( "page 2" ) }

   ACTIVATE DIALOG oDlg CENTERED ;
      VALID MsgYesNo( "Want to end ?" )

return nil

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

function DoBrowse()

   USE Customer
   Browse()
   USE

return nil

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

procedure AppSys  // Xbase++ requirement

return

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

[Maurizio]

I note that the problem is in TSAY.PRG
Class Initiate , line 206
If I change
::SetText( ::cCaption )
with
SetWindowText( ::hWnd, ::cCaption )

All works

Regards MAurizio

[Antonio Linares]

Maurizio,

Please change Method SetText() in Class TWindow this way and try it again, thanks:

METHOD SetText( cText ) INLINE SetWindowText( ::hWnd, cText )

[Maurizio]

Antonio,
tryed but dosn't work

MAurizio