topic-10803

Ugo

Posts: 283

Joined: Sat Oct 15, 2005 06:40 AM

IsAppThemed
Posted: Sat Apr 19, 2008 07:56 AM

IsAppThemed not work in my Vista business.

How resolve?

Many thanks in advance.

Ciao, best regards,

Ugo

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

IsAppThemed
Posted: Sat Apr 19, 2008 08:42 AM

Ugo,

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

Code: Select all Collapse

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

1 24 "WindowsXP.Manifest"

Here it is working fine

regards, saludos

Antonio Linares
www.fivetechsoft.com

Ugo

Posts: 283

Joined: Sat Oct 15, 2005 06:40 AM

IsAppThemed
Posted: Sun Apr 20, 2008 10:20 PM

Dear Antonio,
if I have understood well:

Code: Select all Collapse

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.

Ciao, best regards,

Ugo

Ugo

Posts: 283

Joined: Sat Oct 15, 2005 06:40 AM

IsAppThemed
Posted: Sun Apr 20, 2008 10:25 PM

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

Sorry Antonio,

Work fine!

Ciao, best regards,

Ugo

FiveTech Support Forums

Continue the discussion