Alaska Software Inc. - TABCTL32.OCX
Username: Password:
AuthorTopic: TABCTL32.OCX
AUGE_OHRTABCTL32.OCX
on Thu, 09 Apr 2009 09:06:15 +0200
hi,

does someone get it work ?
i have try v5.x and v6.x Version with XppFD Class Code
*** Code ***
#include "Gra.ch"
#include "Xbp.ch"
#include "Common.ch"
#include "Appevent.ch"
#include "Font.ch"
#PRAGMA LIBRARY( "ASCOM10.LIB" )

CLASS _NewForm FROM XbpDialog
   EXPORTED:
      VAR oSSTab

      METHOD init
      METHOD create
ENDCLASS

METHOD _NewForm:init( oParent, oOwner, aPos, aSize, aPP, lVisible )
   DEFAULT oParent  TO AppDesktop(), ;
           aPos     TO {113,57}, ;
           aSize    TO {800,600}, ;
           lVisible TO .F.

   DEFAULT aPP TO {}
   AAdd ( aPP, { XBP_PP_COMPOUNDNAME, "8.Arial" } )
   ::XbpDialog:init( oParent, oOwner, aPos, aSize, aPP, lVisible )
   ::XbpDialog:taskList := .T.
   ::XbpDialog:title := "Neues Formular"

   ::oSSTab := XbpActiveXControl():new( ::drawingArea, , {52,52}, 
{640,480} )
*  ::oSSTab:CLSID   := "{BDC217C5-ED16-11CD-956C-0000C04E4C0A}"
   ::oSSTab:CLSID   := "TabDlg.SSTab.1"
   ::oSSTab:TabStop := .T.
   ::oSSTab:visible := .T.
RETURN self

METHOD _NewForm:create( oParent, oOwner, aPos, aSize, aPP, lVisible )

   ::XbpDialog:create( oParent, oOwner, aPos, aSize, aPP, lVisible )
   ::oSSTab:create()
RETURN self
*** eof ***
but it crash at :create ? any Idee ?

v1.9.331 and v350
greetings by OHR
Jimmy