sw/source/ui/fldui/flddinf.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: flddinf.cxx,v $
  10  * $Revision: 1.16 $
  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
  31 // MARKER(update_precomp.py): autogen include statement, do not remove
  32 #include "precompiled_sw.hxx"
  33
  34 #ifdef SW_DLLIMPLEMENTATION
  35 #undef SW_DLLIMPLEMENTATION
  36 #endif
  37
  38 #include <sfx2/request.hxx>
  39 #include <sfx2/frame.hxx>
  40 #include <vcl/svapp.hxx>
  41 #include <svtools/zforlist.hxx>
  42
  43 #ifndef _HELPID_H
  44 #include <helpid.h>
  45 #endif
  46 #include <swtypes.hxx>
  47 #ifndef _GLOBALS_HRC
  48 #include <globals.hrc>
  49 #endif
  50 #include <fldbas.hxx>
  51 #include <docufld.hxx>
  52 #include <wrtsh.hxx>
  53
  54 #include <fldui.hrc>
  55
  56 #ifndef _FLDTDLG_HRC
  57 #include <fldtdlg.hrc>
  58 #endif
  59 #ifndef _FLDDINF_HXX
  60 #include <flddinf.hxx>
  61 #endif
  62 #include <swmodule.hxx>
  63 #ifndef _VIEW_HXX
  64 #include <view.hxx>
  65 #endif
  66 #include <svtools/zformat.hxx>
  67
  68 #define USER_DATA_VERSION_1 "1"
  69 #define USER_DATA_VERSION USER_DATA_VERSION_1
  70
  71 using namespace nsSwDocInfoSubType;
  72
  73 /*--------------------------------------------------------------------
  74     Beschreibung:
  75  --------------------------------------------------------------------*/
  76
  77 SwFldDokInfPage::SwFldDokInfPage(Window* pWindow, const SfxItemSet& rCoreSet ) :
  78     SwFldPage( pWindow, SW_RES( TP_FLD_DOKINF ), rCoreSet ),
  79
  80     aTypeFT             (this, SW_RES(FT_DOKINFTYPE)),
  81     aTypeTLB    (this, SW_RES(TLB_DOKINFTYPE)),
  82     aSelectionFT(this, SW_RES(FT_DOKINFSELECTION)),
  83     aSelectionLB(this, SW_RES(LB_DOKINFSELECTION)),
  84     aFormatFT   (this, SW_RES(FT_DOKINFFORMAT)),
  85     aFormatLB   (this, SW_RES(LB_DOKINFFORMAT)),
  86     aFixedCB    (this, SW_RES(CB_DOKINFFIXEDCONTENT)),
  87
  88     pSelEntry   (0),
  89     aInfoStr    (SW_RES(STR_DOKINF_INFO))
  90 {
  91     FreeResource();
  92
  93     aTypeTLB.SetHelpId(HID_FIELD_DINF_TYPE);
  94     aTypeTLB.SetSelectionMode(SINGLE_SELECTION);
  95     aTypeTLB.SetWindowBits(WB_HASLINES|WB_CLIPCHILDREN|WB_SORT|WB_HASBUTTONS|WB_HASBUTTONSATROOT|WB_HSCROLL);
  96     // Font nicht setzen, damit der Font des Controls uebernommen wird!
  97     // Sonst bei falschem Font Bug an OV.
  98     aTypeTLB.SetSpaceBetweenEntries(0);
  99
 100     aTypeTLB.SetNodeDefaultImages();
 101     //enable 'active' language selection
 102     aFormatLB.SetShowLanguageControl(TRUE);
 103
 104     SFX_ITEMSET_ARG( &rCoreSet, pItem, SfxUnoAnyItem, SID_DOCINFO, FALSE );
 105     if ( pItem )
 106         pItem->GetValue() >>= aPropertyNames;
 107 }
 108
 109 /*--------------------------------------------------------------------
 110     Beschreibung:
 111  --------------------------------------------------------------------*/
 112
 113 __EXPORT SwFldDokInfPage::~SwFldDokInfPage()
 114 {
 115 }
 116
 117 /*--------------------------------------------------------------------
 118     Beschreibung:
 119  --------------------------------------------------------------------*/
 120
 121 void __EXPORT SwFldDokInfPage::Reset(const SfxItemSet& )
 122 {
 123     Init();     // Allgemeine initialisierung
 124
 125     // TypeListBox initialisieren
 126     aTypeTLB.SetUpdateMode(FALSE);
 127     aTypeTLB.Clear();
 128     pSelEntry = 0;
 129
 130     // SubTypes in der TypeLB anzeigen
 131     USHORT nTypeId = TYP_DOCINFOFLD;
 132     SvLBoxEntry* pEntry = 0;
 133
 134     SvLBoxEntry* pInfo = 0;
 135
 136     USHORT nSubType = USHRT_MAX;
 137     if (IsFldEdit())
 138     {
 139         const SwField* pCurField = GetCurField();
 140         nSubType = ((SwDocInfoField*)pCurField)->GetSubType() & 0xff;
 141         if( nSubType == DI_CUSTOM )
 142         {
 143             m_sOldCustomFieldName = static_cast<const SwDocInfoField*>(pCurField)->GetName();
 144         }
 145         aFormatLB.SetAutomaticLanguage(pCurField->IsAutomaticLanguage());
 146         SwWrtShell *pSh = GetWrtShell();
 147         if(pSh)
 148         {
 149             const SvNumberformat* pFormat = pSh->GetNumberFormatter()->GetEntry(pCurField->GetFormat());
 150             if(pFormat)
 151                 aFormatLB.SetLanguage(pFormat->GetLanguage());
 152         }
 153     }
 154
 155     USHORT nSelEntryData = USHRT_MAX;
 156     String sUserData = GetUserData();
 157     if(sUserData.GetToken(0, ';').EqualsIgnoreCaseAscii(USER_DATA_VERSION_1))
 158     {
 159         String sVal = sUserData.GetToken(1, ';');
 160         nSelEntryData = static_cast< USHORT >(sVal.ToInt32());
 161     }
 162
 163     SvStringsDtor aLst;
 164     GetFldMgr().GetSubTypes(nTypeId, aLst);
 165     for (USHORT i = 0; i < aLst.Count(); ++i)
 166     {
 167         if (!IsFldEdit() || nSubType == i)
 168         {
 169             if (DI_CUSTOM == i)
 170             {
 171                 if (aPropertyNames.getLength() )
 172                 {
 173                     //if ( !IsFldEdit() )
 174                     {
 175                         pInfo = aTypeTLB.InsertEntry( String(SW_RES( STR_CUSTOM )) );
 176                         pInfo->SetUserData(reinterpret_cast<void*>(USHRT_MAX));
 177                     }
 178
 179                     for (sal_Int32 n=0; n<aPropertyNames.getLength(); n++)
 180                     {
 181                         rtl::OUString sEntry = aPropertyNames[n];
 182                         pEntry = aTypeTLB.InsertEntry(sEntry, pInfo);
 183                         if(m_sOldCustomFieldName.equals( sEntry ))
 184                         {
 185                             pSelEntry = pEntry;
 186                             aTypeTLB.Expand( pInfo );
 187                         }
 188                         pEntry->SetUserData(reinterpret_cast<void*>(i));
 189                     }
 190                 }
 191             }
 192             else
 193             {
 194                 if (!(IsFldDlgHtmlMode() && (i == DI_EDIT || i == DI_THEMA || i == DI_PRINT)))
 195                 {
 196                     pEntry = aTypeTLB.InsertEntry(*aLst[i]);
 197                     pEntry->SetUserData(reinterpret_cast<void*>(i));
 198                 }
 199             }
 200             if(nSelEntryData == i)
 201                 pSelEntry = pEntry;
 202         }
 203     }
 204
 205     // alte Pos selektieren
 206     if (pSelEntry != 0)
 207     {
 208         aTypeTLB.Select(pSelEntry);
 209         nSubType = (USHORT)(ULONG)pSelEntry->GetUserData();
 210     }
 211     else if ( aTypeTLB.GetEntry(0) )
 212     {
 213         pSelEntry = aTypeTLB.GetEntry(0);
 214         nSubType = (USHORT)(ULONG)pSelEntry->GetUserData();
 215     }
 216
 217     FillSelectionLB(nSubType);
 218     if ( pSelEntry )
 219         TypeHdl();
 220
 221     aTypeTLB.SetUpdateMode(TRUE);
 222     aTypeTLB.SetSelectHdl(LINK(this, SwFldDokInfPage, TypeHdl));
 223     aTypeTLB.SetDoubleClickHdl(LINK(this, SwFldDokInfPage, InsertHdl));
 224     aSelectionLB.SetSelectHdl(LINK(this, SwFldDokInfPage, SubTypeHdl));
 225     aSelectionLB.SetDoubleClickHdl(LINK(this, SwFldDokInfPage, InsertHdl));
 226     aFormatLB.SetDoubleClickHdl(LINK(this, SwFldDokInfPage, InsertHdl));
 227
 228     if (IsFldEdit())
 229     {
 230         nOldSel = aSelectionLB.GetSelectEntryPos();
 231         nOldFormat = GetCurField()->GetFormat();
 232         aFixedCB.SaveValue();
 233     }
 234 }
 235
 236 /*--------------------------------------------------------------------
 237     Beschreibung:
 238  --------------------------------------------------------------------*/
 239
 240 IMPL_LINK( SwFldDokInfPage, TypeHdl, ListBox *, EMPTYARG )
 241 {
 242     // Alte ListBoxPos sichern
 243     SvLBoxEntry* pOldEntry = pSelEntry;
 244
 245     // Aktuelle ListBoxPos
 246     pSelEntry = aTypeTLB.FirstSelected();
 247
 248     if(!pSelEntry)
 249     {
 250         pSelEntry = aTypeTLB.GetEntry(0);
 251         aTypeTLB.Select(pSelEntry);
 252     }
 253     else
 254
 255     if (pOldEntry != pSelEntry)
 256         FillSelectionLB((USHORT)(ULONG)pSelEntry->GetUserData());
 257
 258     SubTypeHdl();
 259
 260     return 0;
 261 }
 262
 263 /*--------------------------------------------------------------------
 264     Beschreibung:
 265  --------------------------------------------------------------------*/
 266
 267 IMPL_LINK( SwFldDokInfPage, SubTypeHdl, ListBox *, EMPTYARG )
 268 {
 269     USHORT nSubType = (USHORT)(ULONG)pSelEntry->GetUserData();
 270     USHORT nPos = aSelectionLB.GetSelectEntryPos();
 271     USHORT nExtSubType;
 272
 273     if (nSubType != DI_EDIT)
 274     {
 275         if (nPos == LISTBOX_ENTRY_NOTFOUND)
 276         {
 277             if (!aSelectionLB.GetEntryCount())
 278             {
 279                 aFormatLB.Clear();
 280                 aFormatLB.Enable(FALSE);
 281                 aFormatFT.Enable(FALSE);
 282                 return 0;
 283             }
 284             nPos = 0;
 285         }
 286
 287         nExtSubType = (USHORT)(ULONG)aSelectionLB.GetEntryData(nPos);
 288     }
 289     else
 290         nExtSubType = DI_SUB_TIME;
 291
 292     USHORT nOldType = 0;
 293     USHORT nNewType = 0;
 294     BOOL bEnable = FALSE;
 295     BOOL bOneArea = FALSE;
 296
 297     if (aFormatLB.IsEnabled())
 298         nOldType = aFormatLB.GetFormatType();
 299
 300     switch (nExtSubType)
 301     {
 302         case DI_SUB_AUTHOR:
 303             break;
 304
 305         case DI_SUB_DATE:
 306             nNewType = NUMBERFORMAT_DATE;
 307             bOneArea = TRUE;
 308             break;
 309
 310         case DI_SUB_TIME:
 311             nNewType = NUMBERFORMAT_TIME;
 312             bOneArea = TRUE;
 313             break;
 314     }
 315
 316     if (!nNewType)
 317     {
 318         aFormatLB.Clear();
 319     }
 320     else
 321     {
 322         if (nOldType != nNewType)
 323         {
 324             aFormatLB.SetFormatType(nNewType);
 325             aFormatLB.SetOneArea(bOneArea);
 326         }
 327         bEnable = TRUE;
 328     }
 329
 330     ULONG nFormat = IsFldEdit() ? ((SwDocInfoField*)GetCurField())->GetFormat() : 0;
 331
 332     USHORT nOldSubType = IsFldEdit() ? (((SwDocInfoField*)GetCurField())->GetSubType() & 0xff00) : 0;
 333
 334     if (IsFldEdit())
 335     {
 336         nPos = aSelectionLB.GetSelectEntryPos();
 337         if (nPos != LISTBOX_ENTRY_NOTFOUND)
 338         {
 339             nSubType = (USHORT)(ULONG)aSelectionLB.GetEntryData(nPos);
 340
 341             nOldSubType &= ~DI_SUB_FIXED;
 342             if (nOldSubType == nSubType)
 343             {
 344                 if (!nFormat && (nNewType == NUMBERFORMAT_DATE || nNewType == NUMBERFORMAT_TIME))
 345                 {
 346                     SwWrtShell *pSh = GetWrtShell();
 347                     if(pSh)
 348                     {
 349
 350                         SvNumberFormatter* pFormatter = pSh->GetNumberFormatter();
 351                         LanguageType eLang = aFormatLB.GetCurLanguage();
 352                         if (nNewType == NUMBERFORMAT_DATE)
 353                             nFormat = pFormatter->GetFormatIndex( NF_DATE_SYSTEM_SHORT, eLang);
 354                         else if (nNewType == NUMBERFORMAT_TIME)
 355                             nFormat = pFormatter->GetFormatIndex( NF_TIME_HHMM, eLang);
 356                     }
 357                 }
 358                 aFormatLB.SetDefFormat(nFormat);
 359             }
 360         }
 361     }
 362
 363     aFormatLB.Enable(bEnable);
 364     aFormatFT.Enable(bEnable);
 365
 366     if (bEnable && aFormatLB.GetSelectEntryPos() == LISTBOX_ENTRY_NOTFOUND)
 367     {
 368         aFormatLB.SelectEntryPos(0);
 369     }
 370
 371     return 0;
 372 }
 373
 374 /*--------------------------------------------------------------------
 375     Beschreibung:
 376  --------------------------------------------------------------------*/
 377
 378 USHORT SwFldDokInfPage::FillSelectionLB(USHORT nSubType)
 379 {
 380     // Format-Listbox fuellen
 381     USHORT nTypeId = TYP_DOCINFOFLD;
 382
 383     EnableInsert(nSubType != USHRT_MAX);
 384
 385     if (nSubType == USHRT_MAX)  // Info-Text
 386         nSubType = DI_SUBTYPE_BEGIN;
 387
 388     aSelectionLB.Clear();
 389
 390     USHORT nSize = 0;
 391     USHORT nSelPos = USHRT_MAX;
 392     USHORT nExtSubType = IsFldEdit() ? (((SwDocInfoField*)GetCurField())->GetSubType() & 0xff00) : 0;
 393
 394     if (IsFldEdit())
 395     {
 396         aFixedCB.Check((nExtSubType & DI_SUB_FIXED) != 0);
 397         nExtSubType = ((nExtSubType & ~DI_SUB_FIXED) >> 8) - 1;
 398     }
 399
 400     if (nSubType < DI_CREATE || nSubType == DI_DOCNO || nSubType == DI_EDIT|| nSubType == DI_CUSTOM )
 401     {
 402         // Format Box ist fuer Title und Time leer
 403     }
 404     else
 405     {
 406         nSize = GetFldMgr().GetFormatCount(nTypeId, FALSE, IsFldDlgHtmlMode());
 407         for (USHORT i = 0; i < nSize; i++)
 408         {
 409             USHORT nPos = aSelectionLB.InsertEntry(GetFldMgr().GetFormatStr(nTypeId, i));
 410             aSelectionLB.SetEntryData(nPos, reinterpret_cast<void*>(GetFldMgr().GetFormatId(nTypeId, i)));
 411             if (IsFldEdit() && i == nExtSubType)
 412                 nSelPos = nPos;
 413         }
 414     }
 415
 416     BOOL bEnable = nSize != 0;
 417
 418     if (nSize)
 419     {
 420         if (!aSelectionLB.GetSelectEntryCount())
 421             aSelectionLB.SelectEntryPos(nSelPos == USHRT_MAX ? 0 : nSelPos);
 422
 423         bEnable = TRUE;
 424     }
 425
 426     aSelectionFT.Enable(bEnable);
 427     aSelectionLB.Enable(bEnable);
 428
 429     return nSize;
 430 }
 431
 432 /*--------------------------------------------------------------------
 433     Beschreibung:
 434  --------------------------------------------------------------------*/
 435
 436 BOOL __EXPORT SwFldDokInfPage::FillItemSet(SfxItemSet& )
 437 {
 438     if (!pSelEntry || (USHORT)(ULONG)pSelEntry->GetUserData() == USHRT_MAX)
 439         return FALSE;
 440
 441     USHORT nTypeId = TYP_DOCINFOFLD;
 442     USHORT nSubType = (USHORT)(ULONG)pSelEntry->GetUserData();
 443
 444     ULONG nFormat = 0;
 445
 446     USHORT nPos = aSelectionLB.GetSelectEntryPos();
 447
 448     ::rtl::OUString aName;
 449     if (DI_CUSTOM == nSubType)
 450         aName = aTypeTLB.GetEntryText(pSelEntry);
 451
 452     if (nPos != LISTBOX_ENTRY_NOTFOUND)
 453         nSubType |= (USHORT)(ULONG)aSelectionLB.GetEntryData(nPos);
 454
 455     if (aFixedCB.IsChecked())
 456         nSubType |= DI_SUB_FIXED;
 457
 458     nPos = aFormatLB.GetSelectEntryPos();
 459     if(nPos != LISTBOX_ENTRY_NOTFOUND)
 460         nFormat = aFormatLB.GetFormat();
 461
 462     if (!IsFldEdit() || nOldSel != aSelectionLB.GetSelectEntryPos() ||
 463         nOldFormat != nFormat || aFixedCB.GetState() != aFixedCB.GetSavedValue()
 464         || (DI_CUSTOM == nSubType && !aName.equals( m_sOldCustomFieldName )))
 465     {
 466         InsertFld(nTypeId, nSubType, aName, aEmptyStr, nFormat,
 467                 ' ', aFormatLB.IsAutomaticLanguage());
 468     }
 469
 470     return FALSE;
 471 }
 472
 473 /*--------------------------------------------------------------------
 474     Beschreibung:
 475  --------------------------------------------------------------------*/
 476
 477 SfxTabPage* __EXPORT SwFldDokInfPage::Create(   Window* pParent,
 478                         const SfxItemSet& rAttrSet )
 479 {
 480     return ( new SwFldDokInfPage( pParent, rAttrSet ) );
 481 }
 482
 483 /*--------------------------------------------------------------------
 484     Beschreibung:
 485  --------------------------------------------------------------------*/
 486
 487 USHORT SwFldDokInfPage::GetGroup()
 488 {
 489     return GRP_REG;
 490 }
 491 /* -----------------12.01.99 11:21-------------------
 492  *
 493  * --------------------------------------------------*/
 494 void    SwFldDokInfPage::FillUserData()
 495 {
 496     String sData( String::CreateFromAscii(
 497                             RTL_CONSTASCII_STRINGPARAM( USER_DATA_VERSION )));
 498     sData += ';';
 499     SvLBoxEntry* pEntry = aTypeTLB.FirstSelected();
 500     USHORT nTypeSel = pEntry ? sal::static_int_cast< USHORT >(reinterpret_cast< sal_uIntPtr >(pEntry->GetUserData())) : USHRT_MAX;
 501     sData += String::CreateFromInt32( nTypeSel );
 502     SetUserData(sData);
 503 }
 504
 505
 506