Line data Source code
1 : /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
2 : /*
3 : * This file is part of the LibreOffice project.
4 : *
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/.
8 : *
9 : * This file incorporates work covered by the following license notice:
10 : *
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 .
18 : */
19 : #include "vbaformatcondition.hxx"
20 : #include "vbaformatconditions.hxx"
21 : #include <ooo/vba/excel/XlFormatConditionType.hpp>
22 :
23 : using namespace ::ooo::vba;
24 : using namespace ::com::sun::star;
25 :
26 : static ScVbaFormatConditions*
27 0 : lcl_getScVbaFormatConditionsPtr( const uno::Reference< excel::XFormatConditions >& xFormatConditions ) throw ( script::BasicErrorException )
28 : {
29 0 : ScVbaFormatConditions* pFormatConditions = static_cast< ScVbaFormatConditions* >( xFormatConditions.get() );
30 0 : if ( !pFormatConditions )
31 0 : DebugHelper::exception(SbERR_METHOD_FAILED, rtl::OUString() );
32 0 : return pFormatConditions;
33 : }
34 0 : ScVbaFormatCondition::ScVbaFormatCondition( const uno::Reference< XHelperInterface >& xParent, const uno::Reference< uno::XComponentContext > & xContext, const uno::Reference< sheet::XSheetConditionalEntry >& _xSheetConditionalEntry, const uno::Reference< excel::XStyle >& _xStyle, const uno::Reference< excel::XFormatConditions >& _xFormatConditions, const uno::Reference< css::beans::XPropertySet >& _xPropertySet ) throw ( css::uno::RuntimeException ) : ScVbaFormatCondition_BASE( xParent, xContext, uno::Reference< sheet::XSheetCondition >( _xSheetConditionalEntry, css::uno::UNO_QUERY_THROW ) ), moFormatConditions( _xFormatConditions ), mxStyle( _xStyle ), mxParentRangePropertySet( _xPropertySet )
35 : {
36 0 : mxSheetConditionalEntries = lcl_getScVbaFormatConditionsPtr( moFormatConditions )->getSheetConditionalEntries();
37 :
38 0 : mxSheetConditionalEntry = _xSheetConditionalEntry;
39 0 : msStyleName = mxStyle->getName();
40 0 : }
41 :
42 :
43 : void SAL_CALL
44 0 : ScVbaFormatCondition::Delete( ) throw (script::BasicErrorException, uno::RuntimeException)
45 : {
46 0 : ScVbaFormatConditions* pFormatConditions = lcl_getScVbaFormatConditionsPtr( moFormatConditions );
47 0 : pFormatConditions->removeFormatCondition(msStyleName, sal_True);
48 0 : notifyRange();
49 0 : }
50 :
51 : void SAL_CALL
52 0 : ScVbaFormatCondition::Modify( ::sal_Int32 _nType, const uno::Any& _aOperator, const uno::Any& _aFormula1, const uno::Any& _aFormula2 ) throw (script::BasicErrorException, uno::RuntimeException)
53 : {
54 : try
55 : {
56 0 : ScVbaFormatConditions* pFormatConditions = lcl_getScVbaFormatConditionsPtr( moFormatConditions );
57 0 : pFormatConditions->removeFormatCondition(msStyleName, false);
58 0 : pFormatConditions->Add(_nType, _aOperator, _aFormula1, _aFormula2, mxStyle);
59 : }
60 0 : catch (uno::Exception& )
61 : {
62 0 : DebugHelper::exception(SbERR_METHOD_FAILED, rtl::OUString() );
63 : }
64 0 : }
65 :
66 : uno::Reference< excel::XInterior > SAL_CALL
67 0 : ScVbaFormatCondition::Interior( ) throw (script::BasicErrorException, uno::RuntimeException)
68 : {
69 0 : return mxStyle->Interior();
70 : }
71 :
72 : uno::Reference< excel::XFont > SAL_CALL
73 0 : ScVbaFormatCondition::Font( ) throw (script::BasicErrorException, uno::RuntimeException)
74 : {
75 0 : return mxStyle->Font();
76 : }
77 : uno::Any SAL_CALL
78 0 : ScVbaFormatCondition::Borders( const uno::Any& Index ) throw (script::BasicErrorException, uno::RuntimeException)
79 0 : { return mxStyle->Borders( Index );
80 : }
81 :
82 : sheet::ConditionOperator
83 0 : ScVbaFormatCondition::retrieveAPIType(sal_Int32 _nVBAType, const uno::Reference< sheet::XSheetCondition >& _xSheetCondition ) throw ( script::BasicErrorException )
84 : {
85 0 : sheet::ConditionOperator aAPIType = sheet::ConditionOperator_NONE;
86 0 : switch (_nVBAType)
87 : {
88 : case excel::XlFormatConditionType::xlExpression:
89 0 : aAPIType = sheet::ConditionOperator_FORMULA;
90 0 : break;
91 : case excel::XlFormatConditionType::xlCellValue:
92 0 : if ( _xSheetCondition.is() && (_xSheetCondition->getOperator() == sheet::ConditionOperator_FORMULA ) )
93 0 : aAPIType = sheet::ConditionOperator_NONE;
94 0 : break;
95 : default:
96 0 : DebugHelper::exception(SbERR_METHOD_FAILED, rtl::OUString() );
97 : }
98 0 : return aAPIType;
99 : }
100 :
101 : void
102 0 : ScVbaFormatCondition::setFormula1( const uno::Any& _aFormula1) throw ( script::BasicErrorException )
103 : {
104 : // getA1Formula *SHOULD* detect whether the formula is r1c1 or A1 syntax
105 : // and if R1C1 convert to A1
106 0 : ScVbaFormatCondition_BASE::setFormula1( uno::makeAny( lcl_getScVbaFormatConditionsPtr( moFormatConditions )->getA1Formula(_aFormula1) ) );
107 0 : }
108 :
109 : void
110 0 : ScVbaFormatCondition::setFormula2( const uno::Any& _aFormula2) throw ( script::BasicErrorException )
111 : {
112 0 : ScVbaFormatCondition_BASE::setFormula1( uno::makeAny( lcl_getScVbaFormatConditionsPtr( moFormatConditions )->getA1Formula(_aFormula2)) );
113 0 : }
114 :
115 : ::sal_Int32 SAL_CALL
116 0 : ScVbaFormatCondition::Type( ) throw ( script::BasicErrorException, uno::RuntimeException )
117 : {
118 0 : sal_Int32 nReturnType = 0;
119 0 : if ( mxSheetCondition->getOperator() == sheet::ConditionOperator_FORMULA)
120 0 : nReturnType = excel::XlFormatConditionType::xlExpression;
121 : else
122 0 : nReturnType = excel::XlFormatConditionType::xlCellValue;
123 0 : return nReturnType;
124 : }
125 :
126 :
127 : ::sal_Int32
128 0 : ScVbaFormatCondition::Operator( sal_Bool bVal ) throw (script::BasicErrorException )
129 : {
130 0 : return ScVbaFormatCondition_BASE::Operator( bVal );
131 : }
132 : ::sal_Int32 SAL_CALL
133 0 : ScVbaFormatCondition::Operator( ) throw (script::BasicErrorException, uno::RuntimeException)
134 : {
135 0 : return ScVbaFormatCondition_BASE::Operator( sal_True );
136 : }
137 :
138 : void
139 0 : ScVbaFormatCondition::notifyRange() throw ( script::BasicErrorException )
140 : {
141 : try
142 : {
143 0 : mxParentRangePropertySet->setPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ConditionalFormat") ), uno::makeAny( mxSheetConditionalEntries) );
144 : }
145 0 : catch (uno::Exception& )
146 : {
147 0 : DebugHelper::exception(SbERR_METHOD_FAILED, rtl::OUString() );
148 : }
149 0 : }
150 :
151 : rtl::OUString
152 0 : ScVbaFormatCondition::getServiceImplName()
153 : {
154 0 : return rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("ScVbaFormatCondition"));
155 : }
156 :
157 : uno::Sequence< rtl::OUString >
158 0 : ScVbaFormatCondition::getServiceNames()
159 : {
160 0 : static uno::Sequence< rtl::OUString > aServiceNames;
161 0 : if ( aServiceNames.getLength() == 0 )
162 : {
163 0 : aServiceNames.realloc( 1 );
164 0 : aServiceNames[ 0 ] = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ooo.vba.excel.FormatCondition" ) );
165 : }
166 0 : return aServiceNames;
167 : }
168 :
169 : /* vim:set shiftwidth=4 softtabstop=4 expandtab: */
|
