Page 1 of 1

Problema en FWH 27 build Marzo

PostPosted: Thu Mar 02, 2006 5:30 pm
by 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

PostPosted: Thu Mar 02, 2006 5:37 pm
by 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.

PostPosted: Thu Mar 02, 2006 5:57 pm
by fgondi
Hola

Muchas gracias, ahora funciona correctamente.

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

PostPosted: Thu Mar 02, 2006 6:05 pm
by Antonio Linares
Gracias por la corrección. Es correcta.

PostPosted: Thu Mar 02, 2006 6:28 pm
by Antonio Linares
Modificado el setup de instalación de FWH.