unixkd wrote: ↑Mon Mar 06, 2023 4:38 am
Can you pls give me simple sample program that work for you.
Code: Select all
Xbase++
::oSkin := XBPACTIVEXCONTROL() :new( ::drawingArea,, { 0, 0 }, { 0, 0 } )
::oSkin:CLSID := "{16378D39-12CF-4C7D-8769-DFAAF02FD1F5}"
::oSkin:License := "Skin Framework Control Copyright (c) 2003-2009 Codejock Software" + CHR( 13 ) + CHR( 10 ) + ;
"PRODUCT-ID: Codejock.SkinFramework.ActiveX" + HX_VERSION() + CHR( 13 ) + CHR( 10 ) + ;
"VALIDATE-CODE: XXX-XXX-XXX-XXX"
::oSkin:TabStop := .F.
::oSkin:create()
::oSkin:ApplyOptions := nOR( xtpSkinApplyMetrics, ;
xtpSkinApplyFrame, ;
xtpSkinApplyColors )
// xtpSkinApplyMenus )
::oSkin:AutoApplyNewThreads := .T.
::oSkin:AutoApplyNewWindows := .T.
lRetErr := ::oSkin:callMethod( "LoadSkin", SP_SkinPath(), "" )
// NEED when call "new" Window
oDlg:oSkin:callMethod( "ApplyWindow", oDlg:getHWND() )
---
Code: Select all
harbour
DEFINE ACTIVEX oSkin
PARENT Win_1
ROW 0
COL 0
WIDTH 0
HEIGHT 0
PROGID "{16378D39-12CF-4C7D-8769-DFAAF02FD1F5}"
END ACTIVEX
SetProperty( "Win_1", "oSkin", "Object", "License", "Skin Framework Control Copyright (c) 2003-2009 Codejock Software" + CHR( 13 ) + CHR( 10 ) + ;
"PRODUCT-ID: Codejock.SkinFramework.ActiveX" + HX_VERSION() + CHR( 13 ) + CHR( 10 ) + ;
"VALIDATE-CODE: XXX-XXX-XXX-XXX" )
oObj := GetProperty( "Win_1", "oSkin", "Object" )
oObj:ApplyOptions := bOR( xtpSkinApplyMetrics, ;
xtpSkinApplyFrame, ;
xtpSkinApplyColors, ;
xtpSkinApplyMenus )
oObj:AutoApplyNewThreads := .T.
oObj:AutoApplyNewWindows := .T.
oObj:LoadSkin( SP_SkinPath(), "" )
// NEED when call "new" Window
oObj:ApplyWindow( GetFormHandle( "Win_1" ) )
unixkd wrote: ↑Mon Mar 06, 2023 4:38 am
My problem is that I got the error in POST #1 in my application. Roger suggested that we include xppsys.dll in application to solve the problem but did not work.
as Roger say "Ownerdraw" Menu has make Problem so don´t use xtpSkinApplyMenus
when open a "new" Windows you need to ApplyWindow() with Handle of Window