21#include <com/sun/star/awt/PosSize.hpp>
22#include <com/sun/star/awt/XWindow.hpp>
23#include <com/sun/star/awt/XWindow2.hpp>
24#include <com/sun/star/frame/XFrame.hpp>
25#include <com/sun/star/frame/XModel.hpp>
31 const uno::Reference< XHelperInterface >& xParent,
32 const uno::Reference< uno::XComponentContext >& xContext,
33 const css::uno::Reference< css::frame::XModel >& xModel,
34 const uno::Reference< frame::XController >& xController ) :
38 construct( xController );
42 uno::Reference< uno::XComponentContext >
const & xContext ) :
46 construct( getXSomethingFromArgs< frame::XController >( args, 2 ) );
61static void setPosSize(
const uno::Reference< awt::XWindow >& xWindow, sal_Int32 nValue, sal_Int16 nFlag )
63 css::awt::Rectangle aRect = xWindow->getPosSize();
66 case css::awt::PosSize::X:
67 xWindow->setPosSize(
nValue, aRect.Y, 0, 0, css::awt::PosSize::X );
69 case css::awt::PosSize::Y:
70 xWindow->setPosSize( aRect.X,
nValue, 0, 0, css::awt::PosSize::Y );
72 case css::awt::PosSize::WIDTH:
73 xWindow->setPosSize( 0, 0,
nValue, aRect.Height, css::awt::PosSize::WIDTH );
75 case css::awt::PosSize::HEIGHT:
76 xWindow->setPosSize( 0, 0, aRect.Width,
nValue, css::awt::PosSize::HEIGHT );
134 return "VbaWindowBase";
137uno::Sequence< OUString >
142 "ooo.vba.VbaWindowBase"
149 return uno::Reference< frame::XController >(
m_xController, uno::UNO_SET_THROW );
154 return uno::Reference< awt::XWindow >(
m_xWindow, uno::UNO_SET_THROW );
159 return uno::Reference< awt::XWindow2 >(
getWindow(), uno::UNO_QUERY_THROW );
164 if( !
xController.is() )
throw uno::RuntimeException();
165 uno::Reference< frame::XFrame >
xFrame(
xController->getFrame(), uno::UNO_SET_THROW );
166 uno::Reference< awt::XWindow > xWindow(
xFrame->getContainerWindow(), uno::UNO_SET_THROW );
virtual void SAL_CALL setHeight(sal_Int32 _height) override
css::uno::Reference< css::awt::XWindow2 > getWindow2() const
virtual OUString getServiceImplName() override
virtual sal_Int32 SAL_CALL getTop() override
virtual void SAL_CALL setWidth(sal_Int32 _width) override
VbaWindowBase(const css::uno::Reference< ov::XHelperInterface > &xParent, const css::uno::Reference< css::uno::XComponentContext > &xContext, const css::uno::Reference< css::frame::XModel > &xModel, const css::uno::Reference< css::frame::XController > &xController)
void construct(const css::uno::Reference< css::frame::XController > &xController)
virtual sal_Int32 SAL_CALL getHeight() override
virtual css::uno::Sequence< OUString > getServiceNames() override
virtual void SAL_CALL setVisible(sal_Bool _visible) override
css::uno::WeakReference< css::awt::XWindow > m_xWindow
css::uno::Reference< css::awt::XWindow > getWindow() const
virtual sal_Int32 SAL_CALL getLeft() override
virtual sal_Bool SAL_CALL getVisible() override
css::uno::WeakReference< css::frame::XController > m_xController
virtual sal_Int32 SAL_CALL getWidth() override
virtual void SAL_CALL setLeft(sal_Int32 _left) override
virtual void SAL_CALL setTop(sal_Int32 _top) override
css::uno::Reference< css::frame::XController > getController() const
Reference< frame::XModel > m_xModel
Sequence< OUString > aServiceNames
css::uno::Reference< T > getXSomethingFromArgs(css::uno::Sequence< css::uno::Any > const &args, sal_Int32 nPos, bool bCanBeNull=true)
Reference< XController > xController
Reference< XFrame > xFrame
Reference< XModel > xModel
static void setPosSize(const uno::Reference< awt::XWindow > &xWindow, sal_Int32 nValue, sal_Int16 nFlag)