/************************************************************************* * * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. * * Copyright 2000, 2010 Oracle and/or its affiliates. * * OpenOffice.org - a multi-platform office productivity suite * * This file is part of OpenOffice.org. * * OpenOffice.org is free software: you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 3 * only, as published by the Free Software Foundation. * * OpenOffice.org is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU Lesser General Public License version 3 for more details * (a copy is included in the LICENSE file that accompanied this code). * * You should have received a copy of the GNU Lesser General Public License * version 3 along with OpenOffice.org. If not, see * * for a copy of the LGPLv3 License. * ************************************************************************/ // MARKER(update_precomp.py): autogen include statement, do not remove #include "precompiled_sw.hxx" #ifdef SW_DLLIMPLEMENTATION #undef SW_DLLIMPLEMENTATION #endif #include #include #include #include #include #include #ifndef _VIEW_HXX #include #endif #include #include #include #include #ifndef _FLDVAR_HXX #include #endif #include #include #ifndef _GLOBALS_HRC #include #endif #ifndef _FLDUI_HRC #include #endif #ifndef _FLDTDLG_HRC #include #endif #define USER_DATA_VERSION_1 "1" #define USER_DATA_VERSION USER_DATA_VERSION_1 /*-------------------------------------------------------------------- Beschreibung: --------------------------------------------------------------------*/ SwFldVarPage::SwFldVarPage(Window* pParent, const SfxItemSet& rCoreSet ) : SwFldPage ( pParent, SW_RES( TP_FLD_VAR ), rCoreSet ), aTypeFT (this, SW_RES(FT_VARTYPE)), aTypeLB (this, SW_RES(LB_VARTYPE)), aSelectionFT (this, SW_RES(FT_VARSELECTION)), aSelectionLB (this, SW_RES(LB_VARSELECTION)), aNameFT (this, SW_RES(FT_VARNAME)), aNameED (this, SW_RES(ED_VARNAME)), aValueFT (this, SW_RES(FT_VARVALUE)), aValueED (this, SW_RES(ED_VARVALUE)), aFormatFT (this, SW_RES(FT_VARFORMAT)), aNumFormatLB (this, SW_RES(LB_VARNUMFORMAT)), aFormatLB (this, SW_RES(LB_VARFORMAT)), aChapterHeaderFT(this, SW_RES(FT_VARCHAPTERHEADER)), aChapterLevelFT (this, SW_RES(FT_VARCHAPTERLEVEL)), aChapterLevelLB (this, SW_RES(LB_VARCHAPTERLEVEL)), aInvisibleCB (this, SW_RES(CB_VARINVISIBLE)), aSeparatorFT (this, SW_RES(FT_VARSEPARATOR)), aSeparatorED (this, SW_RES(ED_VARSEPARATOR)), aNewDelTBX (this, SW_RES(TBX_VARNEWDEL)), bInit (sal_True) { FreeResource(); aNewDelTBX.SetSizePixel( aNewDelTBX.CalcWindowSizePixel() ); long nDelta = ( aValueED.GetSizePixel().Height() - aNewDelTBX.GetSizePixel().Height() ) / 2; Point aNewPnt = aNewDelTBX.GetPosPixel(); aNewPnt.Y() += nDelta; aNewDelTBX.SetPosPixel( aNewPnt ); sOldValueFT = aValueFT.GetText(); sOldNameFT = aNameFT.GetText(); for (sal_uInt16 i = 1; i <= MAXLEVEL; i++) aChapterLevelLB.InsertEntry(String::CreateFromInt32(i)); aChapterLevelLB.SelectEntryPos(0); //enable 'active' language selection aNumFormatLB.SetShowLanguageControl(sal_True); } /*-------------------------------------------------------------------- Beschreibung: --------------------------------------------------------------------*/ SwFldVarPage::~SwFldVarPage() { } /*-------------------------------------------------------------------- Beschreibung: --------------------------------------------------------------------*/ void SwFldVarPage::Reset(const SfxItemSet& ) { SavePos(&aTypeLB); Init(); // Allgemeine initialisierung aTypeLB.SetUpdateMode(sal_False); aTypeLB.Clear(); sal_uInt16 nPos, nTypeId; if (!IsFldEdit()) { // TypeListBox initialisieren const SwFldGroupRgn& rRg = GetFldMgr().GetGroupRange(IsFldDlgHtmlMode(), GetGroup()); for (short i = rRg.nStart; i < rRg.nEnd; ++i) { nTypeId = GetFldMgr().GetTypeId(i); nPos = aTypeLB.InsertEntry(GetFldMgr().GetTypeStr(i)); aTypeLB.SetEntryData(nPos, reinterpret_cast(nTypeId)); } } else { SwField* pCurField = GetCurField(); nTypeId = pCurField->GetTypeId(); if (nTypeId == TYP_SETINPFLD) nTypeId = TYP_INPUTFLD; nPos = aTypeLB.InsertEntry(GetFldMgr().GetTypeStr(GetFldMgr().GetPos(nTypeId))); aTypeLB.SetEntryData(nPos, reinterpret_cast(nTypeId)); aNumFormatLB.SetAutomaticLanguage(pCurField->IsAutomaticLanguage()); SwWrtShell *pSh = GetWrtShell(); if(!pSh) pSh = ::GetActiveWrtShell(); if(pSh) { const SvNumberformat* pFormat = pSh->GetNumberFormatter()->GetEntry(pCurField->GetFormat()); if(pFormat) aNumFormatLB.SetLanguage(pFormat->GetLanguage()); } } // alte Pos selektieren RestorePos(&aTypeLB); aTypeLB.SetDoubleClickHdl (LINK(this, SwFldVarPage, InsertHdl)); aTypeLB.SetSelectHdl (LINK(this, SwFldVarPage, TypeHdl)); aSelectionLB.SetSelectHdl (LINK(this, SwFldVarPage, SubTypeHdl)); aSelectionLB.SetDoubleClickHdl (LINK(this, SwFldVarPage, InsertHdl)); aFormatLB.SetDoubleClickHdl (LINK(this, SwFldVarPage, InsertHdl)); aNumFormatLB.SetDoubleClickHdl (LINK(this, SwFldVarPage, InsertHdl)); aNameED.SetModifyHdl (LINK(this, SwFldVarPage, ModifyHdl)); aValueED.SetModifyHdl (LINK(this, SwFldVarPage, ModifyHdl)); aNewDelTBX.SetClickHdl (LINK(this, SwFldVarPage, TBClickHdl)); aChapterLevelLB.SetSelectHdl (LINK(this, SwFldVarPage, ChapterHdl)); aSeparatorED.SetModifyHdl (LINK(this, SwFldVarPage, SeparatorHdl)); if( !IsRefresh() ) { String sUserData = GetUserData(); if(!IsRefresh() && sUserData.GetToken(0, ';').EqualsIgnoreCaseAscii(USER_DATA_VERSION_1)) { String sVal = sUserData.GetToken(1, ';'); sal_uInt16 nVal = (sal_uInt16)sVal.ToInt32(); if( USHRT_MAX != nVal ) { for(sal_uInt16 i = 0; i < aTypeLB.GetEntryCount(); i++) if(nVal == (sal_uInt16)(sal_uLong)aTypeLB.GetEntryData(i)) { aTypeLB.SelectEntryPos(i); break; } } } } TypeHdl(0); aTypeLB.SetUpdateMode(sal_True); if (IsFldEdit()) { aSelectionLB.SaveValue(); aFormatLB.SaveValue(); nOldFormat = aNumFormatLB.GetFormat(); aNameED.SaveValue(); aValueED.SaveValue(); aInvisibleCB.SaveValue(); aChapterLevelLB.SaveValue(); aSeparatorED.SaveValue(); } } /*-------------------------------------------------------------------- Beschreibung: --------------------------------------------------------------------*/ IMPL_LINK( SwFldVarPage, TypeHdl, ListBox *, EMPTYARG ) { // Alte ListBoxPos sichern const sal_uInt16 nOld = GetTypeSel(); // Aktuelle ListBoxPos SetTypeSel(aTypeLB.GetSelectEntryPos()); if(GetTypeSel() == LISTBOX_ENTRY_NOTFOUND) { SetTypeSel(0); aTypeLB.SelectEntryPos(0); } if (nOld != GetTypeSel() || nOld == LISTBOX_ENTRY_NOTFOUND) { bInit = sal_True; if (nOld != LISTBOX_ENTRY_NOTFOUND) { aNameED.SetText(aEmptyStr); aValueED.SetText(aEmptyStr); } aValueED.SetDropEnable(sal_False); UpdateSubType(); // Auswahl-Listboxen initialisieren } bInit = sal_False; return 0; } /*-------------------------------------------------------------------- Beschreibung: --------------------------------------------------------------------*/ IMPL_LINK( SwFldVarPage, SubTypeHdl, ListBox *, pBox ) { sal_uInt16 nTypeId = (sal_uInt16)(sal_uLong)aTypeLB.GetEntryData(GetTypeSel()); sal_uInt16 nSelPos = aSelectionLB.GetSelectEntryPos(); if (nSelPos != LISTBOX_ENTRY_NOTFOUND) nSelPos = (sal_uInt16)(sal_uLong)aSelectionLB.GetEntryData(nSelPos); if (IsFldEdit() && (!pBox || bInit)) { if (nTypeId != TYP_FORMELFLD) aNameED.SetText(GetFldMgr().GetCurFldPar1()); aValueED.SetText(GetFldMgr().GetCurFldPar2()); } if (aNameFT.GetText() != sOldNameFT) aNameFT.SetText(sOldNameFT); if (aValueFT.GetText() != sOldValueFT) aValueFT.SetText(sOldValueFT); aNumFormatLB.SetUpdateMode(sal_False); aFormatLB.SetUpdateMode(sal_False); FillFormatLB(nTypeId); sal_uInt16 nSize = aFormatLB.GetEntryCount(); sal_Bool bValue = sal_False, bName = sal_False, bNumFmt = sal_False, bInvisible = sal_False, bSeparator = sal_False, bChapterLevel = sal_False; sal_Bool bFormat = nSize != 0; switch (nTypeId) { case TYP_USERFLD: { // Benutzertyp aendern oder anlegen SwUserFieldType* pType = (SwUserFieldType*) GetFldMgr().GetFldType(RES_USERFLD, nSelPos); if (pType) { if (!IsFldEdit()) { if (pBox || (bInit && !IsRefresh())) // Nur bei Interaktion mit Maus { aNameED.SetText(pType->GetName()); if (pType->GetType() == UF_STRING) { aValueED.SetText(pType->GetContent()); aNumFormatLB.SelectEntryPos(0); } else aValueED.SetText(pType->GetContent()); // aValueED.SetText(pType->GetContent(aNumFormatLB.GetFormat())); } } else aValueED.SetText(pType->GetContent()); } else { if (pBox) // Nur bei Interaktion mit Maus { aNameED.SetText(aEmptyStr); aValueED.SetText(aEmptyStr); } } bValue = bName = bNumFmt = bInvisible = sal_True; aValueED.SetDropEnable(sal_True); break; } case TYP_SETFLD: bValue = sal_True; bNumFmt = bInvisible = sal_True; if (!IsFldDlgHtmlMode()) bName = sal_True; else { aNumFormatLB.Clear(); sal_uInt16 nPos = aNumFormatLB.InsertEntry(SW_RESSTR(FMT_SETVAR_TEXT), 0); aNumFormatLB.SetEntryData(nPos, (void *)ULONG_MAX); aNumFormatLB.SelectEntryPos(0); } // gibt es ein entprechendes SetField if (IsFldEdit() || pBox) // Nur bei Interaktion mit Maus { if (nSelPos != LISTBOX_ENTRY_NOTFOUND) { String sName(aSelectionLB.GetSelectEntry()); aNameED.SetText(sName); if (!IsFldDlgHtmlMode()) { SwWrtShell *pSh = GetWrtShell(); if(!pSh) pSh = ::GetActiveWrtShell(); if(pSh) { SwSetExpFieldType* pSetTyp = (SwSetExpFieldType*) pSh->GetFldType(RES_SETEXPFLD, sName); if (pSetTyp && pSetTyp->GetType() == nsSwGetSetExpType::GSE_STRING) aNumFormatLB.SelectEntryPos(0); // Textuell } } } } if (IsFldEdit()) { // GetFormula fuehrt bei Datumsformaten zu Problemen, // da nur der numerische Wert ohne Formatierung returned wird. // Muss aber verwendet werden, da sonst bei GetPar2 nur der vom // Kalkulator errechnete Wert angezeigt werden wuerde // (statt test2 = test + 1) aValueED.SetText(((SwSetExpField*)GetCurField())->GetFormula()); } aValueED.SetDropEnable(sal_True); break; case TYP_FORMELFLD: { bValue = sal_True; bNumFmt = sal_True; aValueFT.SetText(SW_RESSTR(STR_FORMULA)); aValueED.SetDropEnable(sal_True); } break; case TYP_GETFLD: { if (!IsFldEdit()) { aNameED.SetText(aEmptyStr); aValueED.SetText(aEmptyStr); } if (nSelPos != LISTBOX_ENTRY_NOTFOUND) { String sName(aSelectionLB.GetSelectEntry()); if (!IsFldEdit()) aNameED.SetText(sName); // gibt es ein entprechendes SetField SwWrtShell *pSh = GetWrtShell(); if(!pSh) pSh = ::GetActiveWrtShell(); if(pSh) { SwSetExpFieldType* pSetTyp = (SwSetExpFieldType*) pSh->GetFldType(RES_SETEXPFLD, sName); if(pSetTyp) { if (pSetTyp->GetType() & nsSwGetSetExpType::GSE_STRING) // Textuell? bFormat = sal_True; else // Numerisch bNumFmt = sal_True; } } } else bFormat = sal_False; EnableInsert(bFormat|bNumFmt); } break; case TYP_INPUTFLD: aValueFT.SetText(SW_RESSTR(STR_PROMPT)); if (nSelPos != LISTBOX_ENTRY_NOTFOUND) { bValue = bNumFmt = sal_True; String sName; sName = aSelectionLB.GetSelectEntry(); aNameED.SetText( sName ); // User- oder SetField ? sal_uInt16 nInpType = 0; nInpType = static_cast< sal_uInt16 >(GetFldMgr().GetFldType(RES_USERFLD, sName) ? 0 : TYP_SETINPFLD); if (nInpType) // SETEXPFLD { // gibt es ein entprechendes SetField SwSetExpFieldType* pSetTyp = (SwSetExpFieldType*) GetFldMgr().GetFldType(RES_SETEXPFLD, sName); if(pSetTyp) { if (pSetTyp->GetType() == nsSwGetSetExpType::GSE_STRING) // Textuell? { aNumFormatLB.Clear(); sal_uInt16 nPos = aNumFormatLB.InsertEntry(SW_RESSTR(FMT_USERVAR_TEXT), 0); aNumFormatLB.SetEntryData(nPos, (void *)ULONG_MAX); aNumFormatLB.SelectEntryPos(0); } } if (IsFldEdit() && (!pBox || bInit) ) aValueED.SetText(((SwSetExpField*)GetCurField())->GetPromptText()); } else // USERFLD bFormat = bNumFmt = sal_False; } break; case TYP_DDEFLD: aValueFT.SetText(SW_RESSTR(STR_DDE_CMD)); if (IsFldEdit() || pBox) // Nur bei Interaktion mit Maus { if (nSelPos != LISTBOX_ENTRY_NOTFOUND) { SwDDEFieldType* pType = (SwDDEFieldType*) GetFldMgr().GetFldType(RES_DDEFLD, nSelPos); if(pType) { aNameED.SetText(pType->GetName()); //JP 28.08.95: DDE-Topics/-Items koennen Blanks in ihren // Namen haben! Wird hier noch nicht beachtet String sCmd( pType->GetCmd() ); sal_uInt16 nTmpPos = sCmd.SearchAndReplace( sfx2::cTokenSeperator, ' ' ); sCmd.SearchAndReplace( sfx2::cTokenSeperator, ' ', nTmpPos ); aValueED.SetText( sCmd ); aFormatLB.SelectEntryPos(pType->GetType()); } } } bName = bValue = sal_True; break; case TYP_SEQFLD: { // aNumRB.Check(sal_True); bName = bValue = bSeparator = bChapterLevel = sal_True; SwFieldType* pFldTyp; if( IsFldEdit() ) pFldTyp = GetCurField()->GetTyp(); else { String sFldTypeName( aSelectionLB.GetEntry( nSelPos )); if( sFldTypeName.Len() ) pFldTyp = GetFldMgr().GetFldType( RES_SETEXPFLD, sFldTypeName ); else pFldTyp = 0; } if( IsFldEdit() ) aValueED.SetText( ((SwSetExpField*)GetCurField())-> GetFormula() ); if( IsFldEdit() || pBox ) // Nur bei Interaktion mit Maus aNameED.SetText( aSelectionLB.GetSelectEntry() ); if( pFldTyp ) { sal_uInt8 nLevel = ((SwSetExpFieldType*)pFldTyp)->GetOutlineLvl(); if( 0x7f == nLevel ) aChapterLevelLB.SelectEntryPos( 0 ); else aChapterLevelLB.SelectEntryPos( nLevel + 1 ); String sDelim = ((SwSetExpFieldType*)pFldTyp)->GetDelimiter(); aSeparatorED.SetText( sDelim ); ChapterHdl(); } } break; case TYP_SETREFPAGEFLD: { bValue = sal_False; aValueFT.SetText( SW_RESSTR( STR_OFFSET )); if (IsFldEdit() || pBox) // Nur bei Interaktion mit Maus aNameED.SetText(aEmptyStr); if (nSelPos != 0 && nSelPos != LISTBOX_ENTRY_NOTFOUND) { bValue = sal_True; // SubType OFF - kennt keinen Offset if (IsFldEdit()) aValueED.SetText(String::CreateFromInt32(((SwRefPageSetField*)GetCurField())->GetOffset())); } } break; case TYP_GETREFPAGEFLD: aNameED.SetText(aEmptyStr); aValueED.SetText(aEmptyStr); break; } aNumFormatLB.Show(bNumFmt); aFormatLB.Show(!bNumFmt); if (IsFldEdit()) bName = sal_False; aFormatLB.Enable(bFormat); aFormatFT.Enable(bFormat|bNumFmt); aNameFT.Enable(bName); aNameED.Enable(bName); aValueFT.Enable(bValue); aValueED.Enable(bValue); Size aSz(aFormatLB.GetSizePixel()); if (bChapterLevel) aSz.Height() = aFormatLB.LogicToPixel(Size(1, 94), MAP_APPFONT).Height(); else aSz.Height() = aFormatLB.LogicToPixel(Size(1, 123), MAP_APPFONT).Height(); aFormatLB.SetSizePixel(aSz); aInvisibleCB.Show(!bSeparator); aSeparatorFT.Show(bSeparator); aSeparatorED.Show(bSeparator); aChapterHeaderFT.Show(bChapterLevel); aChapterLevelFT.Show(bChapterLevel); aChapterLevelLB.Show(bChapterLevel); aInvisibleCB.Enable(bInvisible); ModifyHdl(); // Anwenden/Einfuegen/Loeschen Status update aNumFormatLB.SetUpdateMode(sal_True); aFormatLB.SetUpdateMode(sal_True); if(aSelectionLB.IsCallAddSelection()) { nTypeId = (sal_uInt16)(sal_uLong)aTypeLB.GetEntryData(GetTypeSel()); switch (nTypeId) { case TYP_FORMELFLD: { nSelPos = aSelectionLB.GetSelectEntryPos(); if (nSelPos != LISTBOX_ENTRY_NOTFOUND) nSelPos = (sal_uInt16)(sal_uLong)aSelectionLB.GetEntryData(nSelPos); if (nSelPos != LISTBOX_ENTRY_NOTFOUND && pBox && !bInit) { aValueED.ReplaceSelected(aSelectionLB.GetSelectEntry()); ModifyHdl(); } } break; } aSelectionLB.ResetCallAddSelection(); } return 0; } /*-------------------------------------------------------------------- Beschreibung: Typen in der SelectionBox erneuern --------------------------------------------------------------------*/ void SwFldVarPage::UpdateSubType() { String sOldSel; sal_uInt16 nTypeId = (sal_uInt16)(sal_uLong)aTypeLB.GetEntryData(GetTypeSel()); SetSelectionSel(aSelectionLB.GetSelectEntryPos()); if(GetSelectionSel() != LISTBOX_ENTRY_NOTFOUND) sOldSel = aSelectionLB.GetEntry(GetSelectionSel()); // Auswahl-Listbox fuellen aSelectionLB.SetUpdateMode(sal_False); aSelectionLB.Clear(); SvStringsDtor aList; GetFldMgr().GetSubTypes(nTypeId, aList); sal_uInt16 nCount = aList.Count(); sal_uInt16 nPos; for (sal_uInt16 i = 0; i < nCount; ++i) { if (nTypeId != TYP_INPUTFLD || i) { if (!IsFldEdit()) { nPos = aSelectionLB.InsertEntry(*aList[i]); aSelectionLB.SetEntryData(nPos, reinterpret_cast(i)); } else { sal_Bool bInsert = sal_False; switch (nTypeId) { case TYP_INPUTFLD: if (*aList[i] == GetCurField()->GetPar1()) bInsert = sal_True; break; case TYP_FORMELFLD: bInsert = sal_True; break; case TYP_GETFLD: if (*aList[i] == ((SwFormulaField*)GetCurField())->GetFormula()) bInsert = sal_True; break; case TYP_SETFLD: case TYP_USERFLD: if (*aList[i] == GetCurField()->GetTyp()->GetName()) { bInsert = sal_True; if (GetCurField()->GetSubType() & nsSwExtendedSubType::SUB_INVISIBLE) aInvisibleCB.Check(); } break; case TYP_SETREFPAGEFLD: if ((((SwRefPageSetField*)GetCurField())->IsOn() && i) || (!((SwRefPageSetField*)GetCurField())->IsOn() && !i)) sOldSel = *aList[i]; // Alle Eintr?ge zur Auswahl zulassen: nPos = aSelectionLB.InsertEntry(*aList[i]); aSelectionLB.SetEntryData(nPos, reinterpret_cast(i)); break; default: if (*aList[i] == GetCurField()->GetPar1()) bInsert = sal_True; break; } if (bInsert) { nPos = aSelectionLB.InsertEntry(*aList[i]); aSelectionLB.SetEntryData(nPos, reinterpret_cast(i)); if (nTypeId != TYP_FORMELFLD) break; } } } } sal_Bool bEnable = aSelectionLB.GetEntryCount() != 0; ListBox *pLB = 0; if (bEnable) { aSelectionLB.SelectEntry(sOldSel); if (!aSelectionLB.GetSelectEntryCount()) { aSelectionLB.SelectEntryPos(0); pLB = &aSelectionLB; // Alle Controls neu initialisieren } } aSelectionLB.Enable( bEnable ); aSelectionFT.Enable( bEnable ); SubTypeHdl(pLB); aSelectionLB.SetUpdateMode(sal_True); } /*-------------------------------------------------------------------- Beschreibung: --------------------------------------------------------------------*/ sal_uInt16 SwFldVarPage::FillFormatLB(sal_uInt16 nTypeId) { String sOldSel, sOldNumSel; sal_uLong nOldNumFormat = 0; sal_uInt16 nFormatSel = aFormatLB.GetSelectEntryPos(); if (nFormatSel != LISTBOX_ENTRY_NOTFOUND) sOldSel = aFormatLB.GetEntry(nFormatSel); sal_uInt16 nNumFormatSel = aNumFormatLB.GetSelectEntryPos(); if (nNumFormatSel != LISTBOX_ENTRY_NOTFOUND) { sOldNumSel = aNumFormatLB.GetEntry(nNumFormatSel); nOldNumFormat = aNumFormatLB.GetFormat(); } // Format-Listbox fuellen aFormatLB.Clear(); aNumFormatLB.Clear(); sal_Bool bSpecialFmt = sal_False; if( TYP_GETREFPAGEFLD != nTypeId ) { if (IsFldEdit()) { bSpecialFmt = GetCurField()->GetFormat() == SAL_MAX_UINT32; if (!bSpecialFmt) { aNumFormatLB.SetDefFormat(GetCurField()->GetFormat()); sOldNumSel = aEmptyStr; } else if (nTypeId == TYP_GETFLD || nTypeId == TYP_FORMELFLD) aNumFormatLB.SetFormatType(NUMBERFORMAT_NUMBER); } else { if (nOldNumFormat && nOldNumFormat != ULONG_MAX) aNumFormatLB.SetDefFormat(nOldNumFormat); else aNumFormatLB.SetFormatType(NUMBERFORMAT_NUMBER); } } switch (nTypeId) { case TYP_USERFLD: { if (!IsFldEdit() || bSpecialFmt) { sal_uInt16 nPos = aNumFormatLB.InsertEntry(SW_RESSTR(FMT_MARK_TEXT), 0); aNumFormatLB.SetEntryData(nPos, (void *)ULONG_MAX); nPos = aNumFormatLB.InsertEntry(SW_RESSTR(FMT_USERVAR_CMD), 1); aNumFormatLB.SetEntryData(nPos, (void *)ULONG_MAX); } } break; case TYP_SETFLD: { if (!IsFldEdit() || bSpecialFmt) { sal_uInt16 nPos = aNumFormatLB.InsertEntry(SW_RESSTR(FMT_SETVAR_TEXT), 0); aNumFormatLB.SetEntryData(nPos, (void *)ULONG_MAX); } } break; case TYP_FORMELFLD: { sal_uInt16 nPos = aNumFormatLB.InsertEntry(SW_RESSTR(FMT_GETVAR_NAME), 0); aNumFormatLB.SetEntryData(nPos, (void *)ULONG_MAX); } break; case TYP_GETFLD: { sal_uInt16 nPos = aNumFormatLB.InsertEntry(SW_RESSTR(FMT_GETVAR_NAME), 0); aNumFormatLB.SetEntryData(nPos, (void *)ULONG_MAX); } break; } if (IsFldEdit() && bSpecialFmt) { if (nTypeId == TYP_USERFLD && (GetCurField()->GetSubType() & nsSwExtendedSubType::SUB_CMD)) aNumFormatLB.SelectEntryPos(1); else aNumFormatLB.SelectEntryPos(0); } else { if (!nOldNumFormat && (nNumFormatSel = aNumFormatLB.GetEntryPos(sOldNumSel)) != LISTBOX_ENTRY_NOTFOUND) aNumFormatLB.SelectEntryPos(nNumFormatSel); else if (nOldNumFormat && nOldNumFormat == ULONG_MAX) aNumFormatLB.SelectEntry(sOldSel); } sal_uInt16 nSize = GetFldMgr().GetFormatCount(nTypeId, sal_False, IsFldDlgHtmlMode()); for (sal_uInt16 i = 0; i < nSize; i++) { sal_uInt16 nPos = aFormatLB.InsertEntry(GetFldMgr().GetFormatStr(nTypeId, i)); sal_uInt16 nFldId = GetFldMgr().GetFormatId( nTypeId, i ); aFormatLB.SetEntryData( nPos, reinterpret_cast(nFldId) ); if (IsFldEdit() && nFldId == GetCurField()->GetFormat()) aFormatLB.SelectEntryPos( nPos ); } if (nSize && (!IsFldEdit() || !aFormatLB.GetSelectEntryCount())) { aFormatLB.SelectEntry(sOldSel); if (!aFormatLB.GetSelectEntryCount()) { aFormatLB.SelectEntry(SW_RESSTR(FMT_NUM_PAGEDESC)); if (!aFormatLB.GetSelectEntryCount()) { aFormatLB.SelectEntry(SW_RESSTR(FMT_NUM_ARABIC)); if (!aFormatLB.GetSelectEntryCount()) aFormatLB.SelectEntryPos(0); } } } return nSize; } /*-------------------------------------------------------------------- Beschreibung: Modify --------------------------------------------------------------------*/ IMPL_LINK( SwFldVarPage, ModifyHdl, Edit *, EMPTYARG ) { String sValue(aValueED.GetText()); sal_Bool bHasValue = sValue.Len() != 0; sal_uInt16 nTypeId = (sal_uInt16)(sal_uLong)aTypeLB.GetEntryData(GetTypeSel()); sal_Bool bInsert = sal_False, bApply = sal_False, bDelete = sal_False; String sName( aNameED.GetText() ); xub_StrLen nLen = sName.Len(); switch( nTypeId ) { case TYP_DDEFLD: case TYP_USERFLD: case TYP_SETFLD: case TYP_SEQFLD: SwCalc::IsValidVarName( sName, &sName ); if( sName.Len() != nLen ) { nLen = sName.Len(); Selection aSel(aNameED.GetSelection()); aNameED.SetText( sName ); aNameED.SetSelection( aSel ); // Cursorpos restaurieren } break; } // Buttons ueberpruefen switch (nTypeId) { case TYP_DDEFLD: if( nLen ) { // Gibts schon einen entsprechenden Type bInsert = bApply = sal_True; SwFieldType* pType = GetFldMgr().GetFldType(RES_DDEFLD, sName); SwWrtShell *pSh = GetWrtShell(); if(!pSh) pSh = ::GetActiveWrtShell(); if(pSh && pType) bDelete = !pSh->IsUsed( *pType ); } break; case TYP_USERFLD: if( nLen ) { // Gibts schon einen entsprechenden Type SwFieldType* pType = GetFldMgr().GetFldType(RES_USERFLD, sName); SwWrtShell *pSh = GetWrtShell(); if(!pSh) pSh = ::GetActiveWrtShell(); if(pSh && pType) bDelete = !pSh->IsUsed( *pType ); pType = GetFldMgr().GetFldType(RES_SETEXPFLD, sName); if (!pType) // Kein Namenskonflikt mit Variablen { // Benutzerfelder duerfen auch ohne Inhalt eingefuegt werden! // Bug #56845 bInsert = bApply = sal_True; } } break; default: bInsert = sal_True; if (nTypeId == TYP_SETFLD || nTypeId == TYP_SEQFLD) { SwSetExpFieldType* pFldType = (SwSetExpFieldType*) GetFldMgr().GetFldType(RES_SETEXPFLD, sName); if (pFldType) { SwWrtShell *pSh = GetWrtShell(); if(!pSh) pSh = ::GetActiveWrtShell(); if(pSh) { const SwFldTypes* p = pSh->GetDoc()->GetFldTypes(); sal_uInt16 i; for (i = 0; i < INIT_FLDTYPES; i++) { SwFieldType* pType = (*p)[ i ]; if (pType == pFldType) break; } if (i >= INIT_FLDTYPES && !pSh->IsUsed(*pFldType)) bDelete = sal_True; if (nTypeId == TYP_SEQFLD && !(pFldType->GetType() & nsSwGetSetExpType::GSE_SEQ)) bInsert = sal_False; if (nTypeId == TYP_SETFLD && (pFldType->GetType() & nsSwGetSetExpType::GSE_SEQ)) bInsert = sal_False; } } if (GetFldMgr().GetFldType(RES_USERFLD, sName)) bInsert = sal_False; } if( !nLen && ( nTypeId == TYP_SETFLD || (!IsFldEdit() && nTypeId == TYP_GETFLD ) ) ) bInsert = sal_False; if( (nTypeId == TYP_SETFLD || nTypeId == TYP_FORMELFLD) && !bHasValue ) bInsert = sal_False; break; } aNewDelTBX.EnableItem(BT_VARAPPLY, bApply); aNewDelTBX.EnableItem(BT_VARDELETE, bDelete); EnableInsert(bInsert); return 0; } /*-------------------------------------------------------------------- Beschreibung: --------------------------------------------------------------------*/ IMPL_LINK( SwFldVarPage, TBClickHdl, ToolBox *, pBox ) { sal_uInt16 nTypeId = (sal_uInt16)(sal_uLong)aTypeLB.GetEntryData(GetTypeSel()); switch (pBox->GetCurItemId()) { case BT_VARDELETE: { if( nTypeId == TYP_USERFLD ) GetFldMgr().RemoveFldType(RES_USERFLD, aSelectionLB.GetSelectEntry()); else { sal_uInt16 nWhich; switch(nTypeId) { case TYP_SETFLD: case TYP_SEQFLD: nWhich = RES_SETEXPFLD; break; default: nWhich = RES_DDEFLD; break; } GetFldMgr().RemoveFldType(nWhich, aSelectionLB.GetSelectEntry()); } UpdateSubType(); SwWrtShell *pSh = GetWrtShell(); if(!pSh) pSh = ::GetActiveWrtShell(); if(pSh) { pSh->SetModified(); } } break; case BT_VARAPPLY: { String sName(aNameED.GetText()), sValue(aValueED.GetText()); SwFieldType* pType = 0; sal_uInt16 nId = 0; sal_uInt16 nNumFormatPos = aNumFormatLB.GetSelectEntryPos(); switch (nTypeId) { case TYP_USERFLD: nId = RES_USERFLD; break; case TYP_DDEFLD: nId = RES_DDEFLD; break; case TYP_SETFLD: nId = RES_SETEXPFLD;break; } pType = GetFldMgr().GetFldType(nId, sName); sal_uLong nFormat = aFormatLB.GetSelectEntryPos(); if (nFormat != LISTBOX_ENTRY_NOTFOUND) nFormat = (sal_uLong)aFormatLB.GetEntryData((sal_uInt16)nFormat); if (pType) // Aendern { SwWrtShell *pSh = GetWrtShell(); if(!pSh) pSh = ::GetActiveWrtShell(); if(pSh) { pSh->StartAllAction(); if (nTypeId == TYP_USERFLD) { if (nNumFormatPos != LISTBOX_ENTRY_NOTFOUND) { sal_uLong nFmt = nNumFormatPos == 0 ? 0 : aNumFormatLB.GetFormat(); if (nFmt) { // Sprache auf Office-Sprache umstellen, da String im Office // Format vom Kalkulator erwartet wird und so in den Dlg // eingegeben werden sollte nFmt = SwValueField::GetSystemFormat(pSh->GetNumberFormatter(), nFmt); } ((SwUserFieldType*)pType)->SetContent(aValueED.GetText(), nFmt); ((SwUserFieldType*)pType)->SetType( nNumFormatPos == 0 ? nsSwGetSetExpType::GSE_STRING : nsSwGetSetExpType::GSE_EXPR ); } } else { if (nFormat != LISTBOX_ENTRY_NOTFOUND) { //JP 28.08.95: DDE-Topics/-Items koennen Blanks in ihren // Namen haben! Wird hier noch nicht beachtet. sal_uInt16 nTmpPos = sValue.SearchAndReplace( ' ', sfx2::cTokenSeperator ); sValue.SearchAndReplace( ' ', sfx2::cTokenSeperator, nTmpPos ); ((SwDDEFieldType*)pType)->SetCmd(sValue); ((SwDDEFieldType*)pType)->SetType((sal_uInt16)nFormat); } } pType->UpdateFlds(); pSh->EndAllAction(); } } else // Neu { if(nTypeId == TYP_USERFLD) { SwWrtShell *pSh = GetWrtShell(); if(!pSh) pSh = ::GetActiveWrtShell(); if(pSh) { SwUserFieldType aType( pSh->GetDoc(), sName ); if (nNumFormatPos != LISTBOX_ENTRY_NOTFOUND) { aType.SetType(nNumFormatPos == 0 ? nsSwGetSetExpType::GSE_STRING : nsSwGetSetExpType::GSE_EXPR); aType.SetContent( sValue, nNumFormatPos == 0 ? 0 : aNumFormatLB.GetFormat() ); aSelectionLB.InsertEntry(sName); aSelectionLB.SelectEntry(sName); GetFldMgr().InsertFldType( aType ); // Userfld Neu } } } else { if (nFormat != LISTBOX_ENTRY_NOTFOUND) { //JP 28.08.95: DDE-Topics/-Items koennen Blanks in ihren // Namen haben! Wird hier noch nicht beachtet. sal_uInt16 nTmpPos = sValue.SearchAndReplace( ' ', sfx2::cTokenSeperator ); sValue.SearchAndReplace( ' ', sfx2::cTokenSeperator, nTmpPos ); SwDDEFieldType aType(sName, sValue, (sal_uInt16)nFormat); aSelectionLB.InsertEntry(sName); aSelectionLB.SelectEntry(sName); GetFldMgr().InsertFldType(aType); // DDE-Feld Neu } } } if (IsFldEdit()) GetFldMgr().GetCurFld(); // FieldManager Updaten UpdateSubType(); } break; } return sal_True; } /*-------------------------------------------------------------------- Beschreibung: --------------------------------------------------------------------*/ IMPL_LINK( SwFldVarPage, ChapterHdl, ListBox *, EMPTYARG ) { sal_Bool bEnable = aChapterLevelLB.GetSelectEntryPos() != 0; aSeparatorED.Enable(bEnable); aSeparatorFT.Enable(bEnable); SeparatorHdl(); return 0; } /*-------------------------------------------------------------------- Beschreibung: --------------------------------------------------------------------*/ IMPL_LINK( SwFldVarPage, SeparatorHdl, Edit *, EMPTYARG ) { sal_Bool bEnable = aSeparatorED.GetText().Len() != 0 || aChapterLevelLB.GetSelectEntryPos() == 0; EnableInsert(bEnable); return 0; } /*-------------------------------------------------------------------- Beschreibung: --------------------------------------------------------------------*/ sal_Bool SwFldVarPage::FillItemSet(SfxItemSet& ) { sal_uInt16 nTypeId = (sal_uInt16)(sal_uLong)aTypeLB.GetEntryData(GetTypeSel()); String aVal(aValueED.GetText()); String aName(aNameED.GetText()); sal_uInt16 nSubType = aSelectionLB.GetSelectEntryPos(); if(nSubType == LISTBOX_ENTRY_NOTFOUND) nSubType = 0; else nSubType = (sal_uInt16)(sal_uLong)aSelectionLB.GetEntryData(nSubType); sal_uLong nFormat; if (!aNumFormatLB.IsVisible()) { nFormat = aFormatLB.GetSelectEntryPos(); if(nFormat == LISTBOX_ENTRY_NOTFOUND) nFormat = 0; else nFormat = (sal_uLong)aFormatLB.GetEntryData((sal_uInt16)nFormat); } else { nFormat = aNumFormatLB.GetFormat(); if (nFormat && nFormat != ULONG_MAX && aNumFormatLB.IsAutomaticLanguage()) { // Sprache auf Office-Sprache umstellen, da String im Office- // Format vom Kalkulator erwartet wird und so in den Dlg // eingegeben werden sollte SwWrtShell *pSh = GetWrtShell(); if(!pSh) pSh = ::GetActiveWrtShell(); if(pSh) { nFormat = SwValueField::GetSystemFormat(pSh->GetNumberFormatter(), nFormat); } } } sal_Unicode cSeparator = ' '; switch (nTypeId) { case TYP_USERFLD: { nSubType = (nFormat == ULONG_MAX) ? nsSwGetSetExpType::GSE_STRING : nsSwGetSetExpType::GSE_EXPR; if (nFormat == ULONG_MAX && aNumFormatLB.GetSelectEntry() == SW_RESSTR(FMT_USERVAR_CMD)) nSubType |= nsSwExtendedSubType::SUB_CMD; if (aInvisibleCB.IsChecked()) nSubType |= nsSwExtendedSubType::SUB_INVISIBLE; break; } case TYP_FORMELFLD: { nSubType = nsSwGetSetExpType::GSE_FORMULA; if (aNumFormatLB.IsVisible() && nFormat == ULONG_MAX) nSubType |= nsSwExtendedSubType::SUB_CMD; break; } case TYP_GETFLD: { nSubType &= 0xff00; if (aNumFormatLB.IsVisible() && nFormat == ULONG_MAX) nSubType |= nsSwExtendedSubType::SUB_CMD; break; } case TYP_INPUTFLD: { SwFieldType* pType = GetFldMgr().GetFldType(RES_USERFLD, aName); nSubType = static_cast< sal_uInt16 >((nSubType & 0xff00) | ((pType) ? INP_USR : INP_VAR)); break; } case TYP_SETFLD: { if (IsFldDlgHtmlMode()) { nSubType = 0x0100; nSubType = (nSubType & 0xff00) | nsSwGetSetExpType::GSE_STRING; } else nSubType = (nSubType & 0xff00) | ((nFormat == ULONG_MAX) ? nsSwGetSetExpType::GSE_STRING : nsSwGetSetExpType::GSE_EXPR); if (aInvisibleCB.IsChecked()) nSubType |= nsSwExtendedSubType::SUB_INVISIBLE; break; } case TYP_SEQFLD: { // nSubType = nsSwGetSetExpType::GSE_SEQ; // nsSwGetSetExpType::GSE_SEQ wird im Fldmgr fest gesetzt, kann also entfallen nSubType = aChapterLevelLB.GetSelectEntryPos(); if (nSubType == 0) nSubType = 0x7f; else { nSubType--; String sSeparator(aSeparatorED.GetText().GetChar(0)); cSeparator = sSeparator.Len() ? sSeparator.GetChar(0) : ' '; //nSubType |= (sal_uInt16)(((sal_uInt8)) << 8); } break; } case TYP_GETREFPAGEFLD: if( SVX_NUM_CHAR_SPECIAL == nFormat ) aVal = aValueED.GetText(); break; } if (!IsFldEdit() || aNameED.GetSavedValue() != aNameED.GetText() || aValueED.GetSavedValue() != aValueED.GetText() || aSelectionLB.GetSavedValue() != aSelectionLB.GetSelectEntryPos() || aFormatLB.GetSavedValue() != aFormatLB.GetSelectEntryPos() || nOldFormat != aNumFormatLB.GetFormat() || aInvisibleCB.GetState() != aInvisibleCB.GetSavedValue() || aChapterLevelLB.GetSavedValue() != aChapterLevelLB.GetSelectEntryPos() || aSeparatorED.GetSavedValue() != aSeparatorED.GetText()) { InsertFld( nTypeId, nSubType, aName, aVal, nFormat, cSeparator, aNumFormatLB.IsAutomaticLanguage() ); } UpdateSubType(); return sal_False; } /*-------------------------------------------------------------------- Beschreibung: --------------------------------------------------------------------*/ SfxTabPage* SwFldVarPage::Create( Window* pParent, const SfxItemSet& rAttrSet ) { return ( new SwFldVarPage( pParent, rAttrSet ) ); } /*-------------------------------------------------------------------- Beschreibung: --------------------------------------------------------------------*/ sal_uInt16 SwFldVarPage::GetGroup() { return GRP_VAR; } /*-------------------------------------------------------------------- Beschreibung: --------------------------------------------------------------------*/ SelectionListBox::SelectionListBox( SwFldVarPage* pDialog, const ResId& rResId ) : ListBox (pDialog, rResId), pDlg (pDialog), bCallAddSelection(sal_False) { } /*-------------------------------------------------------------------- Beschreibung: --------------------------------------------------------------------*/ long SelectionListBox::PreNotify( NotifyEvent& rNEvt ) { long nHandled = ListBox::PreNotify( rNEvt ); //sal_Bool bAddSel = sal_False; if ( rNEvt.GetType() == EVENT_KEYUP ) { const KeyEvent* pKEvt = rNEvt.GetKeyEvent(); const KeyCode aKeyCode = pKEvt->GetKeyCode(); const sal_uInt16 nModifier = aKeyCode.GetModifier(); if( aKeyCode.GetCode() == KEY_SPACE && !nModifier) // bAddSel = sal_True; bCallAddSelection = sal_True; } if ( rNEvt.GetType() == EVENT_MOUSEBUTTONDOWN ) { const MouseEvent* pMEvt = rNEvt.GetMouseEvent(); if (pMEvt && (pMEvt->IsMod1() || pMEvt->IsMod2())) // Alt oder Ctrl //bAddSel = sal_True; bCallAddSelection = sal_True; } // if (bAddSel) // pDlg->AddSelection(this); return nHandled; } /* -----------------12.01.99 11:14------------------- * * --------------------------------------------------*/ void SwFldVarPage::FillUserData() { String sData(String::CreateFromAscii(USER_DATA_VERSION)); sData += ';'; sal_uInt16 nTypeSel = aTypeLB.GetSelectEntryPos(); if( LISTBOX_ENTRY_NOTFOUND == nTypeSel ) nTypeSel = USHRT_MAX; else nTypeSel = (sal_uInt16)(sal_uLong)aTypeLB.GetEntryData( nTypeSel ); sData += String::CreateFromInt32( nTypeSel ); SetUserData(sData); }