sc/source/ui/vba/vbahelper.cxx

   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 <cppuhelper/bootstrap.hxx>
  20 #include <com/sun/star/beans/XPropertySet.hpp>
  21 #include <com/sun/star/beans/Introspection.hpp>
  22 #include <com/sun/star/frame/XDispatchProvider.hpp>
  23 #include <com/sun/star/frame/XModel.hpp>
  24 #include <com/sun/star/frame/XFrame.hpp>
  25 #include <com/sun/star/frame/Desktop.hpp>
  26 #include <com/sun/star/frame/XController.hpp>
  27 #include <com/sun/star/lang/XMultiComponentFactory.hpp>
  28 #include <com/sun/star/script/Converter.hpp>
  29 #include <com/sun/star/sheet/GlobalSheetSettings.hpp>
  30 #include <com/sun/star/uno/XComponentContext.hpp>
  31 #include <com/sun/star/util/XURLTransformer.hpp>
  32
  33
  34 #include <comphelper/processfactory.hxx>
  35
  36 #include <sfx2/objsh.hxx>
  37 #include <sfx2/viewfrm.hxx>
  38 #include <sfx2/dispatch.hxx>
  39 #include <sfx2/app.hxx>
  40 #include <svl/stritem.hxx>
  41
  42 #include <docuno.hxx>
  43
  44 #include <basic/sbx.hxx>
  45 #include <basic/sbstar.hxx>
  46 #include <basic/sbuno.hxx>
  47 #include <rtl/math.hxx>
  48
  49 #include <math.h>
  50 #include "vbahelper.hxx"
  51 #include "tabvwsh.hxx"
  52 #include "transobj.hxx"
  53 #include "scmod.hxx"
  54 #include "vbashape.hxx"
  55 #include "unonames.hxx"
  56 #include "cellsuno.hxx"
  57 using namespace ::com::sun::star;
  58 using namespace ::ooo::vba;
  59
  60 #define POINTTO100THMILLIMETERFACTOR 35.27778
  61
  62
  63 namespace ooo
  64 {
  65 namespace vba
  66 {
  67
  68 const double Millimeter::factor =  35.27778;
  69
  70 uno::Reference< beans::XIntrospectionAccess >
  71 getIntrospectionAccess( const uno::Any& aObject ) throw (uno::RuntimeException)
  72 {
  73     static uno::Reference< beans::XIntrospection > xIntrospection;
  74     if( !xIntrospection.is() )
  75     {
  76         uno::Reference< uno::XComponentContext > xContext( comphelper::getProcessComponentContext() );
  77         xIntrospection.set( beans::Introspection::create(xContext) );
  78     }
  79     return xIntrospection->inspect( aObject );
  80 }
  81
  82 uno::Reference< script::XTypeConverter >
  83 getTypeConverter( const uno::Reference< uno::XComponentContext >& xContext ) throw (uno::RuntimeException)
  84 {
  85     static uno::Reference< script::XTypeConverter > xTypeConv( script::Converter::create(xContext) );
  86     return xTypeConv;
  87 }
  88 // helper method to determine if the view ( calc ) is in print-preview mode
  89 bool isInPrintPreview( SfxViewFrame* pView )
  90 {
  91     sal_uInt16 nViewNo = SID_VIEWSHELL1 - SID_VIEWSHELL0;
  92     if ( pView->GetObjectShell()->GetFactory().GetViewFactoryCount() >
  93 nViewNo && !pView->GetObjectShell()->IsInPlaceActive() )
  94     {
  95         SfxViewFactory &rViewFactory =
  96             pView->GetObjectShell()->GetFactory().GetViewFactory(nViewNo);
  97         if (  pView->GetCurViewId() == rViewFactory.GetOrdinal() )
  98             return true;
  99     }
 100     return false;
 101 }
 102
 103 const char REPLACE_CELLS_WARNING[] = "ReplaceCellsWarning";
 104
 105 const uno::Any&
 106 aNULL()
 107 {
 108      static  uno::Any aNULLL = uno::makeAny( uno::Reference< uno::XInterface >() );
 109     return aNULLL;
 110 }
 111
 112 class PasteCellsWarningReseter
 113 {
 114 private:
 115     bool bInitialWarningState;
 116     static uno::Reference< sheet::XGlobalSheetSettings > getGlobalSheetSettings() throw ( uno::RuntimeException )
 117     {
 118         static uno::Reference< sheet::XGlobalSheetSettings > xProps = sheet::sheet( comphelper::getProcessComponentContext() );
 119         return xProps;
 120     }
 121
 122     bool getReplaceCellsWarning() throw ( uno::RuntimeException )
 123     {
 124         sal_Bool res = getGlobalSheetSettings()->getReplaceCellsWarning();
 125         return ( res == sal_True );
 126     }
 127
 128     void setReplaceCellsWarning( bool bState ) throw ( uno::RuntimeException )
 129     {
 130         getGlobalSheetSettings()->setReplaceCellsWarning( bState );
 131     }
 132 public:
 133     PasteCellsWarningReseter() throw ( uno::RuntimeException )
 134     {
 135         bInitialWarningState = getReplaceCellsWarning();
 136         if ( bInitialWarningState )
 137             setReplaceCellsWarning( false );
 138     }
 139     ~PasteCellsWarningReseter()
 140     {
 141         if ( bInitialWarningState )
 142         {
 143             // don't allow dtor to throw
 144             try
 145             {
 146                 setReplaceCellsWarning( true );
 147             }
 148             catch (const uno::Exception&)
 149             {
 150             }
 151         }
 152     }
 153 };
 154
 155 void dispatchExecute(css::uno::Reference< css::frame::XModel>& xModel, sal_uInt16 nSlot, SfxCallMode nCall)
 156 {
 157     ScTabViewShell* pViewShell = getBestViewShell( xModel );
 158     SfxViewFrame* pViewFrame = NULL;
 159     if ( pViewShell )
 160         pViewFrame = pViewShell->GetViewFrame();
 161     if ( pViewFrame )
 162     {
 163         SfxDispatcher* pDispatcher = pViewFrame->GetDispatcher();
 164         if( pDispatcher )
 165         {
 166             pDispatcher->Execute( nSlot , nCall );
 167         }
 168     }
 169 }
 170
 171 void
 172 implnPaste()
 173 {
 174     PasteCellsWarningReseter resetWarningBox;
 175     ScTabViewShell* pViewShell = getCurrentBestViewShell();
 176     if ( pViewShell )
 177     {
 178         pViewShell->PasteFromSystem();
 179         pViewShell->CellContentChanged();
 180     }
 181 }
 182
 183
 184 void
 185 implnCopy()
 186 {
 187     ScTabViewShell* pViewShell = getCurrentBestViewShell();
 188     if ( pViewShell )
 189         pViewShell->CopyToClip(NULL,false,false,true);
 190 }
 191
 192 void
 193 implnCut()
 194 {
 195     ScTabViewShell* pViewShell =  getCurrentBestViewShell();
 196     if ( pViewShell )
 197         pViewShell->CutToClip( NULL, sal_True );
 198 }
 199
 200 void implnPasteSpecial(sal_uInt16 nFlags,sal_uInt16 nFunction,sal_Bool bSkipEmpty, sal_Bool bTranspose)
 201 {
 202     PasteCellsWarningReseter resetWarningBox;
 203     sal_Bool bAsLink(false), bOtherDoc(false);
 204     InsCellCmd eMoveMode = INS_NONE;
 205
 206     ScTabViewShell* pTabViewShell = ScTabViewShell::GetActiveViewShell();
 207     if ( !pTabViewShell )
 208         // none active, try next best
 209         pTabViewShell = getCurrentBestViewShell();
 210     if ( pTabViewShell )
 211     {
 212         ScViewData* pView = pTabViewShell->GetViewData();
 213         Window* pWin = ( pView != NULL ) ? pView->GetActiveWin() : NULL;
 214         if ( pView && pWin )
 215         {
 216             if ( bAsLink && bOtherDoc )
 217                 pTabViewShell->PasteFromSystem(0);//SOT_FORMATSTR_ID_LINK
 218             else
 219             {
 220                 ScTransferObj* pOwnClip = ScTransferObj::GetOwnClipboard( pWin );
 221                 ScDocument* pDoc = NULL;
 222                 if ( pOwnClip )
 223                     pDoc = pOwnClip->GetDocument();
 224                 pTabViewShell->PasteFromClip( nFlags, pDoc,
 225                     nFunction, bSkipEmpty, bTranspose, bAsLink,
 226                     eMoveMode, IDF_NONE, sal_True );
 227                 pTabViewShell->CellContentChanged();
 228             }
 229         }
 230     }
 231
 232 }
 233
 234  uno::Reference< frame::XModel >
 235 getCurrentDocument() throw (uno::RuntimeException)
 236 {
 237     uno::Reference< frame::XModel > xModel;
 238     SbxObject* pBasic = dynamic_cast< SbxObject* > ( SFX_APP()->GetBasic() );
 239     SbxObject* basicChosen =  pBasic ;
 240     if ( basicChosen == NULL)
 241     {
 242         OSL_TRACE("getModelFromBasic() StarBASIC* is NULL" );
 243         return xModel;
 244     }
 245     SbxObject* p = pBasic;
 246     SbxObject* pParent = p->GetParent();
 247     SbxObject* pParentParent = pParent ? pParent->GetParent() : NULL;
 248
 249     if( pParentParent )
 250     {
 251         basicChosen = pParentParent;
 252     }
 253     else if( pParent )
 254     {
 255         basicChosen = pParent;
 256     }
 257
 258
 259     uno::Any aModel;
 260     SbxVariable *pCompVar = basicChosen->Find( "ThisComponent", SbxCLASS_OBJECT );
 261
 262     if ( pCompVar )
 263     {
 264         aModel = sbxToUnoValue( pCompVar );
 265         if ( false == ( aModel >>= xModel ) ||
 266             !xModel.is() )
 267         {
 268             uno::Reference< uno::XComponentContext > xCtx(
 269                 comphelper::getProcessComponentContext() );
 270             uno::Reference< frame::XDesktop2 > xDesktop = frame::Desktop::create(xCtx);
 271             xModel.set( xDesktop->getCurrentComponent(), uno::UNO_QUERY );
 272             if ( !xModel.is() )
 273             {
 274                 throw uno::RuntimeException(
 275                     "Can't extract model from basic ( its obviously not set yet  therefore don't know the currently selected document)", uno::Reference< uno::XInterface >() );
 276             }
 277             return xModel;
 278         }
 279         else
 280         {
 281             OSL_TRACE("Have model ThisComponent points to url %s",
 282             OUStringToOString( xModel->getURL(),
 283                 RTL_TEXTENCODING_ASCII_US ).pData->buffer );
 284         }
 285     }
 286     else
 287     {
 288         OSL_TRACE("Failed to get ThisComponent");
 289         throw uno::RuntimeException(
 290             OUString( "Can't determine the currently selected document" ),
 291             uno::Reference< uno::XInterface >() );
 292     }
 293     return xModel;
 294 }
 295
 296 ScDocShell*
 297 getDocShell( css::uno::Reference< css::frame::XModel>& xModel )
 298 {
 299     uno::Reference< uno::XInterface > xIf( xModel, uno::UNO_QUERY_THROW );
 300     ScModelObj* pModel = dynamic_cast< ScModelObj* >( xIf.get() );
 301     ScDocShell* pDocShell = NULL;
 302     if ( pModel )
 303         pDocShell = (ScDocShell*)pModel->GetEmbeddedObject();
 304     return pDocShell;
 305
 306 }
 307
 308 ScTabViewShell*
 309 getBestViewShell(  css::uno::Reference< css::frame::XModel>& xModel )
 310 {
 311     ScDocShell* pDocShell = getDocShell( xModel );
 312     if ( pDocShell )
 313         return pDocShell->GetBestViewShell();
 314     return NULL;
 315 }
 316
 317 ScTabViewShell*
 318 getCurrentBestViewShell()
 319 {
 320     uno::Reference< frame::XModel > xModel = getCurrentDocument();
 321     return getBestViewShell( xModel );
 322 }
 323
 324 SfxViewFrame*
 325 getCurrentViewFrame()
 326 {
 327     ScTabViewShell* pViewShell = getCurrentBestViewShell();
 328     if ( pViewShell )
 329         return pViewShell->GetViewFrame();
 330     return NULL;
 331 }
 332
 333 sal_Int32
 334 OORGBToXLRGB( sal_Int32 nCol )
 335 {
 336     sal_Int32 nRed = nCol;
 337     nRed &= 0x00FF0000;
 338     nRed >>= 16;
 339     sal_Int32 nGreen = nCol;
 340     nGreen &= 0x0000FF00;
 341     nGreen >>= 8;
 342     sal_Int32 nBlue = nCol;
 343     nBlue &= 0x000000FF;
 344     sal_Int32 nRGB =  ( (nBlue << 16) | (nGreen << 8) | nRed );
 345     return nRGB;
 346 }
 347 sal_Int32
 348 XLRGBToOORGB( sal_Int32 nCol )
 349 {
 350     sal_Int32 nBlue = nCol;
 351     nBlue &= 0x00FF0000;
 352     nBlue >>= 16;
 353     sal_Int32 nGreen = nCol;
 354     nGreen &= 0x0000FF00;
 355     nGreen >>= 8;
 356     sal_Int32 nRed = nCol;
 357     nRed &= 0x000000FF;
 358     sal_Int32 nRGB =  ( (nRed << 16) | (nGreen << 8) | nBlue );
 359     return nRGB;
 360 }
 361 uno::Any
 362 OORGBToXLRGB( const uno::Any& aCol )
 363 {
 364     sal_Int32 nCol=0;
 365     aCol >>= nCol;
 366     nCol = OORGBToXLRGB( nCol );
 367     return uno::makeAny( nCol );
 368 }
 369 uno::Any
 370 XLRGBToOORGB(  const uno::Any& aCol )
 371 {
 372     sal_Int32 nCol=0;
 373     aCol >>= nCol;
 374     nCol = XLRGBToOORGB( nCol );
 375     return uno::makeAny( nCol );
 376 }
 377
 378 void PrintOutHelper( const uno::Any& From, const uno::Any& To, const uno::Any& Copies, const uno::Any& Preview, const uno::Any& /*ActivePrinter*/, const uno::Any& /*PrintToFile*/, const uno::Any& Collate, const uno::Any& PrToFileName, css::uno::Reference< frame::XModel >& xModel, sal_Bool bUseSelection  )
 379 {
 380     sal_Int32 nTo = 0;
 381     sal_Int32 nFrom = 0;
 382     sal_Int16 nCopies = 1;
 383     sal_Bool bPreview = false;
 384     sal_Bool bCollate = false;
 385     sal_Bool bSelection = bUseSelection;
 386     From >>= nFrom;
 387     To >>= nTo;
 388     Copies >>= nCopies;
 389     Preview >>= bPreview;
 390     if ( nCopies > 1 ) // Collate only useful when more that 1 copy
 391         Collate >>= bCollate;
 392
 393     OUString sRange(   "-"  );
 394     OUString sFileName;
 395
 396     if (( nFrom || nTo ) )
 397     {
 398         if ( nFrom )
 399             sRange = OUString::number( nFrom ) + sRange;
 400         if ( nTo )
 401             sRange += OUString::number( nTo );
 402     }
 403
 404     if (  PrToFileName.getValue() )
 405     {
 406         PrToFileName >>= sFileName;
 407     }
 408     ScTabViewShell* pViewShell = getBestViewShell( xModel );
 409     SfxViewFrame* pViewFrame = NULL;
 410     if ( pViewShell )
 411         pViewFrame = pViewShell->GetViewFrame();
 412     if ( pViewFrame )
 413     {
 414         SfxAllItemSet aArgs( SFX_APP()->GetPool() );
 415
 416         SfxBoolItem sfxCollate( SID_PRINT_COLLATE, bCollate );
 417         aArgs.Put( sfxCollate, sfxCollate.Which() );
 418         SfxInt16Item sfxCopies( SID_PRINT_COPIES, nCopies );
 419         aArgs.Put( sfxCopies, sfxCopies.Which() );
 420         if ( sFileName.getLength() )
 421         {
 422             SfxStringItem sfxFileName( SID_FILE_NAME, sFileName);
 423             aArgs.Put( sfxFileName, sfxFileName.Which() );
 424
 425         }
 426         if (  sRange.getLength() )
 427         {
 428             SfxStringItem sfxRange( SID_PRINT_PAGES, sRange );
 429             aArgs.Put( sfxRange, sfxRange.Which() );
 430         }
 431         SfxBoolItem sfxSelection( SID_SELECTION, bSelection );
 432         aArgs.Put( sfxSelection, sfxSelection.Which() );
 433         SfxBoolItem sfxAsync( SID_ASYNCHRON, false );
 434         aArgs.Put( sfxAsync, sfxAsync.Which() );
 435         SfxDispatcher* pDispatcher = pViewFrame->GetDispatcher();
 436
 437         if ( pDispatcher )
 438         {
 439             if ( bPreview )
 440             {
 441                 if ( !pViewFrame->GetFrame().IsInPlace() )
 442                 {
 443                     SC_MOD()->InputEnterHandler();
 444                     pViewFrame->GetDispatcher()->Execute( SID_VIEWSHELL1, SFX_CALLMODE_SYNCHRON );
 445                     while ( isInPrintPreview( pViewFrame ) )
 446                         Application::Yield();
 447                 }
 448             }
 449             else
 450                 pDispatcher->Execute( (sal_uInt16)SID_PRINTDOC, (SfxCallMode)SFX_CALLMODE_SYNCHRON, aArgs );
 451         }
 452
 453     }
 454
 455     // #FIXME #TODO
 456     // 1 ActivePrinter ( how/can we switch a printer via API? )
 457     // 2 PrintToFile ( ms behaviour if this option is specified but no
 458     //   filename supplied 'PrToFileName' then the user will be prompted )
 459     // 3 Need to check behaviour of Selected sheets with range ( e.g. From & To
 460     //    values ) in oOO these options are mutually exclusive
 461     // 4 There is a pop up to do with transparent objects in the print source
 462     //   should be able to disable that via configuration for the duration
 463     //   of this method
 464 }
 465
 466  void PrintPreviewHelper( const css::uno::Any& /*EnableChanges*/, css::uno::Reference< css::frame::XModel >& xModel )
 467 {
 468     dispatchExecute( xModel, SID_VIEWSHELL1 );
 469 }
 470
 471 OUString getAnyAsString( const uno::Any& pvargItem ) throw ( uno::RuntimeException )
 472 {
 473     uno::Type aType = pvargItem.getValueType();
 474     uno::TypeClass eTypeClass = aType.getTypeClass();
 475     OUString sString;
 476     switch ( eTypeClass )
 477     {
 478         case uno::TypeClass_BOOLEAN:
 479         {
 480             sal_Bool bBool = false;
 481             pvargItem >>= bBool;
 482             sString = OUString::boolean( bBool );
 483             break;
 484         }
 485         case uno::TypeClass_STRING:
 486             pvargItem >>= sString;
 487             break;
 488         case uno::TypeClass_FLOAT:
 489             {
 490                 float aFloat = 0;
 491                 pvargItem >>= aFloat;
 492                 sString = OUString::number( aFloat );
 493                 break;
 494             }
 495         case uno::TypeClass_DOUBLE:
 496             {
 497                 double aDouble = 0;
 498                 pvargItem >>= aDouble;
 499                 sString = OUString::number( aDouble );
 500                 break;
 501             }
 502         case uno::TypeClass_SHORT:
 503         case uno::TypeClass_LONG:
 504         case uno::TypeClass_BYTE:
 505             {
 506                 sal_Int32 aNum = 0;
 507                 pvargItem >>= aNum;
 508                 sString = OUString::number( aNum );
 509                 break;
 510             }
 511
 512         case uno::TypeClass_HYPER:
 513             {
 514                 sal_Int64 aHyper = 0;
 515                 pvargItem >>= aHyper;
 516                 sString = OUString::number( aHyper );
 517                 break;
 518             }
 519         default:
 520                    throw uno::RuntimeException("Invalid type, can't convert", uno::Reference< uno::XInterface >() );
 521     }
 522     return sString;
 523 }
 524
 525
 526 OUString
 527 ContainerUtilities::getUniqueName( const uno::Sequence< OUString >&  _slist, const OUString& _sElementName, const OUString& _sSuffixSeparator)
 528 {
 529     return getUniqueName(_slist, _sElementName, _sSuffixSeparator, sal_Int32(2));
 530 }
 531
 532 OUString
 533 ContainerUtilities::getUniqueName( const uno::Sequence< OUString >& _slist, const OUString _sElementName, const OUString& _sSuffixSeparator, sal_Int32 _nStartSuffix)
 534 {
 535     sal_Int32 a = _nStartSuffix;
 536     OUString scompname = _sElementName;
 537     bool bElementexists = true;
 538     sal_Int32 nLen = _slist.getLength();
 539     if ( nLen == 0 )
 540         return _sElementName;
 541
 542     while (bElementexists == true)
 543     {
 544         for (sal_Int32 i = 0; i < nLen; i++)
 545         {
 546             if (FieldInList(_slist, scompname) == -1)
 547             {
 548                 return scompname;
 549             }
 550         }
 551         scompname = _sElementName + _sSuffixSeparator + OUString::number( a++ );
 552     }
 553     return OUString();
 554 }
 555
 556 sal_Int32
 557 ContainerUtilities::FieldInList( const uno::Sequence< OUString >& SearchList, const OUString& SearchString )
 558 {
 559     sal_Int32 FieldLen = SearchList.getLength();
 560     sal_Int32 retvalue = -1;
 561     for (sal_Int32 i = 0; i < FieldLen; i++)
 562     {
 563         // I wonder why comparing lexicographically is done
 564         // when it's a match is whats interesting?
 565         //if (SearchList[i].compareTo(SearchString) == 0)
 566         if ( SearchList[i] == SearchString )
 567         {
 568             retvalue = i;
 569             break;
 570         }
 571     }
 572     return retvalue;
 573
 574 }
 575 bool NeedEsc(sal_Unicode cCode)
 576 {
 577     OUString sEsc(".^$+\\|{}()");
 578     return (-1 != sEsc.indexOf(cCode));
 579 }
 580
 581 OUString VBAToRegexp(const OUString &rIn, bool bForLike )
 582 {
 583     OUStringBuffer sResult;
 584     const sal_Unicode *start = rIn.getStr();
 585     const sal_Unicode *end = start + rIn.getLength();
 586
 587     int seenright = 0;
 588     if ( bForLike )
 589         sResult.append(static_cast<sal_Unicode>('^'));
 590
 591     while (start < end)
 592     {
 593         switch (*start)
 594         {
 595             case '?':
 596                 sResult.append(static_cast<sal_Unicode>('.'));
 597                 start++;
 598                 break;
 599             case '*':
 600                 sResult.append(OUString(".*"));
 601                 start++;
 602                 break;
 603             case '#':
 604                 sResult.append(OUString("[0-9]"));
 605                 start++;
 606                 break;
 607             case '~':
 608                 sResult.append(static_cast<sal_Unicode>('\\'));
 609                 sResult.append(*(++start));
 610                 start++;
 611                 break;
 612                 // dump the ~ and escape the next characture
 613             case ']':
 614                 sResult.append(static_cast<sal_Unicode>('\\'));
 615                 sResult.append(*start++);
 616                 break;
 617             case '[':
 618                 sResult.append(*start++);
 619                 seenright = 0;
 620                 while (start < end && !seenright)
 621                 {
 622                     switch (*start)
 623                     {
 624                         case '[':
 625                         case '?':
 626                         case '*':
 627                         sResult.append(static_cast<sal_Unicode>('\\'));
 628                         sResult.append(*start);
 629                             break;
 630                         case ']':
 631                         sResult.append(*start);
 632                             seenright = 1;
 633                             break;
 634                         case '!':
 635                             sResult.append(static_cast<sal_Unicode>('^'));
 636                             break;
 637                         default:
 638                         if (NeedEsc(*start))
 639                             sResult.append(static_cast<sal_Unicode>('\\'));
 640                         sResult.append(*start);
 641                             break;
 642                     }
 643                     start++;
 644                 }
 645                 break;
 646             default:
 647                 if (NeedEsc(*start))
 648                     sResult.append(static_cast<sal_Unicode>('\\'));
 649                 sResult.append(*start++);
 650         }
 651     }
 652
 653     if ( bForLike )
 654         sResult.append(static_cast<sal_Unicode>('$'));
 655
 656     return sResult.makeStringAndClear( );
 657 }
 658
 659 double getPixelTo100thMillimeterConversionFactor( css::uno::Reference< css::awt::XDevice >& xDevice, sal_Bool bVertical)
 660 {
 661     double fConvertFactor = 1.0;
 662     if( bVertical )
 663     {
 664         fConvertFactor = xDevice->getInfo().PixelPerMeterY/100000;
 665     }
 666     else
 667     {
 668         fConvertFactor = xDevice->getInfo().PixelPerMeterX/100000;
 669     }
 670     return fConvertFactor;
 671 }
 672
 673 double PointsToPixels( css::uno::Reference< css::awt::XDevice >& xDevice, double fPoints, sal_Bool bVertical)
 674 {
 675     double fConvertFactor = getPixelTo100thMillimeterConversionFactor( xDevice, bVertical );
 676     return fPoints * POINTTO100THMILLIMETERFACTOR * fConvertFactor;
 677 }
 678 double PixelsToPoints( css::uno::Reference< css::awt::XDevice >& xDevice, double fPixels, sal_Bool bVertical)
 679 {
 680     double fConvertFactor = getPixelTo100thMillimeterConversionFactor( xDevice, bVertical );
 681     return (fPixels/fConvertFactor)/POINTTO100THMILLIMETERFACTOR;
 682 }
 683
 684 ConcreteXShapeGeometryAttributes::ConcreteXShapeGeometryAttributes( const css::uno::Reference< css::uno::XComponentContext >& xContext, const css::uno::Reference< css::drawing::XShape >& xShape )
 685 {
 686     m_xShape = new ScVbaShape( xContext, xShape );
 687 }
 688
 689 #define VBA_LEFT "PositionX"
 690 #define VBA_TOP "PositionY"
 691 UserFormGeometryHelper::UserFormGeometryHelper( const uno::Reference< uno::XComponentContext >& /*xContext*/, const uno::Reference< awt::XControl >& xControl )
 692 {
 693     mxModel.set( xControl->getModel(), uno::UNO_QUERY_THROW );
 694 }
 695     double UserFormGeometryHelper::getLeft()
 696     {
 697     sal_Int32 nLeft = 0;
 698     mxModel->getPropertyValue( OUString(  VBA_LEFT  ) ) >>= nLeft;
 699     return Millimeter::getInPoints( nLeft );
 700     }
 701     void UserFormGeometryHelper::setLeft( double nLeft )
 702     {
 703         mxModel->setPropertyValue( OUString(  VBA_LEFT  ), uno::makeAny( Millimeter::getInHundredthsOfOneMillimeter( nLeft ) ) );
 704     }
 705     double UserFormGeometryHelper::getTop()
 706     {
 707     sal_Int32 nTop = 0;
 708     mxModel->getPropertyValue( OUString(   VBA_TOP  ) ) >>= nTop;
 709     return Millimeter::getInPoints( nTop );
 710     }
 711     void UserFormGeometryHelper::setTop( double nTop )
 712     {
 713     mxModel->setPropertyValue( OUString(   VBA_TOP  ), uno::makeAny( Millimeter::getInHundredthsOfOneMillimeter( nTop ) ) );
 714     }
 715     double UserFormGeometryHelper::getHeight()
 716     {
 717     sal_Int32 nHeight = 0;
 718     mxModel->getPropertyValue( OUString(   SC_UNONAME_CELLHGT  ) ) >>= nHeight;
 719     return Millimeter::getInPoints( nHeight );
 720     }
 721     void UserFormGeometryHelper::setHeight( double nHeight )
 722     {
 723     mxModel->setPropertyValue( OUString(   SC_UNONAME_CELLHGT  ), uno::makeAny( Millimeter::getInHundredthsOfOneMillimeter( nHeight ) ) );
 724     }
 725     double UserFormGeometryHelper::getWidth()
 726     {
 727     sal_Int32 nWidth = 0;
 728     mxModel->getPropertyValue( OUString(   SC_UNONAME_CELLWID  ) ) >>= nWidth;
 729     return Millimeter::getInPoints( nWidth );
 730     }
 731     void UserFormGeometryHelper::setWidth( double nWidth)
 732     {
 733     mxModel->setPropertyValue( OUString(   SC_UNONAME_CELLWID  ), uno::makeAny(  Millimeter::getInHundredthsOfOneMillimeter( nWidth ) ) );
 734     }
 735
 736 SfxItemSet*
 737 ScVbaCellRangeAccess::GetDataSet( ScCellRangeObj* pRangeObj )
 738 {
 739     SfxItemSet* pDataSet = pRangeObj ? pRangeObj->GetCurrentDataSet( true ) : NULL ;
 740     return pDataSet;
 741
 742 }
 743
 744 } // vba
 745 } // ooo
 746
 747 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */