1*1d2dbeb0SAndrew Rist /************************************************************** 2cdf0e10cSrcweir * 3*1d2dbeb0SAndrew Rist * Licensed to the Apache Software Foundation (ASF) under one 4*1d2dbeb0SAndrew Rist * or more contributor license agreements. See the NOTICE file 5*1d2dbeb0SAndrew Rist * distributed with this work for additional information 6*1d2dbeb0SAndrew Rist * regarding copyright ownership. The ASF licenses this file 7*1d2dbeb0SAndrew Rist * to you under the Apache License, Version 2.0 (the 8*1d2dbeb0SAndrew Rist * "License"); you may not use this file except in compliance 9*1d2dbeb0SAndrew Rist * with the License. You may obtain a copy of the License at 10*1d2dbeb0SAndrew Rist * 11*1d2dbeb0SAndrew Rist * http://www.apache.org/licenses/LICENSE-2.0 12*1d2dbeb0SAndrew Rist * 13*1d2dbeb0SAndrew Rist * Unless required by applicable law or agreed to in writing, 14*1d2dbeb0SAndrew Rist * software distributed under the License is distributed on an 15*1d2dbeb0SAndrew Rist * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY 16*1d2dbeb0SAndrew Rist * KIND, either express or implied. See the License for the 17*1d2dbeb0SAndrew Rist * specific language governing permissions and limitations 18*1d2dbeb0SAndrew Rist * under the License. 19*1d2dbeb0SAndrew Rist * 20*1d2dbeb0SAndrew Rist *************************************************************/ 21*1d2dbeb0SAndrew Rist 22*1d2dbeb0SAndrew Rist 23cdf0e10cSrcweir #ifndef SW_VBA_SYSTEM_HXX 24cdf0e10cSrcweir #define SW_VBA_SYSTEM_HXX 25cdf0e10cSrcweir 26cdf0e10cSrcweir #include <ooo/vba/word/XSystem.hpp> 27cdf0e10cSrcweir #include <vbahelper/vbahelperinterface.hxx> 28cdf0e10cSrcweir #include <cppuhelper/implbase1.hxx> 29cdf0e10cSrcweir #include <vbahelper/vbapropvalue.hxx> 30cdf0e10cSrcweir 31cdf0e10cSrcweir typedef InheritedHelperInterfaceImpl1< ooo::vba::word::XSystem > SwVbaSystem_BASE; 32cdf0e10cSrcweir 33cdf0e10cSrcweir class PrivateProfileStringListener : public PropListener 34cdf0e10cSrcweir { 35cdf0e10cSrcweir private: 36cdf0e10cSrcweir rtl::OUString maFileName; 37cdf0e10cSrcweir ByteString maGroupName; 38cdf0e10cSrcweir ByteString maKey; 39cdf0e10cSrcweir public: PrivateProfileStringListener()40cdf0e10cSrcweir PrivateProfileStringListener(){}; 41cdf0e10cSrcweir virtual ~PrivateProfileStringListener(); 42cdf0e10cSrcweir void Initialize( const rtl::OUString& rFileName, const ByteString& rGroupName, const ByteString& rKey ); 43cdf0e10cSrcweir 44cdf0e10cSrcweir //PropListener 45cdf0e10cSrcweir virtual void setValueEvent( const css::uno::Any& value ); 46cdf0e10cSrcweir virtual css::uno::Any getValueEvent(); 47cdf0e10cSrcweir }; 48cdf0e10cSrcweir 49cdf0e10cSrcweir class SwVbaSystem : public SwVbaSystem_BASE 50cdf0e10cSrcweir { 51cdf0e10cSrcweir private: 52cdf0e10cSrcweir PrivateProfileStringListener maPrivateProfileStringListener; 53cdf0e10cSrcweir 54cdf0e10cSrcweir public: 55cdf0e10cSrcweir SwVbaSystem( css::uno::Reference< css::uno::XComponentContext >& m_xContext ); 56cdf0e10cSrcweir virtual ~SwVbaSystem(); 57cdf0e10cSrcweir 58cdf0e10cSrcweir // XSystem 59cdf0e10cSrcweir virtual sal_Int32 SAL_CALL getCursor() throw ( css::uno::RuntimeException ); 60cdf0e10cSrcweir virtual void SAL_CALL setCursor( sal_Int32 _cursor ) throw ( css::uno::RuntimeException ); 61cdf0e10cSrcweir virtual css::uno::Any SAL_CALL PrivateProfileString( const rtl::OUString& rFilename, const rtl::OUString& rSection, const rtl::OUString& rKey ) throw ( css::uno::RuntimeException ); 62cdf0e10cSrcweir 63cdf0e10cSrcweir // XHelperInterface 64cdf0e10cSrcweir virtual rtl::OUString& getServiceImplName(); 65cdf0e10cSrcweir virtual css::uno::Sequence<rtl::OUString> getServiceNames(); 66cdf0e10cSrcweir }; 67cdf0e10cSrcweir #endif /* SW_VBA_SYSTEM_HXX */ 68