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  Expand view  RUN

#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  Expand view  RUN

1 24 "WindowsXP.Manifest"


Here it is working fine

[Ugo]

Dear Antonio,
if I have understood well:

Code: Select all  Expand view  RUN

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!