#include 'fivewin.ch'

function main()

   local oDlg, data := cToD( "  /  /  " ), oPK, nVal := 0, cVal := Replicate(" ",100), oGetN, oTC, oI

   DEFINE WINDOW oDlg FROM  0,0 TO 500,400 PIXEL TITLE "Test"
      
   @ 1,1 TREEVIEW oTC
   oI := oTC:Add("first")
   oI:Add("test 1")
   oI:Add("test 2")
   oI:Add("test 3")
   oI := oTC:Add("second")
   oI:Add("test 4")
   oI:Add("test 5")
   oI:Add("test 6")
   SetWindowTheme( oTC:hWnd, AnsiToWide( "Explorer" ), AnsiToWide( "" ) )
   
   @ 1,30 TREEVIEW oTC BORDER
   oI := oTC:Add("first")
   oI:Add("test 1")
   oI:Add("test 2")
   oI:Add("test 3")
   oI := oTC:Add("second")
   oI:Add("test 4")
   oI:Add("test 5")
   oI:Add("test 6")
   SetWindowTheme_MY(oTC:hWnd,"Explorer")  
   
   ACTIVATE DIALOG oDlg CENTERED

return nil

#pragma BEGINDUMP
#include <Windows.h>
#include <hbapi.h>
#include <Uxtheme.h>

LPWSTR     AnsiToWide( LPSTR cAnsi );

HB_FUNC( SETWINDOWTHEME_MY  )
{
   typedef HRESULT ( FAR PASCAL  *LPSETWINDOWTHEMEDATA )( HWND hwnd, LPCWSTR, LPCWSTR);
   HRESULT hRes = 3;
   HINSTANCE hLib;
   LPSETWINDOWTHEMEDATA SetWindowTheme;
   LPWSTR pW2, pW3;
#ifdef _WIN64
   HWND hWnd = ( HWND ) hb_parnll( 1 );
#else
   HWND hWnd = ( HWND ) hb_parnl( 1 );
#endif

   if( IsWindow( hWnd ) )
   {
      hLib = LoadLibrary( "uxtheme.dll" );
      if ( hLib )
      {
         pW2 = HB_ISCHAR( 2 ) ? AnsiToWide(( char * ) hb_parc( 2 )) : NULL;
         pW3 = HB_ISCHAR( 3 ) ? AnsiToWide(( char * ) hb_parc( 3 )) : NULL;
         SetWindowTheme = (LPSETWINDOWTHEMEDATA) GetProcAddress( hLib, "SetWindowTheme" );
         hRes = SetWindowTheme ( hWnd, pW2, pW3 );
         if(pW2) hb_xfree( pW2 );
         if(pW3) hb_xfree( pW3 );
         FreeLibrary( hLib );
      }
   }
   hb_retnl(hRes);
}

#pragma ENDDUMP

#include 'fivewin.ch'

function main()

   local oDlg, oTC1, oTC2

   DEFINE DIALOG oDlg FROM  0,0 TO 500,400 PIXEL TITLE "Test"
      
   @ 1,  2 TREEVIEW oTC1 SIZE 70, 100
   
   @ 1, 16 TREEVIEW oTC2 SIZE 70, 100
   
   ACTIVATE DIALOG oDlg CENTERED ;
      ON INIT FillTrees( oTC1, oTC2 )   

return nil

function FillTrees( oTC1, oTC2 )

   local oItem

   oItem := oTC1:Add( "first" )
   oItem:Add( "test 1" )
   oItem:Add( "test 2" )
   oItem:Add( "test 3" )
   oItem := oTC1:Add("second")
   oItem:Add( "test 4" )
   oItem:Add( "test 5" )
   oItem:Add( "test 6" )
   SetWindowTheme( oTC1:hWnd, "Explorer" )

   oItem := oTC2:Add( "first" )
   oItem:Add( "test 1" )
   oItem:Add( "test 2" )
   oItem:Add( "test 3" )
   oItem := oTC2:Add( "second" )
   oItem:Add( "test 4" )
   oItem:Add( "test 5" )
   oItem:Add( "test 6" )
   SetWindowTheme( oTC2:hWnd, "Explorer" )  

return nil