/************************************************************** * * Licensed to the Apache Software Foundation (ASF) under one * or more contributor license agreements. See the NOTICE file * distributed with this work for additional information * regarding copyright ownership. The ASF licenses this file * to you under the Apache License, Version 2.0 (the * "License"); you may not use this file except in compliance * with the License. You may obtain a copy of the License at * * http://www.apache.org/licenses/LICENSE-2.0 * * Unless required by applicable law or agreed to in writing, * software distributed under the License is distributed on an * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY * KIND, either express or implied. See the License for the * specific language governing permissions and limitations * under the 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 #include #include #include #include #include #include #include #include #include #include #include #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 { const SwField* pCurField = GetCurField(); ASSERT( pCurField != NULL, " - instance missing!" ); nTypeId = pCurField->GetTypeId(); if ( nTypeId == TYP_SETINPFLD ) nTypeId = TYP_INPUTFLD; nPos = aTypeLB.InsertEntry( GetFldMgr().GetTypeStr( GetFldMgr().GetPos( nTypeId ) ) ); aTypeLB.SetEntryData( nPos, reinterpret_cast< void* >( 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 ( GetCurField() != NULL && 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 ( GetCurField() != NULL && 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 ( GetCurField() != NULL && IsFldEdit() ) pFldTyp = GetCurField()->GetTyp(); else { String sFldTypeName( aSelectionLB.GetEntry( nSelPos ) ); if ( sFldTypeName.Len() ) pFldTyp = GetFldMgr().GetFldType( RES_SETEXPFLD, sFldTypeName ); else pFldTyp = 0; } if ( GetCurField() != NULL && 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 ( GetCurField() != NULL && 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() { SetSelectionSel( aSelectionLB.GetSelectEntryPos() ); String sOldSel; if ( GetSelectionSel() != LISTBOX_ENTRY_NOTFOUND ) sOldSel = aSelectionLB.GetEntry( GetSelectionSel() ); // Auswahl-Listbox fuellen aSelectionLB.SetUpdateMode( sal_False ); aSelectionLB.Clear(); const sal_uInt16 nTypeId = (sal_uInt16) (sal_uLong) aTypeLB.GetEntryData( GetTypeSel() ); SvStringsDtor aList; GetFldMgr().GetSubTypes( nTypeId, aList ); const sal_uInt16 nCount = aList.Count(); for ( sal_uInt16 i = 0; i < nCount; ++i ) { if ( nTypeId != TYP_INPUTFLD || i ) { if ( !IsFldEdit() ) { const sal_uInt16 nPos = aSelectionLB.InsertEntry( *aList[i] ); aSelectionLB.SetEntryData( nPos, reinterpret_cast< void* >( i ) ); } else { sal_Bool bInsert = sal_False; switch ( nTypeId ) { case TYP_INPUTFLD: if ( GetCurField() != NULL && *aList[i] == GetCurField()->GetPar1() ) bInsert = sal_True; break; case TYP_FORMELFLD: bInsert = sal_True; break; case TYP_GETFLD: if ( GetCurField() != NULL && *aList[i] == ( (SwFormulaField*) GetCurField() )->GetFormula() ) bInsert = sal_True; break; case TYP_SETFLD: case TYP_USERFLD: if ( GetCurField() != NULL && *aList[i] == GetCurField()->GetTyp()->GetName() ) { bInsert = sal_True; if ( GetCurField()->GetSubType() & nsSwExtendedSubType::SUB_INVISIBLE ) aInvisibleCB.Check(); } break; case TYP_SETREFPAGEFLD: { if ( GetCurField() != NULL && ( ( ( (SwRefPageSetField*) GetCurField() )->IsOn() && i ) || ( !( (SwRefPageSetField*) GetCurField() )->IsOn() && !i ) ) ) { sOldSel = *aList[i]; } // Alle Eintr?ge zur Auswahl zulassen: const sal_uInt16 nPos = aSelectionLB.InsertEntry( *aList[i] ); aSelectionLB.SetEntryData( nPos, reinterpret_cast< void* >( i ) ); } break; default: if ( GetCurField() != NULL && *aList[i] == GetCurField()->GetPar1() ) bInsert = sal_True; break; } if ( bInsert ) { const sal_uInt16 nPos = aSelectionLB.InsertEntry( *aList[i] ); aSelectionLB.SetEntryData( nPos, reinterpret_cast< void* >( i ) ); if ( nTypeId != TYP_FORMELFLD ) break; } } } } const 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; const sal_uInt16 nFormatSel = aFormatLB.GetSelectEntryPos(); if ( nFormatSel != LISTBOX_ENTRY_NOTFOUND ) sOldSel = aFormatLB.GetEntry( nFormatSel ); String sOldNumSel; sal_uLong nOldNumFormat = 0; sal_uInt16 nNumFormatSel = aNumFormatLB.GetSelectEntryPos(); if ( nNumFormatSel != LISTBOX_ENTRY_NOTFOUND ) { sOldNumSel = aNumFormatLB.GetEntry( nNumFormatSel ); nOldNumFormat = aNumFormatLB.GetFormat(); } // Format-Listbox fuellen aFormatLB.Clear(); aNumFormatLB.Clear(); bool bSpecialFmt = false; if ( TYP_GETREFPAGEFLD != nTypeId ) { if ( GetCurField() != NULL && 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 ); } const sal_uInt16 nSize = GetFldMgr().GetFormatCount(nTypeId, sal_False, IsFldDlgHtmlMode()); for ( sal_uInt16 i = 0; i < nSize; i++ ) { const sal_uInt16 nPos = aFormatLB.InsertEntry( GetFldMgr().GetFormatStr( nTypeId, i ) ); const sal_uInt16 nFldId = GetFldMgr().GetFormatId( nTypeId, i ); aFormatLB.SetEntryData( nPos, reinterpret_cast< void* >( nFldId ) ); if ( IsFldEdit() && GetCurField() != NULL && 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); }