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 #ifndef INCLUDED_SW_SOURCE_UI_VBA_VBASYSTEM_HXX 20 #define INCLUDED_SW_SOURCE_UI_VBA_VBASYSTEM_HXX 21 22 #include <ooo/vba/word/XSystem.hpp> 23 #include <vbahelper/vbahelperinterface.hxx> 24 #include <vbahelper/vbapropvalue.hxx> 25 26 typedef InheritedHelperInterfaceWeakImpl< ooo::vba::word::XSystem > SwVbaSystem_BASE; 27 28 class PrivateProfileStringListener : public PropListener 29 { 30 private: 31 OUString maFileName; 32 OString maGroupName; 33 OString maKey; 34 public: PrivateProfileStringListener()35 PrivateProfileStringListener(){}; 36 virtual ~PrivateProfileStringListener(); 37 void Initialize( const OUString& rFileName, const OString& rGroupName, const OString& rKey ); 38 39 //PropListener 40 virtual void setValueEvent( const css::uno::Any& value ) override; 41 virtual css::uno::Any getValueEvent() override; 42 }; 43 44 class SwVbaSystem : public SwVbaSystem_BASE 45 { 46 private: 47 PrivateProfileStringListener maPrivateProfileStringListener; 48 49 public: 50 explicit SwVbaSystem( css::uno::Reference< css::uno::XComponentContext > const & m_xContext ); 51 virtual ~SwVbaSystem() override; 52 53 // XSystem 54 virtual sal_Int32 SAL_CALL getCursor() override; 55 virtual void SAL_CALL setCursor( sal_Int32 _cursor ) override; 56 virtual css::uno::Any SAL_CALL PrivateProfileString( const OUString& rFilename, const OUString& rSection, const OUString& rKey ) override; 57 58 // XHelperInterface 59 virtual OUString getServiceImplName() override; 60 virtual css::uno::Sequence<OUString> getServiceNames() override; 61 }; 62 #endif // INCLUDED_SW_SOURCE_UI_VBA_VBASYSTEM_HXX 63 64 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */ 65