Problemas con FWH 16.03

[cnavarro]

Estás utilizando algun estilo? 2007, 2010, 2013, 2015?

Gracias

[fgondi]

Cristobal,

he probado con todas las opciones e incluso sin estilo, y en todas ocurre lo mismo.

También he probado a ejecutar la aplicación en un windows 7, windows 8 y windows 10, estando marcada la aplicación con la opción "compatibilidad con XP" y también sucede lo mismo.
Sin la compatilidad, en esos sistemas operativos, se ve bien.

[cnavarro]

Fernando, voy a hacer pruebas de nuevo

[fgondi]

Antonio,

Falla en todos los operativos, si la aplicación se ejecuta con compatibilidad de XP en operativos mas modernos, no falla.
Sino falla en todos.

probando lo que me has enviado, he conseguido que:
añadiendo el código en xbrowse

Code: Select all

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

Y quitando el código de GDIP_DELETEIMAGE.

Funcione y no me dé error.

En definitiva, añadiendo "::aBitmaps[ nFor, BITMAP_HANDLE ] := 0", funciona bien.

[cnavarro]

Fernando, importante también
Puedes ponerme ya por último, una pantalla con uno de los menús "desplegados" ?

[fgondi]

Con estilo 2015.


Con estilo 2015 y cambiando a multiplicar por 1.2

Code: Select all

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

[Antonio Linares]

Fernando,

> En definitiva, añadiendo "::aBitmaps[ nFor, BITMAP_HANDLE ] := 0", funciona bien

Muy bien, eso es lo que necesitabamos saber. Gracias!

[cnavarro]

Con estilo 2015.

Code: Select all

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

Fernando, con ese cambio, lo que haces es modificar el alto del Item

En todo caso, deberías cambiarlo en la linea ( 907 ) en la que aparece dicha function pero con el formato

Code: Select all

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

Has construido FiveDbu, por ejemplo, y la has probado en esos equipos?

[fgondi]

¿En 16.04, están solventados estos problemillas?

[Antonio Linares]

Fernando,

Si

[fgondi]

Muchas gracias