*** Code ***
add :
#include "xbcjcal.ch" // xtpSkin... Constante
if you like to test it with :ApplyOptions
#define
CRLF
Chr(13)+Chr(10)
// Einbinden der Automation Support Library
#PRAGMA LIBRARY( "ASCOM10.LIB" )
LOCAL oSkin
LOCAL cSkin := "Office2007.cjstyles"
...
oSkin :=
XbpActiveXControl():new( , , {0,0}, {0,0} )
* oSkin:CLSID := "Codejock.SkinFramework.13.0.0"
oSkin:CLSID :=
"{16378D39-12CF-4C7D-8769-DFAAF02FD1F5}"
oSkin:License := "Skin Framework Control Copyright (c)
2003-2009 Codejock Software"+CRLF+;
"PRODUCT-ID: Codejock.SkinFramework.ActiveX.v13.0"+CRLF+;
"VALIDATE-CODE: GGE-OLD-QQR-EJS"
oSkin:create()
oSkin:callMethod("LoadSkin",cSkin,"")
* oSkin:ApplyOptions :=
xtpSkinApplyColors+xtpSkinApplyFrame+xtpSkinApplyMetrics+xtpSkinApplyMenus
* oSkin:ApplyOptions := xtpSkinApplyFrame+xtpSkinApplyMenus
// also New Threads
oSkin:AutoApplyNewThreads := .T.
// and MDI Client
oSkin:AutoApplyNewWindows := .T.
// apply to Dialog
oSkin:callMethod("ApplyWindow", oDlg:getHWND() )
*** eof ***
now try to open Menu ... they are empty
so next, with/without Codejock Skinframework i try
this