Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

THEMAS XP, NO FUNCIONA CON FIVEWIN 2.7
Posted: Sat Feb 25, 2006 04:33 PM

Include "FiveWin.ch"

Function Main()

//-&gt; Maestro Antonio, Hay algo errado con los Themas de XP...

//-&gt; Esto no funciona en FiveWin 2.7 y [x]Harbour 0.99.60

//-&gt; 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' ) //-&gt; Siempre Aki???

Endif

Return Nil

//-> Un Gran Saludos a Todos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

THEMAS XP, NO FUNCIONA CON FIVEWIN 2.7
Posted: Sat Feb 25, 2006 07:30 PM

João,

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

Code: Select all Collapse

#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

regards, saludos

Antonio Linares
www.fivetechsoft.com

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

THEMAS XP, NO FUNCIONA CON FIVEWIN 2.7
Posted: Wed Mar 01, 2006 12:04 PM

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 Collapse
#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.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

siscat

Posts: 14

Joined: Wed Oct 26, 2005 02:04 PM

THEMAS XP, NO FUNCIONA CON FIVEWIN 2.7
Posted: Fri Mar 10, 2006 02:04 PM

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 Collapse

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

o arquivo TEMAXP.XML está assim:

Code: Select all Collapse

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

Analista de Sistemas

Siscat Software

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

THEMAS XP, NO FUNCIONA CON FIVEWIN 2.7
Posted: Fri Mar 10, 2006 06:38 PM

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.

regards, saludos

Antonio Linares
www.fivetechsoft.com

siscat

Posts: 14

Joined: Wed Oct 26, 2005 02:04 PM

THEMAS XP, NO FUNCIONA CON FIVEWIN 2.7
Posted: Mon Mar 13, 2006 04:38 PM

Antonio, boa tarde

já descobri o problema que está ocorrendo.

para o xHarbour Free eu faço desta forma:

Code: Select all Collapse

// 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 Collapse

// 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]

Marllon Figueiredo

Analista de Sistemas

Siscat Software

FiveTech Support Forums

Include "FiveWin.ch"

Continue the discussion