Juan,
Puedes por favor proporcionar un peque帽o ejemplo de c贸digo que reproduzca el error 贸 mostrar una imagen de la pantalla ? gracias
Juan,
Puedes por favor proporcionar un peque帽o ejemplo de c贸digo que reproduzca el error 贸 mostrar una imagen de la pantalla ? gracias
Antonio,
No le demos m谩s vueltas ...
Todos los efectos secundarios que estoy sufriendo se deben al cambio en el comportamiento de la funci贸n IsAppThemed().
Tal como hemos comentado en el transcurso de la conversaci贸n, ahora retorna .T. por el mero hecho de tener fichero manifest enlazado en el ejecutable mientras que antes requer铆a que adem谩s Windows tuviera temas activos.
Personalmente me parece un poco peligroso hacer este tipo de cambios por las "toneladas" de c贸digo que pueden cambiar su comportamiento. Quiz谩s habr铆a sido mejor una nueva funci贸n (p.e. IsManifestIncluded()), un argumento ...
驴 Hay alguna forma de conseguir el comportamiento anterior ?
Saludos
Juan
聽 聽 聽 bIsThemed = ( ( ( BOOL ) FindResource( GetResources(), MAKEINTRESOURCE( 1 ),
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 MAKEINTRESOURCE( 24 ) ) ) ||
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 ( ( BOOL ) FindResource( GetInstance(), MAKEINTRESOURCE( 1 ),
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 MAKEINTRESOURCE( 24 ) ) ) 聽|| pIsAppThemed() );聽 聽 聽 bIsThemed = ( ( ( BOOL ) FindResource( GetResources(), MAKEINTRESOURCE( 1 ),
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 MAKEINTRESOURCE( 24 ) ) ) ||
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 ( ( BOOL ) FindResource( GetInstance(), MAKEINTRESOURCE( 1 ),
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 MAKEINTRESOURCE( 24 ) ) ) );La raz贸n de haber modificado la funci贸n IsAppThemed() es debido a 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.
Nosotros no hemos advertido ning煤n inconveniente con este cambio. Pero tu, como dices, si.
Por eso, si eres tan amable de proporcionar un ejemplo 贸 un pantallazo veremos la forma de solucionarlo. Si no colaboras en tan poco que te pedimos, realmente es dificil poder ayudarte
#include "FiveWin.ch"
function Main()
聽 聽MsgInfo( IsAppThemed() )
return nil
DLL static FUNCTION IsAppThemed() AS BOOL LIB "uxtheme.dll"#include "FiveWin.ch"
function Main()
聽 聽MsgInfo( IsAppThemed() )
聽 聽
聽 聽MsgInfo( IsThemeActive() )
return nil
DLL static FUNCTION IsAppThemed() AS BOOL LIB "uxtheme.dll"
DLL static FUNCTION IsThemeActive() AS BOOL LIB "uxtheme.dll"