IsAppThemed

[Ugo]

IsAppThemed not work in my Vista business.

How resolve?

Many thanks in advance.

[Antonio Linares]

Ugo,

You need to have a main window or dialog already created:

Code: Select all

#include "FiveWin.ch"

function Main()

   local oWnd
   
   DEFINE WINDOW oWnd 
   
   ACTIVATE WINDOW oWnd ;
      ON INIT MsgInfo( IsAppThemed() )

return nil

And have this in your RC:

Code: Select all

1 24 "WindowsXP.Manifest" 

Here it is working fine

[Ugo]

Dear Antonio,
if I have understood well:

Code: Select all

FUNCTION TestAppThemed()

   LOCAL oDlg, lAppThem := .F.

   DEFINE DIALOG oDlg 
   oDlg:bStart = { || lAppThem := IsAppThemed(),;
                      MsgInfo( IF( lAppThem, "Vista with Theme", "Vista without theme" ), "Test theme" ),;
                      oDlg:End() }

   ACTIVATE DIALOG oDlg

   return lAppThem

but in my Vista business don't work, is the same with your sample.

[Ugo]

but in my Vista business don't work

Sorry Antonio,

Work fine!