De paso comentar la existencia de la función IsThemeActive() que parece no funcionar bien en uxtheme.dll: #include "FiveWin.ch"function Main() MsgInfo( IsAppThemed() ) MsgInfo( IsThemeActive() )return nilDLL static ...
... que en Windows 7, aún teniendo los temas desactivados y mostrando la apariencia "clásica antigua" de Windows, IsAppThemed() contenida en uxtheme.dll devuelve verdadero. Pero éso NO era así en anteriores versiones. Yo estoy probando FWH 9.01 sobre Win7 con los temas desactivados y funciona ...
... que en Windows 7, aún teniendo los temas desactivados y mostrando la apariencia "clásica antigua" de Windows, IsAppThemed() contenida en uxtheme.dll devuelve verdadero. En nuestro código anterior una de las comprobaciones que se hacian era: bIsThemed = ( ( ( BOOL ) ...
... Tendriamos que ver como detectar que aunque ese fichero exista, los temas no estan activados. Anteriormente usábamos la función IsAppThemed() de UXTHEME.DLL (Windows) pero hemos visto que siempre devuelve .T. por el hecho de que Windows este usando temas aunque nuestra aplicación no los use. ...