mir/libreoffice
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
981212d174baf0f1aa93e4429bc59191f2acac1d
libreoffice/sw/source/ui/fldui/fldvar.cxx

1412 lines
45 KiB
C++
Raw Normal View History

initial import
2000-09-18 16:15:01 +00:00
/*************************************************************************
*
* $RCSfile: fldvar.cxx,v $
*
INTEGRATION: CWS tune03 (1.11.332); FILE MERGED 2004/07/19 19:11:16 mhu 1.11.332.1: #i29979# Added SW_DLLPUBLIC/PRIVATE (see swdllapi.h) to exported symbols/classes.
2004-08-23 07:54:10 +00:00
* $Revision: 1.12 $
initial import
2000-09-18 16:15:01 +00:00
*
INTEGRATION: CWS tune03 (1.11.332); FILE MERGED 2004/07/19 19:11:16 mhu 1.11.332.1: #i29979# Added SW_DLLPUBLIC/PRIVATE (see swdllapi.h) to exported symbols/classes.
2004-08-23 07:54:10 +00:00
* last change: $Author: rt $ $Date: 2004-08-23 08:54:10 $
initial import
2000-09-18 16:15:01 +00:00
*
* The Contents of this file are made available subject to the terms of
* either of the following licenses
*
* - GNU Lesser General Public License Version 2.1
* - Sun Industry Standards Source License Version 1.1
*
* Sun Microsystems Inc., October, 2000
*
* GNU Lesser General Public License Version 2.1
* =============================================
* Copyright 2000 by Sun Microsystems, Inc.
* 901 San Antonio Road, Palo Alto, CA 94303, USA
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
* License version 2.1, as published by the Free Software Foundation.
*
* This library 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 for more details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with this library; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place, Suite 330, Boston,
* MA 02111-1307 USA
*
*
* Sun Industry Standards Source License Version 1.1
* =================================================
* The contents of this file are subject to the Sun Industry Standards
* Source License Version 1.1 (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.openoffice.org/license.html.
*
* Software provided under this License is provided on an "AS IS" basis,
* WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
* WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
* MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
* See the License for the specific provisions governing your rights and
* obligations concerning the Software.
*
* The Initial Developer of the Original Code is: Sun Microsystems, Inc.
*
* Copyright: 2000 by Sun Microsystems, Inc.
*
* All Rights Reserved.
*
* Contributor(s): _______________________________________
*
*
************************************************************************/
INTEGRATION: CWS tune03 (1.11.332); FILE MERGED 2004/07/19 19:11:16 mhu 1.11.332.1: #i29979# Added SW_DLLPUBLIC/PRIVATE (see swdllapi.h) to exported symbols/classes.
2004-08-23 07:54:10 +00:00
#ifdef SW_DLLIMPLEMENTATION
#undef SW_DLLIMPLEMENTATION
#endif
initial import
2000-09-18 16:15:01 +00:00
#pragma hdrstop
#ifndef _SWTYPES_HXX
#include <swtypes.hxx>
#endif
#ifndef _LINKMGR_HXX //autogen
#include <so3/linkmgr.hxx>
#endif
#ifndef _USRFLD_HXX
#include <usrfld.hxx>
#endif
#ifndef _DOCUFLD_HXX
#include <docufld.hxx>
#endif
#ifndef _FLDBAS_HXX
#include <fldbas.hxx>
#endif
#ifndef _EXPFLD_HXX
#include <expfld.hxx>
#endif
#ifndef _DDEFLD_HXX
#include <ddefld.hxx>
#endif
#ifndef _VIEW_HXX
#include <view.hxx>
#endif
#ifndef _WRTSH_HXX
#include <wrtsh.hxx>
#endif
#ifndef _DOC_HXX
#include <doc.hxx>
#endif
#ifndef _DOCARY_HXX
#include <docary.hxx>
#endif
#ifndef _SWMODULE_HXX
#include <swmodule.hxx>
#endif
#ifndef _FLDVAR_HXX
#include <fldvar.hxx>
#endif
Bug #83829#: validate fieldname
2001-02-13 19:32:47 +00:00
#ifndef _CALC_HXX
#include <calc.hxx>
#endif
initial import
2000-09-18 16:15:01 +00:00
#103096# optionally apply fixed (no language dependence) number format to text fields
2002-11-15 10:17:38 +00:00
#ifndef _ZFORMAT_HXX
#include <svtools/zformat.hxx>
#endif
initial import
2000-09-18 16:15:01 +00:00
#ifndef _GLOBALS_HRC
#include <globals.hrc>
#endif
#ifndef _FLDUI_HRC
#include <fldui.hrc>
#endif
#ifndef _FLDTDLG_HRC
#include <fldtdlg.hrc>
#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 (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 (USHORT i = 1; i <= MAXLEVEL; i++)
aChapterLevelLB.InsertEntry(String::CreateFromInt32(i));
aChapterLevelLB.SelectEntryPos(0);
#103096# optionally apply fixed (no language dependence) number format to text fields
2002-11-15 10:17:38 +00:00
//enable 'active' language selection
aNumFormatLB.SetShowLanguageControl(TRUE);
initial import
2000-09-18 16:15:01 +00:00
}
/*--------------------------------------------------------------------
Beschreibung:
--------------------------------------------------------------------*/
#89582#: look for the dropped content flag at ConditionEdit controls
2001-07-11 16:08:58 +00:00
SwFldVarPage::~SwFldVarPage()
initial import
2000-09-18 16:15:01 +00:00
{
}
/*--------------------------------------------------------------------
Beschreibung:
--------------------------------------------------------------------*/
#89582#: look for the dropped content flag at ConditionEdit controls
2001-07-11 16:08:58 +00:00
void SwFldVarPage::Reset(const SfxItemSet& rSet)
initial import
2000-09-18 16:15:01 +00:00
{
SavePos(&aTypeLB);
Init(); // Allgemeine initialisierung
aTypeLB.SetUpdateMode(FALSE);
aTypeLB.Clear();
USHORT 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);
#ifndef DDE_AVAILABLE
if (nTypeId != TYP_DDEFLD)
#endif
{ // Nur unter WIN, WNT und OS/2 DDE-Fields
nPos = aTypeLB.InsertEntry(GetFldMgr().GetTypeStr(i));
aTypeLB.SetEntryData(nPos, (void*)nTypeId);
}
}
}
else
{
#103096# optionally apply fixed (no language dependence) number format to text fields
2002-11-15 10:17:38 +00:00
SwField* pCurField = GetCurField();
nTypeId = pCurField->GetTypeId();
initial import
2000-09-18 16:15:01 +00:00
if (nTypeId == TYP_SETINPFLD)
nTypeId = TYP_INPUTFLD;
nPos = aTypeLB.InsertEntry(GetFldMgr().GetTypeStr(GetFldMgr().GetPos(nTypeId)));
aTypeLB.SetEntryData(nPos, (void*)nTypeId);
#103096# optionally apply fixed (no language dependence) number format to text fields
2002-11-15 10:17:38 +00:00
aNumFormatLB.SetAutomaticLanguage(pCurField->IsAutomaticLanguage());
SwWrtShell &rSh = ::GetActiveView()->GetWrtShell();
const SvNumberformat* pFormat = rSh.GetNumberFormatter()->GetEntry(pCurField->GetFormat());
if(pFormat)
aNumFormatLB.SetLanguage(pFormat->GetLanguage());
initial import
2000-09-18 16:15:01 +00:00
}
// 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, ';');
Bug #83829#: validate fieldname
2001-02-13 19:32:47 +00:00
USHORT nVal = (USHORT)sVal.ToInt32();
if( USHRT_MAX != nVal )
initial import
2000-09-18 16:15:01 +00:00
{
for(USHORT i = 0; i < aTypeLB.GetEntryCount(); i++)
if(nVal == (USHORT)(ULONG)aTypeLB.GetEntryData(i))
{
aTypeLB.SelectEntryPos(i);
break;
}
}
}
}
TypeHdl(0);
aTypeLB.SetUpdateMode(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 *, pBox )
{
// Alte ListBoxPos sichern
const USHORT 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 = TRUE;
if (nOld != LISTBOX_ENTRY_NOTFOUND)
{
aNameED.SetText(aEmptyStr);
Bug #89582#: handle field dialog activation correct
2001-09-20 11:49:58 +00:00
aValueED.SetText(aEmptyStr);
initial import
2000-09-18 16:15:01 +00:00
}
changes for TF_DATA
2001-07-05 17:41:36 +00:00
aValueED.SetDropEnable(FALSE);
initial import
2000-09-18 16:15:01 +00:00
UpdateSubType(); // Auswahl-Listboxen initialisieren
}
bInit = FALSE;
return 0;
}
/*--------------------------------------------------------------------
Beschreibung:
--------------------------------------------------------------------*/
IMPL_LINK( SwFldVarPage, SubTypeHdl, ListBox *, pBox )
{
USHORT nTypeId = (USHORT)(ULONG)aTypeLB.GetEntryData(GetTypeSel());
USHORT nSelPos = aSelectionLB.GetSelectEntryPos();
if (nSelPos != LISTBOX_ENTRY_NOTFOUND)
nSelPos = (USHORT)(ULONG)aSelectionLB.GetEntryData(nSelPos);
if (IsFldEdit() && (!pBox || bInit))
{
if (nTypeId != TYP_FORMELFLD)
aNameED.SetText(GetFldMgr().GetCurFldPar1());
Bug #89582#: handle field dialog activation correct
2001-09-20 11:49:58 +00:00
aValueED.SetText(GetFldMgr().GetCurFldPar2());
initial import
2000-09-18 16:15:01 +00:00
}
if (aNameFT.GetText() != sOldNameFT)
aNameFT.SetText(sOldNameFT);
if (aValueFT.GetText() != sOldValueFT)
aValueFT.SetText(sOldValueFT);
aNumFormatLB.SetUpdateMode(FALSE);
aFormatLB.SetUpdateMode(FALSE);
FillFormatLB(nTypeId);
USHORT nSize = aFormatLB.GetEntryCount();
BOOL bValue = FALSE, bName = FALSE, bNumFmt = FALSE,
bInvisible = FALSE, bSeparator = FALSE, bChapterLevel = FALSE;
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)
{
Bug #89582#: handle field dialog activation correct
2001-09-20 11:49:58 +00:00
aValueED.SetText(pType->GetContent());
initial import
2000-09-18 16:15:01 +00:00
aNumFormatLB.SelectEntryPos(0);
}
Bug #89582#: handle field dialog activation correct
2001-09-20 11:49:58 +00:00
else
initial import
2000-09-18 16:15:01 +00:00
aValueED.SetText(pType->GetContent());
// aValueED.SetText(pType->GetContent(aNumFormatLB.GetFormat()));
}
}
Bug #89582#: handle field dialog activation correct
2001-09-20 11:49:58 +00:00
else
initial import
2000-09-18 16:15:01 +00:00
aValueED.SetText(pType->GetContent());
}
else
{
if (pBox) // Nur bei Interaktion mit Maus
{
aNameED.SetText(aEmptyStr);
Bug #89582#: handle field dialog activation correct
2001-09-20 11:49:58 +00:00
aValueED.SetText(aEmptyStr);
initial import
2000-09-18 16:15:01 +00:00
}
}
bValue = bName = bNumFmt = bInvisible = TRUE;
changes for TF_DATA
2001-07-05 17:41:36 +00:00
aValueED.SetDropEnable(TRUE);
initial import
2000-09-18 16:15:01 +00:00
break;
}
case TYP_SETFLD:
bValue = TRUE;
bNumFmt = bInvisible = TRUE;
if (!IsFldDlgHtmlMode())
bName = TRUE;
else
{
aNumFormatLB.Clear();
USHORT 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())
{
SwSetExpFieldType* pSetTyp = (SwSetExpFieldType*)
::GetActiveView()->GetWrtShell().
GetFldType(RES_SETEXPFLD, sName);
if (pSetTyp && pSetTyp->GetType() == 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)
Bug #89582#: handle field dialog activation correct
2001-09-20 11:49:58 +00:00
aValueED.SetText(((SwSetExpField*)GetCurField())->GetFormula());
initial import
2000-09-18 16:15:01 +00:00
}
changes for TF_DATA
2001-07-05 17:41:36 +00:00
aValueED.SetDropEnable(TRUE);
initial import
2000-09-18 16:15:01 +00:00
break;
case TYP_FORMELFLD:
{
bValue = TRUE;
bNumFmt = TRUE;
aValueFT.SetText(SW_RESSTR(STR_FORMULA));
changes for TF_DATA
2001-07-05 17:41:36 +00:00
aValueED.SetDropEnable(TRUE);
initial import
2000-09-18 16:15:01 +00:00
}
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
SwSetExpFieldType* pSetTyp = (SwSetExpFieldType*)
::GetActiveView()->GetWrtShell().
GetFldType(RES_SETEXPFLD, sName);
if(pSetTyp)
{
if (pSetTyp->GetType() & GSE_STRING) // Textuell?
bFormat = TRUE;
else // Numerisch
bNumFmt = TRUE;
}
}
else
bFormat = FALSE;
EnableInsert(bFormat|bNumFmt);
}
break;
case TYP_INPUTFLD:
aValueFT.SetText(SW_RESSTR(STR_PROMPT));
if (nSelPos != LISTBOX_ENTRY_NOTFOUND)
{
bValue = bNumFmt = TRUE;
String sName;
sName = aSelectionLB.GetSelectEntry();
aNameED.SetText( sName );
// User- oder SetField ?
USHORT nInpType = 0;
nInpType = 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() == GSE_STRING) // Textuell?
{
aNumFormatLB.Clear();
USHORT nPos = aNumFormatLB.InsertEntry(SW_RESSTR(FMT_USERVAR_TEXT), 0);
aNumFormatLB.SetEntryData(nPos, (void *)ULONG_MAX);
aNumFormatLB.SelectEntryPos(0);
}
}
#89582#: look for the dropped content flag at ConditionEdit controls
2001-07-11 16:08:58 +00:00
if (IsFldEdit() && (!pBox || bInit) )
initial import
2000-09-18 16:15:01 +00:00
aValueED.SetText(((SwSetExpField*)GetCurField())->GetPromptText());
}
else // USERFLD
bFormat = bNumFmt = 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() );
changes for TF_DATA
2001-07-05 17:41:36 +00:00
USHORT nTmpPos = sCmd.SearchAndReplace( so3::cTokenSeperator, ' ' );
sCmd.SearchAndReplace( so3::cTokenSeperator, ' ', nTmpPos );
initial import
2000-09-18 16:15:01 +00:00
aValueED.SetText( sCmd );
aFormatLB.SelectEntryPos(pType->GetType());
}
}
}
bName = bValue = TRUE;
break;
case TYP_SEQFLD:
{
// aNumRB.Check(TRUE);
bName = bValue = bSeparator = bChapterLevel = 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 )
{
BYTE nLevel = ((SwSetExpFieldType*)pFldTyp)->GetOutlineLvl();
if( 0x7f == nLevel )
aChapterLevelLB.SelectEntryPos( 0 );
else
aChapterLevelLB.SelectEntryPos( nLevel + 1 );
sal_Unicode cDelim = ((SwSetExpFieldType*)pFldTyp)->GetDelimiter();
if(cDelim)
aSeparatorED.SetText( cDelim );
else
aSeparatorED.SetText( aEmptyStr );
ChapterHdl();
}
}
break;
case TYP_SETREFPAGEFLD:
{
bValue = 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 = 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 = 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)
TabPage size changed
2001-02-09 06:44:09 +00:00
aSz.Height() = aFormatLB.LogicToPixel(Size(1, 94), MAP_APPFONT).Height();
initial import
2000-09-18 16:15:01 +00:00
else
TabPage size changed
2001-02-09 06:44:09 +00:00
aSz.Height() = aFormatLB.LogicToPixel(Size(1, 123), MAP_APPFONT).Height();
initial import
2000-09-18 16:15:01 +00:00
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(TRUE);
aFormatLB.SetUpdateMode(TRUE);
if(aSelectionLB.IsCallAddSelection())
{
USHORT nTypeId = (USHORT)(ULONG)aTypeLB.GetEntryData(GetTypeSel());
switch (nTypeId)
{
case TYP_FORMELFLD:
{
USHORT nSelPos = aSelectionLB.GetSelectEntryPos();
if (nSelPos != LISTBOX_ENTRY_NOTFOUND)
nSelPos = (USHORT)(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;
USHORT nTypeId = (USHORT)(ULONG)aTypeLB.GetEntryData(GetTypeSel());
SetSelectionSel(aSelectionLB.GetSelectEntryPos());
if(GetSelectionSel() != LISTBOX_ENTRY_NOTFOUND)
sOldSel = aSelectionLB.GetEntry(GetSelectionSel());
// Auswahl-Listbox fuellen
aSelectionLB.SetUpdateMode(FALSE);
aSelectionLB.Clear();
INTEGRATION: CWS os13 (1.10.114); FILE MERGED 2003/07/25 10:57:24 os 1.10.114.1: #i15268# convert some methods of SwFldMgr to be 'static'
2003-08-19 10:59:11 +00:00
SvStringsDtor aList;
GetFldMgr().GetSubTypes(nTypeId, aList);
USHORT nCount = aList.Count();
initial import
2000-09-18 16:15:01 +00:00
USHORT nPos;
for (USHORT i = 0; i < nCount; ++i)
{
if (nTypeId != TYP_INPUTFLD || i)
{
if (!IsFldEdit())
{
INTEGRATION: CWS os13 (1.10.114); FILE MERGED 2003/07/25 10:57:24 os 1.10.114.1: #i15268# convert some methods of SwFldMgr to be 'static'
2003-08-19 10:59:11 +00:00
nPos = aSelectionLB.InsertEntry(*aList[i]);
initial import
2000-09-18 16:15:01 +00:00
aSelectionLB.SetEntryData(nPos, (void*)i);
}
else
{
BOOL bInsert = FALSE;
switch (nTypeId)
{
case TYP_INPUTFLD:
INTEGRATION: CWS os13 (1.10.114); FILE MERGED 2003/07/25 10:57:24 os 1.10.114.1: #i15268# convert some methods of SwFldMgr to be 'static'
2003-08-19 10:59:11 +00:00
if (*aList[i] == GetCurField()->GetPar1())
initial import
2000-09-18 16:15:01 +00:00
bInsert = TRUE;
break;
case TYP_FORMELFLD:
bInsert = TRUE;
break;
case TYP_GETFLD:
INTEGRATION: CWS os13 (1.10.114); FILE MERGED 2003/07/25 10:57:24 os 1.10.114.1: #i15268# convert some methods of SwFldMgr to be 'static'
2003-08-19 10:59:11 +00:00
if (*aList[i] == ((SwFormulaField*)GetCurField())->GetFormula())
initial import
2000-09-18 16:15:01 +00:00
bInsert = TRUE;
break;
case TYP_SETFLD:
case TYP_USERFLD:
INTEGRATION: CWS os13 (1.10.114); FILE MERGED 2003/07/25 10:57:24 os 1.10.114.1: #i15268# convert some methods of SwFldMgr to be 'static'
2003-08-19 10:59:11 +00:00
if (*aList[i] == GetCurField()->GetTyp()->GetName())
initial import
2000-09-18 16:15:01 +00:00
{
bInsert = TRUE;
if (GetCurField()->GetSubType() & SUB_INVISIBLE)
aInvisibleCB.Check();
}
break;
case TYP_SETREFPAGEFLD:
if ((((SwRefPageSetField*)GetCurField())->IsOn() && i) ||
(!((SwRefPageSetField*)GetCurField())->IsOn() && !i))
INTEGRATION: CWS os13 (1.10.114); FILE MERGED 2003/07/25 10:57:24 os 1.10.114.1: #i15268# convert some methods of SwFldMgr to be 'static'
2003-08-19 10:59:11 +00:00
sOldSel = *aList[i];
initial import
2000-09-18 16:15:01 +00:00
// Alle Eintr<74>ge zur Auswahl zulassen:
INTEGRATION: CWS os13 (1.10.114); FILE MERGED 2003/07/25 10:57:24 os 1.10.114.1: #i15268# convert some methods of SwFldMgr to be 'static'
2003-08-19 10:59:11 +00:00
nPos = aSelectionLB.InsertEntry(*aList[i]);
initial import
2000-09-18 16:15:01 +00:00
aSelectionLB.SetEntryData(nPos, (void*)i);
break;
default:
INTEGRATION: CWS os13 (1.10.114); FILE MERGED 2003/07/25 10:57:24 os 1.10.114.1: #i15268# convert some methods of SwFldMgr to be 'static'
2003-08-19 10:59:11 +00:00
if (*aList[i] == GetCurField()->GetPar1())
initial import
2000-09-18 16:15:01 +00:00
bInsert = TRUE;
break;
}
if (bInsert)
{
INTEGRATION: CWS os13 (1.10.114); FILE MERGED 2003/07/25 10:57:24 os 1.10.114.1: #i15268# convert some methods of SwFldMgr to be 'static'
2003-08-19 10:59:11 +00:00
nPos = aSelectionLB.InsertEntry(*aList[i]);
initial import
2000-09-18 16:15:01 +00:00
aSelectionLB.SetEntryData(nPos, (void*)i);
if (nTypeId != TYP_FORMELFLD)
break;
}
}
}
}
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(TRUE);
}
/*--------------------------------------------------------------------
Beschreibung:
--------------------------------------------------------------------*/
USHORT SwFldVarPage::FillFormatLB(USHORT nTypeId)
{
String sOldSel, sOldNumSel;
ULONG nOldNumFormat = 0;
USHORT nFormatSel = aFormatLB.GetSelectEntryPos();
if (nFormatSel != LISTBOX_ENTRY_NOTFOUND)
sOldSel = aFormatLB.GetEntry(nFormatSel);
USHORT 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 (IsFldEdit())
{
#90496# zero is a valid number format
2001-08-03 13:37:05 +00:00
bSpecialFmt = GetCurField()->GetFormat() == ULONG_MAX;
initial import
2000-09-18 16:15:01 +00:00
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)
{
USHORT 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)
{
USHORT nPos = aNumFormatLB.InsertEntry(SW_RESSTR(FMT_SETVAR_TEXT), 0);
aNumFormatLB.SetEntryData(nPos, (void *)ULONG_MAX);
}
}
break;
case TYP_FORMELFLD:
{
USHORT nPos = aNumFormatLB.InsertEntry(SW_RESSTR(FMT_GETVAR_NAME), 0);
aNumFormatLB.SetEntryData(nPos, (void *)ULONG_MAX);
}
break;
case TYP_GETFLD:
{
USHORT 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() & 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);
}
USHORT nSize = GetFldMgr().GetFormatCount(nTypeId, FALSE, IsFldDlgHtmlMode());
for (USHORT i = 0; i < nSize; i++)
{
USHORT nPos = aFormatLB.InsertEntry(GetFldMgr().GetFormatStr(nTypeId, i));
USHORT nFldId = GetFldMgr().GetFormatId( nTypeId, i );
aFormatLB.SetEntryData( nPos, (void*)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());
BOOL bHasValue = sValue.Len() != 0;
USHORT nTypeId = (USHORT)(ULONG)aTypeLB.GetEntryData(GetTypeSel());
BOOL bInsert = FALSE, bApply = FALSE, bDelete = FALSE;
Bug #83829#: validate fieldname
2001-02-13 19:32:47 +00:00
String sName( aNameED.GetText() );
xub_StrLen nLen = sName.Len();
initial import
2000-09-18 16:15:01 +00:00
Bug #83829#: validate fieldname
2001-02-13 19:32:47 +00:00
switch( nTypeId )
initial import
2000-09-18 16:15:01 +00:00
{
Bug #83829#: validate fieldname
2001-02-13 19:32:47 +00:00
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;
initial import
2000-09-18 16:15:01 +00:00
}
// Buttons ueberpruefen
switch (nTypeId)
{
Bug #83829#: validate fieldname
2001-02-13 19:32:47 +00:00
case TYP_DDEFLD:
if( nLen )
{
// Gibts schon einen entsprechenden Type
bInsert = bApply = TRUE;
initial import
2000-09-18 16:15:01 +00:00
Bug #83829#: validate fieldname
2001-02-13 19:32:47 +00:00
SwFieldType* pType = GetFldMgr().GetFldType(RES_DDEFLD, sName);
initial import
2000-09-18 16:15:01 +00:00
Bug #83829#: validate fieldname
2001-02-13 19:32:47 +00:00
if (pType)
bDelete = !::GetActiveView()->GetWrtShell().IsUsed( *pType );
}
break;
initial import
2000-09-18 16:15:01 +00:00
Bug #83829#: validate fieldname
2001-02-13 19:32:47 +00:00
case TYP_USERFLD:
if( nLen )
{
// Gibts schon einen entsprechenden Type
SwFieldType* pType = GetFldMgr().GetFldType(RES_USERFLD, sName);
initial import
2000-09-18 16:15:01 +00:00
Bug #83829#: validate fieldname
2001-02-13 19:32:47 +00:00
if (pType)
bDelete = !::GetActiveView()->GetWrtShell().IsUsed( *pType );
initial import
2000-09-18 16:15:01 +00:00
Bug #83829#: validate fieldname
2001-02-13 19:32:47 +00:00
pType = GetFldMgr().GetFldType(RES_SETEXPFLD, sName);
if (!pType) // Kein Namenskonflikt mit Variablen
initial import
2000-09-18 16:15:01 +00:00
{
Bug #83829#: validate fieldname
2001-02-13 19:32:47 +00:00
// Benutzerfelder duerfen auch ohne Inhalt eingefuegt werden!
// Bug #56845
bInsert = bApply = TRUE;
}
}
break;
initial import
2000-09-18 16:15:01 +00:00
Bug #83829#: validate fieldname
2001-02-13 19:32:47 +00:00
default:
bInsert = TRUE;
initial import
2000-09-18 16:15:01 +00:00
Bug #83829#: validate fieldname
2001-02-13 19:32:47 +00:00
if (nTypeId == TYP_SETFLD || nTypeId == TYP_SEQFLD)
{
SwSetExpFieldType* pFldType = (SwSetExpFieldType*)
GetFldMgr().GetFldType(RES_SETEXPFLD, sName);
initial import
2000-09-18 16:15:01 +00:00
Bug #83829#: validate fieldname
2001-02-13 19:32:47 +00:00
if (pFldType)
{
initial import
2000-09-18 16:15:01 +00:00
Bug #83829#: validate fieldname
2001-02-13 19:32:47 +00:00
SwWrtShell &rSh = ::GetActiveView()->GetWrtShell();
const SwFldTypes* p = rSh.GetDoc()->GetFldTypes();
USHORT i;
initial import
2000-09-18 16:15:01 +00:00
Bug #83829#: validate fieldname
2001-02-13 19:32:47 +00:00
for (i = 0; i < INIT_FLDTYPES; i++)
{
SwFieldType* pType = (*p)[ i ];
if (pType == pFldType)
break;
initial import
2000-09-18 16:15:01 +00:00
}
Bug #83829#: validate fieldname
2001-02-13 19:32:47 +00:00
if (i >= INIT_FLDTYPES && !rSh.IsUsed(*pFldType))
bDelete = TRUE;
if (nTypeId == TYP_SEQFLD && !(pFldType->GetType() & GSE_SEQ))
initial import
2000-09-18 16:15:01 +00:00
bInsert = FALSE;
Bug #83829#: validate fieldname
2001-02-13 19:32:47 +00:00
if (nTypeId == TYP_SETFLD && (pFldType->GetType() & GSE_SEQ))
initial import
2000-09-18 16:15:01 +00:00
bInsert = FALSE;
}
Bug #83829#: validate fieldname
2001-02-13 19:32:47 +00:00
if (GetFldMgr().GetFldType(RES_USERFLD, sName))
bInsert = FALSE;
}
if( !nLen && ( nTypeId == TYP_SETFLD ||
(!IsFldEdit() && nTypeId == TYP_GETFLD ) ) )
bInsert = FALSE;
if( (nTypeId == TYP_SETFLD || nTypeId == TYP_FORMELFLD) &&
!bHasValue )
bInsert = FALSE;
break;
initial import
2000-09-18 16:15:01 +00:00
}
aNewDelTBX.EnableItem(BT_VARAPPLY, bApply);
aNewDelTBX.EnableItem(BT_VARDELETE, bDelete);
EnableInsert(bInsert);
return 0;
}
/*--------------------------------------------------------------------
Beschreibung:
--------------------------------------------------------------------*/
IMPL_LINK( SwFldVarPage, TBClickHdl, ToolBox *, pBox )
{
USHORT nTypeId = (USHORT)(ULONG)aTypeLB.GetEntryData(GetTypeSel());
switch (pBox->GetCurItemId())
{
case BT_VARDELETE:
{
if( nTypeId == TYP_USERFLD )
GetFldMgr().RemoveFldType(RES_USERFLD, aSelectionLB.GetSelectEntry());
else
{
USHORT nWhich;
switch(nTypeId)
{
case TYP_SETFLD:
case TYP_SEQFLD:
nWhich = RES_SETEXPFLD;
break;
default:
nWhich = RES_DDEFLD;
break;
}
GetFldMgr().RemoveFldType(nWhich, aSelectionLB.GetSelectEntry());
}
UpdateSubType();
::GetActiveView()->GetWrtShell().SetModified();
}
break;
case BT_VARAPPLY:
{
String sName(aNameED.GetText()), sValue(aValueED.GetText());
SwFieldType* pType = 0;
USHORT nId;
USHORT 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);
ULONG nFormat = aFormatLB.GetSelectEntryPos();
if (nFormat != LISTBOX_ENTRY_NOTFOUND)
nFormat = (ULONG)aFormatLB.GetEntryData((USHORT)nFormat);
if (pType) // Aendern
{
SwWrtShell &rSh = ::GetActiveView()->GetWrtShell();
rSh.StartAllAction();
if (nTypeId == TYP_USERFLD)
{
if (nNumFormatPos != LISTBOX_ENTRY_NOTFOUND)
{
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
SvNumberFormatter* pFormatter = rSh.GetNumberFormatter();
nFmt = SwValueField::GetSystemFormat(rSh.GetNumberFormatter(), nFmt);
}
((SwUserFieldType*)pType)->SetContent(aValueED.GetText(), nFmt);
((SwUserFieldType*)pType)->SetType(
nNumFormatPos == 0 ? GSE_STRING : 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.
changes for TF_DATA
2001-07-05 17:41:36 +00:00
USHORT nTmpPos = sValue.SearchAndReplace( ' ', so3::cTokenSeperator );
sValue.SearchAndReplace( ' ', so3::cTokenSeperator, nTmpPos );
initial import
2000-09-18 16:15:01 +00:00
((SwDDEFieldType*)pType)->SetCmd(sValue);
((SwDDEFieldType*)pType)->SetType((USHORT)nFormat);
}
}
pType->UpdateFlds();
INTEGRATION: CWS os13 (1.10.114); FILE MERGED 2003/07/25 10:57:24 os 1.10.114.1: #i15268# convert some methods of SwFldMgr to be 'static'
2003-08-19 10:59:11 +00:00
rSh.EndAllAction();
initial import
2000-09-18 16:15:01 +00:00
}
else // Neu
{
if(nTypeId == TYP_USERFLD)
{
SwUserFieldType aType( ::GetActiveView()->GetWrtShellPtr()->GetDoc(), sName );
if (nNumFormatPos != LISTBOX_ENTRY_NOTFOUND)
{
aType.SetType(nNumFormatPos == 0 ? GSE_STRING : 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.
changes for TF_DATA
2001-07-05 17:41:36 +00:00
USHORT nTmpPos = sValue.SearchAndReplace( ' ', so3::cTokenSeperator );
sValue.SearchAndReplace( ' ', so3::cTokenSeperator, nTmpPos );
initial import
2000-09-18 16:15:01 +00:00
SwDDEFieldType aType(sName, sValue, (USHORT)nFormat);
aSelectionLB.InsertEntry(sName);
aSelectionLB.SelectEntry(sName);
GetFldMgr().InsertFldType(aType); // DDE-Feld Neu
}
}
}
if (IsFldEdit())
GetFldMgr().GetCurFld(); // FieldManager Updaten
UpdateSubType();
}
break;
}
return TRUE;
}
/*--------------------------------------------------------------------
Beschreibung:
--------------------------------------------------------------------*/
IMPL_LINK( SwFldVarPage, ChapterHdl, ListBox *, pLB )
{
BOOL bEnable = aChapterLevelLB.GetSelectEntryPos() != 0;
aSeparatorED.Enable(bEnable);
aSeparatorFT.Enable(bEnable);
SeparatorHdl();
return 0;
}
/*--------------------------------------------------------------------
Beschreibung:
--------------------------------------------------------------------*/
IMPL_LINK( SwFldVarPage, SeparatorHdl, Edit *, pED )
{
BOOL bEnable = aSeparatorED.GetText().Len() != 0 ||
aChapterLevelLB.GetSelectEntryPos() == 0;
EnableInsert(bEnable);
return 0;
}
/*--------------------------------------------------------------------
Beschreibung:
--------------------------------------------------------------------*/
#89582#: look for the dropped content flag at ConditionEdit controls
2001-07-11 16:08:58 +00:00
BOOL SwFldVarPage::FillItemSet(SfxItemSet& rSet)
initial import
2000-09-18 16:15:01 +00:00
{
USHORT nTypeId = (USHORT)(ULONG)aTypeLB.GetEntryData(GetTypeSel());
String aVal(aValueED.GetText());
String aName(aNameED.GetText());
USHORT nSubType = aSelectionLB.GetSelectEntryPos();
if(nSubType == LISTBOX_ENTRY_NOTFOUND)
nSubType = 0;
else
nSubType = (USHORT)(ULONG)aSelectionLB.GetEntryData(nSubType);
ULONG nFormat;
if (!aNumFormatLB.IsVisible())
{
nFormat = aFormatLB.GetSelectEntryPos();
if(nFormat == LISTBOX_ENTRY_NOTFOUND)
nFormat = 0;
else
nFormat = (ULONG)aFormatLB.GetEntryData((USHORT)nFormat);
}
else
{
nFormat = aNumFormatLB.GetFormat();
#103096# optionally apply fixed (no language dependence) number format to text fields
2002-11-15 10:17:38 +00:00
if (nFormat && nFormat != ULONG_MAX && aNumFormatLB.IsAutomaticLanguage())
initial import
2000-09-18 16:15:01 +00:00
{
// Sprache auf Office-Sprache umstellen, da String im Office-
// Format vom Kalkulator erwartet wird und so in den Dlg
// eingegeben werden sollte
SwWrtShell &rSh = ::GetActiveView()->GetWrtShell();
SvNumberFormatter* pFormatter = rSh.GetNumberFormatter();
nFormat = SwValueField::GetSystemFormat(rSh.GetNumberFormatter(), nFormat);
}
}
sal_Unicode cSeparator = ' ';
switch (nTypeId)
{
case TYP_USERFLD:
{
nSubType = (nFormat == ULONG_MAX) ? GSE_STRING : GSE_EXPR;
if (nFormat == ULONG_MAX && aNumFormatLB.GetSelectEntry() == SW_RESSTR(FMT_USERVAR_CMD))
nSubType |= SUB_CMD;
if (aInvisibleCB.IsChecked())
nSubType |= SUB_INVISIBLE;
break;
}
case TYP_FORMELFLD:
{
nSubType = GSE_FORMULA;
if (aNumFormatLB.IsVisible() && nFormat == ULONG_MAX)
nSubType |= SUB_CMD;
break;
}
case TYP_GETFLD:
{
nSubType &= 0xff00;
if (aNumFormatLB.IsVisible() && nFormat == ULONG_MAX)
nSubType |= SUB_CMD;
break;
}
case TYP_INPUTFLD:
{
SwFieldType* pType = GetFldMgr().GetFldType(RES_USERFLD, aName);
nSubType = (nSubType & 0xff00) | ((pType) ? INP_USR : INP_VAR);
break;
}
case TYP_SETFLD:
{
if (IsFldDlgHtmlMode())
{
nSubType = 0x0100;
nSubType = (nSubType & 0xff00) | GSE_STRING;
}
else
nSubType = (nSubType & 0xff00) | ((nFormat == ULONG_MAX) ? GSE_STRING : GSE_EXPR);
if (aInvisibleCB.IsChecked())
nSubType |= SUB_INVISIBLE;
break;
}
case TYP_SEQFLD:
{
// nSubType = GSE_SEQ; // 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 |= (USHORT)(((BYTE)) << 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())
{
#103096# optionally apply fixed (no language dependence) number format to text fields
2002-11-15 10:17:38 +00:00
InsertFld( nTypeId, nSubType, aName, aVal, nFormat,
cSeparator, aNumFormatLB.IsAutomaticLanguage() );
initial import
2000-09-18 16:15:01 +00:00
}
UpdateSubType();
return FALSE;
}
/*--------------------------------------------------------------------
Beschreibung:
--------------------------------------------------------------------*/
#89582#: look for the dropped content flag at ConditionEdit controls
2001-07-11 16:08:58 +00:00
SfxTabPage* SwFldVarPage::Create( Window* pParent,
initial import
2000-09-18 16:15:01 +00:00
const SfxItemSet& rAttrSet )
{
return ( new SwFldVarPage( pParent, rAttrSet ) );
}
/*--------------------------------------------------------------------
Beschreibung:
--------------------------------------------------------------------*/
USHORT SwFldVarPage::GetGroup()
{
return GRP_VAR;
}
/*--------------------------------------------------------------------
Beschreibung:
--------------------------------------------------------------------*/
SelectionListBox::SelectionListBox( SwFldVarPage* pDialog, const ResId& rResId ) :
ListBox (pDialog, rResId),
pDlg (pDialog),
bCallAddSelection(FALSE)
{
}
/*--------------------------------------------------------------------
Beschreibung:
--------------------------------------------------------------------*/
long SelectionListBox::PreNotify( NotifyEvent& rNEvt )
{
long nHandled = ListBox::PreNotify( rNEvt );
//BOOL bAddSel = FALSE;
if ( rNEvt.GetType() == EVENT_KEYUP )
{
const KeyEvent* pKEvt = rNEvt.GetKeyEvent();
const KeyCode aKeyCode = pKEvt->GetKeyCode();
const USHORT nModifier = aKeyCode.GetModifier();
if( aKeyCode.GetCode() == KEY_SPACE && !nModifier)
// bAddSel = TRUE;
bCallAddSelection = TRUE;
}
if ( rNEvt.GetType() == EVENT_MOUSEBUTTONDOWN )
{
const MouseEvent* pMEvt = rNEvt.GetMouseEvent();
if (pMEvt && (pMEvt->IsMod1() || pMEvt->IsMod2())) // Alt oder Ctrl
//bAddSel = TRUE;
bCallAddSelection = TRUE;
}
// if (bAddSel)
// pDlg->AddSelection(this);
return nHandled;
}
/* -----------------12.01.99 11:14-------------------
*
* --------------------------------------------------*/
void SwFldVarPage::FillUserData()
{
String sData(String::CreateFromAscii(USER_DATA_VERSION));
sData += ';';
USHORT nTypeSel = aTypeLB.GetSelectEntryPos();
if( LISTBOX_ENTRY_NOTFOUND == nTypeSel )
nTypeSel = USHRT_MAX;
else
Bug #83829#: validate fieldname
2001-02-13 19:32:47 +00:00
nTypeSel = (USHORT)(ULONG)aTypeLB.GetEntryData( nTypeSel );
initial import
2000-09-18 16:15:01 +00:00
sData += String::CreateFromInt32( nTypeSel );
SetUserData(sData);
}
Reference in New Issue Copy Permalink