TQt Widget Hierarchy (in-process)

The ActiveX control in this example is a TQWidget subclass with child widgets that are accessible as sub types.

    class TQParentWidget : public TQWidget
    {
        TQ_OBJECT
    public:
        TQParentWidget( TQWidget *parent = 0, const char *name = 0, WFlags f = 0 );

        TQSize sizeHint() const;

    public slots:
        void createSubWidget( const TQString &name );

        TQSubWidget *subWidget( const TQString &name );

    private:
        TQVBoxLayout *vbox;
    };

The TQParentWidget class provides slots to create a widget with a name, and to return a pointer to a named widget.

    TQParentWidget::TQParentWidget( TQWidget *parent, const char *name, WFlags f )
    : TQWidget( parent, name, f )
    {
        vbox = new TQVBoxLayout( this );
        vbox->setAutoAdd( TRUE );
    }

The constructor of TQParentWidget creates a vertical box layout. New child widgets are automatically added to the layout.

    void TQParentWidget::createSubWidget( const TQString &name )
    {
        TQSubWidget *sw = new TQSubWidget( this, name );
        sw->setLabel( name );
        sw->show();
    }

The createSubWidget slot creates a new TQSubWidget with the name provided in the parameter, and sets the label to that name. The widget is also shown explicitly.

    TQSubWidget *TQParentWidget::subWidget( const TQString &name )
    {
        return (TQSubWidget*)child( name, "TQSubWidget" );
    }

The subWidget slot uses the TQObject::child() function and returns the first child of type TQSubWidget that has the requested name.

    class TQSubWidget : public TQWidget
    {
        TQ_OBJECT
        TQ_PROPERTY( TQString label READ label WRITE setLabel )
    public:
        TQSubWidget( TQWidget *parent = 0, const char *name = 0, WFlags f = 0 );

        void setLabel( const TQString &text );
        TQString label() const;

        TQSize sizeHint() const;

    protected:
        void paintEvent( TQPaintEvent *e );

    private:
        TQString lbl;
    };

The TQSubWidget class has a single string-property label, and implements the paintEvent to draw the label.

    TQSubWidget::TQSubWidget( TQWidget *parent, const char *name, WFlags f )
    : TQWidget( parent, name, f )
    {
    }

    void TQSubWidget::setLabel( const TQString &text )
    {
        lbl = text;
        setName( text );
        update();
    }

    TQString TQSubWidget::label() const
    {
        return lbl;
    }

    TQSize TQSubWidget::sizeHint() const
    {
        TQFontMetrics fm( font() );
        return TQSize( fm.width(lbl), fm.height() );
    }

    void TQSubWidget::paintEvent( TQPaintEvent * )
    {
        TQPainter painter(this);
        painter.setPen( colorGroup().text() );
        painter.drawText( rect(), AlignCenter, lbl );
    }

The implementation of the TQSubWidget class is self-explanatory.

    class ActiveTQtFactory : public TQAxFactory
    {
    public:
        ActiveTQtFactory( const TQUuid &lib, const TQUuid &app )
            : TQAxFactory( lib, app )
        {}
        TQStringList featureList() const
        {
            TQStringList list;
            list << "TQParentWidget";
            list << "TQSubWidget";
            return list;
        }

The ActiveTQtFactory class implements a TQAxFactory. It returns the class names of all supported types, TQParentWidget and TQSubWidget, from the featureList() reimplementation.

        TQWidget *create( const TQString &key, TQWidget *parent, const char *name )
        {
            if ( key == "TQParentWidget" )
                return new TQParentWidget( parent, name );

            return 0;
        }

The factory can however only create objects of the TQParentWidget type directly - objects of subtypes can only be created through the interface of TQParentWidget objects.

        TQUuid classID( const TQString &key ) const
        {
            if ( key == "TQParentWidget" )
                return TQUuid( "{d574a747-8016-46db-a07c-b2b4854ee75c}" );
            if ( key == "TQSubWidget" )
                return TQUuid( "{850652f4-8f71-4f69-b745-bce241ccdc30}" );

            return TQUuid();
        }
        TQUuid interfaceID( const TQString &key ) const
        {
            if ( key == "TQParentWidget" )
                return TQUuid( "{4a30719d-d9c2-4659-9d16-67378209f822}" );
            if ( key == "TQSubWidget" )
                return TQUuid( "{2d76cc2f-3488-417a-83d6-debff88b3c3f}" );

            return TQUuid();
        }
        TQUuid eventsID( const TQString &key ) const
        {
            if ( key == "TQParentWidget" )
                return TQUuid( "{aac9f855-c3dc-4cae-b747-c77f4d509f4c}" );
            if ( key == "TQSubWidget" )
                return TQUuid( "{25fac47e-c723-4696-8c74-6185903bdf65}" );

            return TQUuid();
        }

COM however requires the IDs for the interfaces of the sub types as well to be able to marshal calls correctly.

        TQString exposeToSuperClass( const TQString &key ) const
        {
            if ( key == "TQSubWidget" )
                return key;
            return TQAxFactory::exposeToSuperClass(key);
        }
    };

Objects of the TQSubWidget type should not expose the full functionality of e.g. TQWidget. Only those properties and slots explicitly declared in the type are accessible.

    TQAXFACTORY_EXPORT( ActiveTQtFactory, "{9e626211-be62-4d18-9483-9419358fbb03}", "{75c276de-1df5-451f-a004-e4fa1a587df1}" )

The factory is then exported using the TQAXFACTORY_EXPORT macro.

To build the example you must first build the TQAxServer library. Then run qmake and your make tool in examples/multiple.

The demonstration requires your WebBrowser to support ActiveX controls, and scripting to be enabled.

    <script language=javascript>
    function createSubWidget( form )
    {
        ParentWidget.createSubWidget( form.nameEdit.value );
    }

    function renameSubWidget( form )
    {
        var SubWidget = ParentWidget.subWidget( form.nameEdit.value );
        if ( !SubWidget ) {
            alert( "No such widget " + form.nameEdit.value + "!" );
            return;
        }
        SubWidget.label = form.labelEdit.value;
        form.nameEdit.value = SubWidget.label;
    }

    function setFont( form )
    {
        ParentWidget.font = form.fontEdit.value;
    }
    </script>

    <p>
    This widget can have many children!<br>
    <object ID="ParentWidget" CLASSID="CLSID:d574a747-8016-46db-a07c-b2b4854ee75c"
    CODEBASE=http://www.trolltech.com/demos/hierarchy.cab>
    [Object not available! Did you forget to build and register the server?]
    </object><br>
    <form>
    <input type="edit" ID="nameEdit" value = "<enter object name>">
    <input type="button" value = "Create" onClick="createSubWidget(this.form)">
    <input type="edit" ID="labelEdit">
    <input type="button" value = "Rename" onClick="renameSubWidget(this.form)">
    <br>
    <input type="edit" ID="fontEdit" value = "MS Sans Serif">
    <input type="button" value = "Set Font" onClick="setFont(this.form)">
    </form>