sc/source/ui/drawfunc/fusel.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
  20 #include <editeng/flditem.hxx>
  21 #include <svx/svddrgmt.hxx>
  22 #include <svx/svdoole2.hxx>
  23 #include <svx/svdotext.hxx>
  24 #include <sfx2/dispatch.hxx>
  25 #include <vcl/imapobj.hxx>
  26 #include <svx/svdouno.hxx>
  27 #include <svx/svdomedia.hxx>
  28 #include <svx/svdpagv.hxx>
  29 #include <svx/ImageMapInfo.hxx>
  30 #include <editeng/outlobj.hxx>
  31 #include <sfx2/app.hxx>
  32 #include <sfx2/ipclient.hxx>
  33 #include <sfx2/viewfrm.hxx>
  34
  35 #include <fusel.hxx>
  36 #include <sc.hrc>
  37 #include <fudraw.hxx>
  38 #include <futext.hxx>
  39 #include <drawview.hxx>
  40 #include <tabvwsh.hxx>
  41 #include <drwlayer.hxx>
  42 #include <userdat.hxx>
  43 #include <scmod.hxx>
  44 #include <charthelper.hxx>
  45 #include <docuno.hxx>
  46 #include <docsh.hxx>
  47
  48 //  maximal permitted mouse movement to start Drag&Drop
  49 //! fusel,fuconstr,futext - combine them!
  50 #define SC_MAXDRAGMOVE  3
  51 // Min necessary mouse motion for normal dragging
  52 #define SC_MINDRAGMOVE 2
  53
  54 using namespace com::sun::star;
  55
  56 FuSelection::FuSelection(ScTabViewShell& rViewSh, vcl::Window* pWin, ScDrawView* pViewP,
  57                          SdrModel* pDoc, const SfxRequest& rReq)
  58     : FuDraw(rViewSh, pWin, pViewP, pDoc, rReq)
  59 {
  60 }
  61
  62 FuSelection::~FuSelection()
  63 {
  64 }
  65
  66 bool FuSelection::MouseButtonDown(const MouseEvent& rMEvt)
  67 {
  68     // remember button state for creation of own MouseEvents
  69     SetMouseButtonCode(rMEvt.GetButtons());
  70     const bool bSelectionOnly = rMEvt.IsRight();
  71     if ( pView->IsAction() )
  72     {
  73         if ( bSelectionOnly )
  74             pView->BckAction();
  75         return true;
  76     }
  77
  78     bIsInDragMode = false;      //  somewhere it has to be reset (#50033#)
  79
  80     bool bReturn = FuDraw::MouseButtonDown(rMEvt);
  81
  82     aMDPos = pWindow->PixelToLogic( rMEvt.GetPosPixel() );
  83
  84     if ( rMEvt.IsLeft() )
  85     {
  86         SdrHdl* pHdl = pView->PickHandle(aMDPos);
  87
  88         if ( pHdl!=nullptr || pView->IsMarkedHit(aMDPos) )
  89         {
  90             // Determine if this is the tail of a SdrCaptionObj i.e.
  91             // we need to disable the drag option on the tail of a note
  92             // object. Also, disable the ability to use the circular
  93             // drag of a note object.
  94             bool bDrag = false;
  95             const SdrMarkList& rMarkList = pView->GetMarkedObjectList();
  96             if( rMarkList.GetMarkCount() == 1 )
  97             {
  98                 SdrObject* pMarkedObj = rMarkList.GetMark( 0 )->GetMarkedSdrObj();
  99                 if( ScDrawLayer::IsNoteCaption( pMarkedObj ) )
 100                 {
 101                     // move using the valid caption handles for note text box.
 102                     if(pHdl && (pHdl->GetKind() != SdrHdlKind::Poly && pHdl->GetKind() != SdrHdlKind::Circle))
 103                         bDrag = true;
 104                     // move the complete note box.
 105                     else if(!pHdl)
 106                         bDrag = true;
 107                 }
 108                 else
 109                     bDrag = true;   // different object
 110             }
 111             else
 112                 bDrag = true;       // several objects
 113
 114             if ( bDrag )
 115             {
 116                 aDragTimer.Start();
 117                 if (pView->BegDragObj(aMDPos, nullptr, pHdl))
 118                     pView->GetDragMethod()->SetShiftPressed( rMEvt.IsShift() );
 119                 bReturn = true;
 120             }
 121         }
 122         else
 123         {
 124             SdrPageView* pPV = nullptr;
 125             bool bAlt = rMEvt.IsMod2();
 126             SdrObject* pObj = !bAlt ? pView->PickObj(aMDPos, pView->getHitTolLog(), pPV, SdrSearchOptions::PICKMACRO) : nullptr;
 127             if (pObj)
 128             {
 129                 pView->BegMacroObj(aMDPos, pObj, pPV, pWindow);
 130                 bReturn = true;
 131             }
 132             else
 133             {
 134                 OUString sURL, sTarget;
 135                 pObj = !bAlt ? pView->PickObj(aMDPos, pView->getHitTolLog(), pPV, SdrSearchOptions::ALSOONMASTER) : nullptr;
 136                 if (pObj)
 137                 {
 138                    // Support for imported Excel docs
 139                    // Excel is of course not consistent and allows
 140                    // a hyperlink to be assigned for an object group
 141                    // and even though the hyperlink is exported in the Escher layer
 142                    // its never used, when dealing with a group object the link
 143                    // associated with the clicked object is used only
 144
 145                    // additionally you can also select a macro in Excel for a grouped
 146                    // objects and this *usually* results in the macro being set
 147                    // for the elements in the group and no macro is exported
 148                    // for the group itself ( this however is not always true )
 149                    // if a macro and hlink are defined favour the hlink
 150                    // If a group object has no hyperlink use the hyperlink of the
 151                    // object clicked
 152
 153                    if ( pObj->IsGroupObject() )
 154                    {
 155                        ScMacroInfo* pTmpInfo = ScDrawLayer::GetMacroInfo( pObj );
 156                        if ( !pTmpInfo || pTmpInfo->GetMacro().isEmpty() )
 157                        {
 158                            SdrObject* pHit = pView->PickObj(aMDPos, pView->getHitTolLog(), pPV, SdrSearchOptions::DEEP);
 159                            if (pHit)
 160                                pObj = pHit;
 161                        }
 162                    }
 163
 164                    ScMacroInfo* pInfo = ScDrawLayer::GetMacroInfo( pObj, true );
 165                    // For interoperability favour links over macros if both are defined
 166                    if ( !pInfo->GetHlink().isEmpty() )
 167                    {
 168                        sURL = pInfo->GetHlink();
 169                    }
 170                    else if ( !pInfo->GetMacro().isEmpty() )
 171                    {
 172                        SfxObjectShell* pObjSh = SfxObjectShell::Current();
 173                        if ( pObjSh && SfxApplication::IsXScriptURL( pInfo->GetMacro() ) )
 174                        {
 175                            uno::Reference< beans::XPropertySet > xProps( pObj->getUnoShape(), uno::UNO_QUERY );
 176                            uno::Any aCaller;
 177                            if ( xProps.is() )
 178                            {
 179                                try
 180                                {
 181                                    aCaller = xProps->getPropertyValue("Name");
 182                                }
 183                                catch( uno::Exception& ) {}
 184                            }
 185                            uno::Any aRet;
 186                            uno::Sequence< sal_Int16 > aOutArgsIndex;
 187                            uno::Sequence< uno::Any > aOutArgs;
 188                            uno::Sequence< uno::Any > aInArgs;
 189                            pObjSh->CallXScript( pInfo->GetMacro(),
 190                                aInArgs, aRet, aOutArgsIndex, aOutArgs, true, &aCaller );
 191                            rViewShell.FakeButtonUp( rViewShell.GetViewData().GetActivePart() );
 192                            return true;        // no CaptureMouse etc.
 193                        }
 194                    }
 195                 }
 196
 197                 //  URL / ImageMap
 198
 199                 SdrViewEvent aVEvt;
 200                 if ( !bAlt &&
 201                     pView->PickAnything( rMEvt, SdrMouseEventKind::BUTTONDOWN, aVEvt ) != SdrHitKind::NONE &&
 202                     aVEvt.pObj != nullptr )
 203                 {
 204                     if ( SvxIMapInfo::GetIMapInfo( aVEvt.pObj ) )       // ImageMap
 205                     {
 206                         const IMapObject* pIMapObj =
 207                                 SvxIMapInfo::GetHitIMapObject( aVEvt.pObj, aMDPos, pWindow );
 208                         if ( pIMapObj && !pIMapObj->GetURL().isEmpty() )
 209                         {
 210                             sURL = pIMapObj->GetURL();
 211                             sTarget = pIMapObj->GetTarget();
 212                         }
 213                     }
 214                     if ( aVEvt.eEvent == SdrEventKind::ExecuteUrl && aVEvt.pURLField )   // URL
 215                     {
 216                         sURL = aVEvt.pURLField->GetURL();
 217                         sTarget = aVEvt.pURLField->GetTargetFrame();
 218                     }
 219                 }
 220
 221                 // open hyperlink, if found at object or in object's text
 222                 if ( !sURL.isEmpty() && ScGlobal::ShouldOpenURL() )
 223                 {
 224                     ScGlobal::OpenURL( sURL, sTarget );
 225                     rViewShell.FakeButtonUp( rViewShell.GetViewData().GetActivePart() );
 226                     return true;        // no CaptureMouse etc.
 227                 }
 228
 229                 //  Is another object being edited in this view?
 230                 //  (Editing is ended in MarkListHasChanged - test before UnmarkAll)
 231                 SfxInPlaceClient* pClient = rViewShell.GetIPClient();
 232                 bool bWasOleActive = ( pClient && pClient->IsObjectInPlaceActive() );
 233
 234                 //  Selection
 235
 236                 // do not allow multiselection with note caption
 237                 bool bCaptionClicked = IsNoteCaptionClicked( aMDPos );
 238                 if ( !rMEvt.IsShift() || bCaptionClicked || IsNoteCaptionMarked() )
 239                     pView->UnmarkAll();
 240
 241                 /*  Unlock internal layer, if a note caption is clicked. The
 242                     layer will be relocked in ScDrawView::MarkListHasChanged(). */
 243                 if( bCaptionClicked )
 244                     pView->UnlockInternalLayer();
 245
 246                 // try to select the clicked object
 247                 if ( pView->MarkObj( aMDPos, -2, false, rMEvt.IsMod1() ) )
 248                 {
 249
 250                     // move object
 251
 252                     if (pView->IsMarkedHit(aMDPos))
 253                     {
 254                         //  Don't start drag timer if inplace editing of an OLE object
 255                         //  was just ended with this mouse click - the view will be moved
 256                         //  (different tool bars) and the object that was clicked on would
 257                         //  be moved unintentionally.
 258                         if ( !bWasOleActive )
 259                             aDragTimer.Start();
 260
 261                         pHdl=pView->PickHandle(aMDPos);
 262                         pView->BegDragObj(aMDPos, nullptr, pHdl);
 263                         bReturn = true;
 264                     }
 265                     else                                    // object at the edge
 266                         if (rViewShell.IsDrawSelMode())
 267                             bReturn = true;
 268                 }
 269                 else
 270                 {
 271                     if (rViewShell.IsDrawSelMode())
 272                     {
 273
 274                         // select object
 275
 276                         pView->BegMarkObj(aMDPos);
 277                         bReturn = true;
 278                     }
 279                 }
 280             }
 281         }
 282
 283     }
 284
 285     if (!bIsInDragMode)
 286     {
 287         // VC calls CaptureMouse itself
 288         pWindow->CaptureMouse();
 289         ForcePointer(&rMEvt);
 290     }
 291
 292     return bReturn;
 293 }
 294
 295 bool FuSelection::MouseMove(const MouseEvent& rMEvt)
 296 {
 297     bool bReturn = FuDraw::MouseMove(rMEvt);
 298
 299     if (aDragTimer.IsActive() )
 300     {
 301         Point aOldPixel = pWindow->LogicToPixel( aMDPos );
 302         Point aNewPixel = rMEvt.GetPosPixel();
 303         if ( std::abs( aOldPixel.X() - aNewPixel.X() ) > SC_MAXDRAGMOVE ||
 304              std::abs( aOldPixel.Y() - aNewPixel.Y() ) > SC_MAXDRAGMOVE )
 305             aDragTimer.Stop();
 306     }
 307
 308     if ( pView->IsAction() )
 309     {
 310         Point aPix(rMEvt.GetPosPixel());
 311         Point aPnt(pWindow->PixelToLogic(aPix));
 312
 313         ForceScroll(aPix);
 314         pView->MovAction(aPnt);
 315         bReturn = true;
 316     }
 317
 318     ForcePointer(&rMEvt);
 319
 320     return bReturn;
 321 }
 322
 323 bool FuSelection::MouseButtonUp(const MouseEvent& rMEvt)
 324 {
 325     // remember button state for creation of own MouseEvents
 326     SetMouseButtonCode(rMEvt.GetButtons());
 327
 328     bool bReturn = FuDraw::MouseButtonUp(rMEvt);
 329     bool bOle = rViewShell.GetViewFrame()->GetFrame().IsInPlace();
 330
 331     SdrObject* pObj = nullptr;
 332     if (aDragTimer.IsActive() )
 333     {
 334         aDragTimer.Stop();
 335     }
 336
 337     sal_uInt16 nDrgLog = sal_uInt16 ( pWindow->PixelToLogic(Size(SC_MINDRAGMOVE,0)).Width() );
 338     Point aPnt( pWindow->PixelToLogic( rMEvt.GetPosPixel() ) );
 339
 340     bool bCopy = false;
 341     ScViewData& rViewData = rViewShell.GetViewData();
 342     ScDocument* pDocument = rViewData.GetDocument();
 343     SdrPageView* pPageView = ( pView ? pView->GetSdrPageView() : nullptr );
 344     SdrPage* pPage = ( pPageView ? pPageView->GetPage() : nullptr );
 345     ::std::vector< OUString > aExcludedChartNames;
 346     ScRangeListVector aProtectedChartRangesVector;
 347
 348     if (pView && rMEvt.IsLeft())
 349     {
 350         if ( pView->IsDragObj() )
 351         {
 352             // object was moved
 353             if ( rMEvt.IsMod1() )
 354             {
 355                 if ( pPage )
 356                 {
 357                     ScChartHelper::GetChartNames( aExcludedChartNames, pPage );
 358                 }
 359                 if ( pView && pDocument )
 360                 {
 361                     const SdrMarkList& rSdrMarkList = pView->GetMarkedObjectList();
 362                     const size_t nMarkCount = rSdrMarkList.GetMarkCount();
 363                     for ( size_t i = 0; i < nMarkCount; ++i )
 364                     {
 365                         SdrMark* pMark = rSdrMarkList.GetMark( i );
 366                         pObj = ( pMark ? pMark->GetMarkedSdrObj() : nullptr );
 367                         if ( pObj )
 368                         {
 369                             ScChartHelper::AddRangesIfProtectedChart( aProtectedChartRangesVector, pDocument, pObj );
 370                         }
 371                     }
 372                 }
 373                 bCopy = true;
 374             }
 375
 376             if (!rMEvt.IsShift() && !rMEvt.IsMod1() && !rMEvt.IsMod2() &&
 377                 std::abs(aPnt.X() - aMDPos.X()) < nDrgLog &&
 378                 std::abs(aPnt.Y() - aMDPos.Y()) < nDrgLog)
 379             {
 380                 /* If a user wants to click on an object in front of a marked
 381                    one, he releases the mouse button immediately */
 382                 SdrPageView* pPV = nullptr;
 383                 pObj = pView->PickObj(aMDPos, pView->getHitTolLog(), pPV, SdrSearchOptions::ALSOONMASTER | SdrSearchOptions::BEFOREMARK);
 384                 if (pObj)
 385                 {
 386                     pView->UnmarkAllObj();
 387                     pView->MarkObj(pObj,pPV);
 388                     return true;
 389                 }
 390             }
 391             pView->EndDragObj( rMEvt.IsMod1() );
 392             pView->ForceMarkedToAnotherPage();
 393
 394             bReturn = true;
 395         }
 396         else if (pView->IsAction() )
 397         {
 398             // unlock internal layer to include note captions
 399             pView->UnlockInternalLayer();
 400             pView->EndAction();
 401             if ( pView->AreObjectsMarked() )
 402             {
 403                 bReturn = true;
 404
 405                 /*  if multi-selection contains a note caption object, remove
 406                     all other objects from selection. */
 407                 const SdrMarkList& rMarkList = pView->GetMarkedObjectList();
 408                 const size_t nCount = rMarkList.GetMarkCount();
 409                 if( nCount > 1 )
 410                 {
 411                     bool bFound = false;
 412                     for( size_t nIdx = 0; !bFound && (nIdx < nCount); ++nIdx )
 413                     {
 414                         pObj = rMarkList.GetMark( nIdx )->GetMarkedSdrObj();
 415                         bFound = ScDrawLayer::IsNoteCaption( pObj );
 416                         if( bFound )
 417                         {
 418                             pView->UnMarkAll();
 419                             pView->MarkObj( pObj, pView->GetSdrPageView() );
 420                         }
 421                     }
 422                 }
 423             }
 424         }
 425     }
 426
 427     // maybe consider OLE object
 428     SfxInPlaceClient* pIPClient = rViewShell.GetIPClient();
 429
 430     if (pIPClient)
 431     {
 432         ScModule* pScMod = SC_MOD();
 433         bool bUnoRefDialog = pScMod->IsRefDialogOpen() && pScMod->GetCurRefDlgId() == WID_SIMPLE_REF;
 434
 435         if ( pIPClient->IsObjectInPlaceActive() && !bUnoRefDialog )
 436             pIPClient->DeactivateObject();
 437     }
 438
 439     sal_uInt16 nClicks = rMEvt.GetClicks();
 440     if (pView && nClicks == 2 && rMEvt.IsLeft())
 441     {
 442         if ( pView->AreObjectsMarked() )
 443         {
 444             const SdrMarkList& rMarkList = pView->GetMarkedObjectList();
 445             if (rMarkList.GetMarkCount() == 1)
 446             {
 447                 SdrMark* pMark = rMarkList.GetMark(0);
 448                 pObj = pMark->GetMarkedSdrObj();
 449
 450                 //  only activate, when the mouse also is over the selected object
 451
 452                 SdrViewEvent aVEvt;
 453                 SdrHitKind eHit = pView->PickAnything( rMEvt, SdrMouseEventKind::BUTTONDOWN, aVEvt );
 454                 if (eHit != SdrHitKind::NONE && aVEvt.pObj == pObj)
 455                 {
 456                     sal_uInt16 nSdrObjKind = pObj->GetObjIdentifier();
 457
 458                     //  OLE: activate
 459
 460                     if (nSdrObjKind == OBJ_OLE2)
 461                     {
 462                         if (!bOle)
 463                         {
 464                             if (static_cast<SdrOle2Obj*>(pObj)->GetObjRef().is())
 465                             {
 466                                 rViewShell.ActivateObject( static_cast<SdrOle2Obj*>(pObj), 0 );
 467                             }
 468                         }
 469                     }
 470
 471                     //  Edit text
 472                     //  not in UNO controls
 473                     //  #i32352# not in media objects
 474
 475                     else if ( dynamic_cast<const SdrTextObj*>( pObj) != nullptr && dynamic_cast<const SdrUnoObj*>( pObj) == nullptr && dynamic_cast<const SdrMediaObj*>( pObj) ==  nullptr )
 476                     {
 477                         OutlinerParaObject* pOPO = pObj->GetOutlinerParaObject();
 478                         bool bVertical = ( pOPO && pOPO->IsVertical() );
 479                         sal_uInt16 nTextSlotId = bVertical ? SID_DRAW_TEXT_VERTICAL : SID_DRAW_TEXT;
 480
 481                         rViewShell.GetViewData().GetDispatcher().
 482                             Execute(nTextSlotId, SfxCallMode::SYNCHRON | SfxCallMode::RECORD);
 483
 484                         // Get the created FuText now and change into EditMode
 485                         FuPoor* pPoor = rViewShell.GetViewData().GetView()->GetDrawFuncPtr();
 486                         if ( pPoor && pPoor->GetSlotID() == nTextSlotId )    // has no RTTI
 487                         {
 488                             FuText* pText = static_cast<FuText*>(pPoor);
 489                             Point aMousePixel = rMEvt.GetPosPixel();
 490                             pText->SetInEditMode( pObj, &aMousePixel );
 491                         }
 492                         bReturn = true;
 493                     }
 494                 }
 495             }
 496         }
 497         else if ( TestDetective( pView->GetSdrPageView(), aPnt ) )
 498             bReturn = true;
 499     }
 500
 501     ForcePointer(&rMEvt);
 502
 503     if (pWindow->IsMouseCaptured())
 504         pWindow->ReleaseMouse();
 505
 506     //  command handler for context menu follows after MouseButtonUp,
 507     //  therefore here the hard IsLeft call
 508     if ( !bReturn && rMEvt.IsLeft() )
 509         if (rViewShell.IsDrawSelMode())
 510             rViewShell.GetViewData().GetDispatcher().
 511                 Execute(SID_OBJECT_SELECT, SfxCallMode::SLOT | SfxCallMode::RECORD);
 512
 513     if ( bCopy && pDocument && pPage )
 514     {
 515         ScDocShell* pDocShell = rViewData.GetDocShell();
 516         ScModelObj* pModelObj = ( pDocShell ? comphelper::getUnoTunnelImplementation<ScModelObj>( pDocShell->GetModel() ) : nullptr );
 517         if ( pModelObj )
 518         {
 519             SCTAB nTab = rViewData.GetTabNo();
 520             ScChartHelper::CreateProtectedChartListenersAndNotify( pDocument, pPage, pModelObj, nTab,
 521                 aProtectedChartRangesVector, aExcludedChartNames );
 522         }
 523     }
 524
 525     return bReturn;
 526 }
 527
 528 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */