22#include <com/sun/star/text/XTextRange.hpp>
23#include <ooo/vba/msforms/fmBorderStyle.hpp>
24#include <ooo/vba/msforms/fmSpecialEffect.hpp>
29ScVbaTextBox::ScVbaTextBox(
const uno::Reference< ov::XHelperInterface >& xParent,
const uno::Reference< uno::XComponentContext >& xContext,
const uno::Reference< uno::XInterface >& xControl,
const uno::Reference< frame::XModel >& xModel, std::unique_ptr<AbstractGeometryAttributes> pGeomHelper,
bool bDialog )
65 uno::Reference< text::XTextRange > xTextRange(
m_xProps, uno::UNO_QUERY_THROW );
66 xTextRange->setString( _text );
70 if ( oldText != _text )
78 sal_Int16 nMaxLength = 0;
79 aValue >>= nMaxLength;
80 return static_cast<sal_Int32
>(nMaxLength);
86 sal_Int16 nTmp( _maxlength );
88 m_xProps->setPropertyValue(
"MaxTextLen" , aValue);
104 m_xProps->setPropertyValue(
"MultiLine" , aValue);
109 return msforms::fmSpecialEffect::fmSpecialEffectSunken;
119 return msforms::fmBorderStyle::fmBorderStyleNone;
170 return "ScVbaTextBox";
173uno::Sequence< OUString >
178 "ooo.vba.msforms.TextBox"
void setAutoSize(bool bAutoSize)
void setBackColor(sal_Int32 nBackColor)
void setLocked(bool bAutoSize)
virtual css::uno::Reference< ov::msforms::XNewFont > SAL_CALL getFont() override
virtual css::uno::Any SAL_CALL getValue() override
virtual sal_Bool SAL_CALL getLocked() override
virtual void SAL_CALL setAutoSize(sal_Bool bAutoSize) override
virtual sal_Int32 SAL_CALL getSpecialEffect() override
virtual void SAL_CALL setBackColor(sal_Int32 nBackColor) override
virtual void SAL_CALL setSpecialEffect(sal_Int32 nSpecialEffect) override
virtual void SAL_CALL setMaxLength(sal_Int32 _maxlength) override
virtual void SAL_CALL setValue(const css::uno::Any &_value) override
virtual void SAL_CALL setMultiline(sal_Bool _multiline) override
virtual sal_Bool SAL_CALL getMultiline() override
virtual void SAL_CALL setLocked(sal_Bool bAutoSize) override
virtual sal_Int32 SAL_CALL getTextLength() override
virtual void SAL_CALL setBorderStyle(sal_Int32 nBorderStyle) override
virtual OUString SAL_CALL getText() override
virtual sal_Int32 SAL_CALL getBackColor() override
virtual void SAL_CALL setText(const OUString &_text) override
virtual sal_Bool SAL_CALL getAutoSize() override
virtual css::uno::Sequence< OUString > getServiceNames() override
ScVbaTextBox(const css::uno::Reference< ov::XHelperInterface > &xParent, const css::uno::Reference< css::uno::XComponentContext > &xContext, const css::uno::Reference< css::uno::XInterface > &xControl, const css::uno::Reference< css::frame::XModel > &xModel, std::unique_ptr< ov::AbstractGeometryAttributes > pGeomHelper, bool bDialog=false)
virtual sal_Int32 SAL_CALL getMaxLength() override
virtual OUString getServiceImplName() override
virtual sal_Int32 SAL_CALL getBorderStyle() override
Sequence< OUString > aServiceNames
OUString extractStringFromAny(const uno::Any &rAny, bool bUppercaseBool)
Reference< XModel > xModel
cppu::ImplInheritanceHelper< ScVbaControl, ov::msforms::XTextBox, css::script::XDefaultProperty > TextBoxImpl_BASE