1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
|
/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
/*
* This file is part of the LibreOffice project.
*
* This Source Code Form is subject to the terms of the Mozilla Public
* License, v. 2.0. If a copy of the MPL was not distributed with this
* file, You can obtain one at http://mozilla.org/MPL/2.0/.
*
* This file incorporates work covered by the following license notice:
*
* Licensed to the Apache Software Foundation (ASF) under one or more
* contributor license agreements. See the NOTICE file distributed
* with this work for additional information regarding copyright
* ownership. The ASF licenses this file to you under the Apache
* License, Version 2.0 (the "License"); you may not use this file
* except in compliance with the License. You may obtain a copy of
* the License at http://www.apache.org/licenses/LICENSE-2.0 .
*/
#ifndef INCLUDED_VBAHELPER_SOURCE_MSFORMS_VBACONTROL_HXX
#define INCLUDED_VBAHELPER_SOURCE_MSFORMS_VBACONTROL_HXX
#include <com/sun/star/beans/XPropertySet.hpp>
#include <com/sun/star/uno/XComponentContext.hpp>
#include <com/sun/star/drawing/XControlShape.hpp>
#include <com/sun/star/awt/XControl.hpp>
#include <com/sun/star/awt/XWindowPeer.hpp>
#include <com/sun/star/script/ScriptEvent.hpp>
#include <ooo/vba/msforms/XControl.hpp>
#include <vbahelper/vbahelper.hxx>
#include <vbahelper/vbahelperinterface.hxx>
#include <memory>
typedef InheritedHelperInterfaceWeakImpl< ov::msforms::XControl > ControlImpl_BASE;
class ScVbaControl : public ControlImpl_BASE
{
private:
css::uno::Reference< css::lang::XEventListener > m_xEventListener;
css::uno::Reference< css::awt::XControl > m_xEmptyFormControl;
protected:
// awt control has nothing similar to Tag property of Mso controls,
// whether it is necessary is another question
OUString m_aControlTag;
OUString m_sLibraryAndCodeName;
std::unique_ptr< ov::AbstractGeometryAttributes > mpGeometryHelper;
css::uno::Reference< css::beans::XPropertySet > m_xProps;
css::uno::Reference< css::uno::XInterface > m_xControl;
css::uno::Reference< css::frame::XModel > m_xModel;
/// @throws css::uno::RuntimeException
css::uno::Reference< css::awt::XWindowPeer > getWindowPeer();
void fireChangeEvent();
void fireClickEvent();
public:
ScVbaControl( 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> pHelper );
virtual ~ScVbaControl() override;
// This class will own the helper, so make sure it is allocated from
// the heap
void setGeometryHelper( std::unique_ptr<ov::AbstractGeometryAttributes> pHelper );
// sets the name of the associated library ( used for UserForm controls )
void setLibraryAndCodeName( const OUString& sLibCodeName ) { m_sLibraryAndCodeName = sLibCodeName; }
// XControl
virtual sal_Bool SAL_CALL getEnabled() override;
virtual void SAL_CALL setEnabled( sal_Bool _enabled ) override;
virtual sal_Bool SAL_CALL getVisible() override;
virtual void SAL_CALL setVisible( sal_Bool _visible ) override;
virtual double SAL_CALL getHeight() override;
virtual void SAL_CALL setHeight( double _height ) override;
virtual double SAL_CALL getWidth() override;
virtual void SAL_CALL setWidth( double _width ) override;
virtual double SAL_CALL getLeft() override;
virtual void SAL_CALL setLeft( double _left ) override;
virtual double SAL_CALL getTop() override;
virtual void SAL_CALL setTop( double _top ) override;
virtual void SAL_CALL SetFocus( ) override;
virtual void SAL_CALL Move( double Left, double Top, const css::uno::Any& Width, const css::uno::Any& Height ) override;
virtual void SAL_CALL fireEvent( const css::script::ScriptEvent& evt ) override;
virtual css::uno::Reference< css::uno::XInterface > SAL_CALL getObject() override;
virtual OUString SAL_CALL getControlSource() override;
virtual void SAL_CALL setControlSource( const OUString& _controlsource ) override;
virtual OUString SAL_CALL getRowSource() override;
virtual void SAL_CALL setRowSource( const OUString& _rowsource ) override;
virtual OUString SAL_CALL getName() override;
virtual void SAL_CALL setName( const OUString& _name ) override;
virtual OUString SAL_CALL getControlTipText() override;
virtual void SAL_CALL setControlTipText( const OUString& ) override;
virtual OUString SAL_CALL getTag() override;
virtual void SAL_CALL setTag( const OUString& aTag ) override;
virtual sal_Int32 SAL_CALL getTabIndex() override;
virtual void SAL_CALL setTabIndex( sal_Int32 nTabIndex ) override;
virtual ::sal_Int32 SAL_CALL getMousePointer() override;
virtual void SAL_CALL setMousePointer( ::sal_Int32 _mousepointer ) override;
//remove resource because ooo.vba.excel.XControl is a wrapper of com.sun.star.drawing.XControlShape
/// @throws css::uno::RuntimeException
void removeResource();
/// @throws css::uno::RuntimeException
virtual ::sal_Int32 SAL_CALL getForeColor();
//XHelperInterface
virtual OUString getServiceImplName() override;
virtual css::uno::Sequence<OUString> getServiceNames() override;
//General helper methods for properties (may or may not be relevant for all
//controls)
/// @throws css::uno::RuntimeException
sal_Int32 getBackColor();
/// @throws css::uno::RuntimeException
void setBackColor( sal_Int32 nBackColor );
/// @throws css::uno::RuntimeException
bool getAutoSize() const;
/// @throws css::uno::RuntimeException
void setAutoSize( bool bAutoSize );
/// @throws css::uno::RuntimeException
bool getLocked();
/// @throws css::uno::RuntimeException
void setLocked( bool bAutoSize );
};
namespace ScVbaControlFactory
{
/// @throws css::uno::RuntimeException
css::uno::Reference< ov::msforms::XControl > createShapeControl(
const css::uno::Reference< css::uno::XComponentContext >& xContext,
const css::uno::Reference< css::drawing::XControlShape >& xControlShape,
const css::uno::Reference< css::frame::XModel >& xModel );
/// @throws css::uno::RuntimeException
css::uno::Reference< ov::msforms::XControl > createUserformControl(
const css::uno::Reference< css::uno::XComponentContext >& xContext,
const css::uno::Reference< css::awt::XControl >& xControl,
const css::uno::Reference< css::awt::XControl >& xDialog,
const css::uno::Reference< css::frame::XModel >& xModel,
double fOffsetX, double fOffsetY );
}
#endif // INCLUDED_VBAHELPER_SOURCE_MSFORMS_VBACONTROL_HXX
/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
|
