FiveTech Software tech support forums

#Include "FiveWin.ch"

Function Main()

//-> Maestro Antonio, Hay algo errado con los Themas de XP...

//-> Esto no funciona en FiveWin 2.7 y [x]Harbour 0.99.60

//-> Ke hacer para corrigirlo?

If IsAppThemed()

MsgInfo( 'Con Themas Del Windows XP FiveWin 2.7' )

Else

MsgInfo( 'Sin Themas Del Windows XP FiveWin 2.7' ) //-> Siempre Aki???

Endif

Return Nil

//-> Un Gran Saludos a Todos.

João,

Tienes que crear una ventana ó diálogo antes de llamar a IsAppThemed() para que IsAppThemed() devuelva el valor correcto:

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oWnd

   DEFINE WINDOW oWnd FROM 3, 6 TO 20, 70 ;
      TITLE "Test"

   MsgInfo( IsAppThemed() )

   ACTIVATE WINDOW oWnd ;
      VALID MsgYesNo( "Are you sure?", "Do you want to exit?" )

return nil


Antonio Linares wrote:João,

Tienes que crear una ventana ó diálogo antes de llamar a IsAppThemed() para que IsAppThemed() devuelva el valor correcto:

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oWnd

   DEFINE WINDOW oWnd FROM 3, 6 TO 20, 70 ;
      TITLE "Test"

   MsgInfo( IsAppThemed() )

   ACTIVATE WINDOW oWnd ;
      VALID MsgYesNo( "Are you sure?", "Do you want to exit?" )

return nil


Gracias Antonio. Mui bueno.

Antonio,

este problema do TEMA ocorre somente quando compilo o FW 2.7 com xHarbour comercial ...

existe alguma diferença entre a configuração de Manifest para o xHb comercial??

estou definindo desta forma no meu .RC ...

Code: Select all  Expand view

// configuracao para tema XP
#ifdef __FLAT__
   1 24 "e:\fwh\include\temaxp.xml"
#endif


o arquivo TEMAXP.XML está assim:

Code: Select all  Expand view

<?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>


obrigado pela atenção.

Marllon Figueiredo

Marllon,

Comprueba que el fichero manifest esté dentro del EXE (prueba a abrir el EXE con el PellesC, por ejemplo). Tal vez el compilador de recursos que estás usando no lo incluye correctamente dentro.

Antonio, boa tarde

já descobri o problema que está ocorrendo.

para o xHarbour Free eu faço desta forma:

Code: Select all  Expand view

// configuracao para tema XP
#ifdef __THEMAXP__
   1 24 "\fwh_27\include\temaxp.xml"
#endif


por algum motivo o xHarbour comercial não reconhece o path do .xml .. depois de muitas tentativas eu alterei para esta forma..

Code: Select all  Expand view

// configuracao para tema XP
#ifdef __THEMAXP__
   1 24 "/fwh_27/include/temaxp.xml"
#endif


repare que apenas alterei a barra e depois disso funcionou da forma correta. Vai entender!??!?!?!?!?!?!

obrigado pela ajuda.

Marllon Figueiredo[/code]