svx/source/form/fmPropBrw.cxx

   1 /*************************************************************************
   2  *
   3  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4  *
   5  * Copyright 2008 by Sun Microsystems, Inc.
   6  *
   7  * OpenOffice.org - a multi-platform office productivity suite
   8  *
   9  * $RCSfile: fmPropBrw.cxx,v $
  10  * $Revision: 1.33 $
  11  *
  12  * This file is part of OpenOffice.org.
  13  *
  14  * OpenOffice.org is free software: you can redistribute it and/or modify
  15  * it under the terms of the GNU Lesser General Public License version 3
  16  * only, as published by the Free Software Foundation.
  17  *
  18  * OpenOffice.org is distributed in the hope that it will be useful,
  19  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  20  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21  * GNU Lesser General Public License version 3 for more details
  22  * (a copy is included in the LICENSE file that accompanied this code).
  23  *
  24  * You should have received a copy of the GNU Lesser General Public License
  25  * version 3 along with OpenOffice.org.  If not, see
  26  * <http://www.openoffice.org/license.html>
  27  * for a copy of the LGPLv3 License.
  28  *
  29  ************************************************************************/
  30
  31 // MARKER(update_precomp.py): autogen include statement, do not remove
  32 #include "precompiled_svx.hxx"
  33
  34 #include "fmhelp.hrc"
  35 #include "fmprop.hrc"
  36 #include "fmPropBrw.hxx"
  37 #include "fmresids.hrc"
  38 #include "fmservs.hxx"
  39 #include "fmshimp.hxx"
  40 #include "fmpgeimp.hxx"
  41
  42 #include "svx/dialmgr.hxx"
  43 #include "svx/fmpage.hxx"
  44 #include "svx/fmshell.hxx"
  45 #include "svx/sdrpagewindow.hxx"
  46 #include "svx/svdpagv.hxx"
  47 #include "svx/svxids.hrc"
  48
  49 /** === begin UNO includes === **/
  50 #include <com/sun/star/beans/PropertyValue.hpp>
  51 #include <com/sun/star/awt/PosSize.hpp>
  52 #include <com/sun/star/form/XForm.hpp>
  53 #include <com/sun/star/form/FormComponentType.hpp>
  54 #include <com/sun/star/awt/XLayoutConstrains.hpp>
  55 #include <com/sun/star/awt/XControlContainer.hpp>
  56 #include <com/sun/star/container/XChild.hpp>
  57 #include <com/sun/star/awt/PosSize.hpp>
  58 #include <com/sun/star/inspection/ObjectInspector.hpp>
  59 #include <com/sun/star/inspection/ObjectInspectorModel.hpp>
  60 #include <com/sun/star/form/inspection/DefaultFormComponentInspectorModel.hpp>
  61 #include <com/sun/star/inspection/XObjectInspectorUI.hpp>
  62 #include <com/sun/star/inspection/DefaultHelpProvider.hpp>
  63 /** === end UNO includes === **/
  64
  65 #include <comphelper/processfactory.hxx>
  66 #include <comphelper/property.hxx>
  67 #include <cppuhelper/component_context.hxx>
  68 #include <sfx2/bindings.hxx>
  69 #include <sfx2/childwin.hxx>
  70 #include <sfx2/dispatch.hxx>
  71 #include <sfx2/objitem.hxx>
  72 #include <sfx2/objsh.hxx>
  73 #include <sfx2/viewfrm.hxx>
  74 #include <toolkit/unohlp.hxx>
  75 #include <tools/debug.hxx>
  76 #include <tools/diagnose_ex.h>
  77 #include <tools/shl.hxx>
  78 #include <unotools/confignode.hxx>
  79 #include <vcl/stdtext.hxx>
  80
  81 #include <algorithm>
  82
  83 using namespace ::com::sun::star;
  84 using namespace ::com::sun::star::uno;
  85 using namespace ::com::sun::star::util;
  86 using namespace ::com::sun::star::inspection;
  87 using namespace ::com::sun::star::form::inspection;
  88 using ::com::sun::star::awt::XWindow;
  89
  90 /*************************************************************************/
  91 //========================================================================
  92 //= FmPropBrwMgr
  93 //========================================================================
  94 //-----------------------------------------------------------------------
  95 SFX_IMPL_FLOATINGWINDOW(FmPropBrwMgr, SID_FM_SHOW_PROPERTIES)
  96
  97 //-----------------------------------------------------------------------
  98 FmPropBrwMgr::FmPropBrwMgr(     Window* _pParent, sal_uInt16 _nId,
  99                             SfxBindings* _pBindings, SfxChildWinInfo* _pInfo)
 100               :SfxChildWindow(_pParent, _nId)
 101 {
 102     pWindow = new FmPropBrw( ::comphelper::getProcessServiceFactory(), _pBindings, this, _pParent, _pInfo );
 103     eChildAlignment = SFX_ALIGN_NOALIGNMENT;
 104     ((SfxFloatingWindow*)pWindow)->Initialize( _pInfo );
 105 }
 106
 107 //========================================================================
 108 //========================================================================
 109 const long STD_WIN_SIZE_X = 300;
 110 const long STD_WIN_SIZE_Y = 350;
 111
 112 const long STD_MIN_SIZE_X = 250;
 113 const long STD_MIN_SIZE_Y = 250;
 114
 115 const long STD_WIN_POS_X = 50;
 116 const long STD_WIN_POS_Y = 50;
 117 const long WIN_BORDER = 2;
 118 const long MIN_WIN_SIZE_X = 50;
 119 const long MIN_WIN_SIZE_Y = 50;
 120
 121 using namespace ::com::sun::star::uno;
 122 using namespace ::com::sun::star::lang;
 123 using namespace ::com::sun::star::form;
 124 using namespace ::com::sun::star::frame;
 125 using namespace ::com::sun::star::beans;
 126 using namespace ::com::sun::star::container;
 127 using namespace ::svxform;
 128
 129 ::rtl::OUString GetUIHeadlineName(sal_Int16 nClassId, const Any& aUnoObj)
 130 {
 131     sal_uInt16 nClassNameResourceId = 0;
 132
 133     switch ( nClassId )
 134     {
 135         case FormComponentType::TEXTFIELD:
 136         {
 137             Reference< XInterface >  xIFace;
 138             aUnoObj >>= xIFace;
 139             nClassNameResourceId = RID_STR_PROPTITLE_EDIT;
 140             if (xIFace.is())
 141             {   // we have a chance to check if it's a formatted field model
 142                 Reference< XServiceInfo >  xInfo(xIFace, UNO_QUERY);
 143                 if (xInfo.is() && (xInfo->supportsService(FM_SUN_COMPONENT_FORMATTEDFIELD)))
 144                     nClassNameResourceId = RID_STR_PROPTITLE_FORMATTED;
 145                 else if (!xInfo.is())
 146                 {
 147                     // couldn't distinguish between formatted and edit with the service name, so try with the properties
 148                     Reference< XPropertySet >  xProps(xIFace, UNO_QUERY);
 149                     if (xProps.is())
 150                     {
 151                         Reference< XPropertySetInfo >  xPropsInfo = xProps->getPropertySetInfo();
 152                         if (xPropsInfo.is() && xPropsInfo->hasPropertyByName(FM_PROP_FORMATSSUPPLIER))
 153                             nClassNameResourceId = RID_STR_PROPTITLE_FORMATTED;
 154                     }
 155                 }
 156             }
 157         }
 158         break;
 159
 160         case FormComponentType::COMMANDBUTTON:
 161             nClassNameResourceId = RID_STR_PROPTITLE_PUSHBUTTON; break;
 162         case FormComponentType::RADIOBUTTON:
 163             nClassNameResourceId = RID_STR_PROPTITLE_RADIOBUTTON; break;
 164         case FormComponentType::CHECKBOX:
 165             nClassNameResourceId = RID_STR_PROPTITLE_CHECKBOX; break;
 166         case FormComponentType::LISTBOX:
 167             nClassNameResourceId = RID_STR_PROPTITLE_LISTBOX; break;
 168         case FormComponentType::COMBOBOX:
 169             nClassNameResourceId = RID_STR_PROPTITLE_COMBOBOX; break;
 170         case FormComponentType::GROUPBOX:
 171             nClassNameResourceId = RID_STR_PROPTITLE_GROUPBOX; break;
 172         case FormComponentType::IMAGEBUTTON:
 173             nClassNameResourceId = RID_STR_PROPTITLE_IMAGEBUTTON; break;
 174         case FormComponentType::FIXEDTEXT:
 175             nClassNameResourceId = RID_STR_PROPTITLE_FIXEDTEXT; break;
 176         case FormComponentType::GRIDCONTROL:
 177             nClassNameResourceId = RID_STR_PROPTITLE_DBGRID; break;
 178         case FormComponentType::FILECONTROL:
 179             nClassNameResourceId = RID_STR_PROPTITLE_FILECONTROL; break;
 180         case FormComponentType::DATEFIELD:
 181             nClassNameResourceId = RID_STR_PROPTITLE_DATEFIELD; break;
 182         case FormComponentType::TIMEFIELD:
 183             nClassNameResourceId = RID_STR_PROPTITLE_TIMEFIELD; break;
 184         case FormComponentType::NUMERICFIELD:
 185             nClassNameResourceId = RID_STR_PROPTITLE_NUMERICFIELD; break;
 186         case FormComponentType::CURRENCYFIELD:
 187             nClassNameResourceId = RID_STR_PROPTITLE_CURRENCYFIELD; break;
 188         case FormComponentType::PATTERNFIELD:
 189             nClassNameResourceId = RID_STR_PROPTITLE_PATTERNFIELD; break;
 190         case FormComponentType::IMAGECONTROL:
 191             nClassNameResourceId = RID_STR_PROPTITLE_IMAGECONTROL; break;
 192         case FormComponentType::HIDDENCONTROL:
 193             nClassNameResourceId = RID_STR_PROPTITLE_HIDDEN; break;
 194         case FormComponentType::SCROLLBAR:
 195             nClassNameResourceId = RID_STR_PROPTITLE_SCROLLBAR; break;
 196         case FormComponentType::SPINBUTTON:
 197             nClassNameResourceId = RID_STR_PROPTITLE_SPINBUTTON; break;
 198         case FormComponentType::NAVIGATIONBAR:
 199             nClassNameResourceId = RID_STR_PROPTITLE_NAVBAR; break;
 200         case FormComponentType::CONTROL:
 201         default:
 202             nClassNameResourceId = RID_STR_CONTROL; break;
 203     }
 204
 205     if ( !nClassNameResourceId )
 206         return ::rtl::OUString();
 207
 208     return ::rtl::OUString( String( SVX_RES( nClassNameResourceId ) ) );
 209 }
 210
 211 //========================================================================
 212 // class FmPropBrw
 213 //========================================================================
 214 DBG_NAME(FmPropBrw);
 215 //------------------------------------------------------------------------
 216 FmPropBrw::FmPropBrw( const Reference< XMultiServiceFactory >& _xORB, SfxBindings* _pBindings,
 217             SfxChildWindow* _pMgr, Window* _pParent, const SfxChildWinInfo* _pInfo )
 218     :SfxFloatingWindow(_pBindings, _pMgr, _pParent, WinBits(WB_STDMODELESS|WB_SIZEABLE|WB_3DLOOK|WB_ROLLABLE) )
 219     ,SfxControllerItem(SID_FM_PROPERTY_CONTROL, *_pBindings)
 220     ,m_bInitialStateChange(sal_True)
 221     ,m_bInStateChange( false )
 222     ,m_xORB(_xORB)
 223 {
 224     DBG_CTOR(FmPropBrw,NULL);
 225
 226     ::Size aPropWinSize(STD_WIN_SIZE_X,STD_WIN_SIZE_Y);
 227     SetMinOutputSizePixel(::Size(STD_MIN_SIZE_X,STD_MIN_SIZE_Y));
 228     SetOutputSizePixel(aPropWinSize);
 229     SetUniqueId(UID_FORMPROPBROWSER_FRAME);
 230
 231     try
 232     {
 233         // create a frame wrapper for myself
 234         m_xMeAsFrame = Reference< XFrame >(m_xORB->createInstance(::rtl::OUString::createFromAscii("com.sun.star.frame.Frame")), UNO_QUERY);
 235         if (m_xMeAsFrame.is())
 236         {
 237             // create an intermediate window, which is to be the container window of the frame
 238             // Do *not* use |this| as container window for the frame, this would result in undefined
 239             // responsiblity for this window (as soon as we initialize a frame with a window, the frame
 240             // is responsible for it's life time, but |this| is controlled by the belonging SfxChildWindow)
 241             // #i34249# - 2004-09-27 - fs@openoffice.org
 242             Window* pContainerWindow = new Window( this );
 243             pContainerWindow->Show();
 244             m_xFrameContainerWindow = VCLUnoHelper::GetInterface ( pContainerWindow );
 245
 246             m_xMeAsFrame->initialize( m_xFrameContainerWindow );
 247             m_xMeAsFrame->setName(::rtl::OUString::createFromAscii("form property browser"));
 248             if ( _pBindings->GetDispatcher() )
 249             {
 250                 ::com::sun::star::uno::Reference < ::com::sun::star::frame::XFramesSupplier >
 251                         xSupp ( _pBindings->GetDispatcher()->GetFrame()->GetFrame()->GetFrameInterface(), ::com::sun::star::uno::UNO_QUERY );
 252 //                if ( xSupp.is() )
 253 //                    xSupp->getFrames()->append( m_xMeAsFrame );
 254                 // Don't append frame to frame hierachy to prevent UI_DEACTIVATE messages
 255                 // #i31834# - 2004-07-27 - cd@openoffice.org
 256             }
 257         }
 258     }
 259     catch (Exception&)
 260     {
 261         DBG_ERROR("FmPropBrw::FmPropBrw: could not create/initialize my frame!");
 262         m_xMeAsFrame.clear();
 263     }
 264
 265     if (m_xMeAsFrame.is())
 266         _pMgr->SetFrame( m_xMeAsFrame );
 267
 268
 269     if ( m_xBrowserComponentWindow.is() )
 270         m_xBrowserComponentWindow->setVisible( sal_True );
 271
 272     if ( _pInfo )
 273         m_sLastActivePage = _pInfo->aExtraString;
 274 }
 275
 276 //------------------------------------------------------------------------
 277 void FmPropBrw::Resize()
 278 {
 279     SfxFloatingWindow::Resize();
 280
 281     if ( m_xFrameContainerWindow.is() )
 282     {
 283         try
 284         {
 285             ::Size aOutputSize( GetOutputSizePixel() );
 286             m_xFrameContainerWindow->setPosSize( 0, 0, aOutputSize.Width(), aOutputSize.Height(), awt::PosSize::POSSIZE );
 287         }
 288         catch( const Exception& )
 289         {
 290             OSL_ENSURE( sal_False, "FmPropBrw::Resize: caught an exception!" );
 291         }
 292     }
 293 }
 294
 295 //------------------------------------------------------------------------
 296 FmPropBrw::~FmPropBrw()
 297 {
 298     if (m_xBrowserController.is())
 299         implDetachController();
 300     try
 301     {
 302         // remove our own properties from the component context. We cannot ensure that the component context
 303         // is freed (there might be refcount problems :-\), so at least ensure the context itself
 304         // does hold the objects anymore
 305         Reference<XNameContainer> xName(m_xInspectorContext,uno::UNO_QUERY);
 306         if ( xName.is() )
 307         {
 308             const ::rtl::OUString pProps[] = { ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "ContextDocument" ) )
 309                                              , ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "DialogParentWindow" ) )
 310                                              , ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "ControlContext" ) )
 311                                              , ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "ControlShapeAccess" ) ) };
 312             for ( size_t i = 0; i < sizeof(pProps)/sizeof(pProps[0]); ++i )
 313                 xName->removeByName( pProps[i] );
 314         }
 315     }
 316     catch (const Exception& )
 317     {
 318         DBG_UNHANDLED_EXCEPTION();
 319     }
 320     DBG_DTOR(FmPropBrw,NULL);
 321 }
 322
 323 //-----------------------------------------------------------------------
 324 ::rtl::OUString FmPropBrw::getCurrentPage() const
 325 {
 326     ::rtl::OUString sCurrentPage;
 327     try
 328     {
 329         if ( m_xBrowserController.is() )
 330         {
 331             OSL_VERIFY( m_xBrowserController->getViewData() >>= sCurrentPage );
 332         }
 333
 334         if ( !sCurrentPage.getLength() )
 335             sCurrentPage = m_sLastActivePage;
 336     }
 337     catch( const Exception& )
 338     {
 339         OSL_ENSURE( sal_False, "FmPropBrw::getCurrentPage: caught an exception while retrieving the current page!" );
 340     }
 341     return sCurrentPage;
 342 }
 343
 344 //-----------------------------------------------------------------------
 345 void FmPropBrw::implDetachController()
 346 {
 347     m_sLastActivePage = getCurrentPage();
 348
 349     implSetNewSelection( InterfaceBag() );
 350
 351     if ( m_xMeAsFrame.is() )
 352     {
 353         try
 354         {
 355             m_xMeAsFrame->setComponent(NULL, NULL);
 356         }
 357         catch( const Exception& )
 358         {
 359             OSL_ENSURE( sal_False, "FmPropBrw::implDetachController: caught an exception while resetting the component!" );
 360         }
 361     }
 362
 363     // we attached a frame to the controller manually, so we need to manually tell it that it's detached, too
 364     // 96068 - 09.01.2002 - fs@openoffice.org
 365     if ( m_xBrowserController.is() )
 366         m_xBrowserController->attachFrame( NULL );
 367
 368     m_xBrowserController.clear();
 369     m_xInspectorModel.clear();
 370     m_xMeAsFrame.clear();
 371 }
 372
 373 //-----------------------------------------------------------------------
 374 sal_Bool FmPropBrw::Close()
 375 {
 376     // suspend the controller (it is allowed to veto)
 377     if ( m_xMeAsFrame.is() )
 378     {
 379         try
 380         {
 381             Reference< XController > xController( m_xMeAsFrame->getController() );
 382             if ( xController.is() && !xController->suspend( sal_True ) )
 383                 return sal_False;
 384         }
 385         catch( const Exception& )
 386         {
 387             OSL_ENSURE( sal_False, "FmPropBrw::Close: caught an exception while asking the controller!" );
 388         }
 389     }
 390
 391     implDetachController();
 392
 393     if( IsRollUp() )
 394         RollDown();
 395
 396     // remember our bindings: while we're closed, we're deleted, too, so accessing the bindings after this
 397     // would be deadly
 398     // 10/19/00 - 79321 - FS
 399     SfxBindings& rBindings = SfxControllerItem::GetBindings();
 400
 401     sal_Bool bClose = SfxFloatingWindow::Close();
 402
 403     if (bClose)
 404     {
 405         rBindings.Invalidate(SID_FM_CTL_PROPERTIES);
 406         rBindings.Invalidate(SID_FM_PROPERTIES);
 407     }
 408
 409     return bClose;
 410 }
 411
 412 //-----------------------------------------------------------------------
 413 bool FmPropBrw::implIsReadOnlyModel() const
 414 {
 415     try
 416     {
 417         if ( m_xInspectorModel.is() )
 418             return m_xInspectorModel->getIsReadOnly();
 419         return false;
 420     }
 421     catch( const Exception& )
 422     {
 423         DBG_UNHANDLED_EXCEPTION();
 424     }
 425     return true;
 426 }
 427
 428 //-----------------------------------------------------------------------
 429 void FmPropBrw::implSetNewSelection( const InterfaceBag& _rSelection )
 430 {
 431     if ( m_xBrowserController.is() )
 432     {
 433         try
 434         {
 435             Reference< XObjectInspector > xInspector( m_xBrowserController, UNO_QUERY_THROW );
 436
 437             // tell it the objects to inspect
 438             Sequence< Reference< XInterface > > aSelection( _rSelection.size() );
 439             ::std::copy( _rSelection.begin(), _rSelection.end(), aSelection.getArray() );
 440
 441             xInspector->inspect( aSelection );
 442         }
 443         catch( const VetoException& )
 444         {
 445             return;
 446         }
 447         catch( const Exception& )
 448         {
 449             OSL_ENSURE( sal_False, "FmPropBrw::implSetNewSelection: caught an unexpected exception!" );
 450             return;
 451         }
 452
 453         // set the new title according to the selected object
 454         String sTitle;
 455
 456         if ( _rSelection.empty() )
 457         {
 458             sTitle = String( SVX_RES( RID_STR_NO_PROPERTIES ) );
 459         }
 460         else if ( _rSelection.size() > 1 )
 461         {
 462             // no form component and (no form or no name) -> Multiselection
 463             sTitle = String( SVX_RES( RID_STR_PROPERTIES_CONTROL ) );
 464             sTitle += String( SVX_RES( RID_STR_PROPTITLE_MULTISELECT ) );
 465         }
 466         else
 467         {
 468             Reference< XPropertySet > xSingleSelection( *_rSelection.begin(), UNO_QUERY);
 469             if  ( ::comphelper::hasProperty( FM_PROP_CLASSID, xSingleSelection ) )
 470             {
 471                 sal_Int16 nClassID = FormComponentType::CONTROL;
 472                 xSingleSelection->getPropertyValue( FM_PROP_CLASSID ) >>= nClassID;
 473
 474                 sTitle = String( SVX_RES( RID_STR_PROPERTIES_CONTROL ) );
 475                 sTitle += String( GetUIHeadlineName( nClassID, makeAny( xSingleSelection ) ) );
 476             }
 477             else if ( Reference< XForm >( xSingleSelection, UNO_QUERY ).is() )
 478                 sTitle = String( SVX_RES( RID_STR_PROPERTIES_FORM ) );
 479         }
 480
 481         if ( implIsReadOnlyModel() )
 482             sTitle += String( SVX_RES( RID_STR_READONLY_VIEW ) );
 483
 484         SetText( sTitle );
 485
 486         // #95343# ---------------------------------
 487         Reference< ::com::sun::star::awt::XLayoutConstrains > xLayoutConstrains( m_xBrowserController, UNO_QUERY );
 488         if( xLayoutConstrains.is() )
 489         {
 490             ::Size aConstrainedSize;
 491             ::com::sun::star::awt::Size aMinSize = xLayoutConstrains->getMinimumSize();
 492
 493             sal_Int32 nLeft(0), nTop(0), nRight(0), nBottom(0);
 494             GetBorder( nLeft, nTop, nRight, nBottom );
 495             aMinSize.Width += nLeft + nRight + 8;
 496             aMinSize.Height += nTop + nBottom + 8;
 497
 498             aConstrainedSize.setHeight( aMinSize.Height );
 499             aConstrainedSize.setWidth( aMinSize.Width );
 500             SetMinOutputSizePixel( aConstrainedSize );
 501             aConstrainedSize = GetOutputSizePixel();
 502             sal_Bool bResize = sal_False;
 503             if( aConstrainedSize.Width() < aMinSize.Width )
 504             {
 505                 aConstrainedSize.setWidth( aMinSize.Width );
 506                 bResize = sal_True;
 507             }
 508             if( aConstrainedSize.Height() < aMinSize.Height )
 509             {
 510                 aConstrainedSize.setHeight( aMinSize.Height );
 511                 bResize = sal_True;
 512             }
 513             if( bResize )
 514                 SetOutputSizePixel( aConstrainedSize );
 515         }
 516     }
 517 }
 518
 519 //-----------------------------------------------------------------------
 520 void FmPropBrw::FillInfo( SfxChildWinInfo& rInfo ) const
 521 {
 522     rInfo.bVisible = sal_False;
 523     rInfo.aExtraString = getCurrentPage();
 524 }
 525
 526 //-----------------------------------------------------------------------
 527 IMPL_LINK( FmPropBrw, OnAsyncGetFocus, void*, /*NOTINTERESTEDIN*/ )
 528 {
 529     if (m_xBrowserComponentWindow.is())
 530         m_xBrowserComponentWindow->setFocus();
 531     return 0L;
 532 }
 533
 534 //-----------------------------------------------------------------------
 535 namespace
 536 {
 537     static bool lcl_shouldEnableHelpSection( const Reference< XMultiServiceFactory >& _rxFactory )
 538     {
 539         const ::rtl::OUString sConfigName( RTL_CONSTASCII_USTRINGPARAM( "/org.openoffice.Office.Common/Forms/PropertyBrowser/" ) );
 540         const ::rtl::OUString sPropertyName( RTL_CONSTASCII_USTRINGPARAM( "DirectHelp" ) );
 541
 542         ::utl::OConfigurationTreeRoot aConfiguration(
 543             ::utl::OConfigurationTreeRoot::createWithServiceFactory( _rxFactory, sConfigName ) );
 544
 545         bool bEnabled = false;
 546         OSL_VERIFY( aConfiguration.getNodeValue( sPropertyName ) >>= bEnabled );
 547         return bEnabled;
 548     }
 549 }
 550 //-----------------------------------------------------------------------
 551 void FmPropBrw::impl_createPropertyBrowser_throw( FmFormShell* _pFormShell )
 552 {
 553     // the document in which we live
 554     Reference< XInterface > xDocument;
 555     if ( _pFormShell && _pFormShell->GetObjectShell() )
 556         xDocument = _pFormShell->GetObjectShell()->GetModel();
 557
 558     // the context of the controls in our document
 559     Reference< awt::XControlContainer > xControlContext;
 560     if ( _pFormShell && _pFormShell->GetFormView() )
 561     {
 562         SdrPageView* pPageView = _pFormShell->GetFormView()->GetSdrPageView();
 563
 564         if(pPageView)
 565         {
 566             SdrPageWindow* pPageWindow = pPageView->GetPageWindow(0L);
 567
 568             if(pPageWindow)
 569             {
 570                 xControlContext = pPageWindow->GetControlContainer();
 571             }
 572         }
 573     }
 574
 575     // the default parent window for message boxes
 576     Reference< XWindow > xParentWindow( VCLUnoHelper::GetInterface ( this ) );
 577
 578     // the mapping from control models to control shapes
 579     Reference< XMap > xControlMap;
 580     FmFormPage* pFormPage = _pFormShell ? _pFormShell->GetCurPage() : NULL;
 581     if ( pFormPage )
 582         xControlMap = pFormPage->GetImpl().getControlToShapeMap();
 583
 584     // our own component context
 585     Reference< XPropertySet > xFactoryProperties( m_xORB, UNO_QUERY_THROW );
 586     Reference< XComponentContext > xOwnContext(
 587         xFactoryProperties->getPropertyValue( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "DefaultContext" ) ) ),
 588         UNO_QUERY_THROW );
 589
 590     // a ComponentContext for the
 591     ::cppu::ContextEntry_Init aHandlerContextInfo[] =
 592     {
 593         ::cppu::ContextEntry_Init( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "ContextDocument" ) ), makeAny( xDocument ) ),
 594         ::cppu::ContextEntry_Init( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "DialogParentWindow" ) ), makeAny( xParentWindow ) ),
 595         ::cppu::ContextEntry_Init( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "ControlContext" ) ), makeAny( xControlContext ) ),
 596         ::cppu::ContextEntry_Init( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "ControlShapeAccess" ) ), makeAny( xControlMap ) )
 597     };
 598     m_xInspectorContext.set(
 599         ::cppu::createComponentContext( aHandlerContextInfo, sizeof( aHandlerContextInfo ) / sizeof( aHandlerContextInfo[0] ),
 600         xOwnContext ) );
 601
 602     bool bEnableHelpSection = lcl_shouldEnableHelpSection( m_xORB );
 603
 604     // an object inspector model
 605     m_xInspectorModel =
 606             bEnableHelpSection
 607         ?   DefaultFormComponentInspectorModel::createWithHelpSection( m_xInspectorContext, 3, 5 )
 608         :   DefaultFormComponentInspectorModel::createDefault( m_xInspectorContext );
 609
 610     // an object inspector
 611     m_xBrowserController = m_xBrowserController.query(
 612         ObjectInspector::createWithModel(
 613             m_xInspectorContext, m_xInspectorModel
 614         ) );
 615
 616     if ( !m_xBrowserController.is() )
 617     {
 618         ::rtl::OUString sServiceName( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.inspection.ObjectInspector" ) );
 619         ShowServiceNotAvailableError( GetParent(), sServiceName, sal_True );
 620     }
 621     else
 622     {
 623         m_xBrowserController->attachFrame( m_xMeAsFrame );
 624         m_xBrowserComponentWindow = m_xMeAsFrame->getComponentWindow();
 625         DBG_ASSERT( m_xBrowserComponentWindow.is(), "FmPropBrw::impl_createPropertyBrowser_throw: attached the controller, but have no component window!" );
 626     }
 627
 628     if ( bEnableHelpSection )
 629     {
 630         Reference< XObjectInspector > xInspector( m_xBrowserController, UNO_QUERY_THROW );
 631         Reference< XObjectInspectorUI > xInspectorUI( xInspector->getInspectorUI() );
 632         Reference< XInterface > xDefaultHelpProvider( DefaultHelpProvider::create( m_xInspectorContext, xInspectorUI ) );
 633     }
 634 }
 635
 636 //-----------------------------------------------------------------------
 637 void FmPropBrw::impl_ensurePropertyBrowser_nothrow( FmFormShell* _pFormShell )
 638 {
 639     // the document in which we live
 640     Reference< XInterface > xDocument;
 641     SfxObjectShell* pObjectShell = _pFormShell ? _pFormShell->GetObjectShell() : NULL;
 642     if ( pObjectShell )
 643         xDocument = pObjectShell->GetModel();
 644     if ( ( xDocument == m_xLastKnownDocument ) && m_xBrowserController.is() )
 645         // nothing to do
 646         return;
 647
 648     try
 649     {
 650         // clean up any previous instances of the object inspector
 651         if ( m_xMeAsFrame.is() )
 652             m_xMeAsFrame->setComponent( NULL, NULL );
 653         else
 654             ::comphelper::disposeComponent( m_xBrowserController );
 655         m_xBrowserController.clear();
 656         m_xInspectorModel.clear();
 657         m_xBrowserComponentWindow.clear();
 658
 659         // and create a new one
 660         impl_createPropertyBrowser_throw( _pFormShell );
 661     }
 662     catch( const Exception& )
 663     {
 664         DBG_UNHANDLED_EXCEPTION();
 665     }
 666     m_xLastKnownDocument = xDocument;
 667 }
 668
 669 //-----------------------------------------------------------------------
 670 void FmPropBrw::StateChanged(sal_uInt16 nSID, SfxItemState eState, const SfxPoolItem* pState)
 671 {
 672     if (!pState  || SID_FM_PROPERTY_CONTROL != nSID)
 673         return;
 674
 675     m_bInStateChange = true;
 676     try
 677     {
 678         if (eState >= SFX_ITEM_AVAILABLE)
 679         {
 680             FmFormShell* pShell = PTR_CAST(FmFormShell,((SfxObjectItem*)pState)->GetShell());
 681             InterfaceBag aSelection;
 682             if ( pShell )
 683                 pShell->GetImpl()->getCurrentSelection( aSelection );
 684
 685             impl_ensurePropertyBrowser_nothrow( pShell );
 686
 687             // set the new object to inspect
 688             implSetNewSelection( aSelection );
 689
 690             // if this is the first time we're here, some additional things need to be done ...
 691             if ( m_bInitialStateChange )
 692             {
 693                 // if we're just newly created, we want to have the focus
 694                 PostUserEvent( LINK( this, FmPropBrw, OnAsyncGetFocus ) );
 695
 696                 // and additionally, we want to show the page which was active during
 697                 // our previous incarnation
 698                 if ( m_sLastActivePage.getLength() )
 699                 {
 700                     try
 701                     {
 702                         if ( m_xBrowserController.is() )
 703                             m_xBrowserController->restoreViewData( makeAny( m_sLastActivePage ) );
 704                     }
 705                     catch( const Exception& )
 706                     {
 707                         OSL_ENSURE( sal_False, "FmPropBrw::StateChanged: caught an exception while setting the initial page!" );
 708                     }
 709                 }
 710
 711                 m_bInitialStateChange = sal_False;
 712             }
 713
 714         }
 715         else
 716         {
 717             implSetNewSelection( InterfaceBag() );
 718         }
 719     }
 720     catch (Exception&)
 721     {
 722         DBG_ERROR("FmPropBrw::StateChanged: Exception occured!");
 723     }
 724     m_bInStateChange = false;
 725 }