Codejock.SkinFramework.ActiveX

[AUGE_OHR]

hi,

have somebody use Codejock.SkinFramework.ActiveX with harbour / HMG
i do use it under Xbase++ but have Problem to use it under HMG

[danielmaximiliano]

Los componentes COM/Ole y OCX tienen diferentes formas de trabajar pero los 2 se pueden manejar desde HMG/Harbour

[danielmaximiliano]

puede subir un ejemplo xBase++ o HMG/Harbour ya que descargue la version 30 Day Trial for ActiveX COM para poder hacer una prueba

[AUGE_OHR]

hi,

got it under harbour / HMG

hb_iTunes.jpg (257.13 KiB) Viewed 1370 times

ActiveX Syntax was different to Xbase++

Code: Select all

   bSaveError := ERRORBLOCK( { | e | BREAK( e ) } )
   BEGIN SEQUENCE

   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")

   // NEED to use this Syntax
   oObj := Win_1.oSkin.Object

   oObj:ApplyOptions :=  bOR( xtpSkinApplyMetrics, ;
                              xtpSkinApplyFrame  , ;
                              xtpSkinApplyColors , ;
                              xtpSkinApplyMenus  )


   oObj:AutoApplyNewThreads := .T.
   oObj:AutoApplyNewWindows := .T.

*  oObj:LoadSkin( "iTunes.msstyles", "" )
   oObj:LoadSkin( SP_SkinPath(), "" )

   SP_lSkinOK( .T. )

   RECOVER USING oError
      ERRORBLOCK( bSaveError )                                       
      SP_lSkinOK( .F. )
   END SEQUENCE
   ERRORBLOCK( bSaveError )

   IF SP_lSkinOK()
       oObj:ApplyWindow(  GetFormHandle( "Win_1" ) )
   ENDIF

Problem : you have to "disconnect" ActiveX when end App while it is still "alive" some Seconds and "block" EXE from new compile

[AUGE_OHR]

hi,

i try to run it under 64 Bit App ... but it crash ...
i NEED a 64 Bit Version to run it in 64 Bit App ... but i have only 32 Bit OCX Version of Codejock ( from 2009 ) ...

so i have to upgrade to latest Version if i want to use it with 64 Bit App ...

p.s. seems now to run stable and i can load different Thema for App "on-fly"

[danielmaximiliano]

Look here https://codejock.com/support/articles/c ... al/g_4.asp

[AUGE_OHR]

hi,

i had bought Codejock Controls and Skin Framework as Bundle 2009 where it was Version 13.
at that Time 64 Bit was not so often like now so that Version 13 did not have 64 Bit OCX

now with Windows 10 "Darkmode" i don´t use Skin any more ...
just want to know how it work with harbour / HMG and it seem "Stable"

[danielmaximiliano]

Hola Jimmy ...
pruea con la version actual Trial y te sacas a duda..

[AUGE_OHR]

hi,

have download actual Demo Version of Codejock SkinFrameWork and install in virtualBox
Demo *.OCX are only 32 Bit so i can´t test how it work under 64 Bit

---

CLSID and License seems to be different in Demo Version

Xtreme SkinFramework Control
{C0DE1930-2217-42EE-B1B0-82C890431F17}
Skin Framework Control Copyright (c) 1998-2020 Codejock Software
PRODUCT-ID: Codejock.SkinFramework.ActiveX.v19.3
VALIDATE-CODE: GGE-OLD-QQR-EJS