Posts: 555

Joined: Wed Jul 31, 2013 01:14 PM

touch.prg error
Posted: Fri Jun 27, 2014 12:10 PM

Hola amigos:
Algiuien me ayuda con este error que se produce en touch.prg.
Se produce luego de mover la pantalla hacia arriba y me queda la manito...

Gracias.

Application

Path and name: C:\fwh1404\samples\touch.exe (32 bits)
Size: 2,934,784 bytes
Compiler version: Harbour 3.2.0dev (r1307082134)
FiveWin Version: FWH 14.04
Windows version: 6.1, Build 7601 Service Pack 1

Time from start: 0 hours 0 mins 2 secs
Error occurred at: 06/27/14, 09:01:44
Error description: Error BASE/1004 Message not found: TBTNFLAT:DEFCONTROL
Args:
[ 1] = O TBTNFLAT

Stack Calls

Called from: => __ERRRT_SBASE( 0 )
Called from: ../../../tobject.prg => TBTNFLAT:ERROR( 0 )
Called from: ../../../tobject.prg => (b)HBOBJECT( 0 )
Called from: ../../../tobject.prg => TBTNFLAT:MSGNOTFOUND( 0 )
Called from: ../../../tobject.prg => TBTNFLAT:DEFCONTROL( 0 )
Called from: .\source\classes\BTNFLAT.PRG => TBTNFLAT:NEW( 108 )
Called from: touch.prg => LOGIN( 329 )
Called from: touch.prg => (b)MAIN( 39 )
Called from: .\source\classes\WINDOW.PRG => TWINDOW:LBUTTONDOWN( 1942 )
Called from: => TWINDOW:HANDLEEVENT( 0 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3236 )
Called from: => WINRUN( 0 )
Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 1003 )
Called from: touch.prg => MAIN( 39 )

System

Dario Fernandez

FWH 2501, Harbour, MVS2022 Community, MySql & MariaDB, Dbf/Cdx VSCode.

Maldonado - Uruguay

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: touch.prg error
Posted: Fri Jun 27, 2014 12:47 PM

viewtopic.php?f=6t=27550start=0hilit=FLATBTN

&&&

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: touch.prg error
Posted: Fri Jun 27, 2014 02:19 PM

Ruben,

Has modificado touch.prg ?

Aqui funciona bien

regards, saludos

Antonio Linares
www.fivetechsoft.com

D.Fernandez

Posts: 555

Joined: Wed Jul 31, 2013 01:14 PM

Re: touch.prg error
Posted: Fri Jun 27, 2014 02:22 PM

No Antonio: Nada de nada, solo el ejemplo.

Gracias.

Dario Fernandez

FWH 2501, Harbour, MVS2022 Community, MySql & MariaDB, Dbf/Cdx VSCode.

Maldonado - Uruguay

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: touch.prg error
Posted: Fri Jun 27, 2014 02:27 PM

En la Clase TFlatBtn usamos este código:

Code (fw): Select all Collapse

   if ! Empty( oWnd:hWnd )
      ::Create()
      ::SetColor( XEval( ::nClrText ), ::nClrPane )
      oWnd:AddControl( Self )
   else
      oWnd:DefControl( Self )
   endif

Luego si el error lo da en DefControl, quiere decir que por alguna razón la ventana principal no se ha creado, pues su DATA hWnd vale cero ó nil, y entonces pasa por el else.

Para segurarnos añade este método a la Clase TFlatBtn y vuelve a probarlo:

METHOD DefControl() VIRTUAL

regards, saludos

Antonio Linares
www.fivetechsoft.com

D.Fernandez

Posts: 555

Joined: Wed Jul 31, 2013 01:14 PM

Re: touch.prg error
Posted: Fri Jun 27, 2014 02:34 PM

Antonio en la version 14.04 la clase btnflat dice esto

if ! Empty( oWnd:hWnd )
::Create()
::SetColor( XEval( ::nClrText ), ::nClrPane )
if ::oFont == nil
::SetFont( ::oFont )
else
::GetFont()
endif

Gracias, la estoy modificando.

Dario Fernandez

FWH 2501, Harbour, MVS2022 Community, MySql & MariaDB, Dbf/Cdx VSCode.

Maldonado - Uruguay

D.Fernandez

Posts: 555

Joined: Wed Jul 31, 2013 01:14 PM

Re: touch.prg error
Posted: Fri Jun 27, 2014 02:56 PM

Antonio: Cuando entro en la aplicacion y deslizo la pantalla hacia arriba, ingreso los datos, pero no aparece ningun boton de segiuir o cancelar...
Ya hice lo cambios en flatbtn y la agregue al proyecto.
Gracias.

Dario Fernandez

FWH 2501, Harbour, MVS2022 Community, MySql & MariaDB, Dbf/Cdx VSCode.

Maldonado - Uruguay

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: touch.prg error
Posted: Fri Jun 27, 2014 05:44 PM

Ruben,

Que resolución de pantalla usas ?

Prueba a darle a tabulación para ver si asi llegas hasta el boton de OK

regards, saludos

Antonio Linares
www.fivetechsoft.com

D.Fernandez

Posts: 555

Joined: Wed Jul 31, 2013 01:14 PM

Re: touch.prg error
Posted: Sat Jun 28, 2014 01:33 AM

Antonio uso : 1366 X 768

Gracias.

Dario Fernandez

FWH 2501, Harbour, MVS2022 Community, MySql & MariaDB, Dbf/Cdx VSCode.

Maldonado - Uruguay

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: touch.prg error
Posted: Sat Jun 28, 2014 05:20 AM

Ruben,

La resolución que uso es menor (1280x800) y se ve bien.

Puedes poner una captura de pantalla de cómo se ve ? gracias

regards, saludos

Antonio Linares
www.fivetechsoft.com

RubenFernandez

Posts: 15

Joined: Sun Jan 13, 2013 07:11 PM

Re: touch.prg error
Posted: Sat Jun 28, 2014 10:51 AM

Si Antonio, gracias en cuanto llegue a mi casa, gracias ahora estoy en el trabajo. Gracias

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: touch.prg error
Posted: Sun Jun 29, 2014 08:47 AM

Antonio, a mi tambien me ha dado algun error como el que se comenta.
Creo que el problema, que existe desde la version 14.04 puede ser el siguiente:

Code (fw): Select all Collapse

   //oWnd  := Self        // -> Comentar esta linea

   do while ::oFont == nil .and. oWnd:oWnd != nil
      oWnd     := oWnd:oWnd
      ::oFont  := oWnd:oFont
   enddo
   if ::oFont == nil .and. WndMain() != nil
      ::oFont  := WndMain():oFont
   endif


   ::Register( nOR( CS_VREDRAW, CS_HREDRAW ) )

   if ! Empty( oWnd:hWnd 

       .../...

Asi lo he probado y aparentemente ya no da el error en el DefControl

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: touch.prg error
Posted: Sun Jun 29, 2014 09:30 AM

Cristobal,

En que clase has hecho esa modificación ? No lo localizo.

gracias!

regards, saludos

Antonio Linares
www.fivetechsoft.com

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: touch.prg error
Posted: Sun Jun 29, 2014 09:50 AM

En el metodo New de la clase CLASS TBtnFlat version 14.04, que según parece es a la que se refería el compañero

En la version 14.06 ese código no está, y las pruebas que he realizado funcionan correctamente

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: touch.prg error
Posted: Sun Jun 29, 2014 12:52 PM

Cristobal,

ok, gracias :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com

FiveTech Support Forums

Application

Stack Calls

Continue the discussion