extensions/source/dbpilots/optiongrouplayouter.cxx

   1 /*************************************************************************
   2  *
   3  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4  *
   5  * Copyright 2008 by Sun Microsystems, Inc.
   6  *
   7  * OpenOffice.org - a multi-platform office productivity suite
   8  *
   9  * $RCSfile: optiongrouplayouter.cxx,v $
  10  * $Revision: 1.11 $
  11  *
  12  * This file is part of OpenOffice.org.
  13  *
  14  * OpenOffice.org is free software: you can redistribute it and/or modify
  15  * it under the terms of the GNU Lesser General Public License version 3
  16  * only, as published by the Free Software Foundation.
  17  *
  18  * OpenOffice.org is distributed in the hope that it will be useful,
  19  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  20  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21  * GNU Lesser General Public License version 3 for more details
  22  * (a copy is included in the LICENSE file that accompanied this code).
  23  *
  24  * You should have received a copy of the GNU Lesser General Public License
  25  * version 3 along with OpenOffice.org.  If not, see
  26  * <http://www.openoffice.org/license.html>
  27  * for a copy of the LGPLv3 License.
  28  *
  29  ************************************************************************/
  30
  31 // MARKER(update_precomp.py): autogen include statement, do not remove
  32 #include "precompiled_extensions.hxx"
  33 #include "optiongrouplayouter.hxx"
  34 #include <tools/debug.hxx>
  35 #include <tools/string.hxx>
  36 #include <com/sun/star/awt/Size.hpp>
  37 #include <com/sun/star/awt/Point.hpp>
  38 #include <com/sun/star/container/XIndexAccess.hpp>
  39 #include <com/sun/star/container/XNameAccess.hpp>
  40 #include <com/sun/star/drawing/XShapes.hpp>
  41 #include <com/sun/star/drawing/XShapeGrouper.hpp>
  42 #include <com/sun/star/text/TextContentAnchorType.hpp>
  43 #include <com/sun/star/view/XSelectionSupplier.hpp>
  44 #include "controlwizard.hxx"
  45 #include "groupboxwiz.hxx"
  46 #include "dbptools.hxx"
  47
  48 //.........................................................................
  49 namespace dbp
  50 {
  51 //.........................................................................
  52
  53 #define BUTTON_HEIGHT           300
  54 #define TOP_HEIGHT                      300
  55 #define HEIGHT                          450
  56 #define OFFSET                          300
  57 #define MIN_WIDTH                       600
  58
  59     using namespace ::com::sun::star::uno;
  60     using namespace ::com::sun::star::drawing;
  61     using namespace ::com::sun::star::beans;
  62     using namespace ::com::sun::star::awt;
  63     using namespace ::com::sun::star::container;
  64     using namespace ::com::sun::star::lang;
  65     using namespace ::com::sun::star::text;
  66     using namespace ::com::sun::star::view;
  67
  68     //=====================================================================
  69     //= OOptionGroupLayouter
  70     //=====================================================================
  71     //---------------------------------------------------------------------
  72     OOptionGroupLayouter::OOptionGroupLayouter(const Reference< XMultiServiceFactory >& _rxORB)
  73         :m_xORB(_rxORB)
  74     {
  75     }
  76
  77     //---------------------------------------------------------------------
  78     void OOptionGroupLayouter::doLayout(const OControlWizardContext& _rContext, const OOptionGroupSettings& _rSettings)
  79     {
  80         Reference< XShapes > xPageShapes(_rContext.xDrawPage, UNO_QUERY);
  81         if (!xPageShapes.is())
  82         {
  83             DBG_ERROR("OOptionGroupLayouter::OOptionGroupLayouter: missing the XShapes interface for the page!");
  84             return;
  85         }
  86
  87         Reference< XMultiServiceFactory > xDocFactory(_rContext.xDocumentModel, UNO_QUERY);
  88         if (!xDocFactory.is())
  89         {
  90             DBG_ERROR("OOptionGroupLayouter::OOptionGroupLayouter: no document service factory!");
  91             return;
  92         }
  93
  94         // no. of buttons to create
  95         sal_Int32 nRadioButtons = _rSettings.aLabels.size();
  96
  97         sal_Int32 nTopSpace = 0;
  98
  99         // the shape of the groupbox
 100         ::com::sun::star::awt::Size aControlShapeSize = _rContext.xObjectShape->getSize();
 101         // maybe need to adjust the size if the control shapes
 102         sal_Int32 nMinShapeHeight = BUTTON_HEIGHT*(nRadioButtons+1) + BUTTON_HEIGHT + BUTTON_HEIGHT/4;
 103         if (aControlShapeSize.Height < nMinShapeHeight)
 104             aControlShapeSize.Height = nMinShapeHeight;
 105         if (aControlShapeSize.Width < MIN_WIDTH)
 106             aControlShapeSize.Width = MIN_WIDTH;
 107         _rContext.xObjectShape->setSize(aControlShapeSize);
 108
 109         // if we're working on a writer document, we need to anchor the shape
 110         implAnchorShape(Reference< XPropertySet >(_rContext.xObjectShape, UNO_QUERY));
 111
 112         // shape collection (for grouping the shapes)
 113         Reference< XShapes > xButtonCollection(m_xORB->createInstance(
 114                 ::rtl::OUString::createFromAscii("com.sun.star.drawing.ShapeCollection")),
 115             UNO_QUERY);
 116         // first member : the shape of the control
 117         xButtonCollection->add(_rContext.xObjectShape.get());
 118
 119         sal_Int32 nTempHeight = (aControlShapeSize.Height - BUTTON_HEIGHT/4) / (nRadioButtons + 1);
 120
 121         ::com::sun::star::awt::Point aShapePosition = _rContext.xObjectShape->getPosition();
 122
 123         ::com::sun::star::awt::Size aButtonSize(aControlShapeSize);
 124         aButtonSize.Width = aControlShapeSize.Width - OFFSET;
 125         aButtonSize.Height = HEIGHT;
 126         ::com::sun::star::awt::Point aButtonPosition;
 127         aButtonPosition.X = aShapePosition.X + OFFSET;
 128
 129         ::rtl::OUString sElementsName = ::rtl::OUString::createFromAscii("RadioGroup");
 130         disambiguateName(Reference< XNameAccess >(_rContext.xForm, UNO_QUERY), sElementsName);
 131
 132         StringArray::const_iterator aLabelIter = _rSettings.aLabels.begin();
 133         StringArray::const_iterator aValueIter = _rSettings.aValues.begin();
 134         for (sal_Int32 i=0; i<nRadioButtons; ++i, ++aLabelIter, ++aValueIter)
 135         {
 136             aButtonPosition.Y = aShapePosition.Y + (i+1) * nTempHeight + nTopSpace;
 137
 138             Reference< XPropertySet > xRadioModel(
 139                     xDocFactory->createInstance(::rtl::OUString::createFromAscii("com.sun.star.form.component.RadioButton")),
 140                 UNO_QUERY);
 141
 142             // the label
 143             xRadioModel->setPropertyValue(::rtl::OUString::createFromAscii("Label"), makeAny(rtl::OUString(*aLabelIter)));
 144             // the value
 145             xRadioModel->setPropertyValue(::rtl::OUString::createFromAscii("RefValue"), makeAny(rtl::OUString(*aValueIter)));
 146
 147             // default selection
 148             if (_rSettings.sDefaultField == *aLabelIter)
 149                 xRadioModel->setPropertyValue(::rtl::OUString::createFromAscii("DefaultState"), makeAny(sal_Int16(1)));
 150
 151             // the connection to the database field
 152             if (0 != _rSettings.sDBField.Len())
 153                 xRadioModel->setPropertyValue(::rtl::OUString::createFromAscii("DataField"), makeAny(::rtl::OUString(_rSettings.sDBField)));
 154
 155             // the name for the model
 156             xRadioModel->setPropertyValue(::rtl::OUString::createFromAscii("Name"), makeAny(sElementsName));
 157
 158             // create a shape for the radio button
 159             Reference< XControlShape > xRadioShape(
 160                     xDocFactory->createInstance(::rtl::OUString::createFromAscii("com.sun.star.drawing.ControlShape")),
 161                 UNO_QUERY);
 162             Reference< XPropertySet > xShapeProperties(xRadioShape, UNO_QUERY);
 163
 164             // if we're working on a writer document, we need to anchor the shape
 165             implAnchorShape(xShapeProperties);
 166
 167             // position it
 168             xRadioShape->setSize(aButtonSize);
 169             xRadioShape->setPosition(aButtonPosition);
 170             // knitting with the model
 171             xRadioShape->setControl(Reference< XControlModel >(xRadioModel, UNO_QUERY));
 172
 173             // the name of the shape
 174             if (xShapeProperties.is())
 175                 xShapeProperties->setPropertyValue(::rtl::OUString::createFromAscii("Name"), makeAny(sElementsName));
 176
 177             // add to the page
 178             xPageShapes->add(xRadioShape.get());
 179             // add to the collection (for the later grouping)
 180             xButtonCollection->add(xRadioShape.get());
 181
 182             // set the GroupBox as "LabelControl" for the RadioButton
 183             // (_after_ having inserted the model into the page!)
 184             xRadioModel->setPropertyValue(::rtl::OUString::createFromAscii("LabelControl"), makeAny(_rContext.xObjectModel));
 185         }
 186
 187         // group the shapes
 188         try
 189         {
 190             Reference< XShapeGrouper > xGrouper(_rContext.xDrawPage, UNO_QUERY);
 191             if (xGrouper.is())
 192             {
 193                 Reference< XShapeGroup > xGroupedOptions = xGrouper->group(xButtonCollection);
 194                 Reference< XSelectionSupplier > xSelector(_rContext.xDocumentModel->getCurrentController(), UNO_QUERY);
 195                 if (xSelector.is())
 196                     xSelector->select(makeAny(xGroupedOptions));
 197             }
 198         }
 199         catch(Exception&)
 200         {
 201             DBG_ERROR("OOptionGroupLayouter::doLayout: caught an exception while grouping the shapes!");
 202         }
 203     }
 204
 205     //---------------------------------------------------------------------
 206     void OOptionGroupLayouter::implAnchorShape(const Reference< XPropertySet >& _rxShapeProps)
 207     {
 208         static const ::rtl::OUString s_sAnchorPropertyName = ::rtl::OUString::createFromAscii("AnchorType");
 209         Reference< XPropertySetInfo > xPropertyInfo;
 210         if (_rxShapeProps.is())
 211             xPropertyInfo = _rxShapeProps->getPropertySetInfo();
 212         if (xPropertyInfo.is() && xPropertyInfo->hasPropertyByName(s_sAnchorPropertyName))
 213             _rxShapeProps->setPropertyValue(s_sAnchorPropertyName, makeAny(TextContentAnchorType_AT_PAGE));
 214     }
 215
 216 //.........................................................................
 217 }       // namespace dbp
 218 //.........................................................................
 219