FiveTech Support Forums

DEFINE DIALOG oDlg RESOURCE "D_DR_WIN_STATMSF_SEARCH" 
........ 
ACTIVATE DIALOG oDlg CENTER ON INIT CodeJockSkin_InitDlg( oDlg ) 

FUNCTION CodeJockSkin_InitDlg( oDlg ) 

LOCAL oActiveX 

oActiveX := TActiveX_FreeWin():New( oDlg, "Codejock.SkinFrameWork.10.4.1" ) 
   oActiveX:LoadSkin( "System\ActiveX\Styles\Vista.cjstyles", "" )  //Vista.cjstyles  //Office2007.cjstyles 
    
   oActiveX:ApplyWindow( oDlg:hWnd ) 

RETURN NIL

// FiveWin ActiveX support demo - Using Adobe Acrobat Reader

#include "FiveWin.ch"

function Main()
   local oWnd, oActiveX
   DEFINE WINDOW oWnd TITLE "FiveWin ActiveX Support with Skin"
          oActiveX = TActiveX():New( oWnd, "PDF.PdfCtrl.5" )
          oWnd:oClient = oActiveX // To fill the entire window surface
          oActiveX:Do( "LoadFile", "c:\teste.pdf" )
          oActiveX:Do( "SetCurrentPage", 1 )
   ACTIVATE WINDOW oWnd ON INIT CodeJockSkin_InitDlg(oWnd)
   return nil

FUNCTION CodeJockSkin_InitDlg( oDlg ) 
   LOCAL oActiveX, cStylesPath := "c:\win2003\arquivos de programas\codejock\source\skinframework\Styles\"
   oActiveX := TActiveX():New( oDlg, "Codejock.SkinFrameWork.10.4.2" ) 
   oActiveX:Do( "LoadSkin", cStylesPath+"Vista.cjstyles", "" )  //Vista.cjstyles  //Office2007.cjstyles 
   oActiveX:Do( "ApplyWindow", oDlg:hWnd ) 
   return nil