topic-32407

Posts: 694

Joined: Fri Oct 07, 2005 06:58 AM

Problemas con FWH 16.03
Posted: Mon May 09, 2016 01:15 PM

Tengo varios problemas al ejecutar las aplicaciones en windows XP

1º.- El menú se ha separado mucho en los valores que muestra.

2º.- Sin embargo, dentro de un menú en concreto, se ve mas apretadas las opciones (esto me pasa en todos los sistemas operativos)

3º.- Me genera un gpf al borrar un xbrowse en la función GDIP_DELETEIMAGE

Code (fw): Select all Collapse

Error irrecuperable 6005: Exception error:

    Exception Code:C0000005 ACCESS_VIOLATION
    Exception Address:01F03E92
    EAX:01F001A8  EBX:00000000  ECX:01F03E90  EDX:01F03E90
    ESI:00000000  EDI:010B1785  EBP:0012F93C
    CS:EIP:01F03E92  SS:ESP:0023:0012F924
    DS:0023  ES:0023  FS:003B  GS:0000
    Flags:00010246
    Exception Parameters: 00000001 01F1F1A9
    CS:EIP: F0 01 A8 01 F0 01 00 00 00 00 12 12 12 12 03 00
    SS:ESP: 0047C023 00000001 010B1785 01F03E90 01F03E90 01F03E90 0145FD98 0052197D 0000005B 00000000 00000000 00000000 00000000 0051F95D 00000001 00C85DDB

    C stack:
    EIP:     EBP:       Frame: OldEBP, RetAddr, Params...
    01F03E92 0012F93C   0145FD98 0052197D 0000005B 00000000 00000000 00000000 00000000 0051F95D 00000001 00C85DDB


Modules:
00400000 01366000 XXXXXXXXXXXXXXXX
7C910000 000B8000 C:\WINDOWS\system32\ntdll.dll

....
Called from GDIP_DELETEIMAGE(0)
Called from PALBMPFREE(1066) in .\source\classes\BITMAP.PRG
Called from TGHE_XBRWCOL:END(9679) in D:\five\comun\Incluir\xbrowse.prg

He estado buscando por el foro y no encuentro como solucionarlo.

Otros problemas que tenía, ya los conseguí resolver usando la librería RTL del siguiente enlacé
http://forums.fivetechsupport.com/viewtopic.php?f=3&t=32188&p=189248&hilit=pton#p189248

Un saludo

Fernando González Diez

ALSIS Sistemas Informáticos

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Problemas con FWH 16.03
Posted: Mon May 09, 2016 02:11 PM

https://github.com/vszakats/harbour-core/issues/193

http://forums.fivetechsupport.com/viewtopic.php?f=3&t=29108&p=164179&hilit=_HB_FUN_HB_HSETCASEMATCH%27

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: Problemas con FWH 16.03
Posted: Mon May 09, 2016 04:01 PM

Fernando,

Puedes añadir esta función a tu aplicación y ver si te aparece el MessageBox() ?

Code (fw): Select all Collapse

#pragma BEGINDUMP
#include <hbapi.h>

HB_FUNC ( GDIP_DELETEIMAGE )
{
   void * pImage = ( void * ) hb_parptr( 1 );

   if( ! pImage )
      MessageBox( 0, "null pImage", "ok", 0 );
      
   hb_ret();
}

#pragma ENDDUMP

regards, saludos

Antonio Linares
www.fivetechsoft.com

fgondi

Posts: 694

Joined: Fri Oct 07, 2005 06:58 AM

Re: Problemas con FWH 16.03
Posted: Mon May 09, 2016 04:15 PM

Ya lo he probado.

Y no aparece el mensaje.

Un saludo

Fernando González Diez

ALSIS Sistemas Informáticos

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Problemas con FWH 16.03
Posted: Mon May 09, 2016 04:18 PM

Fernando,

El GPF solo ocurre en XP ?

regards, saludos

Antonio Linares
www.fivetechsoft.com

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Problemas con FWH 16.03
Posted: Mon May 09, 2016 04:31 PM

fgondi wrote:Tengo varios problemas al ejecutar las aplicaciones en windows XP

1º.- El menú se ha separado mucho en los valores que muestra.

2º.- Sin embargo, dentro de un menú en concreto, se ve mas apretadas las opciones (esto me pasa en todos los sistemas operativos)

Fernando, si tienes el equipo a mano ( con Windows XP )

qué te devuelve la function IsWinXP()

Puedes poner una imagen?

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

fgondi

Posts: 694

Joined: Fri Oct 07, 2005 06:58 AM

Re: Problemas con FWH 16.03
Posted: Mon May 09, 2016 05:02 PM

>qué te devuelve la function IsWinXP()
.T.

Windows XP

Resto de operativos

(La calidad de las imagenes no es buena, pero lo que quiero que veáis es el espaciado entre las opciones)

>2º.- Sin embargo, dentro de un menú en concreto, se ve mas apretadas las opciones (esto me pasa en todos los sistemas operativos)
Lo he conseguido solucionar multiplicando por 1.2 en lugar de por 1 en pdmenu.prg

Code (fw): Select all Collapse

         ChgMenuMea( pMitStruct, Round( nWText * nFw, 0 ), ;
                     Round( Abs(nHItem) * GetnHeightItem() * IF( !lHFont, 1.5, 1.2 ), 0 ) ) //fgondi

>El GPF solo ocurre en XP ?
Sí. solo ocurre en XP, en los demas operativos, W7 y W10 he probado, funciona bien.
Lo raro es que en otras partes del programa, también llamo a la misma función y no da error.
Y la versión anterior que tenía 14.12, funcionaba bien.

Un saludo

Fernando González Diez

ALSIS Sistemas Informáticos

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Problemas con FWH 16.03
Posted: Mon May 09, 2016 05:11 PM

Fernando, has modificado el tipo de letra o el tamaño en las propiedades del sistema para el font de los menus?

Puedes ponerme una imagen del menu que tiene por ejemplo el notepad?

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

fgondi

Posts: 694

Joined: Fri Oct 07, 2005 06:58 AM

Re: Problemas con FWH 16.03
Posted: Mon May 09, 2016 08:00 PM

Las pruebas las he realizado sobre 2 equipos con windows XP y en los dos pasa lo mismo.

El tipo de fuente no está cambiado en ninguno de los equipos.
Si es cierto, que un equipo tiene un monitor grande y se ve en panorámico.
Por eso he probado en otro equipo con XP e imágen normal.

Mañana pruebo en otros equipos de otro cliente, que tiene varios equipos con XP.

En la versión anterior que tengo, se multiplicaba por 0,9 y ahora se multiplica por 1

Code (fw): Select all Collapse

Round( nWText * nFw, 0 ) //Siendo nFw la variable que tiene valor 1

Un saludo

Fernando González Diez

ALSIS Sistemas Informáticos

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Problemas con FWH 16.03
Posted: Mon May 09, 2016 08:31 PM

Fernando, esa variable se implementó para que los usuarios que cambiaban el font del menu en el sistema ( por ejemplo, problemas de visión ) pudieran ajustarlo
En sucesivas pruebas con varios usuarios se consiguió ajustar el código para que funcionara bien en Windows XP, Server 2003 y TS, y hasta ahora ya nadie ha transmitido ningún problema.
Ponme por favor como comparativa el menú que obtienes y el que genera una aplicacion Windows en ese equipo ( por ejemplo Notepad )

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: Problemas con FWH 16.03
Posted: Tue May 10, 2016 11:58 AM

Fernando,

Que código tienes en

Called from TGHE_XBRWCOL:END(9679) in D:\five\comun\Incluir\xbrowse.prg ?

regards, saludos

Antonio Linares
www.fivetechsoft.com

fgondi

Posts: 694

Joined: Fri Oct 07, 2005 06:58 AM

Re: Problemas con FWH 16.03
Posted: Tue May 10, 2016 05:27 PM

Antonio,

Code (fw): Select all Collapse

   for nFor := 1 to Len( ::aBitmaps )
      PalBmpFree( ::aBitmaps[ nFor, BITMAP_HANDLE ], ::aBitmaps[ nFor, BITMAP_PALETTE ] )  <---
   next

En equipos XP y sólo equipos XP, me aparece el mismo mensaje mas veces:

Code (fw): Select all Collapse

Called from GDIP_DELETEIMAGE(0)
Called from PALBMPFREE(1066) in .\source\classes\BITMAP.PRG

Cristobal,
Lo he probado en mas equipos XP y me pasa en todos:
Imagen del notepad de uno de los equipos

Un saludo

Fernando González Diez

ALSIS Sistemas Informáticos

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Problemas con FWH 16.03
Posted: Tue May 10, 2016 06:13 PM

Fernando,

Puedes probar este cambio ?

Code (fw): Select all Collapse

for nFor := 1 to Len( ::aBitmaps )
      PalBmpFree( ::aBitmaps[ nFor, BITMAP_HANDLE ], ::aBitmaps[ nFor, BITMAP_PALETTE ] )  
      ::aBitmaps[ nFor, BITMAP_HANDLE ] := 0
   next

y usando la función GDIP_DELETEIMAGE() modificada, deberíamos ver un mensaje si se está intentando
destruir el mismo handle varias veces (pues llegaría como cero). Me da que por ahi puede venir el error.

regards, saludos

Antonio Linares
www.fivetechsoft.com

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Problemas con FWH 16.03
Posted: Tue May 10, 2016 07:21 PM

Fernando, a ver si puedes poner en la misma imagen tu menu y el del notepadad uno encima del otro para poder compararlos

Es la mejor forma de saber dónde puede estar tu problema
Algo asi:

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

fgondi

Posts: 694

Joined: Fri Oct 07, 2005 06:58 AM

Re: Problemas con FWH 16.03
Posted: Wed May 11, 2016 12:23 PM

Antonio,

Con esos cambios en xbrowse y GDIP_DELETEIMAGE, sigue si mostrar ningún mensaje.
Tampoco genera ningún GPF.

Cristobal,

Un saludo

Fernando González Diez

ALSIS Sistemas Informáticos

FiveTech Support Forums