Problema en FWH 27 build Marzo

[fgondi]

Hola,

Al ejecutar el programa con el build de marzo me da el siguiente error:

Code: Select all  Expand view

   Error description: Error BASE/1079  Argument error: .OR.
   Args:
     [   1] = L   .F.
     [   2] = U   
Stack Calls
===========
   Called from: SAY.PRG => TSAY:SETTEXT ( 0 )
   Called from: win32.prg => MAIN ( 38 )

Para probarlo lo único que hay que incluir es el siguiente texto en el archivo "win32.prg" del directorio samples:

Code: Select all  Expand view

...
oSay:SetText( 'hola' )
ACTIVATE DIALOG oDlg CENTERED ;
  ON INIT ( oTabs:Add( "&Three" ),;
                oTabs:Add( "&Two" ),;
                oTabs:Add( "&One" ),;
                oTabs:nOption := 1,;
                oProgress:SetRange( 0, 200 ),;
                oProgress:SetPos( 50 ),;
                oAnimate:Search(),;
                oAnimate:Play() )

El error se produce siempre sobre un windows 2000. En los XP a veces funciona correctamente.

Este problema no lo tenía con ninguna versión anterior de FWH.

Gracias por vuestro tiempo

[Biel EA6DD]

A mi tambien me ha aperecido este error con la nueva versión.
Edita la clase TSay y busca el metodo SetText

Code: Select all  Expand view

METHOD SetText( cText ) CLASS TSay

   local hDC
   DEFAULT ::lTransparent := .f.  //<====Añade esta linea


A mi me funciona ok. Espero que te funcione.
El error depende en el momento en que llamas SetText, por ejmplo si en el codigo que has mandado antes, el oSay:SetText('hola') lo pones en el ON INIT, te funcionara bien.
Saludos.

[fgondi]

Hola

Muchas gracias, ahora funciona correctamente.

Lo que me queda la duda es si ocurrirá con alguna otra clase.

[Antonio Linares]

Gracias por la corrección. Es correcta.

[Antonio Linares]

Modificado el setup de instalación de FWH.