1 /**************************************************************
2  *
3  * Licensed to the Apache Software Foundation (ASF) under one
4  * or more contributor license agreements.  See the NOTICE file
5  * distributed with this work for additional information
6  * regarding copyright ownership.  The ASF licenses this file
7  * to you under the Apache License, Version 2.0 (the
8  * "License"); you may not use this file except in compliance
9  * with the License.  You may obtain a copy of the License at
10  *
11  *   http://www.apache.org/licenses/LICENSE-2.0
12  *
13  * Unless required by applicable law or agreed to in writing,
14  * software distributed under the License is distributed on an
15  * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
16  * KIND, either express or implied.  See the License for the
17  * specific language governing permissions and limitations
18  * under the License.
19  *
20  *************************************************************/
21 
22 
23 
24 #include <vbanewfont.hxx>
25 #include <com/sun/star/awt/FontWeight.hpp>
26 #include <com/sun/star/awt/FontSlant.hpp>
27 #include <com/sun/star/awt/FontStrikeout.hpp>
28 #include <com/sun/star/awt/FontUnderline.hpp>
29 
30 using namespace ::com::sun::star;
31 using namespace ::ooo::vba;
32 
33 // ============================================================================
34 
35 VbaNewFont::VbaNewFont(
36         const uno::Reference< XHelperInterface >& rxParent,
37         const uno::Reference< uno::XComponentContext >& rxContext,
38         const uno::Reference< beans::XPropertySet >& rxModelProps ) throw (uno::RuntimeException) :
39     VbaNewFont_BASE( rxParent, rxContext ),
40     mxProps( rxModelProps, uno::UNO_SET_THROW )
41 {
42 }
43 
44 // XNewFont attributes
45 
46 ::rtl::OUString SAL_CALL VbaNewFont::getName() throw (uno::RuntimeException)
47 {
48     uno::Any aAny = mxProps->getPropertyValue( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "FontName" ) ) );
49     return aAny.get< ::rtl::OUString >();
50 }
51 
52 void SAL_CALL VbaNewFont::setName( const ::rtl::OUString& rName ) throw (uno::RuntimeException)
53 {
54     mxProps->setPropertyValue(
55         ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "FontName" ) ),
56         uno::Any( rName ) );
57 }
58 
59 double SAL_CALL VbaNewFont::getSize() throw (uno::RuntimeException)
60 {
61     uno::Any aAny = mxProps->getPropertyValue( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "FontHeight" ) ) );
62     return aAny.get< float >();
63 }
64 
65 void SAL_CALL VbaNewFont::setSize( double fSize ) throw (uno::RuntimeException)
66 {
67     mxProps->setPropertyValue(
68         ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "FontHeight" ) ),
69         uno::Any( static_cast< float >( fSize ) ) );
70 }
71 
72 sal_Int16 SAL_CALL VbaNewFont::getCharset() throw (uno::RuntimeException)
73 {
74     uno::Any aAny = mxProps->getPropertyValue( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "FontCharset" ) ) );
75     return rtl_getBestWindowsCharsetFromTextEncoding( static_cast< rtl_TextEncoding >( aAny.get< sal_Int16 >() ) );
76 }
77 
78 void SAL_CALL VbaNewFont::setCharset( sal_Int16 nCharset ) throw (uno::RuntimeException)
79 {
80     rtl_TextEncoding eFontEnc = RTL_TEXTENCODING_DONTKNOW;
81     if( (0 <= nCharset) && (nCharset <= SAL_MAX_UINT8) )
82         eFontEnc = rtl_getTextEncodingFromWindowsCharset( static_cast< sal_uInt8 >( nCharset ) );
83     if( eFontEnc == RTL_TEXTENCODING_DONTKNOW )
84         throw uno::RuntimeException();
85     mxProps->setPropertyValue(
86         ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "FontCharset" ) ),
87         uno::Any( static_cast< sal_Int16 >( eFontEnc ) ) );
88 }
89 
90 sal_Int16 SAL_CALL VbaNewFont::getWeight() throw (uno::RuntimeException)
91 {
92     return getBold() ? 700 : 400;
93 }
94 
95 void SAL_CALL VbaNewFont::setWeight( sal_Int16 nWeight ) throw (uno::RuntimeException)
96 {
97     setBold( nWeight >= 700 );
98 }
99 
100 sal_Bool SAL_CALL VbaNewFont::getBold() throw (uno::RuntimeException)
101 {
102     uno::Any aAny = mxProps->getPropertyValue( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "FontWeight" ) ) );
103     return aAny.get< float >() > awt::FontWeight::NORMAL;
104 }
105 
106 void SAL_CALL VbaNewFont::setBold( sal_Bool bBold ) throw (uno::RuntimeException)
107 {
108     mxProps->setPropertyValue(
109         ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "FontWeight" ) ),
110         uno::Any( bBold ? awt::FontWeight::BOLD : awt::FontWeight::NORMAL ) );
111 }
112 
113 sal_Bool SAL_CALL VbaNewFont::getItalic() throw (uno::RuntimeException)
114 {
115     uno::Any aAny = mxProps->getPropertyValue( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "FontSlant" ) ) );
116     return aAny.get< awt::FontSlant >() != awt::FontSlant_NONE;
117 }
118 
119 void SAL_CALL VbaNewFont::setItalic( sal_Bool bItalic ) throw (uno::RuntimeException)
120 {
121     mxProps->setPropertyValue(
122         ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "FontSlant" ) ),
123         uno::Any( bItalic ? awt::FontSlant_ITALIC : awt::FontSlant_NONE ) );
124 }
125 
126 sal_Bool SAL_CALL VbaNewFont::getUnderline() throw (uno::RuntimeException)
127 {
128     uno::Any aAny = mxProps->getPropertyValue( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "FontUnderline" ) ) );
129     return aAny.get< sal_Int16 >() != awt::FontUnderline::NONE;
130 }
131 
132 void SAL_CALL VbaNewFont::setUnderline( sal_Bool bUnderline ) throw (uno::RuntimeException)
133 {
134     mxProps->setPropertyValue(
135         ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "FontUnderline" ) ),
136         uno::Any( bUnderline ? awt::FontUnderline::SINGLE : awt::FontUnderline::NONE ) );
137 }
138 
139 sal_Bool SAL_CALL VbaNewFont::getStrikethrough() throw (uno::RuntimeException)
140 {
141     uno::Any aAny = mxProps->getPropertyValue( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "FontStrikeout" ) ) );
142     return aAny.get< sal_Int16 >() != awt::FontStrikeout::NONE;
143 }
144 
145 void SAL_CALL VbaNewFont::setStrikethrough( sal_Bool bStrikethrough ) throw (uno::RuntimeException)
146 {
147     mxProps->setPropertyValue(
148         ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "FontStrikeout" ) ),
149         uno::Any( bStrikethrough ? awt::FontStrikeout::SINGLE : awt::FontStrikeout::NONE ) );
150 }
151 
152 // XHelperInterface
153 
154 VBAHELPER_IMPL_XHELPERINTERFACE( VbaNewFont, "ooo.vba.msforms.NewFont" )
155 
156 // ============================================================================
157