20#include <com/sun/star/beans/XPropertySet.hpp>
21#include <com/sun/star/container/XIndexAccess.hpp>
22#include <com/sun/star/awt/FontWeight.hpp>
23#include <com/sun/star/awt/FontStrikeout.hpp>
24#include <com/sun/star/awt/FontSlant.hpp>
32#define VBAFONTBASE_PROPNAME( ascii_normal, ascii_control ) \
33 mbFormControl ? OUString( ascii_control ) : OUString( ascii_normal )
36 const uno::Reference< XHelperInterface >& xParent,
37 const uno::Reference< uno::XComponentContext >& xContext,
38 const uno::Reference< css::container::XIndexAccess >& xPalette,
39 const uno::Reference< beans::XPropertySet >& xPropertySet,
43 mxFont( xPropertySet,
uno::UNO_SET_THROW ),
44 mxPalette( xPalette,
uno::UNO_SET_THROW ),
46 mbFormControl( bFormControl )
72 mxFont->setPropertyValue(
"CharEscapementHeight" ,
uno::Any(nValue2) );
103 mxFont->setPropertyValue(
"CharEscapementHeight" ,
uno::Any(nValue2) );
114 mxFont->getPropertyValue(
"CharEscapement" ) >>=
nValue;
127 aVal <<= static_cast< sal_Int16 >( fVal );
158 sal_Int32 nColor = 0;
167 sal_Int32 nElems =
mxPalette->getCount();
171 sal_Int32 nPaletteColor = 0;
173 if ( nPaletteColor == nColor )
187 double fBoldValue = awt::FontWeight::NORMAL;
189 fBoldValue = awt::FontWeight::BOLD;
199 return uno::Any( fValue == awt::FontWeight::BOLD );
207 short nValue = awt::FontStrikeout::NONE;
209 nValue = awt::FontStrikeout::SINGLE;
225 mxFont->setPropertyValue(
"CharShadowed" , aValue );
239 awt::FontSlant
nValue = awt::FontSlant_NONE;
241 nValue = awt::FontSlant_ITALIC;
250 return uno::Any( aFS == awt::FontSlant_ITALIC );
virtual void SAL_CALL setSize(const css::uno::Any &_size) override
static const short SUPERSCRIPT
static const short NORMAL
virtual css::uno::Any SAL_CALL getSubscript() override
static const sal_Int8 SUPERSCRIPTHEIGHT
static const short SUBSCRIPT
virtual css::uno::Any SAL_CALL getName() override
virtual css::uno::Any SAL_CALL getItalic() override
virtual css::uno::Any SAL_CALL getColor() override
virtual void SAL_CALL setColor(const css::uno::Any &_color) override
virtual ~VbaFontBase() override
virtual void SAL_CALL setSubscript(const css::uno::Any &_subscript) override
virtual void SAL_CALL setName(const css::uno::Any &_name) override
virtual void SAL_CALL setColorIndex(const css::uno::Any &_colorindex) override
virtual css::uno::Any SAL_CALL getSuperscript() override
virtual css::uno::Any SAL_CALL getColorIndex() override
VbaFontBase(const css::uno::Reference< ov::XHelperInterface > &xParent, const css::uno::Reference< css::uno::XComponentContext > &xContext, const css::uno::Reference< css::container::XIndexAccess > &xPalette, const css::uno::Reference< css::beans::XPropertySet > &xPropertySet, Component eWhich, bool bFormControl=false)
virtual css::uno::Any SAL_CALL getSize() override
virtual void SAL_CALL setSuperscript(const css::uno::Any &_superscript) override
virtual css::uno::Any SAL_CALL getShadow() override
virtual void SAL_CALL setBold(const css::uno::Any &_bold) override
virtual css::uno::Any SAL_CALL getStrikethrough() override
virtual void SAL_CALL setStrikethrough(const css::uno::Any &_strikethrough) override
css::uno::Reference< css::beans::XPropertySet > mxFont
virtual void SAL_CALL setShadow(const css::uno::Any &_shadow) override
virtual void SAL_CALL setItalic(const css::uno::Any &_italic) override
virtual css::uno::Any SAL_CALL getBold() override
css::uno::Reference< css::container::XIndexAccess > mxPalette
static const short NORMALHEIGHT
static const sal_Int8 SUBSCRIPTHEIGHT
sal_Int32 XLRGBToOORGB(sal_Int32 nCol)
sal_Int32 OORGBToXLRGB(sal_Int32 nCol)
uno::Reference< rendering::XCanvasFont > mxFont
#define VBAFONTBASE_PROPNAME(ascii_normal, ascii_control)