Bug harbour_3.2_32bits_MSVC2013_20142906

[fgondi]

Antonio,

He descargado la versión de Harbour para MVSC2013 que incluyes en el siguiente enlace:
http://forums.fivetechsupport.com/viewtopic.php?f=16&t=28773#p161609

Tengo definido el MenuInfo para que muestre en el menu principal las ventanas MDI que tengo abiertas.
Ahora no se lee el título de la ventana(s) que hay abierta(s), aparecen caracteres raros.



Ocurre tanto con la versión que incluyes, como si yo genero harbour a través de git,

[Antonio Linares]

Fernando,

Podrías probarlo con Borland también para ver si ocurre lo mismo ? gracias

[fgondi]

Antonio,

Con Borland582 funciona bien.
Sólo pasa con MSVC2013

he podido comprobar que es al añadir el valor 2007 o 2010 al menu.
Por ejemplo se puede reproducir con: "Samples\testmdi.prg"

Code: Select all  Expand view

...
function BuildMenu()

   local oMenu

   MENU oMenu 2007
...

Sólo con añadir 2007 o 2010 al menú pinta caracteres raros linkando con VC2013
Sin ese valor funciona bien

[Antonio Linares]

Fernando,

ok, visto el error tambien aqui.

Estoy buscando la causa...

gracias

[Antonio Linares]

Fernando,

El problema viene de la línea 1181 de window.prg, en concreto de la llamada a MISText( pItemStruct ) que no está devolviendo el valor correcto.

Ahora estoy intentando descubrir porque pasa eso.

[Antonio Linares]

La prueba está en que si cambio estas líneas:

Code: Select all  Expand view

              MenuDraw2007( pItemStruct,;
                             If( IsSeparator( pItemStruct ), "", MISText( pItemStruct ) ),;
                             0,, ::hWnd )
 

por:

Code: Select all  Expand view

              MenuDraw2007( pItemStruct,;
                             If( IsSeparator( pItemStruct ), "", "xyz" ),;
                             0,, ::hWnd )
 

entonces muestra "xyz"

sigo buscando...

[Antonio Linares]

Este es el código de MISText()

Code: Select all  Expand view

HB_FUNC( MISTEXT ) // pItemStruct --> cPrompt
{
   #ifdef _WIN64
      LPDRAWITEMSTRUCT lpdis = ( LPDRAWITEMSTRUCT ) hb_parnll( 1 ); 
   #else
      LPDRAWITEMSTRUCT lpdis = ( LPDRAWITEMSTRUCT ) hb_parnl( 1 ); 
   #endif
     
   MENUITEMINFO mi;
   BYTE buffer[ 100 ];

   mi.cbSize = sizeof( MENUITEMINFO );
   mi.fMask = MIIM_STRING;
   mi.dwTypeData = ( LPSTR ) buffer;
   GetMenuItemInfo( ( HMENU ) lpdis->hwndItem, lpdis->itemID, FALSE, &mi );  
   
   hb_retc( ( char * ) buffer );
}      
 

[Antonio Linares]

GetMenuItemInfo() devuelve un valor lógico, verdadero si todo ha ido bien.

Lo primero que se me ha ocurrido es que la estructura MENUITEMINFO mi; no este "limpia", asi que he añadido estas líneas:

Code: Select all  Expand view

HB_FUNC( MISTEXT ) // pItemStruct --> cPrompt
{
     #ifdef _WIN64
      LPDRAWITEMSTRUCT lpdis = ( LPDRAWITEMSTRUCT ) hb_parnll( 1 ); 
   #else
      LPDRAWITEMSTRUCT lpdis = ( LPDRAWITEMSTRUCT ) hb_parnl( 1 ); 
   #endif
     
   MENUITEMINFO mi;
   BYTE buffer[ 100 ];

   memset( &mi, 0, sizeof( mi ) );
   
   mi.cbSize = sizeof( MENUITEMINFO );
   mi.fMask = MIIM_STRING;
   mi.dwTypeData = ( LPSTR ) buffer;
   if( ! GetMenuItemInfo( ( HMENU ) lpdis->hwndItem, lpdis->itemID, FALSE, &mi ) )
      strcpy( buffer, "here" );   
   
   hb_retc( ( char * ) buffer );
}      

Pero aún asi sigue fallando y el caso es que no se añade "here" al texto del menuitem, luego GetMenuItemInfo() está devolviendo verdadero.

Y si devuelve verdadero, por qué lo que copia en buffer esta mal ?

sigo...

[Antonio Linares]

Se me ocurre que tal vez este copiando una cadena "wide" y no "ansi"...

sigo...

[Antonio Linares]

Pues no, no es una cadena "wide" porque este código tambien falla:

Code: Select all  Expand view

static LPSTR WideToAnsi( LPWSTR cWide )
{
   WORD wLen;
   LPSTR cString = NULL;

   wLen = WideCharToMultiByte( CP_ACP, 0, cWide, -1, cString, 0, NULL, NULL );

   cString = ( LPSTR ) hb_xgrab( wLen );
   WideCharToMultiByte( CP_ACP, 0, cWide, -1, cString, wLen, NULL, NULL );

   return cString;
}
   
HB_FUNC( MISTEXT ) // pItemStruct --> cPrompt
{
     #ifdef _WIN64
      LPDRAWITEMSTRUCT lpdis = ( LPDRAWITEMSTRUCT ) hb_parnll( 1 ); 
   #else
      LPDRAWITEMSTRUCT lpdis = ( LPDRAWITEMSTRUCT ) hb_parnl( 1 ); 
   #endif
   LPSTR pText;
     
   MENUITEMINFO mi;
   BYTE buffer[ 100 ];

   memset( &mi, 0, sizeof( mi ) );
   
   mi.cbSize = sizeof( MENUITEMINFO );
   mi.fMask = MIIM_STRING;
   mi.dwTypeData = ( LPSTR ) buffer;
   GetMenuItemInfo( ( HMENU ) lpdis->hwndItem, lpdis->itemID, FALSE, &mi );
   
   pText = WideToAnsi( buffer );
   hb_retc( pText );
   hb_xfree( pText );
}

que puede ser ?

[Antonio Linares]

Pruebo a concatenarle algo al final para ver que hay en buffer, y muestra un solo caracter "raro" + "here":

Code: Select all  Expand view

HB_FUNC( MISTEXT ) // pItemStruct --> cPrompt
{
     #ifdef _WIN64
      LPDRAWITEMSTRUCT lpdis = ( LPDRAWITEMSTRUCT ) hb_parnll( 1 ); 
   #else
      LPDRAWITEMSTRUCT lpdis = ( LPDRAWITEMSTRUCT ) hb_parnl( 1 ); 
   #endif
   LPSTR pText;
     
   MENUITEMINFO mi;
   BYTE buffer[ 100 ];

   memset( &mi, 0, sizeof( mi ) );
   
   mi.cbSize = sizeof( MENUITEMINFO );
   mi.fMask = MIIM_STRING;
   mi.dwTypeData = ( LPSTR ) buffer;
   GetMenuItemInfo( ( HMENU ) lpdis->hwndItem, lpdis->itemID, FALSE, &mi );
   
   strcat( buffer, "here" );
   
   hb_retc( buffer );
}  

No puedo creer que GetMenuItemInfo() falle, porque además devuelve verdadero...

[Antonio Linares]

Ahora he probado ese código con Borland y falla tambien...

[Antonio Linares]

Revisando la estructura MENUITEMINFO:

http://msdn.microsoft.com/en-us/library/windows/desktop/ms647578(v=vs.85).aspx

[Antonio Linares]

Creo que aqui está la clave:

dwTypeData
Type: LPTSTR
The contents of the menu item. The meaning of this member depends on the value of fType and is used only if the MIIM_TYPE flag is set in the fMask member.
To retrieve a menu item of type MFT_STRING, first find the size of the string by setting the dwTypeData member of MENUITEMINFO to NULL and then calling GetMenuItemInfo. The value of cch+1 is the size needed. Then allocate a buffer of this size, place the pointer to the buffer in dwTypeData, increment cch, and call GetMenuItemInfo once again to fill the buffer with the string. If the retrieved menu item is of some other type, then GetMenuItemInfo sets the dwTypeData member to a value whose type is specified by the fType member.
When using with the SetMenuItemInfo function, this member should contain a value whose type is specified by the fType member.
dwTypeData is used only if the MIIM_STRING flag is set in the fMask member

[Antonio Linares]

Solucionado

Este es el código correcto. Un bug menos

Code: Select all  Expand view

HB_FUNC( MISTEXT ) // pItemStruct --> cPrompt
{
     #ifdef _WIN64
      LPDRAWITEMSTRUCT lpdis = ( LPDRAWITEMSTRUCT ) hb_parnll( 1 ); 
   #else
      LPDRAWITEMSTRUCT lpdis = ( LPDRAWITEMSTRUCT ) hb_parnl( 1 ); 
   #endif
     
   MENUITEMINFO mi;
   BYTE buffer[ 100 ];

   memset( &mi, 0, sizeof( mi ) );
   
   mi.cbSize = sizeof( MENUITEMINFO );
   mi.fMask = MIIM_STRING;

   mi.dwTypeData = NULL;
   GetMenuItemInfo( ( HMENU ) lpdis->hwndItem, lpdis->itemID, FALSE, &mi );

   mi.dwTypeData = ( LPSTR ) buffer;
   mi.cch++;
   GetMenuItemInfo( ( HMENU ) lpdis->hwndItem, lpdis->itemID, FALSE, &mi );
   
   hb_retc( buffer );
}