sc/source/ui/vba/vbadialog.cxx

   1 /*************************************************************************
   2  *
   3  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4  *
   5  * Copyright 2008 by Sun Microsystems, Inc.
   6  *
   7  * OpenOffice.org - a multi-platform office productivity suite
   8  *
   9  * $RCSfile: vbadialog.cxx,v $
  10  * $Revision: 1.4 $
  11  *
  12  * This file is part of OpenOffice.org.
  13  *
  14  * OpenOffice.org is free software: you can redistribute it and/or modify
  15  * it under the terms of the GNU Lesser General Public License version 3
  16  * only, as published by the Free Software Foundation.
  17  *
  18  * OpenOffice.org is distributed in the hope that it will be useful,
  19  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  20  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21  * GNU Lesser General Public License version 3 for more details
  22  * (a copy is included in the LICENSE file that accompanied this code).
  23  *
  24  * You should have received a copy of the GNU Lesser General Public License
  25  * version 3 along with OpenOffice.org.  If not, see
  26  * <http://www.openoffice.org/license.html>
  27  * for a copy of the LGPLv3 License.
  28  *
  29  ************************************************************************/
  30 #include "vbadialog.hxx"
  31
  32 using namespace ::ooo::vba;
  33 using namespace ::com::sun::star;
  34
  35 //liuchen 2009-7-27
  36 //solve the problem that "Application.Dialogs.Item(***).Show" and "Application.Dialogs.Count" cannot get the correct result
  37 struct DialogMatch
  38 {
  39         sal_Int32               nVbaDlgIndex;
  40         rtl::OUString   aOODlgName;
  41 };
  42
  43 static const DialogMatch aDialogMatchList[] =
  44 {
  45         { 1,    rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( ".uno:Open" ) ) },                                          // xlDialogOpen -> .uno:Open
  46         { -1,   rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( ".uno:FormatCellDialog" ) ) },                      // ??? -> .uno:FormatCellDialog
  47         { 55,   rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( ".uno:InsertCell" ) ) },                            // xlDialogInsert -> .uno:InsertCell
  48         { 8,    rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( ".uno:Print" ) ) },                                         // xlDialogPrint -> .uno:Print
  49         { 9,    rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( ".uno:PrinterSetup" ) ) },                          // xlDialogPrinterSetup -> .uno:PrinterSetup
  50         { 53,   rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( ".uno:PasteSpecial" ) ) },                          // xlDialogPasteSpecial -> .uno:PasteSpecial
  51         { 28,   rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( ".uno:ToolProtectionDocument" ) ) },        // xlDialogProtectDocument -> uno:ToolProtectionDocument
  52         { 47,   rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( ".uno:ColumnWidth" ) ) },                           // xlDialogColumnWidth -> .uno:ColumnWidth
  53         { 61,   rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( ".uno:DefineName" ) ) },                            // xlDialogDefineName -> .uno:DefineName
  54         { -1,   rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( ".uno:ConfigureDialog" ) ) },                       // ??? -> .uno:ConfigureDialog
  55         { 596,  rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( ".uno:HyperlinkDialog" ) ) },                       // xlDialogInsertHyperlink -> .uno:HyperlinkDialog
  56         { 342,  rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( ".uno:InsertGraphic" ) ) },                         // xlDialogInsertPicture -> .uno:InsertGraphic
  57         { 259,  rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( ".uno:InsertObject" ) ) },                          // xlDialogInsertObject -> .uno:InsertObject
  58         { 7,    rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( ".uno:PageFormatDialog" ) ) },                      // xlDialogPageSetup -> .uno:PageFormatDialog
  59         { 39,   rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( ".uno:DataSort" ) ) },                                      // xlDialogSort -> .uno:DataSort
  60         { 127,  rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( ".uno:RowHeight" ) ) },                                     // xlDialogRowHeight -> .uno:RowHeight
  61         { 485,  rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( ".uno:AutoCorrectDlg" ) ) },                        // xlDialogAutoCorrect -> .uno:AutoCorrectDlg
  62         { 583,  rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( ".uno:ConditionalFormatDialog" ) ) },       // xlDialogCondiationalFormatting -> .uno:ConditionalFormatDialog
  63         { 191,  rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( ".uno:DataConsolidate" ) ) },                       // xlDialogConsolidate -> .uno:DataConsolidate
  64         { 62,   rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( ".uno:CreateNames" ) ) },                           // xlDialogCreateNames -> .uno:CreateNames
  65         { -1,   rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( ".uno:FillSeries" ) ) },                            // ??? -> .uno:FillSeries
  66         { -1,   rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( ".uno:Validation" ) ) },                            // ??? -> .uno:Validation"
  67         { -1,   rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( ".uno:DefineLabelRange" ) ) },                      // ??? -> .uno:DefineLabelRange
  68         { -1,   rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( ".uno:DataFilterAutoFilter" ) ) },          // ??? -> .uno:DataFilterAutoFilter
  69         { -1,   rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( ".uno:DataFilterSpecialFilter" ) ) },       // ??? -> .uno:DataFilterSpecialFilter
  70         { 269,  rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( ".uno:AutoFormat" ) ) }                                     // xlDialogFormatAuto -> .uno:AutoFormat
  71 };
  72
  73 const sal_Int32 nDialogSize = sizeof( aDialogMatchList ) / sizeof( aDialogMatchList[ 0 ] );
  74
  75 //liuchen modified 2009-2-27
  76 rtl::OUString
  77 ScVbaDialog::mapIndexToName( sal_Int32 nIndex )
  78 {
  79         for (int i = 0; i < nDialogSize; i++)
  80         {
  81                 if ( aDialogMatchList[i].nVbaDlgIndex == nIndex )
  82                 {
  83                         return aDialogMatchList[i].aOODlgName;
  84                 }
  85         }
  86
  87     return rtl::OUString();
  88 }
  89
  90 rtl::OUString&
  91 ScVbaDialog::getServiceImplName()
  92 {
  93         static rtl::OUString sImplName( RTL_CONSTASCII_USTRINGPARAM("ScVbaDialog") );
  94     return sImplName;
  95 }
  96
  97 uno::Sequence< rtl::OUString >
  98 ScVbaDialog::getServiceNames()
  99 {
 100     static uno::Sequence< rtl::OUString > aServiceNames;
 101     if ( aServiceNames.getLength() == 0 )
 102     {
 103         aServiceNames.realloc( 1 );
 104                 aServiceNames[ 0 ] = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ooo.vba.excel.Dialog" ) );
 105     }
 106     return aServiceNames;
 107 }
 108
 109 //liuchen add 2009-7-27
 110 sal_Int32 ScVbaDialog::GetSupportedDialogCount()
 111 {
 112         return nDialogSize;
 113 }