sw/source/ui/fldui/fldpage.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 <vcl/lstbox.hxx>
  21 #include <svl/stritem.hxx>
  22 #include <sfx2/request.hxx>
  23 #include <sfx2/htmlmode.hxx>
  24 #include <dbfld.hxx>
  25 #include <flddat.hxx>
  26 #include <fmtfld.hxx>
  27 #include <viewopt.hxx>
  28 #include <fldedt.hxx>
  29 #include <docsh.hxx>
  30 #include <swmodule.hxx>
  31 #include <view.hxx>
  32 #include <wrtsh.hxx>
  33 #include <expfld.hxx>
  34 #include <fldtdlg.hxx>
  35 #include <fldpage.hxx>
  36 #include <docufld.hxx>
  37 #include <cmdid.h>
  38 #include <globals.hrc>
  39 #include <sfx2/bindings.hxx>
  40 #include <switerator.hxx>
  41
  42 using namespace ::com::sun::star;
  43
  44 SwFldPage::SwFldPage( Window *pParent, const ResId &rId,
  45                         const SfxItemSet &rAttrSet )
  46     :SfxTabPage     (pParent, rId, rAttrSet),
  47     m_pCurFld       (0),
  48     m_pWrtShell     (0),
  49     m_nPageId       ( static_cast< sal_uInt16 >(rId.GetId()) ),
  50     m_nTypeSel      (LISTBOX_ENTRY_NOTFOUND),
  51     m_nSelectionSel (LISTBOX_ENTRY_NOTFOUND),
  52     m_bFldEdit      (false),
  53     m_bInsert           (sal_True),
  54     m_bFldDlgHtmlMode   (sal_False),
  55     m_bRefresh          (sal_False),
  56     m_bFirstHTMLInit    (sal_True)
  57 {
  58
  59 }
  60
  61 SwFldPage::~SwFldPage()
  62 {
  63 }
  64
  65 /*--------------------------------------------------------------------
  66     Description: initialise TabPage
  67  --------------------------------------------------------------------*/
  68
  69 void SwFldPage::Init()
  70 {
  71     SwDocShell* pDocSh = (SwDocShell*)SfxObjectShell::Current();
  72     sal_Bool bNewMode = 0 != (::GetHtmlMode(pDocSh) & HTMLMODE_ON);
  73
  74     m_bFldEdit = 0 == GetTabDialog();
  75
  76     // newly initialise FieldManager. important for
  77     // Dok-Switch (fldtdlg:ReInitTabPage)
  78     m_pCurFld = m_aMgr.GetCurFld();
  79
  80     if( bNewMode != m_bFldDlgHtmlMode )
  81     {
  82         m_bFldDlgHtmlMode = bNewMode;
  83
  84         // initialise Rangelistbox
  85         if( m_bFldDlgHtmlMode && m_bFirstHTMLInit )
  86         {
  87             m_bFirstHTMLInit = sal_False;
  88             SwWrtShell *pSh = m_pWrtShell;
  89             if(! pSh)
  90                 pSh = ::GetActiveWrtShell();
  91             if(pSh)
  92             {
  93                 SwDoc* pDoc = pSh->GetDoc();
  94                 pSh->InsertFldType( SwSetExpFieldType( pDoc,
  95                                     OUString("HTML_ON"), 1));
  96                 pSh->InsertFldType( SwSetExpFieldType(pDoc,
  97                                     OUString("HTML_OFF"), 1));
  98             }
  99         }
 100     }
 101 }
 102
 103 /*--------------------------------------------------------------------
 104      Description: newly initialise page
 105  --------------------------------------------------------------------*/
 106
 107 void SwFldPage::ActivatePage()
 108 {
 109     EnableInsert(m_bInsert);
 110 }
 111
 112 /*--------------------------------------------------------------------
 113      Description: complete reset; edit new field
 114  --------------------------------------------------------------------*/
 115
 116 void SwFldPage::EditNewField( sal_Bool bOnlyActivate )
 117 {
 118     if( !bOnlyActivate )
 119     {
 120         m_nTypeSel = LISTBOX_ENTRY_NOTFOUND;
 121     }
 122     m_nSelectionSel = LISTBOX_ENTRY_NOTFOUND;
 123     m_bRefresh = sal_True;
 124     Reset(*(SfxItemSet*)0);
 125     m_bRefresh = sal_False;
 126 }
 127
 128 /*--------------------------------------------------------------------
 129      Description: insert field
 130  --------------------------------------------------------------------*/
 131
 132 sal_Bool SwFldPage::InsertFld(sal_uInt16 nTypeId, sal_uInt16 nSubType, const String& rPar1,
 133                             const String& rPar2, sal_uLong nFormatId,
 134                             sal_Unicode cSeparator, sal_Bool bIsAutomaticLanguage)
 135 {
 136     sal_Bool bRet = sal_False;
 137     SwView* pView = GetActiveView();
 138     SwWrtShell *pSh = m_pWrtShell ? m_pWrtShell : pView->GetWrtShellPtr();
 139
 140     if (!IsFldEdit())   // insert new field
 141     {
 142         SwInsertFld_Data aData(nTypeId, nSubType, rPar1, rPar2, nFormatId, 0, cSeparator, bIsAutomaticLanguage );
 143         //#i26566# provide parent for SwWrtShell::StartInputFldDlg
 144         aData.pParent = &GetTabDialog()->GetOKButton();
 145         bRet = m_aMgr.InsertFld( aData );
 146
 147         uno::Reference< frame::XDispatchRecorder > xRecorder =
 148                 pView->GetViewFrame()->GetBindings().GetRecorder();
 149         if ( xRecorder.is() )
 150         {
 151             bool bRecordDB = TYP_DBFLD == nTypeId ||
 152                             TYP_DBSETNUMBERFLD == nTypeId ||
 153                             TYP_DBNUMSETFLD == nTypeId ||
 154                             TYP_DBNEXTSETFLD == nTypeId ||
 155                             TYP_DBNAMEFLD == nTypeId ;
 156
 157             SfxRequest aReq( pView->GetViewFrame(),
 158                     bRecordDB ?  FN_INSERT_DBFIELD : FN_INSERT_FIELD );
 159             if(bRecordDB)
 160             {
 161                 aReq.AppendItem(SfxStringItem
 162                         (FN_INSERT_DBFIELD,rPar1.GetToken(0, DB_DELIM)));
 163                 aReq.AppendItem(SfxStringItem
 164                         (FN_PARAM_1,rPar1.GetToken(1, DB_DELIM)));
 165                 aReq.AppendItem(SfxInt32Item
 166                         (FN_PARAM_3,rPar1.GetToken(1, DB_DELIM).ToInt32()));
 167                 aReq.AppendItem(SfxStringItem
 168                         (FN_PARAM_2,rPar1.GetToken(3, DB_DELIM)));
 169             }
 170             else
 171             {
 172                 aReq.AppendItem(SfxStringItem(FN_INSERT_FIELD, rPar1));
 173                 aReq.AppendItem(SfxStringItem
 174                         (FN_PARAM_3, OUString(cSeparator)));
 175                 aReq.AppendItem(SfxUInt16Item(FN_PARAM_FIELD_SUBTYPE, nSubType));
 176             }
 177             aReq.AppendItem(SfxUInt16Item(FN_PARAM_FIELD_TYPE   , nTypeId));
 178             aReq.AppendItem(SfxStringItem(FN_PARAM_FIELD_CONTENT, rPar2));
 179             aReq.AppendItem(SfxUInt32Item(FN_PARAM_FIELD_FORMAT , nFormatId));
 180             aReq.Done();
 181         }
 182
 183     }
 184     else    // change field
 185     {
 186         SwField *const pTmpFld = m_pCurFld->CopyField();
 187
 188         String sPar1(rPar1);
 189         String sPar2(rPar2);
 190         switch( nTypeId )
 191         {
 192         case TYP_DATEFLD:
 193         case TYP_TIMEFLD:
 194             nSubType = static_cast< sal_uInt16 >(((nTypeId == TYP_DATEFLD) ? DATEFLD : TIMEFLD) |
 195                        ((nSubType == DATE_VAR) ? 0 : FIXEDFLD));
 196             break;
 197
 198         case TYP_DBNAMEFLD:
 199         case TYP_DBNEXTSETFLD:
 200         case TYP_DBNUMSETFLD:
 201         case TYP_DBSETNUMBERFLD:
 202             {
 203                 sal_Int32 nPos = 0;
 204                 SwDBData aData;
 205
 206                 aData.sDataSource = rPar1.GetToken(0, DB_DELIM, nPos);
 207                 aData.sCommand = rPar1.GetToken(0, DB_DELIM, nPos);
 208                 aData.nCommandType = rPar1.GetToken(0, DB_DELIM, nPos).ToInt32();
 209                 sPar1 = rPar1.Copy(nPos);
 210
 211                 ((SwDBNameInfField*)pTmpFld)->SetDBData(aData);
 212             }
 213             break;
 214
 215         case TYP_DBFLD:
 216             {
 217                 SwDBData aData;
 218                 aData.sDataSource = rPar1.GetToken(0, DB_DELIM);
 219                 aData.sCommand = rPar1.GetToken(1, DB_DELIM);
 220                 aData.nCommandType = rPar1.GetToken(2, DB_DELIM).ToInt32();
 221                 String sColumn = rPar1.GetToken(3, DB_DELIM);
 222
 223                 SwDBFieldType* pOldTyp = (SwDBFieldType*)pTmpFld->GetTyp();
 224                 SwDBFieldType* pTyp = (SwDBFieldType*)pSh->InsertFldType(
 225                         SwDBFieldType(pSh->GetDoc(), sColumn, aData));
 226
 227                 SwIterator<SwFmtFld,SwFieldType> aIter( *pOldTyp );
 228
 229                 for( SwFmtFld* pFmtFld = aIter.First(); pFmtFld; pFmtFld = aIter.Next() )
 230                 {
 231                     if( pFmtFld->GetFld() == m_pCurFld)
 232                     {
 233                         pFmtFld->RegisterToFieldType(*pTyp);
 234                         pTmpFld->ChgTyp(pTyp);
 235                         break;
 236                     }
 237                 }
 238             }
 239             break;
 240
 241         case TYP_SEQFLD:
 242             {
 243                 SwSetExpFieldType* pTyp = (SwSetExpFieldType*)pTmpFld->GetTyp();
 244                 pTyp->SetOutlineLvl( static_cast< sal_uInt8 >(nSubType & 0xff));
 245                 pTyp->SetDelimiter(OUString(cSeparator));
 246
 247                 nSubType = nsSwGetSetExpType::GSE_SEQ;
 248             }
 249             break;
 250
 251         case TYP_INPUTFLD:
 252             {
 253                 // User- or SetField ?
 254                 if (m_aMgr.GetFldType(RES_USERFLD, sPar1) == 0 &&
 255                 !(pTmpFld->GetSubType() & INP_TXT)) // SETEXPFLD
 256                 {
 257                     SwSetExpField* pFld = (SwSetExpField*)pTmpFld;
 258                     pFld->SetPromptText(sPar2);
 259                     sPar2 = pFld->GetPar2();
 260                 }
 261             }
 262             break;
 263         case TYP_DOCINFOFLD:
 264             {
 265                 if( nSubType == nsSwDocInfoSubType::DI_CUSTOM )
 266                 {
 267                     SwDocInfoField* pDocInfo = static_cast<SwDocInfoField*>( pTmpFld );
 268                     pDocInfo->SetName( rPar1 );
 269                 }
 270             }
 271             break;
 272         }
 273
 274         pSh->StartAllAction();
 275
 276         pTmpFld->SetSubType(nSubType);
 277         pTmpFld->SetAutomaticLanguage(bIsAutomaticLanguage);
 278
 279         m_aMgr.UpdateCurFld( nFormatId, sPar1, sPar2, pTmpFld );
 280
 281         m_pCurFld = m_aMgr.GetCurFld();
 282
 283         switch (nTypeId)
 284         {
 285             case TYP_HIDDENTXTFLD:
 286             case TYP_HIDDENPARAFLD:
 287                 m_aMgr.EvalExpFlds(pSh);
 288                 break;
 289         }
 290
 291         pSh->SetUndoNoResetModified();
 292         pSh->EndAllAction();
 293     }
 294
 295     return bRet;
 296 }
 297
 298 void SwFldPage::SavePos( const ListBox* pLst1, const ListBox* pLst2,
 299                          const ListBox* pLst3 )
 300 {
 301     const ListBox* aLBArr [ coLBCount ] = { pLst1, pLst2, pLst3 };
 302
 303     const ListBox** ppLB = aLBArr;
 304     for( int i = 0; i < coLBCount; ++i, ++ppLB )
 305         if( (*ppLB) && (*ppLB)->GetEntryCount() )
 306             m_aLstStrArr[ i ] = (*ppLB)->GetSelectEntry();
 307         else
 308             m_aLstStrArr[ i ].Erase();
 309 }
 310
 311 void SwFldPage::RestorePos(ListBox* pLst1, ListBox* pLst2, ListBox* pLst3)
 312 {
 313     sal_uInt16 nPos = 0;
 314     ListBox* aLBArr [ coLBCount ] = { pLst1, pLst2, pLst3 };
 315     ListBox** ppLB = aLBArr;
 316     for( int i = 0; i < coLBCount; ++i, ++ppLB )
 317         if( (*ppLB) && (*ppLB)->GetEntryCount() && m_aLstStrArr[ i ].Len() &&
 318             LISTBOX_ENTRY_NOTFOUND !=
 319                         ( nPos = (*ppLB)->GetEntryPos(m_aLstStrArr[ i ] ) ) )
 320             (*ppLB)->SelectEntryPos( nPos );
 321 }
 322
 323 /*--------------------------------------------------------------------
 324      Description: Insert new fields
 325  --------------------------------------------------------------------*/
 326
 327 IMPL_LINK( SwFldPage, InsertHdl, Button *, pBtn )
 328 {
 329     SwFldDlg *pDlg = (SwFldDlg*)GetTabDialog();
 330
 331     if (pDlg)
 332     {
 333         pDlg->InsertHdl();
 334
 335         if (pBtn)
 336             pBtn->GrabFocus();  // because of InputField-Dlg
 337     }
 338     else
 339     {
 340         SwFldEditDlg *pEditDlg = (SwFldEditDlg *)GetParent();
 341         pEditDlg->InsertHdl();
 342     }
 343
 344     return 0;
 345 }
 346
 347 /*--------------------------------------------------------------------
 348      Description: enable/disable "Insert"-Button
 349  --------------------------------------------------------------------*/
 350
 351 void SwFldPage::EnableInsert(sal_Bool bEnable)
 352 {
 353     SwFldDlg *pDlg = (SwFldDlg*)GetTabDialog();
 354
 355     if (pDlg)
 356     {
 357         if (pDlg->GetCurPageId() == m_nPageId)
 358             pDlg->EnableInsert(bEnable);
 359     }
 360     else
 361     {
 362         SwFldEditDlg *pEditDlg = (SwFldEditDlg *)GetParent();
 363         pEditDlg->EnableInsert(bEnable);
 364     }
 365
 366     m_bInsert = bEnable;
 367 }
 368
 369 IMPL_LINK_NOARG(SwFldPage, NumFormatHdl)
 370 {
 371     InsertHdl();
 372
 373     return 0;
 374 }
 375
 376 void SwFldPage::SetWrtShell( SwWrtShell* pShell )
 377 {
 378     m_pWrtShell = pShell;
 379     m_aMgr.SetWrtShell( pShell );
 380 }
 381
 382 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */