Author | Topic: TABCTL32.OCX | |
---|---|---|
AUGE_OHR | TABCTL32.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 |