From d796c9dd933ab96ec83b9a634feedd5d32e1ba3f Mon Sep 17 00:00:00 2001 From: Timothy Pearson Date: Tue, 8 Nov 2011 12:31:36 -0600 Subject: Test conversion to TQt3 from Qt3 8c6fc1f8e35fd264dd01c582ca5e7549b32ab731 --- doc/html/qaxserver-example-hierarchy.html | 262 ++++++++++++++++++++++++++++++ 1 file changed, 262 insertions(+) create mode 100644 doc/html/qaxserver-example-hierarchy.html (limited to 'doc/html/qaxserver-example-hierarchy.html') diff --git a/doc/html/qaxserver-example-hierarchy.html b/doc/html/qaxserver-example-hierarchy.html new file mode 100644 index 000000000..3179e1273 --- /dev/null +++ b/doc/html/qaxserver-example-hierarchy.html @@ -0,0 +1,262 @@ + + + + + +TQt Widget Hierarchy (in-process) + + + + + + + +

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
+    {
+        Q_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
+    {
+        Q_OBJECT
+        Q_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 retquires 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 retquires 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>
+