Inoffizielles deutsches Xbase-Forum

Code: Alles auswählen

#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:TabStop := .T.
   ::oSSTab:visible := .F.
RETURN self

METHOD _NewForm:create( oParent, oOwner, aPos, aSize, aPP, lVisible )
   ::XbpDialog:create( oParent, oOwner, aPos, aSize, aPP, lVisible )
   ::oSSTab:create()
RETURN self