LibreOffice Module vbahelper (master) 1
vbaprogressbar.cxx
Go to the documentation of this file.
1/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
2/*
3 * This file is part of the LibreOffice project.
4 *
5 * This Source Code Form is subject to the terms of the Mozilla Public
6 * License, v. 2.0. If a copy of the MPL was not distributed with this
7 * file, You can obtain one at http://mozilla.org/MPL/2.0/.
8 *
9 * This file incorporates work covered by the following license notice:
10 *
11 * Licensed to the Apache Software Foundation (ASF) under one or more
12 * contributor license agreements. See the NOTICE file distributed
13 * with this work for additional information regarding copyright
14 * ownership. The ASF licenses this file to you under the Apache
15 * License, Version 2.0 (the "License"); you may not use this file
16 * except in compliance with the License. You may obtain a copy of
17 * the License at http://www.apache.org/licenses/LICENSE-2.0 .
18 */
19#include "vbaprogressbar.hxx"
20
21using namespace com::sun::star;
22using namespace ooo::vba;
23
24// uno servicename com.sun.star.awt.UnoControlProgressBarMode
25constexpr OUStringLiteral SVALUE( u"ProgressValue" );
26
27ScVbaProgressBar::ScVbaProgressBar( 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<ov::AbstractGeometryAttributes> pGeomHelper )
28 : ProgressBarImpl_BASE( xParent, xContext, xControl, xModel, std::move(pGeomHelper) )
29{
30}
31
32// Attributes
33uno::Any SAL_CALL
35{
36 return m_xProps->getPropertyValue( SVALUE );
37}
38
39void SAL_CALL
41{
42 m_xProps->setPropertyValue( SVALUE, _value );
43}
44
45OUString
47{
48 return "ScVbaProgressBar";
49}
50
51uno::Sequence< OUString >
53{
54 static uno::Sequence< OUString > const aServiceNames
55 {
56 "ooo.vba.msforms.Label"
57 };
58 return aServiceNames;
59}
60
61/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
Reference< XPropertySet > m_xProps
virtual void SAL_CALL setValue(const css::uno::Any &_value) override
virtual css::uno::Sequence< OUString > getServiceNames() override
virtual OUString getServiceImplName() override
ScVbaProgressBar(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)
virtual css::uno::Any SAL_CALL getValue() override
Sequence< OUString > aServiceNames
Reference< XModel > xModel
constexpr OUStringLiteral SVALUE(u"ProgressValue")
cppu::ImplInheritanceHelper< ScVbaControl, ov::msforms::XProgressBar, css::script::XDefaultProperty > ProgressBarImpl_BASE