FiveTech Software tech support forums

Posted: **Sat Apr 19, 2008 7:56 am**

IsAppThemed not work in my Vista business.

How resolve?

Many thanks in advance.

Posted: **Sat Apr 19, 2008 8:42 am**

Ugo,

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

#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

Posted: **Sun Apr 20, 2008 10:20 pm**

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.

Posted: **Sun Apr 20, 2008 10:25 pm**

Ugo wrote:but in my Vista business don't work

Sorry Antonio,

Work fine!