sc/source/ui/view/tabvwshe.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 <comphelper/string.hxx>
  21 #include <editeng/eeitem.hxx>
  22 #include <osl/diagnose.h>
  23
  24 #include <editeng/editview.hxx>
  25 #include <editeng/flditem.hxx>
  26 #include <svx/hlnkitem.hxx>
  27 #include <svl/srchitem.hxx>
  28 #include <sfx2/dispatch.hxx>
  29 #include <sfx2/request.hxx>
  30 #include <svl/stritem.hxx>
  31
  32 #include <tabvwsh.hxx>
  33 #include <sc.hrc>
  34 #include <scmod.hxx>
  35 #include <impex.hxx>
  36 #include <editsh.hxx>
  37 #include <dociter.hxx>
  38 #include <inputhdl.hxx>
  39 #include <document.hxx>
  40
  41 OUString ScTabViewShell::GetSelectionText( bool bWholeWord, bool bOnlyASample )
  42 {
  43     OUString aStrSelection;
  44
  45     if ( pEditShell && pEditShell.get() == GetMySubShell() )
  46     {
  47         aStrSelection = pEditShell->GetSelectionText( bWholeWord );
  48     }
  49     else
  50     {
  51         ScRange aRange;
  52
  53         if ( GetViewData().GetSimpleArea( aRange ) == SC_MARK_SIMPLE )
  54         {
  55             ScDocument& rDoc = GetViewData().GetDocument();
  56             if ( (bOnlyASample || bInFormatDialog) && aRange.aStart.Row() != aRange.aEnd.Row() )
  57             {
  58                 // limit range to one data row
  59                 // (only when  the call comes from a format dialog)
  60                 ScHorizontalCellIterator aIter( rDoc, aRange.aStart.Tab(),
  61                     aRange.aStart.Col(), aRange.aStart.Row(),
  62                     aRange.aEnd.Col(), aRange.aEnd.Row() );
  63                 SCCOL nCol;
  64                 SCROW nRow;
  65                 if ( aIter.GetNext( nCol, nRow ) )
  66                 {
  67                     aRange.aStart.SetCol( nCol );
  68                     aRange.aStart.SetRow( nRow );
  69                     aRange.aEnd.SetRow( nRow );
  70                 }
  71                 else
  72                     aRange.aEnd = aRange.aStart;
  73             }
  74             else
  75             {
  76                 // #i111531# with 1M rows it was necessary to limit the range
  77                 // to the actually used data area.
  78                 SCCOL nCol1, nCol2;
  79                 SCROW nRow1, nRow2;
  80                 SCTAB nTab1, nTab2;
  81                 aRange.GetVars( nCol1, nRow1, nTab1, nCol2, nRow2, nTab2);
  82                 bool bShrunk;
  83                 rDoc.ShrinkToUsedDataArea( bShrunk, nTab1, nCol1, nRow1, nCol2, nRow2, false);
  84                 if (bShrunk)
  85                 {
  86                     aRange.aStart.SetCol( nCol1 );
  87                     aRange.aStart.SetRow( nRow1 );
  88                     aRange.aEnd.SetCol( nCol2 );
  89                     aRange.aEnd.SetRow( nRow2 );
  90                 }
  91             }
  92
  93             ScImportExport aObj( rDoc, aRange );
  94             // tdf#148437 - if cell contains a formula, overwrite entire content of the cell
  95             aObj.SetFormulas(true);
  96             OUString aExportOUString;
  97             /* TODO: STRING_TSVC under some circumstances? */
  98             aObj.ExportString( aExportOUString, SotClipboardFormatId::STRING );
  99             aStrSelection = convertLineEnd(aExportOUString, LINEEND_CR);
 100
 101             // replace Tab/CR with space, if for dialog or through Basic/SelectionTextExt,
 102             // or when it is a single row.
 103             // Otherwise keep Tabs in multi-row (for instance mail or Basic/SelectionText).
 104             // for mail the Tabs are then later changed into (multiple) spaces.
 105
 106             if ( bInFormatDialog || bWholeWord || aRange.aEnd.Row() == aRange.aStart.Row() )
 107             {
 108                 aStrSelection = aStrSelection.replaceAll("\r", " ");
 109                 aStrSelection = aStrSelection.replaceAll("\t", " ");
 110                 aStrSelection = comphelper::string::stripEnd(aStrSelection, ' ');
 111             }
 112         }
 113     }
 114
 115     return aStrSelection;
 116 }
 117
 118 void ScTabViewShell::InsertURL( const OUString& rName, const OUString& rURL, const OUString& rTarget,
 119                                 sal_uInt16 nMode )
 120 {
 121     SvxLinkInsertMode eMode = static_cast<SvxLinkInsertMode>(nMode);
 122     bool bAsText = ( eMode != HLINK_BUTTON );       // default is now text
 123
 124     if ( bAsText )
 125     {
 126         if ( GetViewData().IsActive() )
 127         {
 128             //  if the view is active, always use InsertURLField, which starts EditMode
 129             //  and selects the URL, so it can be changed from the URL bar / dialog
 130
 131             InsertURLField( rName, rURL, rTarget );
 132         }
 133         else
 134         {
 135             //  if the view is not active, InsertURLField doesn't work
 136             //  -> use InsertBookmark to directly manipulate cell content
 137             //  bTryReplace=sal_True -> if cell contains only one URL, replace it
 138
 139             SCCOL nPosX = GetViewData().GetCurX();
 140             SCROW nPosY = GetViewData().GetCurY();
 141             InsertBookmark( rName, rURL, nPosX, nPosY, &rTarget, true );
 142         }
 143     }
 144     else
 145     {
 146         ScModule::get()->InputEnterHandler();
 147         InsertURLButton( rName, rURL, rTarget, nullptr );
 148     }
 149 }
 150
 151 static void lcl_SelectFieldAfterInsert( EditView& rView )
 152 {
 153     ESelection aSel = rView.GetSelection();
 154     if (aSel.start.nIndex == aSel.end.nIndex && aSel.start.nIndex > 0)
 155     {
 156         //  Cursor is behind the inserted field -> extend selection to the left
 157
 158         --aSel.start.nIndex;
 159         rView.SetSelection( aSel );
 160     }
 161 }
 162
 163 void ScTabViewShell::InsertURLField( const OUString& rName, const OUString& rURL, const OUString& rTarget )
 164 {
 165     SvxURLField aURLField( rURL, rName, SvxURLFormat::Repr );
 166     aURLField.SetTargetFrame( rTarget );
 167     SvxFieldItem aURLItem( aURLField, EE_FEATURE_FIELD );
 168
 169     ScViewData&     rViewData   = GetViewData();
 170     ScModule*       pScMod      = ScModule::get();
 171     ScInputHandler* pHdl        = pScMod->GetInputHdl( rViewData.GetViewShell() );
 172
 173     bool bSelectFirst = false;
 174     bool bIsEditMode = pScMod->IsEditMode();
 175     int nSelInd = 1;
 176     OUString sSeltext(GetSelectionText());
 177
 178     if ( !bIsEditMode )
 179     {
 180         if ( !SelectionEditable() )
 181         {
 182             // no error message (may be called from drag&drop)
 183             return;
 184         }
 185
 186         // single url in cell is shown in the dialog and replaced
 187         bSelectFirst = HasBookmarkAtCursor( nullptr );
 188         pScMod->SetInputMode( SC_INPUT_TABLE );
 189     }
 190
 191     EditView*       pTopView    = pHdl->GetTopView();
 192     EditView*       pTableView  = pHdl->GetTableView();
 193     OSL_ENSURE( pTopView || pTableView, "No EditView" );
 194
 195     // Check if user selected a whole cell by single click, and cell has content.
 196     // tdf#80043 - if true, replace the entire content of the selected cell instead of
 197     // inserting a duplicate, or appending the url.
 198     if (!bIsEditMode && !bSelectFirst && pTableView && !sSeltext.isEmpty())
 199     {
 200         nSelInd = sSeltext.getLength();
 201         bSelectFirst = true;
 202     }
 203
 204     if ( bSelectFirst )
 205     {
 206         if ( pTopView )
 207             pTopView->SetSelection( ESelection(0,0,0,1) );
 208         if ( pTableView )
 209             pTableView->SetSelection( ESelection(0,0,0,nSelInd) );
 210     }
 211
 212     pHdl->DataChanging();
 213
 214     if ( pTopView )
 215     {
 216         pTopView->InsertField( aURLItem );
 217         lcl_SelectFieldAfterInsert( *pTopView );
 218     }
 219     if ( pTableView )
 220     {
 221         pTableView->InsertField( aURLItem );
 222         lcl_SelectFieldAfterInsert( *pTableView );
 223     }
 224
 225     pHdl->DataChanged();
 226 }
 227
 228 void ScTabViewShell::ExecSearch( SfxRequest& rReq )
 229 {
 230     const SfxItemSet*   pReqArgs    = rReq.GetArgs();
 231     sal_uInt16              nSlot       = rReq.GetSlot();
 232     const SfxPoolItem*  pItem;
 233
 234     switch ( nSlot )
 235     {
 236         case FID_SEARCH_NOW:
 237             {
 238                 const SvxSearchItem* pSearchItem;
 239                 if ( pReqArgs &&
 240                      (pSearchItem = pReqArgs->GetItemIfSet(SID_SEARCH_ITEM, false)) )
 241                 {
 242                     ScGlobal::SetSearchItem( *pSearchItem );
 243                     SearchAndReplace( pSearchItem, true, rReq.IsAPI() );
 244                     rReq.Done();
 245                 }
 246             }
 247             break;
 248
 249         case SID_SEARCH_ITEM:
 250         {
 251             const SvxSearchItem* pSearchItem;
 252             if (pReqArgs && (pSearchItem =
 253                             pReqArgs->GetItemIfSet(SID_SEARCH_ITEM, false)))
 254             {
 255                 // remember search item
 256                 ScGlobal::SetSearchItem( *pSearchItem );
 257             }
 258             else
 259             {
 260                 OSL_FAIL("SID_SEARCH_ITEM without Parameter");
 261             }
 262             break;
 263         }
 264         case FID_SEARCH:
 265         case FID_REPLACE:
 266         case FID_REPLACE_ALL:
 267         case FID_SEARCH_ALL:
 268             {
 269                 if (pReqArgs && SfxItemState::SET == pReqArgs->GetItemState(nSlot, false, &pItem))
 270                 {
 271                     // get search item
 272
 273                     SvxSearchItem aSearchItem = ScGlobal::GetSearchItem();
 274
 275                     // fill search item
 276
 277                     aSearchItem.SetSearchString(static_cast<const SfxStringItem*>(pItem)->GetValue());
 278                     if(SfxItemState::SET == pReqArgs->GetItemState(FN_PARAM_1, false, &pItem))
 279                         aSearchItem.SetReplaceString(static_cast<const SfxStringItem*>(pItem)->GetValue());
 280
 281                     if (nSlot == FID_SEARCH)
 282                         aSearchItem.SetCommand(SvxSearchCmd::FIND);
 283                     else if(nSlot == FID_REPLACE)
 284                         aSearchItem.SetCommand(SvxSearchCmd::REPLACE);
 285                     else if(nSlot == FID_REPLACE_ALL)
 286                         aSearchItem.SetCommand(SvxSearchCmd::REPLACE_ALL);
 287                     else
 288                         aSearchItem.SetCommand(SvxSearchCmd::FIND_ALL);
 289
 290                     // execute request (which stores the SearchItem)
 291
 292                     aSearchItem.SetWhich(SID_SEARCH_ITEM);
 293                     GetViewData().GetDispatcher().ExecuteList(FID_SEARCH_NOW,
 294                             rReq.IsAPI() ? SfxCallMode::API|SfxCallMode::SYNCHRON :
 295                                             SfxCallMode::RECORD,
 296                             { &aSearchItem });
 297                 }
 298                 else
 299                 {
 300                     GetViewData().GetDispatcher().Execute(
 301                             SID_SEARCH_DLG, SfxCallMode::ASYNCHRON|SfxCallMode::RECORD );
 302                 }
 303             }
 304             break;
 305         case FID_REPEAT_SEARCH:
 306             {
 307                 // once more with ScGlobal::GetSearchItem()
 308
 309                 SvxSearchItem aSearchItem = ScGlobal::GetSearchItem();
 310                 aSearchItem.SetWhich(SID_SEARCH_ITEM);
 311                 GetViewData().GetDispatcher().ExecuteList( FID_SEARCH_NOW,
 312                         rReq.IsAPI() ? SfxCallMode::API|SfxCallMode::SYNCHRON :
 313                                         SfxCallMode::RECORD,
 314                         { &aSearchItem });
 315             }
 316             break;
 317 //      case FID_SEARCH_COUNT:
 318     }
 319 }
 320
 321 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */