EXTRAÑO COMPORTAMIENTO DE SETBALLOON()

[rterraz]

Estimados amigos
Cuando hago setballoon(.t.) en windows 7 me ocurre algo muy extraño:
Si en el RC pongo
#ifdef __FLAT__
1 24 WindowsXP.Manifest
#endif
DESAPARECEN LOS TOOLTIPS TIPO BALLOON (no se ve mas ningun tipo de tooltip )
Si saco el WindowsXp.Manifest del RC
REAPARECEN LOS TOOLTIPS PERO DESAPARECEN LAS LEYENDAS DE LOS BTNBITMAP
Con el Setballoon(.F.) aparecen los tooltips normales y no ocurre ningun otro efecto extraño
Alguien sabe como arreglar esto
Uso FWH 10.1

Muchas gracias

[Antonio Linares]

Raul,

Por favor copia aqui el contenido de WindowsXP.Manifest

[rterraz]

hola Antonio
este es el contenido de Windowsxp.manifest
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity
version="1.0.0.0"
processorArchitecture="X86"
name="FiveTech Software.FiveWin.32bits"
type="win32"
/>
<description>Your application description here.</description>
<dependency>
<dependentAssembly>
<assemblyIdentity
type="win32"
name="Microsoft.Windows.Common-Controls"
version="6.0.0.0"
processorArchitecture="X86"
publicKeyToken="6595b64144ccf1df"
language="*"
/>
</dependentAssembly>
</dependency>
</assembly>

muchas gracias

[Antonio Linares]

Raul,

Por favor comprueba si tienes el ejemplo samples\test2007.prg

En caso afirmativo, por favor constrúyelo con buildh.bat test2007 y dime si te
aparecen los tooltips en forma balloon cuando pases el ratón por los botones de la barra de botones

Copia aqui el contenido de test2007.prg

[rterraz]

Hola Antonio,

Compile el test2007 y los tooltips siguen sin aparecer
te mando el codigo de test2007

Code: Select all  Expand view

#include "FiveWin.ch"

static oWnd

function Main()

   local oBar, oPopup, oBtn  

   SetBalloon( .T. ) // Balloon shape required for tooltips

   DEFINE WINDOW oWnd TITLE "FWH - Office 2007 look in your ButtonBars, MsgBar and Menus" ;
      MENU BuildMenu() MDI

   DEFINE BUTTONBAR oBar OF oWnd SIZE 60, 60 2007

   DEFINE BUTTON OF oBar ACTION Print() ;
      RESOURCE "attach" PROMPT "Attach" TOOLTIP "Attach"

   DEFINE BUTTON OF oBar ACTION MsgInfo( "calendar" ) ;
      RESOURCE "calendar" PROMPT "Calendar" WHEN .F. TOOLTIP "Calendar"

   MENU oPopup POPUP
      MENUITEM "One" ACTION MsgInfo( 1 )
      MENUITEM "Two" ACTION MsgInfo( 2 )
   ENDMENU

   DEFINE BUTTON oBtn OF oBar ACTION oBtn:ShowPopup() ;
      RESOURCE "people" PROMPT "Clients" GROUP ;
      MENU oPopup TOOLTIP "Clients"

   DEFINE BUTTON OF oBar ACTION Test() ;
      RESOURCE "print" PROMPT "Print" TOOLTIP "Print"

   SET MESSAGE OF oWnd TO "Testing the ButtonBar 2007 Office look" ;
      CENTERED CLOCK KEYBOARD 2007

   ACTIVATE WINDOW oWnd ;
      VALID MsgYesNo( "Do you want to end?" )

return nil

//----------------------------------------------------------------------------//

function BuildMenu()

   local oMenu

   MENU oMenu 2007
      MENUITEM "&DataBases"
      MENU
         MENUITEM "&Clients..." FILENAME "..\bitmaps\16x16\favorite.bmp"
         MENUITEM "&Report..."
         MENU
            MENUITEM "&One..." DISABLED
            MENUITEM "&Two..." CHECKED
            MENUITEM "&Three..." WHEN .F.
         ENDMENU
         SEPARATOR
         MENUITEM "&End" ACTION oWnd:End()
      ENDMENU
     
      MENUITEM "Edit" WHEN .F.
     
      oMenu:AddHelp()
     
      MENUITEM "Another item"
   ENDMENU

return oMenu

//----------------------------------------------------------------------------//

function Print()

   local oPrn
   
   PRINTER oPrn PREVIEW
      PAGE
         oPrn:Say( 2, 2, "Hello" )
      ENDPAGE
      PAGE
         oPrn:Say( 2, 2, "Bye" )
      ENDPAGE
   ENDPRINT
   
return nil        

//----------------------------------------------------------------------------//

function Test()

   local oDlg, cPass := Space( 4 )
   
   DEFINE DIALOG oDlg RESOURCE "test"
   
   REDEFINE GET cPass ID 100 OF oDlg
   
   ACTIVATE DIALOG oDlg CENTERED
   
   MsgInfo( GetGuiResources() )
   
return nil  

//----------------------------------------------------------------------------//


procedure AppSys // XBase++ requirement

return

//----------------------------------------------------------------------------//

muchas gracias por las molestias que estas tomando
RAUL

[Antonio Linares]

Raul,

Aqui funciona correctamente.

El problema es que estas usando la versión 10.1 y desde esa versión hasta la versión actual 16.02 hay muchos cambios
y no es facil identificar la razón de que no funcione en 10.1

[rterraz]

Antonio,
Es posible que sea la version de fwh
Como hago para tener la ultima version de fwh ?
Creo que no me vendria nada mal actualizarme
Muchas gracias por aguantarme!

Saludos RAUL

[Antonio Linares]

Raul,

Puedes comprar la actualización a la versión más reciente de FWH desde www.fivetechsoft.com

gracias!