1 /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
3 * This file is part of the LibreOffice project.
5 * This Source Code Form is subject to the terms of the Mozilla Public
6 * License, v. 2.0. If a copy of the MPL was not distributed with this
7 * file, You can obtain one at http://mozilla.org/MPL/2.0/.
9 * This file incorporates work covered by the following license notice:
11 * Licensed to the Apache Software Foundation (ASF) under one or more
12 * contributor license agreements. See the NOTICE file distributed
13 * with this work for additional information regarding copyright
14 * ownership. The ASF licenses this file to you under the Apache
15 * License, Version 2.0 (the "License"); you may not use this file
16 * except in compliance with the License. You may obtain a copy of
17 * the License at http://www.apache.org/licenses/LICENSE-2.0 .
20 #include <svtools/bindablecontrolhelper.hxx>
21 #include <com/sun/star/form/binding/XBindableValue.hpp>
22 #include <com/sun/star/form/binding/XValueBinding.hpp>
23 #include <com/sun/star/form/binding/XListEntrySink.hpp>
24 #include <com/sun/star/form/binding/XListEntrySource.hpp>
25 #include <com/sun/star/frame/XModel.hpp>
26 #include <com/sun/star/beans/XPropertySet.hpp>
27 #include <com/sun/star/container/XNameAccess.hpp>
28 #include <com/sun/star/table/CellRangeAddress.hpp>
29 #include <com/sun/star/sheet/XCellRangeReferrer.hpp>
30 #include <com/sun/star/sheet/XCellRangeAddressable.hpp>
31 #include <com/sun/star/lang/XMultiServiceFactory.hpp>
32 #include <com/sun/star/table/CellAddress.hpp>
33 #include <com/sun/star/beans/NamedValue.hpp>
40 using namespace ::com::sun::star
;
42 static bool lcl_isNamedRange( const OUString
& sAddress
, const uno::Reference
< frame::XModel
>& xModel
, css::table::CellRangeAddress
& aAddress
)
45 uno::Reference
< sheet::XCellRangeReferrer
> xReferrer
;
48 uno::Reference
< beans::XPropertySet
> xPropSet( xModel
, uno::UNO_QUERY_THROW
);
49 uno::Reference
< container::XNameAccess
> xNamed( xPropSet
->getPropertyValue( u
"NamedRanges"_ustr
), uno::UNO_QUERY_THROW
);
50 xReferrer
.set ( xNamed
->getByName( sAddress
), uno::UNO_QUERY
);
52 catch( uno::Exception
& /*e*/ )
58 uno::Reference
< sheet::XCellRangeAddressable
> xRangeAddressable( xReferrer
->getReferredCells(), uno::UNO_QUERY
);
59 if ( xRangeAddressable
.is() )
61 aAddress
= xRangeAddressable
->getRangeAddress();
70 BindableControlHelper::ApplyListSourceAndBindableData( const css::uno::Reference
< css::frame::XModel
>& xModel
, const css::uno::Reference
< css::uno::XInterface
>& rObj
, const OUString
& rsCtrlSource
, const OUString
& rsRowSource
, sal_uInt16 nRefTab
)
73 uno::Reference
< lang::XMultiServiceFactory
> xFac
;
75 xFac
.set( xModel
, uno::UNO_QUERY
);
76 uno::Reference
< form::binding::XBindableValue
> xBindable( rObj
, uno::UNO_QUERY
);
77 if ( xFac
.is() && rsCtrlSource
.getLength() && xBindable
.is() )
80 // OOo address structures
81 // RefCell - convert from XL
82 // pretend we converted the imported string address into the
83 // appropriate address structure
84 uno::Reference
< beans::XPropertySet
> xConvertor( xFac
->createInstance( u
"com.sun.star.table.CellAddressConversion"_ustr
), uno::UNO_QUERY
);
85 css::table::CellAddress aAddress
;
86 if ( xConvertor
.is() )
88 // we need this service to properly convert XL notation also
89 // Should be easy to extend
90 xConvertor
->setPropertyValue( u
"ReferenceSheet"_ustr
, uno::Any( nRefTab
) );
91 xConvertor
->setPropertyValue( u
"XLA1Representation"_ustr
, uno::Any( rsCtrlSource
) );
92 xConvertor
->getPropertyValue( u
"Address"_ustr
) >>= aAddress
;
95 beans::NamedValue aArg1
;
96 aArg1
.Name
= "BoundCell";
97 aArg1
.Value
<<= aAddress
;
99 uno::Sequence
< uno::Any
> aArgs
{ uno::Any(aArg1
) };
100 uno::Reference
< form::binding::XValueBinding
> xBinding( xFac
->createInstanceWithArguments( u
"com.sun.star.table.CellValueBinding"_ustr
, aArgs
), uno::UNO_QUERY
);
101 xBindable
->setValueBinding( xBinding
);
103 else if ( xBindable
.is() ) // reset it
104 xBindable
->setValueBinding( uno::Reference
< form::binding::XValueBinding
>() );
105 uno::Reference
< form::binding::XListEntrySink
> xListEntrySink( rObj
, uno::UNO_QUERY
);
106 if ( xFac
.is() && rsRowSource
.getLength() && xListEntrySink
.is() )
109 // OOo address structures
110 // RefCell - convert from XL
111 // pretend we converted the imported string address into the
112 // appropriate address structure
113 uno::Reference
< beans::XPropertySet
> xConvertor( xFac
->createInstance( u
"com.sun.star.table.CellRangeAddressConversion"_ustr
), uno::UNO_QUERY
);
114 css::table::CellRangeAddress aAddress
;
115 if ( xConvertor
.is() )
117 if ( !lcl_isNamedRange( rsRowSource
, xModel
, aAddress
) )
119 // we need this service to properly convert XL notation also
120 // Should be easy to extend
121 xConvertor
->setPropertyValue( u
"ReferenceSheet"_ustr
, uno::Any( nRefTab
) );
122 xConvertor
->setPropertyValue( u
"XLA1Representation"_ustr
, uno::Any( rsRowSource
) );
123 xConvertor
->getPropertyValue( u
"Address"_ustr
) >>= aAddress
;
127 beans::NamedValue aArg1
;
128 aArg1
.Name
= "CellRange";
129 aArg1
.Value
<<= aAddress
;
131 uno::Sequence
< uno::Any
> aArgs
{ uno::Any(aArg1
) };
132 uno::Reference
< form::binding::XListEntrySource
> xSource( xFac
->createInstanceWithArguments( u
"com.sun.star.table.CellRangeListSource"_ustr
, aArgs
), uno::UNO_QUERY
);
133 xListEntrySink
->setListEntrySource( xSource
);
135 else if ( xListEntrySink
.is() ) // reset
136 xListEntrySink
->setListEntrySource( uno::Reference
< form::binding::XListEntrySource
>() );
144 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */