diff options
author | Noel Power <noel.power@novell.com> | 2012-04-20 18:25:45 +0100 |
---|---|---|
committer | Noel Power <noel.power@novell.com> | 2012-04-20 18:26:21 +0100 |
commit | 101132c28a8f084612106337f4cafe21c535dea8 (patch) | |
tree | 9e4e08d033be4e37414578ea726222ad7adb47e9 | |
parent | vba api Application.DisplayScrollBars implementation bnc#757840 (diff) | |
download | core-101132c28a8f084612106337f4cafe21c535dea8.tar.gz core-101132c28a8f084612106337f4cafe21c535dea8.zip |
add stub vba implementation Application methods
added Application.DisplayExcel4Menus, Application.DisplayNoteIndicator, Application.ShowWindowsInTaskbar. Althought these attributes of the Application object don't do anything they allow setting and retrieval of the state. We could make a usable implementation for Application.DisplayNoteIndicator, the others though don't really seem to have any useful equivalent in the libreoffice world
-rw-r--r-- | oovbaapi/ooo/vba/excel/XApplication.idl | 3 | ||||
-rw-r--r-- | sc/source/ui/vba/vbaapplication.cxx | 45 | ||||
-rw-r--r-- | sc/source/ui/vba/vbaapplication.hxx | 7 |
3 files changed, 53 insertions, 2 deletions
diff --git a/oovbaapi/ooo/vba/excel/XApplication.idl b/oovbaapi/ooo/vba/excel/XApplication.idl index 866ab21decc0..baf646879e12 100644 --- a/oovbaapi/ooo/vba/excel/XApplication.idl +++ b/oovbaapi/ooo/vba/excel/XApplication.idl @@ -76,6 +76,9 @@ interface XApplication [attribute] long EnableCancelKey; [attribute] boolean DisplayFullScreen; [attribute] boolean DisplayScrollBars; + [attribute] boolean DisplayExcel4Menus; + [attribute] boolean DisplayNoteIndicator; + [attribute] boolean ShowWindowsInTaskbar; void setDefaultFilePath([in] string DefaultFilePath) raises(com::sun::star::script::BasicErrorException); diff --git a/sc/source/ui/vba/vbaapplication.cxx b/sc/source/ui/vba/vbaapplication.cxx index 49638821dc9f..bb317328db60 100644 --- a/sc/source/ui/vba/vbaapplication.cxx +++ b/sc/source/ui/vba/vbaapplication.cxx @@ -154,14 +154,19 @@ struct ScVbaAppSettings sal_Int32 mnCalculation; sal_Bool mbDisplayAlerts; sal_Bool mbEnableEvents; - + sal_Bool mbExcel4Menus; + sal_Bool mbDisplayNoteIndicator; + sal_Bool mbShowWindowsInTaskbar; explicit ScVbaAppSettings(); }; ScVbaAppSettings::ScVbaAppSettings() : mnCalculation( excel::XlCalculation::xlCalculationAutomatic ), mbDisplayAlerts( sal_True ), - mbEnableEvents( sal_True ) + mbEnableEvents( sal_True ), + mbExcel4Menus( sal_False ), + mbDisplayNoteIndicator( sal_True ), + mbShowWindowsInTaskbar( sal_True ) { } @@ -916,6 +921,42 @@ ScVbaApplication::setDisplayScrollBars( sal_Bool bSet ) throw (uno::RuntimeExce } sal_Bool SAL_CALL +ScVbaApplication::getDisplayExcel4Menus() throw (css::uno::RuntimeException) +{ + return mrAppSettings.mbExcel4Menus; +} + +void SAL_CALL +ScVbaApplication::setDisplayExcel4Menus( sal_Bool bSet ) throw (css::uno::RuntimeException) +{ + mrAppSettings.mbExcel4Menus = bSet; +} + +sal_Bool SAL_CALL +ScVbaApplication::getDisplayNoteIndicator() throw (css::uno::RuntimeException) +{ + return mrAppSettings.mbDisplayNoteIndicator; +} + +void SAL_CALL +ScVbaApplication::setDisplayNoteIndicator( sal_Bool bSet ) throw (css::uno::RuntimeException) +{ + mrAppSettings.mbDisplayNoteIndicator = bSet; +} + +sal_Bool SAL_CALL +ScVbaApplication::getShowWindowsInTaskbar() throw (css::uno::RuntimeException) +{ + return mrAppSettings.mbShowWindowsInTaskbar; +} + +void SAL_CALL +ScVbaApplication::setShowWindowsInTaskbar( sal_Bool bSet ) throw (css::uno::RuntimeException) +{ + mrAppSettings.mbShowWindowsInTaskbar = bSet; +} + +sal_Bool SAL_CALL ScVbaApplication::getVisible() throw (uno::RuntimeException) { sal_Bool bVisible = sal_True; diff --git a/sc/source/ui/vba/vbaapplication.hxx b/sc/source/ui/vba/vbaapplication.hxx index 9b1c5282dc5c..0f72d7bfaef5 100644 --- a/sc/source/ui/vba/vbaapplication.hxx +++ b/sc/source/ui/vba/vbaapplication.hxx @@ -126,6 +126,13 @@ public: virtual void SAL_CALL setDisplayFullScreen( sal_Bool bSet ) throw (css::uno::RuntimeException); virtual sal_Bool SAL_CALL getDisplayScrollBars() throw (css::uno::RuntimeException); virtual void SAL_CALL setDisplayScrollBars( sal_Bool bSet ) throw (css::uno::RuntimeException); + virtual sal_Bool SAL_CALL getDisplayExcel4Menus() throw (css::uno::RuntimeException); + virtual void SAL_CALL setDisplayExcel4Menus( sal_Bool bSet ) throw (css::uno::RuntimeException); + + virtual sal_Bool SAL_CALL getDisplayNoteIndicator() throw (css::uno::RuntimeException); + virtual void SAL_CALL setDisplayNoteIndicator( sal_Bool bSet ) throw (css::uno::RuntimeException); + virtual sal_Bool SAL_CALL getShowWindowsInTaskbar() throw (css::uno::RuntimeException); + virtual void SAL_CALL setShowWindowsInTaskbar( sal_Bool bSet ) throw (css::uno::RuntimeException); virtual css::uno::Any SAL_CALL Windows( const css::uno::Any& aIndex ) throw (css::uno::RuntimeException); virtual void SAL_CALL wait( double time ) throw (css::uno::RuntimeException); virtual css::uno::Any SAL_CALL Range( const css::uno::Any& Cell1, const css::uno::Any& Cell2 ) throw (css::uno::RuntimeException); |