xref: /trunk/main/sw/source/ui/config/optload.cxx (revision 1ecadb572e7010ff3b3382ad9bf179dbc6efadbb)
1 /*************************************************************************
2  *
3  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
4  *
5  * Copyright 2000, 2010 Oracle and/or its affiliates.
6  *
7  * OpenOffice.org - a multi-platform office productivity suite
8  *
9  * This file is part of OpenOffice.org.
10  *
11  * OpenOffice.org is free software: you can redistribute it and/or modify
12  * it under the terms of the GNU Lesser General Public License version 3
13  * only, as published by the Free Software Foundation.
14  *
15  * OpenOffice.org is distributed in the hope that it will be useful,
16  * but WITHOUT ANY WARRANTY; without even the implied warranty of
17  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
18  * GNU Lesser General Public License version 3 for more details
19  * (a copy is included in the LICENSE file that accompanied this code).
20  *
21  * You should have received a copy of the GNU Lesser General Public License
22  * version 3 along with OpenOffice.org.  If not, see
23  * <http://www.openoffice.org/license.html>
24  * for a copy of the LGPLv3 License.
25  *
26  ************************************************************************/
27 
28 // MARKER(update_precomp.py): autogen include statement, do not remove
29 #include "precompiled_sw.hxx"
30 #ifdef SW_DLLIMPLEMENTATION
31 #undef SW_DLLIMPLEMENTATION
32 #endif
33 
34 
35 #include <tools/shl.hxx>
36 #include <swtypes.hxx>
37 #include <helpid.h>
38 #include <uiitems.hxx>
39 #include <modcfg.hxx>
40 #include "swmodule.hxx"
41 #include "usrpref.hxx"
42 #include "wrtsh.hxx"
43 #include "linkenum.hxx"
44 #include <uitool.hxx>
45 #include <view.hxx>
46 
47 #include "globals.hrc"
48 #include "cmdid.h"
49 
50 #include "optload.hrc"
51 #include "optload.hxx"
52 #include <svx/dlgutil.hxx>
53 #include <svx/htmlmode.hxx>
54 #include <fldmgr.hxx>
55 #include <poolfmt.hxx>
56 #include <expfld.hxx>
57 #include <caption.hxx>
58 #include <com/sun/star/document/PrinterIndependentLayout.hpp>
59 
60 #include <svtools/insdlg.hxx>
61 #include <sot/clsids.hxx>
62 #include <unotools/configmgr.hxx>
63 #include <docsh.hxx>
64 #include <config.hrc>
65 #include <SwStyleNameMapper.hxx>
66 #include <numrule.hxx>
67 #include <SwNodeNum.hxx>
68 
69 #include <doc.hxx>
70 #include <svl/cjkoptions.hxx>
71 
72 using namespace ::com::sun::star;
73 
74 /* -----------------22.10.98 15:12-------------------
75  *
76  * --------------------------------------------------*/
77 SwLoadOptPage::SwLoadOptPage( Window* pParent, const SfxItemSet& rSet ) :
78 
79     SfxTabPage( pParent, SW_RES( TP_OPTLOAD_PAGE ), rSet ),
80 
81     aUpdateFL           ( this, SW_RES( FL_UPDATE ) ),
82     aLinkFT             ( this, SW_RES( FT_LINK ) ),
83     aAlwaysRB           ( this, SW_RES( RB_ALWAYS ) ),
84     aRequestRB          ( this, SW_RES( RB_REQUEST ) ),
85     aNeverRB            ( this, SW_RES( RB_NEVER  ) ),
86 
87     aFieldFT            ( this, SW_RES( FT_FIELD ) ),
88     aAutoUpdateFields   ( this, SW_RES( CB_AUTO_UPDATE_FIELDS ) ),
89     aAutoUpdateCharts   ( this, SW_RES( CB_AUTO_UPDATE_CHARTS ) ),
90 
91     aSettingsFL         ( this, SW_RES( FL_SETTINGS ) ),
92     aMetricFT           ( this, SW_RES( FT_METRIC ) ),
93     aMetricLB           ( this, SW_RES( LB_METRIC ) ),
94     aTabFT              ( this, SW_RES( FT_TAB ) ),
95     aTabMF              ( this, SW_RES( MF_TAB ) ),
96     aUseSquaredPageMode ( this, SW_RES( CB_USE_SQUARE_PAGE_MODE ) ),
97 
98     pWrtShell   ( NULL ),
99     bHTMLMode   ( sal_False ),
100     nLastTab    ( 0 ),
101     nOldLinkMode( MANUAL )
102 
103 {
104     FreeResource();
105 
106     SvxStringArray aMetricArr( SW_RES( STR_ARR_METRIC ) );
107     for ( sal_uInt16 i = 0; i < aMetricArr.Count(); ++i )
108     {
109         String sMetric = aMetricArr.GetStringByPos( i );
110         FieldUnit eFUnit = (FieldUnit)aMetricArr.GetValue( i );
111 
112         switch ( eFUnit )
113         {
114             case FUNIT_MM:
115             case FUNIT_CM:
116             case FUNIT_POINT:
117             case FUNIT_PICA:
118             case FUNIT_INCH:
119             {
120                 // nur diese Metriken benutzen
121                 sal_uInt16 nPos = aMetricLB.InsertEntry( sMetric );
122                 aMetricLB.SetEntryData( nPos, (void*)(long)eFUnit );
123             }
124             default:; //prevent warning
125         }
126     }
127     aMetricLB.SetSelectHdl(LINK(this, SwLoadOptPage, MetricHdl));
128 
129     const SfxPoolItem* pItem;
130     if(SFX_ITEM_SET == rSet.GetItemState(SID_HTML_MODE, sal_False, &pItem )
131         && ((SfxUInt16Item*)pItem)->GetValue() & HTMLMODE_ON)
132     {
133         aTabFT.Hide();
134         aTabMF.Hide();
135     }
136 
137     SvtCJKOptions aCJKOptions;
138     if(!aCJKOptions.IsAsianTypographyEnabled())
139         aUseSquaredPageMode.Hide();
140 }
141 
142 /*-----------------18.01.97 12.43-------------------
143 
144 --------------------------------------------------*/
145 
146 SwLoadOptPage::~SwLoadOptPage()
147 {
148 }
149 
150 /*-----------------18.01.97 12.43-------------------
151 
152 --------------------------------------------------*/
153 
154 SfxTabPage* __EXPORT SwLoadOptPage::Create( Window* pParent,
155                                 const SfxItemSet& rAttrSet )
156 {
157     return new SwLoadOptPage(pParent, rAttrSet );
158 }
159 
160 /*-----------------18.01.97 12.42-------------------
161 
162 --------------------------------------------------*/
163 
164 sal_Bool __EXPORT SwLoadOptPage::FillItemSet( SfxItemSet& rSet )
165 {
166     sal_Bool bRet = sal_False;
167     SwModule* pMod = SW_MOD();
168 
169     sal_uInt16 nNewLinkMode = AUTOMATIC;
170     if (aNeverRB.IsChecked())
171         nNewLinkMode = NEVER;
172     else if (aRequestRB.IsChecked())
173         nNewLinkMode = MANUAL;
174 
175     SwFldUpdateFlags eFldFlags = aAutoUpdateFields.IsChecked() ?
176         aAutoUpdateCharts.IsChecked() ? AUTOUPD_FIELD_AND_CHARTS : AUTOUPD_FIELD_ONLY : AUTOUPD_OFF;
177 
178     if(aAutoUpdateFields.IsChecked() != aAutoUpdateFields.GetSavedValue() ||
179             aAutoUpdateCharts.IsChecked() != aAutoUpdateCharts.GetSavedValue())
180     {
181         pMod->ApplyFldUpdateFlags(eFldFlags);
182         if(pWrtShell)
183         {
184             pWrtShell->SetFldUpdateFlags(eFldFlags);
185             pWrtShell->SetModified();
186         }
187     }
188 
189     if (nNewLinkMode != nOldLinkMode)
190     {
191         pMod->ApplyLinkMode(nNewLinkMode);
192         if (pWrtShell)
193         {
194             pWrtShell->SetLinkUpdMode( nNewLinkMode );
195             pWrtShell->SetModified();
196         }
197 
198         bRet = sal_True;
199     }
200 
201     const sal_uInt16 nMPos = aMetricLB.GetSelectEntryPos();
202     if ( nMPos != aMetricLB.GetSavedValue() )
203     {
204         // Doppel-Cast fuer VA3.0
205         sal_uInt16 nFieldUnit = (sal_uInt16)(long)aMetricLB.GetEntryData( nMPos );
206         rSet.Put( SfxUInt16Item( SID_ATTR_METRIC, (sal_uInt16)nFieldUnit ) );
207         bRet = sal_True;
208     }
209 
210     if(aTabMF.IsVisible() && aTabMF.GetText() != aTabMF.GetSavedValue())
211     {
212         rSet.Put(SfxUInt16Item(SID_ATTR_DEFTABSTOP,
213                     (sal_uInt16)aTabMF.Denormalize(aTabMF.GetValue(FUNIT_TWIP))));
214         bRet = sal_True;
215     }
216 
217     sal_Bool bIsSquaredPageModeFlag = aUseSquaredPageMode.IsChecked();
218     if ( bIsSquaredPageModeFlag != aUseSquaredPageMode.GetSavedValue() )
219     {
220         pMod->ApplyDefaultPageMode( bIsSquaredPageModeFlag );
221         if ( pWrtShell )
222         {
223             SwDoc* pDoc = pWrtShell->GetDoc();
224             pDoc->SetDefaultPageMode( bIsSquaredPageModeFlag );
225             pWrtShell->SetModified();
226         }
227         bRet = sal_True;
228     }
229 
230     return bRet;
231 }
232 /*-----------------18.01.97 12.42-------------------
233 
234 --------------------------------------------------*/
235 void __EXPORT SwLoadOptPage::Reset( const SfxItemSet& rSet)
236 {
237     const SwMasterUsrPref* pUsrPref = SW_MOD()->GetUsrPref(sal_False);
238     const SfxPoolItem* pItem;
239 
240     if(SFX_ITEM_SET == rSet.GetItemState(FN_PARAM_WRTSHELL, sal_False, &pItem))
241         pWrtShell = (SwWrtShell*)((const SwPtrItem*)pItem)->GetValue();
242 
243     SwFldUpdateFlags eFldFlags = AUTOUPD_GLOBALSETTING;
244     nOldLinkMode = GLOBALSETTING;
245     if (pWrtShell)
246     {
247         eFldFlags = pWrtShell->GetFldUpdateFlags(sal_True);
248         nOldLinkMode = pWrtShell->GetLinkUpdMode(sal_True);
249     }
250     if(GLOBALSETTING == nOldLinkMode)
251         nOldLinkMode = pUsrPref->GetUpdateLinkMode();
252     if(AUTOUPD_GLOBALSETTING == eFldFlags)
253         eFldFlags = pUsrPref->GetFldUpdateFlags();
254 
255     aAutoUpdateFields.Check(eFldFlags != AUTOUPD_OFF);
256     aAutoUpdateCharts.Check(eFldFlags == AUTOUPD_FIELD_AND_CHARTS);
257 
258     switch (nOldLinkMode)
259     {
260         case NEVER:     aNeverRB.Check();   break;
261         case MANUAL:    aRequestRB.Check(); break;
262         case AUTOMATIC: aAlwaysRB.Check();  break;
263     }
264 
265     aAutoUpdateFields.SaveValue();
266     aAutoUpdateCharts.SaveValue();
267     aMetricLB.SetNoSelection();
268     if ( rSet.GetItemState( SID_ATTR_METRIC ) >= SFX_ITEM_AVAILABLE )
269     {
270         const SfxUInt16Item& rItem = (SfxUInt16Item&)rSet.Get( SID_ATTR_METRIC );
271         FieldUnit eFieldUnit = (FieldUnit)rItem.GetValue();
272 
273         for ( sal_uInt16 i = 0; i < aMetricLB.GetEntryCount(); ++i )
274         {
275             if ( (int)(sal_IntPtr)aMetricLB.GetEntryData( i ) == (int)eFieldUnit )
276             {
277                 aMetricLB.SelectEntryPos( i );
278                 break;
279             }
280         }
281         ::SetFieldUnit(aTabMF, eFieldUnit);
282     }
283     aMetricLB.SaveValue();
284     if(SFX_ITEM_SET == rSet.GetItemState(SID_ATTR_DEFTABSTOP, sal_False, &pItem))
285     {
286         nLastTab = ((SfxUInt16Item*)pItem)->GetValue();
287         aTabMF.SetValue(aTabMF.Normalize(nLastTab), FUNIT_TWIP);
288     }
289     aTabMF.SaveValue();
290 
291     if(SFX_ITEM_SET == rSet.GetItemState(SID_HTML_MODE, sal_False, &pItem))
292     {
293         bHTMLMode = 0 != (((const SfxUInt16Item*)pItem)->GetValue() & HTMLMODE_ON);
294     }
295 
296     //default page mode loading
297     if(pWrtShell)
298     {
299         sal_Bool bSquaredPageMode = pWrtShell->GetDoc()->IsSquaredPageMode();
300         aUseSquaredPageMode.Check( bSquaredPageMode );
301         aUseSquaredPageMode.SaveValue();
302     }
303 }
304 /*-----------------13.01.97 14.44-------------------
305     Metric des Deftabstops umschalten
306 --------------------------------------------------*/
307 
308 IMPL_LINK(SwLoadOptPage, MetricHdl, ListBox*, EMPTYARG)
309 {
310     const sal_uInt16 nMPos = aMetricLB.GetSelectEntryPos();
311     if(nMPos != USHRT_MAX)
312     {
313         // Doppel-Cast fuer VA3.0
314         FieldUnit eFieldUnit = (FieldUnit)(long)aMetricLB.GetEntryData( nMPos );
315         sal_Bool bModified = aTabMF.IsModified();
316         long nVal = bModified ?
317             sal::static_int_cast<sal_Int32, sal_Int64 >( aTabMF.Denormalize( aTabMF.GetValue( FUNIT_TWIP ) )) :
318                 nLastTab;
319         ::SetFieldUnit( aTabMF, eFieldUnit );
320         aTabMF.SetValue( aTabMF.Normalize( nVal ), FUNIT_TWIP );
321         if(!bModified)
322             aTabMF.ClearModifyFlag();
323     }
324 
325     return 0;
326 }
327 /*********************************************************************/
328 /*                                                                   */
329 /*********************************************************************/
330 
331 IMPL_LINK(SwLoadOptPage, CaptionHdl, PushButton*, EMPTYARG)
332 {
333     SwCaptionOptDlg aDlg(this, GetItemSet());
334     aDlg.Execute();
335 
336     return 0;
337 }
338 
339 /*--------------------------------------------------------------------
340     Beschreibung:
341  --------------------------------------------------------------------*/
342 
343 SwCaptionOptDlg::SwCaptionOptDlg(Window* pParent, const SfxItemSet& rSet) :
344     SfxSingleTabDialog(pParent, rSet, 0)
345 {
346     // TabPage erzeugen
347     SetTabPage((SwCaptionOptPage*) SwCaptionOptPage::Create(this, rSet));
348 }
349 
350 /*--------------------------------------------------------------------
351     Beschreibung:
352  --------------------------------------------------------------------*/
353 
354 SwCaptionOptDlg::~SwCaptionOptDlg()
355 {
356 }
357 
358 /* -----------------22.10.98 15:12-------------------
359  *
360  * --------------------------------------------------*/
361 
362 SwCaptionPreview::SwCaptionPreview( Window* pParent, const ResId& rResId )
363     : Window( pParent, rResId )
364 {
365     maDrawPos = Point( 4, 6 );
366 
367     Wallpaper   aBack( GetSettings().GetStyleSettings().GetWindowColor() );
368     SetBackground( aBack );
369     SetFillColor( aBack.GetColor() );
370     SetLineColor( aBack.GetColor() );
371     SetBorderStyle( WINDOW_BORDER_MONO );
372     Font aFont(GetFont());
373     aFont.SetHeight(aFont.GetHeight() * 120 / 100 );
374     SetFont(aFont);
375 }
376 
377 void SwCaptionPreview::SetPreviewText( const String& rText )
378 {
379     if( rText != maText )
380     {
381         maText = rText;
382         Invalidate();
383     }
384 }
385 
386 void SwCaptionPreview::Paint( const Rectangle& rRect )
387 {
388     Window::Paint( rRect );
389 
390     DrawRect( Rectangle( Point( 0, 0 ), GetSizePixel() ) );
391     DrawText( Point( 4, 6 ), maText );
392 }
393 
394 
395 SwCaptionOptPage::SwCaptionOptPage( Window* pParent, const SfxItemSet& rSet )
396     : SfxTabPage(pParent, SW_RES(TP_OPTCAPTION_PAGE), rSet),
397     aCheckFT        (this, SW_RES(FT_OBJECTS    )),
398     aCheckLB        (this, SW_RES(CLB_OBJECTS   )),
399     aFtCaptionOrder(this, SW_RES( FT_ORDER )),
400     aLbCaptionOrder(this, SW_RES( LB_ORDER )),
401     aPreview        (this, SW_RES(WIN_PREVIEW   )),
402     aSettingsGroupFL(this, SW_RES(FL_SETTINGS_2 )),
403     aCategoryText   (this, SW_RES(TXT_CATEGORY  )),
404     aCategoryBox    (this, SW_RES(BOX_CATEGORY  )),
405     aFormatText     (this, SW_RES(TXT_FORMAT    )),
406     aFormatBox      (this, SW_RES(BOX_FORMAT    )),
407     aNumberingSeparatorFT(this, SW_RES(FT_NUM_SEP  )),
408     aNumberingSeparatorED(this, SW_RES(ED_NUM_SEP  )),
409     aTextText       (this, SW_RES(TXT_TEXT      )),
410     aTextEdit       (this, SW_RES(EDT_TEXT      )),
411     aPosText        (this, SW_RES(TXT_POS       )),
412     aPosBox         (this, SW_RES(BOX_POS       )),
413     aNumCaptFL      (this, SW_RES(FL_NUMCAPT    )),
414     aFtLevel        (this, SW_RES(FT_LEVEL      )),
415     aLbLevel        (this, SW_RES(LB_LEVEL      )),
416     aFtDelim        (this, SW_RES(FT_SEPARATOR  )),
417     aEdDelim        (this, SW_RES(ED_SEPARATOR  )),
418     aCategoryFL     (this, SW_RES(FL_CATEGORY   )),
419     aCharStyleFT    (this, SW_RES(FT_CHARSTYLE  )),
420     aCharStyleLB    (this, SW_RES(LB_CHARSTYLE  )),
421     aApplyBorderCB  (this, SW_RES(CB_APPLYBORDER)),
422 
423     sSWTable        (SW_RES(STR_TABLE           )),
424     sSWFrame        (SW_RES(STR_FRAME           )),
425     sSWGraphic      (SW_RES(STR_GRAPHIC         )),
426     sOLE            (SW_RES(STR_OLE             )),
427 
428     sBegin          (SW_RESSTR(STR_BEGINNING            )),
429     sEnd            (SW_RESSTR(STR_END                  )),
430     sAbove          (SW_RESSTR(STR_ABOVE                )),
431     sBelow          (SW_RESSTR(STR_CP_BELOW             )),
432     sNone           (SW_RESSTR( STR_CATEGORY_NONE )),
433 
434     pMgr            (new SwFldMgr()),
435     bHTMLMode(sal_False)
436 {
437     Wallpaper   aBack( GetSettings().GetStyleSettings().GetWindowColor() );
438     aPreview.SetBackground( aBack );
439 
440     SwStyleNameMapper::FillUIName( RES_POOLCOLL_LABEL_ABB, sIllustration );
441     SwStyleNameMapper::FillUIName( RES_POOLCOLL_LABEL_TABLE, sTable );
442     SwStyleNameMapper::FillUIName( RES_POOLCOLL_LABEL_FRAME, sText );
443     SwStyleNameMapper::FillUIName( RES_POOLCOLL_LABEL_DRAWING, sDrawing );
444 
445     sal_uInt16 i, nCount;
446     SwWrtShell *pSh = ::GetActiveWrtShell();
447 
448     // aFormatBox
449     sal_uInt16 nSelFmt = SVX_NUM_ARABIC;
450     if (pSh)
451     {
452         nCount = pMgr->GetFldTypeCount();
453         SwFieldType* pFldType;
454         for ( i = nCount; i; )
455             if( ( pFldType = pMgr->GetFldType(USHRT_MAX, --i))->GetName() ==
456                 aCategoryBox.GetText() )
457             {
458                 nSelFmt = (sal_uInt16)((SwSetExpFieldType*)pFldType)->GetSeqFormat();
459                 break;
460             }
461 
462         ::FillCharStyleListBox( aCharStyleLB, pSh->GetView().GetDocShell(), sal_True, sal_True );
463     }
464 
465 
466     nCount = pMgr->GetFormatCount(TYP_SEQFLD, sal_False);
467     for ( i = 0; i < nCount; ++i )
468     {
469         aFormatBox.InsertEntry( pMgr->GetFormatStr(TYP_SEQFLD, i) );
470         sal_uInt16 nFmtId = pMgr->GetFormatId(TYP_SEQFLD, i);
471         aFormatBox.SetEntryData( i, reinterpret_cast<void*>(nFmtId) );
472         if( nFmtId == nSelFmt )
473             aFormatBox.SelectEntryPos( i );
474     }
475 
476     for (i = 0; i < MAXLEVEL; i++)
477         aLbLevel.InsertEntry(String::CreateFromInt32(i + 1));
478 
479     sal_Unicode nLvl = MAXLEVEL;
480     String  sDelim( String::CreateFromAscii( ": " ) );
481 
482     if (pSh)
483     {
484         SwSetExpFieldType* pFldType = (SwSetExpFieldType*)pMgr->GetFldType(
485                                             RES_SETEXPFLD, aCategoryBox.GetText() );
486         if( pFldType )
487         {
488             sDelim = pFldType->GetDelimiter();
489             nLvl = pFldType->GetOutlineLvl();
490         }
491     }
492 
493     aLbLevel.SelectEntryPos( nLvl < MAXLEVEL ? nLvl + 1 : 0 );
494     aEdDelim.SetText( sDelim );
495 
496     aCheckLB.SetHelpId(HID_OPTCAPTION_CLB);
497 
498     FreeResource();
499 
500     Link aLk = LINK( this, SwCaptionOptPage, ModifyHdl );
501     aCategoryBox.SetModifyHdl( aLk );
502     aNumberingSeparatorED.SetModifyHdl( aLk );
503     aTextEdit   .SetModifyHdl( aLk );
504 
505     aLk = LINK(this, SwCaptionOptPage, SelectHdl);
506     aCategoryBox.SetSelectHdl( aLk );
507     aFormatBox  .SetSelectHdl( aLk );
508 
509     aLbCaptionOrder.SetSelectHdl( LINK(this, SwCaptionOptPage, OrderHdl));
510 
511     aCheckLB.SetSelectHdl( LINK(this, SwCaptionOptPage, ShowEntryHdl) );
512     aCheckLB.SetCheckButtonHdl( LINK(this, SwCaptionOptPage, ShowEntryHdl) );
513     aCheckLB.SetDeselectHdl( LINK(this, SwCaptionOptPage, SaveEntryHdl) );
514 }
515 
516 /*-----------------18.01.97 12.43-------------------
517 
518 --------------------------------------------------*/
519 
520 SwCaptionOptPage::~SwCaptionOptPage()
521 {
522     DelUserData();
523     delete pMgr;
524 }
525 
526 /*-----------------18.01.97 12.43-------------------
527 
528 --------------------------------------------------*/
529 
530 SfxTabPage* SwCaptionOptPage::Create( Window* pParent,
531                                 const SfxItemSet& rAttrSet )
532 {
533     return new SwCaptionOptPage(pParent, rAttrSet );
534 }
535 
536 /*-----------------18.01.97 12.42-------------------
537 
538 --------------------------------------------------*/
539 
540 sal_Bool SwCaptionOptPage::FillItemSet( SfxItemSet&  )
541 {
542     sal_Bool bRet = sal_False;
543     SwModuleOptions* pModOpt = SW_MOD()->GetModuleConfig();
544 
545     SaveEntry(aCheckLB.FirstSelected());    // Aktuellen Eintrag uebernehmen
546 
547     SvLBoxEntry* pEntry = aCheckLB.First();
548 
549     while (pEntry)
550     {
551         InsCaptionOpt* pData = (InsCaptionOpt*)pEntry->GetUserData();
552         bRet |= pModOpt->SetCapOption(bHTMLMode, pData);
553         pEntry = aCheckLB.Next(pEntry);
554     }
555 
556     sal_uInt16 nCheckCount = aCheckLB.GetCheckedEntryCount();
557     pModOpt->SetInsWithCaption( bHTMLMode, nCheckCount > 0 );
558 
559     sal_Int32 nPos = aLbCaptionOrder.GetSelectEntryPos();
560     pModOpt->SetCaptionOrderNumberingFirst(nPos == 1 ? sal_True : sal_False );
561 
562     return bRet;
563 }
564 
565 /*-----------------18.01.97 12.42-------------------
566 
567 --------------------------------------------------*/
568 
569 void SwCaptionOptPage::Reset( const SfxItemSet& rSet)
570 {
571     const SfxPoolItem* pItem;
572     if(SFX_ITEM_SET == rSet.GetItemState(SID_HTML_MODE, sal_False, &pItem))
573     {
574         bHTMLMode = 0 != (((const SfxUInt16Item*)pItem)->GetValue() & HTMLMODE_ON);
575     }
576 
577     DelUserData();
578     aCheckLB.GetModel()->Clear();   // remove all entries
579 
580     // Writer objects
581     sal_uInt16 nPos = 0;
582     aCheckLB.InsertEntry(sSWTable);
583     SetOptions(nPos++, TABLE_CAP);
584     aCheckLB.InsertEntry(sSWFrame);
585     SetOptions(nPos++, FRAME_CAP);
586     aCheckLB.InsertEntry(sSWGraphic);
587     SetOptions(nPos++, GRAPHIC_CAP);
588 
589     // get Productname and -version
590     String sComplete, sWithoutVersion;
591     ::rtl::OUString sTemp;
592     uno::Any aAny =
593         ::utl::ConfigManager::GetDirectConfigProperty( ::utl::ConfigManager::PRODUCTNAME );
594     if ( aAny >>= sTemp )
595     {
596         sComplete = sTemp;
597         sWithoutVersion = sTemp;
598         aAny = ::utl::ConfigManager::GetDirectConfigProperty( ::utl::ConfigManager::PRODUCTVERSION );
599         if ( !( aAny >>= sTemp ) )
600         {
601             DBG_ERRORFILE( "Couldn't get PRODUCTVERSION variable" );
602         }
603         else
604         {
605             sComplete += ' ';
606             sComplete += String( sTemp );
607         }
608     }
609     else
610     {
611         DBG_ERRORFILE( "Couldn't get PRODUCTNAME variable" );
612     }
613 
614     SvObjectServerList aObjS;
615     aObjS.FillInsertObjects();
616     aObjS.Remove( SvGlobalName( SO3_SW_CLASSID ) ); // remove Writer-ID
617 
618     for ( sal_uLong i = 0; i < aObjS.Count(); ++i )
619     {
620         const SvGlobalName &rOleId = aObjS[i].GetClassName();
621         const String* pClassName = &aObjS[i].GetHumanName();
622         if ( rOleId == SvGlobalName( SO3_OUT_CLASSID ) )
623             pClassName = &sOLE;
624         String sClass( *pClassName );
625         // don't show product version
626         sClass.SearchAndReplace( sComplete, sWithoutVersion );
627         aCheckLB.InsertEntry( sClass );
628         SetOptions( nPos++, OLE_CAP, &rOleId );
629     }
630     aLbCaptionOrder.SelectEntryPos(
631         SW_MOD()->GetModuleConfig()->IsCaptionOrderNumberingFirst() ? 1 : 0);
632     ModifyHdl();
633 }
634 
635 /*-----------------18.01.97 12.42-------------------
636 
637 --------------------------------------------------*/
638 
639 void SwCaptionOptPage::SetOptions(const sal_uInt16 nPos,
640         const SwCapObjType eObjType, const SvGlobalName *pOleId)
641 {
642     SwModuleOptions* pModOpt = SW_MOD()->GetModuleConfig();
643     const InsCaptionOpt* pOpt = pModOpt->GetCapOption(bHTMLMode, eObjType, pOleId);
644 
645     if (pOpt)
646     {
647         aCheckLB.SetEntryData(nPos, new InsCaptionOpt(*pOpt));
648         aCheckLB.CheckEntryPos(nPos, pOpt->UseCaption());
649     }
650     else
651         aCheckLB.SetEntryData(nPos, new InsCaptionOpt(eObjType, pOleId));
652 }
653 
654 /*-----------------18.01.97 12.42-------------------
655 
656 --------------------------------------------------*/
657 
658 void SwCaptionOptPage::DelUserData()
659 {
660     SvLBoxEntry* pEntry = aCheckLB.First();
661 
662     while (pEntry)
663     {
664         delete (InsCaptionOpt*)pEntry->GetUserData();
665         pEntry->SetUserData(0);
666         pEntry = aCheckLB.Next(pEntry);
667     }
668 }
669 
670 /* -----------------26.10.98 11:06-------------------
671  *
672  * --------------------------------------------------*/
673 
674 IMPL_LINK( SwCaptionOptPage, ShowEntryHdl, SvxCheckListBox *, EMPTYARG )
675 {
676     SvLBoxEntry* pSelEntry = aCheckLB.FirstSelected();
677 
678     if (pSelEntry)
679     {
680         sal_Bool bChecked = aCheckLB.IsChecked((sal_uInt16)aCheckLB.GetModel()->GetAbsPos(pSelEntry));
681 
682         aSettingsGroupFL.Enable( bChecked );
683         aCategoryText.Enable( bChecked );
684         aCategoryBox.Enable( bChecked );
685         aFormatText.Enable( bChecked );
686         aFormatBox.Enable( bChecked );
687         sal_Bool bNumSep = bChecked && aLbCaptionOrder.GetSelectEntryPos() == 1;
688         aNumberingSeparatorED.Enable( bNumSep );
689         aNumberingSeparatorFT.Enable( bNumSep );
690         aTextText.Enable( bChecked );
691         aTextEdit.Enable( bChecked );
692         aPosText.Enable( bChecked );
693         aPosBox.Enable( bChecked );
694         aNumCaptFL.Enable( bChecked );
695         aFtLevel.Enable( bChecked );
696         aLbLevel.Enable( bChecked );
697         aFtDelim.Enable( bChecked );
698         aEdDelim.Enable( bChecked );
699         aCategoryFL.Enable( bChecked );
700         aCharStyleFT.Enable( bChecked );
701         aCharStyleLB.Enable( bChecked );
702         aApplyBorderCB.Enable( bChecked );
703         aPreview.Enable( bChecked );
704 
705         SwWrtShell *pSh = ::GetActiveWrtShell();
706 
707         InsCaptionOpt* pOpt = (InsCaptionOpt*)pSelEntry->GetUserData();
708 
709         aCategoryBox.Clear();
710         aCategoryBox.InsertEntry( sNone );
711         if (pSh)
712         {
713             sal_uInt16 nCount = pMgr->GetFldTypeCount();
714 
715             for (sal_uInt16 i = 0; i < nCount; i++)
716             {
717                 SwFieldType *pType = pMgr->GetFldType( USHRT_MAX, i );
718                 if( pType->Which() == RES_SETEXPFLD &&
719                     ((SwSetExpFieldType *) pType)->GetType() & nsSwGetSetExpType::GSE_SEQ )
720                     aCategoryBox.InsertEntry(SwBoxEntry(pType->GetName()));
721             }
722         }
723         else
724         {
725             aCategoryBox.InsertEntry(SwBoxEntry(sIllustration));
726             aCategoryBox.InsertEntry(SwBoxEntry(sTable));
727             aCategoryBox.InsertEntry(SwBoxEntry(sText));
728             aCategoryBox.InsertEntry(SwBoxEntry(sDrawing));
729         }
730 
731         if(pOpt->GetCategory().Len())
732             aCategoryBox.SetText(pOpt->GetCategory());
733         else
734             aCategoryBox.SetText( sNone );
735         if (pOpt->GetCategory().Len() &&
736             aCategoryBox.GetEntryPos(pOpt->GetCategory()) == COMBOBOX_ENTRY_NOTFOUND)
737             aCategoryBox.InsertEntry(pOpt->GetCategory());
738         if (!aCategoryBox.GetText().Len())
739         {
740             sal_uInt16 nPos = 0;
741             switch(pOpt->GetObjType())
742             {
743                 case OLE_CAP:
744                 case GRAPHIC_CAP:       nPos = 1;   break;
745                 case TABLE_CAP:         nPos = 2;   break;
746                 case FRAME_CAP:         nPos = 3;   break;
747             }
748             aCategoryBox.SetText(aCategoryBox.GetEntry(nPos).GetName());
749         }
750 
751         for (sal_uInt16 i = 0; i < aFormatBox.GetEntryCount(); i++)
752         {
753             if (pOpt->GetNumType() == (sal_uInt16)(sal_uLong)aFormatBox.GetEntryData(i))
754             {
755                 aFormatBox.SelectEntryPos(i);
756                 break;
757             }
758         }
759         aTextEdit.SetText(pOpt->GetCaption());
760 
761         aPosBox.Clear();
762         switch (pOpt->GetObjType())
763         {
764             case GRAPHIC_CAP:
765             case TABLE_CAP:
766             case OLE_CAP:
767                 aPosBox.InsertEntry(sAbove);
768                 aPosBox.InsertEntry(sBelow);
769                 break;
770             case FRAME_CAP:
771                 aPosBox.InsertEntry(sBegin);
772                 aPosBox.InsertEntry(sEnd);
773                 break;
774         }
775         aPosBox.SelectEntryPos(pOpt->GetPos());
776         aPosBox.Enable( pOpt->GetObjType() != GRAPHIC_CAP &&
777                 pOpt->GetObjType() != OLE_CAP &&
778                 aPosText.IsEnabled() );
779         aPosBox.SelectEntryPos(pOpt->GetPos());
780 
781         sal_uInt16 nLevelPos = ( pOpt->GetLevel() < MAXLEVEL ) ? pOpt->GetLevel() + 1 : 0;
782         aLbLevel.SelectEntryPos( nLevelPos );
783         aEdDelim.SetText(pOpt->GetSeparator());
784         aNumberingSeparatorED.SetText( pOpt->GetNumSeparator() );
785         if(pOpt->GetCharacterStyle().Len())
786             aCharStyleLB.SelectEntry( pOpt->GetCharacterStyle() );
787         else
788             aCharStyleLB.SelectEntryPos( 0 );
789         aApplyBorderCB.Enable( aCategoryBox.IsEnabled() &&
790                 pOpt->GetObjType() != TABLE_CAP && pOpt->GetObjType() != FRAME_CAP );
791         aApplyBorderCB.Check( pOpt->CopyAttributes() );
792     }
793 
794     ModifyHdl();
795 
796     return 0;
797 }
798 
799 /* -----------------26.10.98 11:06-------------------
800  *
801  * --------------------------------------------------*/
802 
803 IMPL_LINK( SwCaptionOptPage, SaveEntryHdl, SvxCheckListBox *, EMPTYARG )
804 {
805     SvLBoxEntry* pEntry = aCheckLB.GetHdlEntry();
806 
807     if (pEntry)     // Alles speichern
808         SaveEntry(pEntry);
809 
810     return 0;
811 }
812 
813 /* -----------------05.11.98 16:23-------------------
814  *
815  * --------------------------------------------------*/
816 
817 void SwCaptionOptPage::SaveEntry(SvLBoxEntry* pEntry)
818 {
819     if (pEntry)
820     {
821         InsCaptionOpt* pOpt = (InsCaptionOpt*)pEntry->GetUserData();
822 
823         pOpt->UseCaption() = aCheckLB.IsChecked((sal_uInt16)aCheckLB.GetModel()->GetAbsPos(pEntry));
824         String aName( aCategoryBox.GetText() );
825         if(aName == sNone)
826             pOpt->SetCategory(aEmptyStr);
827         else
828         {
829             aName.EraseLeadingChars (' ');
830             aName.EraseTrailingChars(' ');
831             pOpt->SetCategory(aName);
832         }
833         pOpt->SetNumType((sal_uInt16)(sal_uLong)aFormatBox.GetEntryData(aFormatBox.GetSelectEntryPos()));
834         pOpt->SetCaption(aTextEdit.IsEnabled() ? aTextEdit.GetText() : aEmptyStr );
835         pOpt->SetPos(aPosBox.GetSelectEntryPos());
836         sal_uInt16 nPos = aLbLevel.GetSelectEntryPos();
837         sal_uInt16 nLevel = ( nPos > 0 && nPos != LISTBOX_ENTRY_NOTFOUND ) ? nPos - 1 : MAXLEVEL;
838         pOpt->SetLevel(nLevel);
839         pOpt->SetSeparator(aEdDelim.GetText());
840         pOpt->SetNumSeparator( aNumberingSeparatorED.GetText());
841         if(!aCharStyleLB.GetSelectEntryPos())
842             pOpt->SetCharacterStyle(aEmptyStr);
843         else
844             pOpt->SetCharacterStyle(aCharStyleLB.GetSelectEntry());
845         pOpt->CopyAttributes() = aApplyBorderCB.IsChecked();
846     }
847 }
848 
849 /* -----------------26.10.98 11:06-------------------
850  *
851  * --------------------------------------------------*/
852 
853 IMPL_LINK( SwCaptionOptPage, ModifyHdl, Edit *, EMPTYARG )
854 {
855     String sFldTypeName = aCategoryBox.GetText();
856 /*
857     SwFieldType* pType = sFldTypeName.Len() ? pMgr->GetFldType(RES_SETEXPFLD, sFldTypeName) : 0;
858 
859     ((SfxSingleTabDialog*)GetParent())->GetOKButton()->Enable( (!pType || ((SwSetExpFieldType*)pType)->GetType() == GSE_SEQ)
860                                     && sFldTypeName.Len() != 0 );
861 */
862     SfxSingleTabDialog *pDlg = (SfxSingleTabDialog *)GetParent();
863     PushButton *pBtn = pDlg->GetOKButton();
864     if (pBtn)
865         pBtn->Enable(sFldTypeName.Len() != 0);
866     sal_Bool bEnable = aCategoryBox.IsEnabled() && sFldTypeName != sNone;
867 
868     aFormatText.Enable(bEnable);
869     aFormatBox.Enable(bEnable);
870     aTextText.Enable(bEnable);
871     aTextEdit.Enable(bEnable);
872 
873     DrawSample();
874     return 0;
875 }
876 
877 /* -----------------26.10.98 10:58-------------------
878  *
879  * --------------------------------------------------*/
880 
881 IMPL_LINK_INLINE_START( SwCaptionOptPage, SelectHdl, ListBox *, EMPTYARG )
882 {
883     DrawSample();
884     return 0;
885 }
886 IMPL_LINK_INLINE_END( SwCaptionOptPage, SelectHdl, ListBox *, EMPTYARG )
887 /*-- 02.11.2007 10:00:36---------------------------------------------------
888 
889   -----------------------------------------------------------------------*/
890 IMPL_LINK( SwCaptionOptPage, OrderHdl, ListBox*, pBox )
891 {
892     DrawSample();
893     sal_Int32 nPos = pBox->GetSelectEntryPos();
894     aNumberingSeparatorFT.Enable( nPos == 1 );
895     aNumberingSeparatorED.Enable( nPos == 1 );
896     return 0;
897 }
898 /* -----------------26.10.98 10:58-------------------
899  *
900  * --------------------------------------------------*/
901 
902 void SwCaptionOptPage::DrawSample()
903 {
904     String aStr;
905 
906     if( aCategoryBox.GetText() != sNone)
907     {
908         //#i61007# order of captions
909         bool bOrderNumberingFirst = aLbCaptionOrder.GetSelectEntryPos() == 1;
910         // Nummer
911         sal_uInt16 nNumFmt = (sal_uInt16)(sal_uLong)aFormatBox.GetEntryData(
912                                         aFormatBox.GetSelectEntryPos() );
913         if( SVX_NUM_NUMBER_NONE != nNumFmt )
914         {
915             //#i61007# order of captions
916             if( !bOrderNumberingFirst )
917             {
918                 // Kategorie
919                 aStr += aCategoryBox.GetText();
920                 aStr += ' ';
921             }
922 
923             SwWrtShell *pSh = ::GetActiveWrtShell();
924             String sFldTypeName( aCategoryBox.GetText() );
925             if (pSh)
926             {
927                 SwSetExpFieldType* pFldType = (SwSetExpFieldType*)pMgr->GetFldType(
928                                                 RES_SETEXPFLD, sFldTypeName );
929                 if( pFldType && pFldType->GetOutlineLvl() < MAXLEVEL )
930                 {
931                     sal_uInt8 nLvl = pFldType->GetOutlineLvl();
932                     SwNumberTree::tNumberVector aNumVector;
933                     for( sal_uInt8 i = 0; i <= nLvl; ++i )
934                         aNumVector.push_back(1);
935 
936                     String sNumber( pSh->GetOutlineNumRule()->MakeNumString(
937                                                             aNumVector, sal_False ));
938                     if( sNumber.Len() )
939                         (aStr += sNumber) += pFldType->GetDelimiter();
940                 }
941             }
942 
943             switch( nNumFmt )
944             {
945                 case SVX_NUM_CHARS_UPPER_LETTER:    aStr += 'A'; break;
946                 case SVX_NUM_CHARS_UPPER_LETTER_N:  aStr += 'A'; break;
947                 case SVX_NUM_CHARS_LOWER_LETTER:    aStr += 'a'; break;
948                 case SVX_NUM_CHARS_LOWER_LETTER_N:  aStr += 'a'; break;
949                 case SVX_NUM_ROMAN_UPPER:           aStr += 'I'; break;
950                 case SVX_NUM_ROMAN_LOWER:           aStr += 'i'; break;
951                 //case ARABIC:
952                 default:                    aStr += '1'; break;
953             }
954         }
955         //#i61007# order of captions
956         if( bOrderNumberingFirst )
957         {
958             aStr += aNumberingSeparatorED.GetText();
959             aStr += aCategoryBox.GetText();
960         }
961         aStr += aTextEdit.GetText();
962     }
963     aPreview.SetPreviewText( aStr );
964 }
965 
966 /*------------------------------------------------------------------------
967  Beschreibung:  ComboBox ohne Spaces
968 ------------------------------------------------------------------------*/
969 
970 void CaptionComboBox::KeyInput(const KeyEvent& rEvt)
971 {
972     if( rEvt.GetKeyCode().GetCode() != KEY_SPACE )
973         SwComboBox::KeyInput(rEvt);
974 }
975 
976 
977 
978