1 /*************************************************************************
2  *
3  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
4  *
5  * Copyright 2000, 2010 Oracle and/or its affiliates.
6  *
7  * OpenOffice.org - a multi-platform office productivity suite
8  *
9  * This file is part of OpenOffice.org.
10  *
11  * OpenOffice.org is free software: you can redistribute it and/or modify
12  * it under the terms of the GNU Lesser General Public License version 3
13  * only, as published by the Free Software Foundation.
14  *
15  * OpenOffice.org is distributed in the hope that it will be useful,
16  * but WITHOUT ANY WARRANTY; without even the implied warranty of
17  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
18  * GNU Lesser General Public License version 3 for more details
19  * (a copy is included in the LICENSE file that accompanied this code).
20  *
21  * You should have received a copy of the GNU Lesser General Public License
22  * version 3 along with OpenOffice.org.  If not, see
23  * <http://www.openoffice.org/license.html>
24  * for a copy of the LGPLv3 License.
25  *
26  ************************************************************************/
27 
28 #include "vbabutton.hxx"
29 #include "vbanewfont.hxx"
30 
31 using namespace com::sun::star;
32 using namespace ooo::vba;
33 
34 
35 const static rtl::OUString LABEL( RTL_CONSTASCII_USTRINGPARAM("Label") );
36 ScVbaButton::ScVbaButton( const uno::Reference< XHelperInterface >& xParent, const uno::Reference< uno::XComponentContext >& xContext, const uno::Reference< uno::XInterface >& xControl, const uno::Reference< frame::XModel >& xModel, AbstractGeometryAttributes* pGeomHelper ) : ButtonImpl_BASE( xParent, xContext, xControl, xModel, pGeomHelper )
37 {
38 }
39 
40 // Attributes
41 rtl::OUString SAL_CALL
42 ScVbaButton::getCaption() throw (css::uno::RuntimeException)
43 {
44     rtl::OUString Label;
45     m_xProps->getPropertyValue( LABEL ) >>= Label;
46     return Label;
47 }
48 
49 void SAL_CALL
50 ScVbaButton::setCaption( const rtl::OUString& _caption ) throw (::com::sun::star::uno::RuntimeException)
51 {
52     m_xProps->setPropertyValue( LABEL, uno::makeAny( _caption ) );
53 }
54 
55 sal_Bool SAL_CALL ScVbaButton::getAutoSize() throw (uno::RuntimeException)
56 {
57     return sal_False;
58 }
59 
60 void SAL_CALL ScVbaButton::setAutoSize( sal_Bool /*bAutoSize*/ ) throw (uno::RuntimeException)
61 {
62 }
63 
64 sal_Bool SAL_CALL ScVbaButton::getCancel() throw (uno::RuntimeException)
65 {
66     return sal_False;
67 }
68 
69 void SAL_CALL ScVbaButton::setCancel( sal_Bool /*bCancel*/ ) throw (uno::RuntimeException)
70 {
71 }
72 
73 sal_Bool SAL_CALL ScVbaButton::getDefault() throw (uno::RuntimeException)
74 {
75     return sal_False;
76 }
77 
78 void SAL_CALL ScVbaButton::setDefault( sal_Bool /*bDefault*/ ) throw (uno::RuntimeException)
79 {
80 }
81 
82 sal_Int32 SAL_CALL ScVbaButton::getBackColor() throw (uno::RuntimeException)
83 {
84     return 0;
85 }
86 
87 void SAL_CALL ScVbaButton::setBackColor( sal_Int32 /*nBackColor*/ ) throw (uno::RuntimeException)
88 {
89 }
90 
91 sal_Int32 SAL_CALL ScVbaButton::getForeColor() throw (uno::RuntimeException)
92 {
93     return 0;
94 }
95 
96 void SAL_CALL ScVbaButton::setForeColor( sal_Int32 /*nForeColor*/ ) throw (uno::RuntimeException)
97 {
98 }
99 
100 uno::Reference< msforms::XNewFont > SAL_CALL ScVbaButton::getFont() throw (uno::RuntimeException)
101 {
102     return new VbaNewFont( this, mxContext, m_xProps );
103 }
104 
105 rtl::OUString&
106 ScVbaButton::getServiceImplName()
107 {
108 	static rtl::OUString sImplName( RTL_CONSTASCII_USTRINGPARAM("ScVbaButton") );
109 	return sImplName;
110 }
111 
112 uno::Sequence< rtl::OUString >
113 ScVbaButton::getServiceNames()
114 {
115 	static uno::Sequence< rtl::OUString > aServiceNames;
116 	if ( aServiceNames.getLength() == 0 )
117 	{
118 		aServiceNames.realloc( 1 );
119 		aServiceNames[ 0 ] = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ooo.vba.msforms.Button" ) );
120 	}
121 	return aServiceNames;
122 }
123