1 files changed, 287 insertions, 0 deletions
diff --git a/qadevOOo/runner/util/FormTools.java b/qadevOOo/runner/util/FormTools.java
new file mode 100644
index 000000000..2189612cd
--- /dev/null
+++ b/qadevOOo/runner/util/FormTools.java
@@ -0,0 +1,287 @@
+/*
+ * This file is part of the LibreOffice project.
+ *
+ * This Source Code Form is subject to the terms of the Mozilla Public
+ * License, v. 2.0. If a copy of the MPL was not distributed with this
+ * file, You can obtain one at http://mozilla.org/MPL/2.0/.
+ *
+ * This file incorporates work covered by the following license notice:
+ *
+ *   Licensed to the Apache Software Foundation (ASF) under one or more
+ *   contributor license agreements. See the NOTICE file distributed
+ *   with this work for additional information regarding copyright
+ *   ownership. The ASF licenses this file to you under the Apache
+ *   License, Version 2.0 (the "License"); you may not use this file
+ *   except in compliance with the License. You may obtain a copy of
+ *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
+ */
+
+package util;
+
+// access the implementations via names
+import com.sun.star.uno.XInterface;
+import com.sun.star.uno.UnoRuntime;
+import com.sun.star.lang.XComponent;
+import com.sun.star.drawing.XControlShape;
+import com.sun.star.drawing.XDrawPage;
+import com.sun.star.lang.XMultiServiceFactory;
+import com.sun.star.awt.Size;
+import com.sun.star.awt.Point;
+import com.sun.star.awt.XControlModel;
+import com.sun.star.container.XNameContainer;
+import com.sun.star.container.XIndexContainer;
+import com.sun.star.form.XFormsSupplier;
+import com.sun.star.form.XForm;
+import com.sun.star.form.XLoadable;
+import com.sun.star.text.XTextDocument;
+import com.sun.star.beans.XPropertySet;
+import com.sun.star.uno.AnyConverter;
+import com.sun.star.uno.Type;
+
+/**
+ * contains helper methods forms
+ */
+
+public class FormTools {
+
+
+    /**
+     * creates a XControlShape
+     *
+     * @param oDoc the document
+     * @param height the height of the shape
+     * @param width the width of the shape
+     * @param x the x-position of the shape
+     * @param y the y-position of the shape
+     * @param kind the kind of the shape
+     * @return the created XControlShape
+    */
+    public static XControlShape createControlShape( XComponent oDoc, int height,
+                                        int width, int x, int y, String kind )
+        throws com.sun.star.uno.Exception
+    {
+
+         Size size = new Size();
+        Point position = new Point();
+        XControlShape oCShape = null;
+        XControlModel aControl = null;
+
+        XMultiServiceFactory oDocMSF = UnoRuntime.queryInterface( XMultiServiceFactory.class, oDoc );
+
+        Object oInt = oDocMSF.createInstance("com.sun.star.drawing.ControlShape");
+        Object aCon = oDocMSF.createInstance("com.sun.star.form.component."+kind);
+        XPropertySet model_props = UnoRuntime.queryInterface(XPropertySet.class,aCon);
+        model_props.setPropertyValue("DefaultControl","com.sun.star.form.control."+kind);
+        aControl = UnoRuntime.queryInterface( XControlModel.class, aCon );
+        oCShape = UnoRuntime.queryInterface( XControlShape.class, oInt );
+        size.Height = height;
+        size.Width = width;
+        position.X = x;
+        position.Y = y;
+        oCShape.setSize(size);
+        oCShape.setPosition(position);
+
+        oCShape.setControl(aControl);
+
+        return oCShape;
+    } // finish createControlShape
+
+    public static XControlShape createUnoControlShape( XComponent oDoc, int height,
+                                        int width, int x, int y, String kind, String defControl )
+        throws com.sun.star.uno.Exception
+    {
+
+         Size size = new Size();
+        Point position = new Point();
+        XControlShape oCShape = null;
+        XControlModel aControl = null;
+
+        XMultiServiceFactory oDocMSF = UnoRuntime.queryInterface( XMultiServiceFactory.class, oDoc );
+
+        Object oInt = oDocMSF.createInstance("com.sun.star.drawing.ControlShape");
+        Object aCon = oDocMSF.createInstance("com.sun.star.form.component."+kind);
+        XPropertySet model_props = UnoRuntime.queryInterface(XPropertySet.class,aCon);
+        model_props.setPropertyValue("DefaultControl","com.sun.star.awt."+defControl);
+        aControl = UnoRuntime.queryInterface( XControlModel.class, aCon );
+        oCShape = UnoRuntime.queryInterface( XControlShape.class, oInt );
+        size.Height = height;
+        size.Width = width;
+        position.X = x;
+        position.Y = y;
+        oCShape.setSize(size);
+        oCShape.setPosition(position);
+
+        oCShape.setControl(aControl);
+
+        return oCShape;
+    } // finish createControlShape
+
+    public static XControlShape createControlShapeWithDefaultControl( XComponent oDoc, int height,
+                                        int width, int x, int y, String kind )
+        throws com.sun.star.uno.Exception
+    {
+
+         Size size = new Size();
+        Point position = new Point();
+        XControlShape oCShape = null;
+        XControlModel aControl = null;
+
+        XMultiServiceFactory oDocMSF = UnoRuntime.queryInterface( XMultiServiceFactory.class, oDoc );
+
+        Object oInt = oDocMSF.createInstance("com.sun.star.drawing.ControlShape");
+        Object aCon = oDocMSF.createInstance("com.sun.star.form.component."+kind);
+
+        aControl = UnoRuntime.queryInterface( XControlModel.class, aCon );
+        oCShape = UnoRuntime.queryInterface( XControlShape.class, oInt );
+        size.Height = height;
+        size.Width = width;
+        position.X = x;
+        position.Y = y;
+        oCShape.setSize(size);
+        oCShape.setPosition(position);
+
+        oCShape.setControl(aControl);
+
+        return oCShape;
+    } // finish createControlShape
+
+    public static XInterface createControl( XComponent oDoc, String kind )
+        throws com.sun.star.uno.Exception
+    {
+        XInterface oControl = null;
+
+        XMultiServiceFactory oDocMSF = UnoRuntime.queryInterface( XMultiServiceFactory.class, oDoc );
+
+        oControl = (XInterface) oDocMSF.createInstance(
+                                        "com.sun.star.form.component."+kind);
+        return oControl;
+    } // finish createControl
+
+    public static XNameContainer getForms ( XDrawPage oDP )
+    {
+        XFormsSupplier oFS = UnoRuntime.queryInterface(
+                                                    XFormsSupplier.class,oDP);
+        return oFS.getForms();
+    } //finish getForms
+
+    private static XIndexContainer getIndexedForms ( XDrawPage oDP )
+    {
+        XFormsSupplier oFS = UnoRuntime.queryInterface(
+                                                    XFormsSupplier.class,oDP);
+        return UnoRuntime.queryInterface( XIndexContainer.class,
+            oFS.getForms() );
+    } //finish getIndexedForms
+
+    public static void insertForm ( XComponent aDoc, XNameContainer Forms,
+                                                                String aName )
+        throws com.sun.star.uno.Exception
+    {
+        XInterface oControl = createControl(aDoc, "Form");
+        XForm oForm = UnoRuntime.queryInterface(XForm.class, oControl);
+        Forms.insertByName(aName,oForm);
+    }
+
+    public static XControlShape insertControlShape( XComponent oDoc, int height,
+                                        int width, int x, int y, String kind )
+        throws com.sun.star.uno.Exception
+    {
+        XControlShape aShape = createControlShape(oDoc,height,width,x,y,kind);
+        XDrawPage oDP = DrawTools.getDrawPage(oDoc,0);
+        DrawTools.getShapes(oDP).add(aShape);
+        return aShape;
+    }
+
+    public static XLoadable bindForm( XTextDocument aDoc )
+        throws com.sun.star.uno.Exception
+    {
+        XLoadable formLoader = null;
+
+        Object aForm = FormTools.getIndexedForms(WriterTools.getDrawPage(aDoc)).getByIndex(0);
+        XForm the_form = null;
+        the_form = (XForm) AnyConverter.toObject(new Type(XForm.class), aForm);
+        XPropertySet formProps = UnoRuntime.queryInterface(XPropertySet.class, the_form);
+        formProps.setPropertyValue("DataSourceName","Bibliography");
+        formProps.setPropertyValue("Command","biblio");
+        formProps.setPropertyValue("CommandType",Integer.valueOf(com.sun.star.sdb.CommandType.TABLE));
+        formLoader = UnoRuntime.queryInterface(XLoadable.class, the_form);
+
+        return formLoader;
+    }
+
+    /**
+    * Binds <code>'Standard'</code> form of <code>aDoc</code> Writer document
+    * to the <code>tableName</code> table of <code>sourceName</code>
+    * Data Source.
+    * @param aDoc Writer document where DB controls are added.
+    * @param sourceName The name of DataSource in the <code>DatabaseContext</code>.
+    * @param tableName The name of the table to which controls are bound.
+    * @return <code>com.sun.star.form.component.DatabaseForm</code> service
+    * implementation which is the bound form inside the document.
+    */
+    public static XLoadable bindForm( XTextDocument aDoc, String sourceName, String tableName )
+        throws com.sun.star.uno.Exception {
+
+        XForm the_form = (XForm) AnyConverter.toObject(new Type(XForm.class),
+            FormTools.getIndexedForms(WriterTools.getDrawPage(aDoc)).getByIndex(0));
+        XPropertySet formProps = UnoRuntime.queryInterface(XPropertySet.class, the_form);
+        formProps.setPropertyValue("DataSourceName",sourceName);
+        formProps.setPropertyValue("Command",tableName);
+        formProps.setPropertyValue("CommandType",Integer.valueOf(com.sun.star.sdb.CommandType.TABLE));
+
+        return UnoRuntime.queryInterface(XLoadable.class, the_form);
+    }
+
+
+
+    /**
+    * Binds the form with the name specified of <code>aDoc</code> Writer document
+    * to the <code>tableName</code> table of <code>sourceName</code>
+    * Data Source.
+    * @param aDoc Writer document where DB controls are added.
+    * @param formName The name of the form to be bound.
+    * @param sourceName The name of DataSource in the <code>DatabaseContext</code>.
+    * @param tableName The name of the table to which controls are bound.
+    * @return <code>com.sun.star.form.component.DatabaseForm</code> service
+    * implementation which is the bound form inside the document.
+    */
+    public static XLoadable bindForm( XTextDocument aDoc, String formName, String sourceName,
+        String tableName) throws com.sun.star.uno.Exception {
+
+        XForm the_form = (XForm) AnyConverter.toObject(new Type(XForm.class),
+            FormTools.getForms(WriterTools.getDrawPage(aDoc)).getByName(formName));
+        XPropertySet formProps = UnoRuntime.queryInterface(XPropertySet.class, the_form);
+        formProps.setPropertyValue("DataSourceName",sourceName);
+        formProps.setPropertyValue("Command",tableName);
+        formProps.setPropertyValue("CommandType",Integer.valueOf(com.sun.star.sdb.CommandType.TABLE));
+
+        return UnoRuntime.queryInterface(XLoadable.class, the_form);
+    }
+
+    public static void switchDesignOf(XMultiServiceFactory xMSF, XTextDocument aDoc)
+        throws com.sun.star.uno.Exception
+    {
+        com.sun.star.frame.XController aController = aDoc.getCurrentController();
+        com.sun.star.frame.XFrame aFrame = aController.getFrame();
+        com.sun.star.frame.XDispatchProvider aDispProv = UnoRuntime.queryInterface(com.sun.star.frame.XDispatchProvider.class,aFrame);
+        com.sun.star.util.URL aURL = new com.sun.star.util.URL();
+        aURL.Complete = ".uno:SwitchControlDesignMode";
+
+        Object instance = xMSF.createInstance("com.sun.star.util.URLTransformer");
+        com.sun.star.util.XURLTransformer atrans =
+                UnoRuntime.queryInterface(
+                            com.sun.star.util.XURLTransformer.class,instance);
+        com.sun.star.util.URL[] aURLA = new com.sun.star.util.URL[1];
+        aURLA[0] = aURL;
+        atrans.parseStrict(aURLA);
+        aURL = aURLA[0];
+
+        com.sun.star.frame.XDispatch aDisp = aDispProv.queryDispatch(aURL, "",
+                                com.sun.star.frame.FrameSearchFlag.SELF |
+                                    com.sun.star.frame.FrameSearchFlag.CHILDREN);
+
+        com.sun.star.beans.PropertyValue[] noArgs = new com.sun.star.beans.PropertyValue[0];
+        aDisp.dispatch(aURL, noArgs);
+        util.utils.waitForEventIdle(xMSF); // async dispatch
+    }
+
+}