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 "vbalabel.hxx"
25*b1cdbd2cSJim Jagielski #include "vbanewfont.hxx"
26*b1cdbd2cSJim Jagielski
27*b1cdbd2cSJim Jagielski using namespace com::sun::star;
28*b1cdbd2cSJim Jagielski using namespace ooo::vba;
29*b1cdbd2cSJim Jagielski
30*b1cdbd2cSJim Jagielski
31*b1cdbd2cSJim Jagielski const static rtl::OUString LABEL( RTL_CONSTASCII_USTRINGPARAM("Label") );
ScVbaLabel(const css::uno::Reference<XHelperInterface> & xParent,const uno::Reference<uno::XComponentContext> & xContext,const uno::Reference<uno::XInterface> & xControl,const uno::Reference<frame::XModel> & xModel,ov::AbstractGeometryAttributes * pGeomHelper)32*b1cdbd2cSJim Jagielski ScVbaLabel::ScVbaLabel( const css::uno::Reference< XHelperInterface >& xParent, const uno::Reference< uno::XComponentContext >& xContext, const uno::Reference< uno::XInterface >& xControl, const uno::Reference< frame::XModel >& xModel, ov::AbstractGeometryAttributes* pGeomHelper ) : LabelImpl_BASE( xParent, xContext, xControl, xModel, pGeomHelper )
33*b1cdbd2cSJim Jagielski {
34*b1cdbd2cSJim Jagielski }
35*b1cdbd2cSJim Jagielski
36*b1cdbd2cSJim Jagielski // Attributes
37*b1cdbd2cSJim Jagielski rtl::OUString SAL_CALL
getCaption()38*b1cdbd2cSJim Jagielski ScVbaLabel::getCaption() throw (css::uno::RuntimeException)
39*b1cdbd2cSJim Jagielski {
40*b1cdbd2cSJim Jagielski rtl::OUString Label;
41*b1cdbd2cSJim Jagielski m_xProps->getPropertyValue( LABEL ) >>= Label;
42*b1cdbd2cSJim Jagielski return Label;
43*b1cdbd2cSJim Jagielski }
44*b1cdbd2cSJim Jagielski
45*b1cdbd2cSJim Jagielski void SAL_CALL
setCaption(const rtl::OUString & _caption)46*b1cdbd2cSJim Jagielski ScVbaLabel::setCaption( const rtl::OUString& _caption ) throw (::com::sun::star::uno::RuntimeException)
47*b1cdbd2cSJim Jagielski {
48*b1cdbd2cSJim Jagielski m_xProps->setPropertyValue( LABEL, uno::makeAny( _caption ) );
49*b1cdbd2cSJim Jagielski }
50*b1cdbd2cSJim Jagielski uno::Any SAL_CALL
getValue()51*b1cdbd2cSJim Jagielski ScVbaLabel::getValue() throw (css::uno::RuntimeException)
52*b1cdbd2cSJim Jagielski {
53*b1cdbd2cSJim Jagielski return uno::makeAny( getCaption() );
54*b1cdbd2cSJim Jagielski }
55*b1cdbd2cSJim Jagielski
56*b1cdbd2cSJim Jagielski void SAL_CALL
setValue(const uno::Any & _value)57*b1cdbd2cSJim Jagielski ScVbaLabel::setValue( const uno::Any& _value ) throw (::com::sun::star::uno::RuntimeException)
58*b1cdbd2cSJim Jagielski {
59*b1cdbd2cSJim Jagielski rtl::OUString sCaption;
60*b1cdbd2cSJim Jagielski _value >>= sCaption;
61*b1cdbd2cSJim Jagielski setCaption( sCaption );
62*b1cdbd2cSJim Jagielski }
63*b1cdbd2cSJim Jagielski
getFont()64*b1cdbd2cSJim Jagielski uno::Reference< msforms::XNewFont > SAL_CALL ScVbaLabel::getFont() throw (uno::RuntimeException)
65*b1cdbd2cSJim Jagielski {
66*b1cdbd2cSJim Jagielski return new VbaNewFont( this, mxContext, m_xProps );
67*b1cdbd2cSJim Jagielski }
68*b1cdbd2cSJim Jagielski
69*b1cdbd2cSJim Jagielski rtl::OUString&
getServiceImplName()70*b1cdbd2cSJim Jagielski ScVbaLabel::getServiceImplName()
71*b1cdbd2cSJim Jagielski {
72*b1cdbd2cSJim Jagielski static rtl::OUString sImplName( RTL_CONSTASCII_USTRINGPARAM("ScVbaLabel") );
73*b1cdbd2cSJim Jagielski return sImplName;
74*b1cdbd2cSJim Jagielski }
75*b1cdbd2cSJim Jagielski
76*b1cdbd2cSJim Jagielski uno::Sequence< rtl::OUString >
getServiceNames()77*b1cdbd2cSJim Jagielski ScVbaLabel::getServiceNames()
78*b1cdbd2cSJim Jagielski {
79*b1cdbd2cSJim Jagielski static uno::Sequence< rtl::OUString > aServiceNames;
80*b1cdbd2cSJim Jagielski if ( aServiceNames.getLength() == 0 )
81*b1cdbd2cSJim Jagielski {
82*b1cdbd2cSJim Jagielski aServiceNames.realloc( 1 );
83*b1cdbd2cSJim Jagielski aServiceNames[ 0 ] = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ooo.vba.msforms.Label" ) );
84*b1cdbd2cSJim Jagielski }
85*b1cdbd2cSJim Jagielski return aServiceNames;
86*b1cdbd2cSJim Jagielski }
87