1*b1cdbd2cSJim Jagielski /**************************************************************
2*b1cdbd2cSJim Jagielski *
3*b1cdbd2cSJim Jagielski * Licensed to the Apache Software Foundation (ASF) under one
4*b1cdbd2cSJim Jagielski * or more contributor license agreements. See the NOTICE file
5*b1cdbd2cSJim Jagielski * distributed with this work for additional information
6*b1cdbd2cSJim Jagielski * regarding copyright ownership. The ASF licenses this file
7*b1cdbd2cSJim Jagielski * to you under the Apache License, Version 2.0 (the
8*b1cdbd2cSJim Jagielski * "License"); you may not use this file except in compliance
9*b1cdbd2cSJim Jagielski * with the License. You may obtain a copy of the License at
10*b1cdbd2cSJim Jagielski *
11*b1cdbd2cSJim Jagielski * http://www.apache.org/licenses/LICENSE-2.0
12*b1cdbd2cSJim Jagielski *
13*b1cdbd2cSJim Jagielski * Unless required by applicable law or agreed to in writing,
14*b1cdbd2cSJim Jagielski * software distributed under the License is distributed on an
15*b1cdbd2cSJim Jagielski * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
16*b1cdbd2cSJim Jagielski * KIND, either express or implied. See the License for the
17*b1cdbd2cSJim Jagielski * specific language governing permissions and limitations
18*b1cdbd2cSJim Jagielski * under the License.
19*b1cdbd2cSJim Jagielski *
20*b1cdbd2cSJim Jagielski *************************************************************/
21*b1cdbd2cSJim Jagielski
22*b1cdbd2cSJim Jagielski
23*b1cdbd2cSJim Jagielski
24*b1cdbd2cSJim Jagielski #include <math.h>
25*b1cdbd2cSJim Jagielski
26*b1cdbd2cSJim Jagielski #include <com/sun/star/awt/XControlModel.hpp>
27*b1cdbd2cSJim Jagielski #include <com/sun/star/beans/XPropertySet.hpp>
28*b1cdbd2cSJim Jagielski #include <com/sun/star/container/XIndexContainer.hpp>
29*b1cdbd2cSJim Jagielski #include <com/sun/star/drawing/XControlShape.hpp>
30*b1cdbd2cSJim Jagielski #include <com/sun/star/drawing/XDrawPage.hpp>
31*b1cdbd2cSJim Jagielski #include <com/sun/star/drawing/XDrawPageSupplier.hpp>
32*b1cdbd2cSJim Jagielski #include <com/sun/star/form/XForm.hpp>
33*b1cdbd2cSJim Jagielski #include <com/sun/star/form/XFormComponent.hpp>
34*b1cdbd2cSJim Jagielski #include <com/sun/star/form/XFormsSupplier.hpp>
35*b1cdbd2cSJim Jagielski #include <com/sun/star/lang/XMultiServiceFactory.hpp>
36*b1cdbd2cSJim Jagielski #include <com/sun/star/text/TextContentAnchorType.hpp>
37*b1cdbd2cSJim Jagielski #include <com/sun/star/text/VertOrientation.hpp>
38*b1cdbd2cSJim Jagielski #include <com/sun/star/uno/Any.hxx>
39*b1cdbd2cSJim Jagielski #include <com/sun/star/uno/Type.hxx>
40*b1cdbd2cSJim Jagielski
41*b1cdbd2cSJim Jagielski #include "FormControlHelper.hxx"
42*b1cdbd2cSJim Jagielski
43*b1cdbd2cSJim Jagielski namespace writerfilter {
44*b1cdbd2cSJim Jagielski namespace dmapper {
45*b1cdbd2cSJim Jagielski
46*b1cdbd2cSJim Jagielski using namespace ::com::sun::star;
47*b1cdbd2cSJim Jagielski
48*b1cdbd2cSJim Jagielski struct FormControlHelper::FormControlHelper_Impl
49*b1cdbd2cSJim Jagielski {
50*b1cdbd2cSJim Jagielski FieldId m_eFieldId;
51*b1cdbd2cSJim Jagielski awt::Size aSize;
52*b1cdbd2cSJim Jagielski uno::Reference<drawing::XDrawPage> rDrawPage;
53*b1cdbd2cSJim Jagielski uno::Reference<form::XForm> rForm;
54*b1cdbd2cSJim Jagielski uno::Reference<form::XFormComponent> rFormComponent;
55*b1cdbd2cSJim Jagielski uno::Reference<lang::XMultiServiceFactory> rServiceFactory;
56*b1cdbd2cSJim Jagielski uno::Reference<text::XTextDocument> rTextDocument;
57*b1cdbd2cSJim Jagielski
58*b1cdbd2cSJim Jagielski uno::Reference<drawing::XDrawPage> getDrawPage();
59*b1cdbd2cSJim Jagielski uno::Reference<lang::XMultiServiceFactory> getServiceFactory();
60*b1cdbd2cSJim Jagielski uno::Reference<form::XForm> getForm();
61*b1cdbd2cSJim Jagielski uno::Reference<container::XIndexContainer> getFormComps();
62*b1cdbd2cSJim Jagielski };
63*b1cdbd2cSJim Jagielski
getDrawPage()64*b1cdbd2cSJim Jagielski uno::Reference<drawing::XDrawPage> FormControlHelper::FormControlHelper_Impl::getDrawPage()
65*b1cdbd2cSJim Jagielski {
66*b1cdbd2cSJim Jagielski if (! rDrawPage.is())
67*b1cdbd2cSJim Jagielski {
68*b1cdbd2cSJim Jagielski uno::Reference<drawing::XDrawPageSupplier>
69*b1cdbd2cSJim Jagielski xDrawPageSupplier(rTextDocument, uno::UNO_QUERY);
70*b1cdbd2cSJim Jagielski if (xDrawPageSupplier.is())
71*b1cdbd2cSJim Jagielski rDrawPage = xDrawPageSupplier->getDrawPage();
72*b1cdbd2cSJim Jagielski }
73*b1cdbd2cSJim Jagielski
74*b1cdbd2cSJim Jagielski return rDrawPage;
75*b1cdbd2cSJim Jagielski }
76*b1cdbd2cSJim Jagielski
getServiceFactory()77*b1cdbd2cSJim Jagielski uno::Reference<lang::XMultiServiceFactory> FormControlHelper::FormControlHelper_Impl::getServiceFactory()
78*b1cdbd2cSJim Jagielski {
79*b1cdbd2cSJim Jagielski if (! rServiceFactory.is())
80*b1cdbd2cSJim Jagielski rServiceFactory = uno::Reference<lang::XMultiServiceFactory>(rTextDocument, uno::UNO_QUERY);
81*b1cdbd2cSJim Jagielski
82*b1cdbd2cSJim Jagielski return rServiceFactory;
83*b1cdbd2cSJim Jagielski }
84*b1cdbd2cSJim Jagielski
getForm()85*b1cdbd2cSJim Jagielski uno::Reference<form::XForm> FormControlHelper::FormControlHelper_Impl::getForm()
86*b1cdbd2cSJim Jagielski {
87*b1cdbd2cSJim Jagielski if (! rForm.is())
88*b1cdbd2cSJim Jagielski {
89*b1cdbd2cSJim Jagielski uno::Reference<form::XFormsSupplier> xFormsSupplier(getDrawPage(), uno::UNO_QUERY);
90*b1cdbd2cSJim Jagielski
91*b1cdbd2cSJim Jagielski if (xFormsSupplier.is())
92*b1cdbd2cSJim Jagielski {
93*b1cdbd2cSJim Jagielski uno::Reference<container::XNameContainer> xFormsNamedContainer(xFormsSupplier->getForms());
94*b1cdbd2cSJim Jagielski static ::rtl::OUString sDOCXForm(RTL_CONSTASCII_USTRINGPARAM("DOCX-Standard"));
95*b1cdbd2cSJim Jagielski
96*b1cdbd2cSJim Jagielski ::rtl::OUString sFormName(sDOCXForm);
97*b1cdbd2cSJim Jagielski sal_uInt16 nUnique = 0;
98*b1cdbd2cSJim Jagielski
99*b1cdbd2cSJim Jagielski while (xFormsNamedContainer->hasByName(sFormName))
100*b1cdbd2cSJim Jagielski {
101*b1cdbd2cSJim Jagielski ++nUnique;
102*b1cdbd2cSJim Jagielski sFormName = sDOCXForm;
103*b1cdbd2cSJim Jagielski sFormName += ::rtl::OUString::valueOf(nUnique);
104*b1cdbd2cSJim Jagielski }
105*b1cdbd2cSJim Jagielski
106*b1cdbd2cSJim Jagielski uno::Reference<uno::XInterface>
107*b1cdbd2cSJim Jagielski xForm(getServiceFactory()->createInstance
108*b1cdbd2cSJim Jagielski (::rtl::OUString
109*b1cdbd2cSJim Jagielski (RTL_CONSTASCII_USTRINGPARAM
110*b1cdbd2cSJim Jagielski ("com.sun.star.form.component.Form"))));
111*b1cdbd2cSJim Jagielski if (xForm.is())
112*b1cdbd2cSJim Jagielski {
113*b1cdbd2cSJim Jagielski uno::Reference<beans::XPropertySet>
114*b1cdbd2cSJim Jagielski xFormProperties(xForm, uno::UNO_QUERY);
115*b1cdbd2cSJim Jagielski uno::Any aAny(sFormName);
116*b1cdbd2cSJim Jagielski static ::rtl::OUString sName(::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("Name")));
117*b1cdbd2cSJim Jagielski xFormProperties->setPropertyValue(sName, aAny);
118*b1cdbd2cSJim Jagielski }
119*b1cdbd2cSJim Jagielski
120*b1cdbd2cSJim Jagielski rForm = uno::Reference<form::XForm>(xForm, uno::UNO_QUERY);
121*b1cdbd2cSJim Jagielski
122*b1cdbd2cSJim Jagielski uno::Reference<container::XIndexContainer> xForms(xFormsNamedContainer, uno::UNO_QUERY);
123*b1cdbd2cSJim Jagielski uno::Any aAny(xForm);
124*b1cdbd2cSJim Jagielski xForms->insertByIndex(xForms->getCount(), aAny);
125*b1cdbd2cSJim Jagielski }
126*b1cdbd2cSJim Jagielski }
127*b1cdbd2cSJim Jagielski
128*b1cdbd2cSJim Jagielski return rForm;
129*b1cdbd2cSJim Jagielski }
130*b1cdbd2cSJim Jagielski
getFormComps()131*b1cdbd2cSJim Jagielski uno::Reference<container::XIndexContainer> FormControlHelper::FormControlHelper_Impl::getFormComps()
132*b1cdbd2cSJim Jagielski {
133*b1cdbd2cSJim Jagielski uno::Reference<container::XIndexContainer> xIndexContainer(getForm(), uno::UNO_QUERY);
134*b1cdbd2cSJim Jagielski
135*b1cdbd2cSJim Jagielski return xIndexContainer;
136*b1cdbd2cSJim Jagielski }
137*b1cdbd2cSJim Jagielski
FormControlHelper(FieldId eFieldId,uno::Reference<text::XTextDocument> rTextDocument,FFDataHandler::Pointer_t pFFData)138*b1cdbd2cSJim Jagielski FormControlHelper::FormControlHelper(FieldId eFieldId,
139*b1cdbd2cSJim Jagielski uno::Reference<text::XTextDocument> rTextDocument,
140*b1cdbd2cSJim Jagielski FFDataHandler::Pointer_t pFFData)
141*b1cdbd2cSJim Jagielski : m_pFFData(pFFData), m_pImpl(new FormControlHelper_Impl)
142*b1cdbd2cSJim Jagielski {
143*b1cdbd2cSJim Jagielski m_pImpl->m_eFieldId = eFieldId;
144*b1cdbd2cSJim Jagielski m_pImpl->rTextDocument = rTextDocument;
145*b1cdbd2cSJim Jagielski }
146*b1cdbd2cSJim Jagielski
~FormControlHelper()147*b1cdbd2cSJim Jagielski FormControlHelper::~FormControlHelper()
148*b1cdbd2cSJim Jagielski {
149*b1cdbd2cSJim Jagielski }
150*b1cdbd2cSJim Jagielski
createCheckbox(uno::Reference<text::XTextRange> xTextRange,const::rtl::OUString & rControlName)151*b1cdbd2cSJim Jagielski bool FormControlHelper::createCheckbox(uno::Reference<text::XTextRange> xTextRange,
152*b1cdbd2cSJim Jagielski const ::rtl::OUString & rControlName)
153*b1cdbd2cSJim Jagielski {
154*b1cdbd2cSJim Jagielski uno::Reference<lang::XMultiServiceFactory>
155*b1cdbd2cSJim Jagielski xServiceFactory(m_pImpl->getServiceFactory());
156*b1cdbd2cSJim Jagielski
157*b1cdbd2cSJim Jagielski if (! xServiceFactory.is())
158*b1cdbd2cSJim Jagielski return false;
159*b1cdbd2cSJim Jagielski
160*b1cdbd2cSJim Jagielski uno::Reference<uno::XInterface> xInterface =
161*b1cdbd2cSJim Jagielski xServiceFactory->createInstance
162*b1cdbd2cSJim Jagielski (::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("com.sun.star.form.component.CheckBox")));
163*b1cdbd2cSJim Jagielski
164*b1cdbd2cSJim Jagielski if (!xInterface.is())
165*b1cdbd2cSJim Jagielski return false;
166*b1cdbd2cSJim Jagielski
167*b1cdbd2cSJim Jagielski m_pImpl->rFormComponent = uno::Reference<form::XFormComponent>(xInterface, uno::UNO_QUERY);
168*b1cdbd2cSJim Jagielski if (!m_pImpl->rFormComponent.is())
169*b1cdbd2cSJim Jagielski return false;
170*b1cdbd2cSJim Jagielski
171*b1cdbd2cSJim Jagielski uno::Reference<beans::XPropertySet> xPropSet(xInterface, uno::UNO_QUERY);
172*b1cdbd2cSJim Jagielski
173*b1cdbd2cSJim Jagielski sal_uInt32 nCheckBoxHeight = 16 * m_pFFData->getCheckboxHeight();
174*b1cdbd2cSJim Jagielski
175*b1cdbd2cSJim Jagielski if (m_pFFData->getCheckboxAutoHeight())
176*b1cdbd2cSJim Jagielski {
177*b1cdbd2cSJim Jagielski uno::Reference<beans::XPropertySet> xTextRangeProps(xTextRange, uno::UNO_QUERY);
178*b1cdbd2cSJim Jagielski
179*b1cdbd2cSJim Jagielski try
180*b1cdbd2cSJim Jagielski {
181*b1cdbd2cSJim Jagielski static ::rtl::OUString sCharHeight(RTL_CONSTASCII_USTRINGPARAM("CharHeight"));
182*b1cdbd2cSJim Jagielski float fCheckBoxHeight = 0.0;
183*b1cdbd2cSJim Jagielski xTextRangeProps->getPropertyValue(sCharHeight) >>= fCheckBoxHeight;
184*b1cdbd2cSJim Jagielski nCheckBoxHeight = floor(fCheckBoxHeight * 35.3);
185*b1cdbd2cSJim Jagielski }
186*b1cdbd2cSJim Jagielski catch (beans::UnknownPropertyException & rException)
187*b1cdbd2cSJim Jagielski {
188*b1cdbd2cSJim Jagielski }
189*b1cdbd2cSJim Jagielski }
190*b1cdbd2cSJim Jagielski
191*b1cdbd2cSJim Jagielski m_pImpl->aSize.Width = nCheckBoxHeight;
192*b1cdbd2cSJim Jagielski m_pImpl->aSize.Height = m_pImpl->aSize.Width;
193*b1cdbd2cSJim Jagielski
194*b1cdbd2cSJim Jagielski uno::Any aAny;
195*b1cdbd2cSJim Jagielski if (m_pFFData->getStatusText().getLength())
196*b1cdbd2cSJim Jagielski {
197*b1cdbd2cSJim Jagielski aAny <<= m_pFFData->getStatusText();
198*b1cdbd2cSJim Jagielski
199*b1cdbd2cSJim Jagielski xPropSet->setPropertyValue(::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("HelpText")), aAny);
200*b1cdbd2cSJim Jagielski }
201*b1cdbd2cSJim Jagielski
202*b1cdbd2cSJim Jagielski aAny <<= m_pFFData->getCheckboxChecked();
203*b1cdbd2cSJim Jagielski xPropSet->setPropertyValue(::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("DefaultState")), aAny);
204*b1cdbd2cSJim Jagielski
205*b1cdbd2cSJim Jagielski if (m_pFFData->getHelpText().getLength())
206*b1cdbd2cSJim Jagielski {
207*b1cdbd2cSJim Jagielski aAny <<= m_pFFData->getHelpText();
208*b1cdbd2cSJim Jagielski xPropSet->setPropertyValue(::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("HelpF1Text")), aAny);
209*b1cdbd2cSJim Jagielski }
210*b1cdbd2cSJim Jagielski
211*b1cdbd2cSJim Jagielski aAny <<= rControlName;
212*b1cdbd2cSJim Jagielski xPropSet->setPropertyValue(::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("Name")), aAny);
213*b1cdbd2cSJim Jagielski
214*b1cdbd2cSJim Jagielski return true;
215*b1cdbd2cSJim Jagielski }
216*b1cdbd2cSJim Jagielski
insertControl(uno::Reference<text::XTextRange> xTextRange)217*b1cdbd2cSJim Jagielski bool FormControlHelper::insertControl(uno::Reference<text::XTextRange> xTextRange)
218*b1cdbd2cSJim Jagielski {
219*b1cdbd2cSJim Jagielski bool bCreated = false;
220*b1cdbd2cSJim Jagielski
221*b1cdbd2cSJim Jagielski uno::Reference<container::XNameContainer> xFormCompsByName(m_pImpl->getForm(), uno::UNO_QUERY);
222*b1cdbd2cSJim Jagielski uno::Reference<container::XIndexContainer> xFormComps(m_pImpl->getFormComps());
223*b1cdbd2cSJim Jagielski if (! xFormComps.is())
224*b1cdbd2cSJim Jagielski return false;
225*b1cdbd2cSJim Jagielski
226*b1cdbd2cSJim Jagielski static ::rtl::OUString sControl(RTL_CONSTASCII_USTRINGPARAM("Control"));
227*b1cdbd2cSJim Jagielski
228*b1cdbd2cSJim Jagielski sal_Int32 nControl = 0;
229*b1cdbd2cSJim Jagielski bool bDone = false;
230*b1cdbd2cSJim Jagielski ::rtl::OUString sControlName;
231*b1cdbd2cSJim Jagielski
232*b1cdbd2cSJim Jagielski do
233*b1cdbd2cSJim Jagielski {
234*b1cdbd2cSJim Jagielski ::rtl::OUString sTmp(sControl);
235*b1cdbd2cSJim Jagielski sTmp += ::rtl::OUString::valueOf(nControl);
236*b1cdbd2cSJim Jagielski
237*b1cdbd2cSJim Jagielski nControl++;
238*b1cdbd2cSJim Jagielski if (! xFormCompsByName->hasByName(sTmp))
239*b1cdbd2cSJim Jagielski {
240*b1cdbd2cSJim Jagielski sControlName = sTmp;
241*b1cdbd2cSJim Jagielski bDone = true;
242*b1cdbd2cSJim Jagielski }
243*b1cdbd2cSJim Jagielski }
244*b1cdbd2cSJim Jagielski while (! bDone);
245*b1cdbd2cSJim Jagielski
246*b1cdbd2cSJim Jagielski switch (m_pImpl->m_eFieldId)
247*b1cdbd2cSJim Jagielski {
248*b1cdbd2cSJim Jagielski case FIELD_FORMCHECKBOX:
249*b1cdbd2cSJim Jagielski bCreated = createCheckbox(xTextRange, sControlName);
250*b1cdbd2cSJim Jagielski break;
251*b1cdbd2cSJim Jagielski default:
252*b1cdbd2cSJim Jagielski break;
253*b1cdbd2cSJim Jagielski }
254*b1cdbd2cSJim Jagielski
255*b1cdbd2cSJim Jagielski if (!bCreated)
256*b1cdbd2cSJim Jagielski return false;
257*b1cdbd2cSJim Jagielski
258*b1cdbd2cSJim Jagielski uno::Any aAny(m_pImpl->rFormComponent);
259*b1cdbd2cSJim Jagielski xFormComps->insertByIndex(xFormComps->getCount(), aAny);
260*b1cdbd2cSJim Jagielski
261*b1cdbd2cSJim Jagielski if (! m_pImpl->getServiceFactory().is())
262*b1cdbd2cSJim Jagielski return false;
263*b1cdbd2cSJim Jagielski
264*b1cdbd2cSJim Jagielski uno::Reference<uno::XInterface> xInterface =
265*b1cdbd2cSJim Jagielski m_pImpl->getServiceFactory()->createInstance
266*b1cdbd2cSJim Jagielski (::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("com.sun.star.drawing.ControlShape")));
267*b1cdbd2cSJim Jagielski
268*b1cdbd2cSJim Jagielski if (! xInterface.is())
269*b1cdbd2cSJim Jagielski return false;
270*b1cdbd2cSJim Jagielski
271*b1cdbd2cSJim Jagielski uno::Reference<drawing::XShape> xShape(xInterface, uno::UNO_QUERY);
272*b1cdbd2cSJim Jagielski
273*b1cdbd2cSJim Jagielski if (! xShape.is())
274*b1cdbd2cSJim Jagielski return false;
275*b1cdbd2cSJim Jagielski
276*b1cdbd2cSJim Jagielski xShape->setSize(m_pImpl->aSize);
277*b1cdbd2cSJim Jagielski
278*b1cdbd2cSJim Jagielski uno::Reference<beans::XPropertySet> xShapeProps(xShape, uno::UNO_QUERY);
279*b1cdbd2cSJim Jagielski
280*b1cdbd2cSJim Jagielski sal_uInt16 nTmp = text::TextContentAnchorType_AS_CHARACTER;
281*b1cdbd2cSJim Jagielski aAny <<= nTmp;
282*b1cdbd2cSJim Jagielski
283*b1cdbd2cSJim Jagielski static const ::rtl::OUString sAnchorType(RTL_CONSTASCII_USTRINGPARAM("AnchorType"));
284*b1cdbd2cSJim Jagielski xShapeProps->setPropertyValue(sAnchorType, aAny);
285*b1cdbd2cSJim Jagielski
286*b1cdbd2cSJim Jagielski static const ::rtl::OUString sVertOrient(RTL_CONSTASCII_USTRINGPARAM("VertOrient"));
287*b1cdbd2cSJim Jagielski nTmp = text::VertOrientation::CENTER;
288*b1cdbd2cSJim Jagielski aAny <<= nTmp;
289*b1cdbd2cSJim Jagielski xShapeProps->setPropertyValue(sVertOrient, aAny);
290*b1cdbd2cSJim Jagielski
291*b1cdbd2cSJim Jagielski aAny <<= xTextRange;
292*b1cdbd2cSJim Jagielski
293*b1cdbd2cSJim Jagielski static const ::rtl::OUString sTextRange(RTL_CONSTASCII_USTRINGPARAM("TextRange"));
294*b1cdbd2cSJim Jagielski xShapeProps->setPropertyValue(sTextRange, aAny);
295*b1cdbd2cSJim Jagielski
296*b1cdbd2cSJim Jagielski uno::Reference<drawing::XControlShape> xControlShape(xShape, uno::UNO_QUERY);
297*b1cdbd2cSJim Jagielski uno::Reference<awt::XControlModel> xControlModel(m_pImpl->rFormComponent, uno::UNO_QUERY);
298*b1cdbd2cSJim Jagielski xControlShape->setControl(xControlModel);
299*b1cdbd2cSJim Jagielski
300*b1cdbd2cSJim Jagielski m_pImpl->getDrawPage()->add(xShape);
301*b1cdbd2cSJim Jagielski
302*b1cdbd2cSJim Jagielski return true;
303*b1cdbd2cSJim Jagielski }
304*b1cdbd2cSJim Jagielski
305*b1cdbd2cSJim Jagielski }}
306