svx/source/form/fmpage.cxx

   1 /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
   2 /*
   3  * This file is part of the LibreOffice project.
   4  *
   5  * This Source Code Form is subject to the terms of the Mozilla Public
   6  * License, v. 2.0. If a copy of the MPL was not distributed with this
   7  * file, You can obtain one at http://mozilla.org/MPL/2.0/.
   8  *
   9  * This file incorporates work covered by the following license notice:
  10  *
  11  *   Licensed to the Apache Software Foundation (ASF) under one or more
  12  *   contributor license agreements. See the NOTICE file distributed
  13  *   with this work for additional information regarding copyright
  14  *   ownership. The ASF licenses this file to you under the Apache
  15  *   License, Version 2.0 (the "License"); you may not use this file
  16  *   except in compliance with the License. You may obtain a copy of
  17  *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
  18  */
  19
  20 #include <sal/macros.h>
  21
  22 #include <svx/fmpage.hxx>
  23 #include <com/sun/star/beans/XPropertySet.hpp>
  24 #include <com/sun/star/container/XNameContainer.hpp>
  25
  26
  27 #include <svx/fmmodel.hxx>
  28
  29 #include "fmobj.hxx"
  30
  31 #include <svx/fmresids.hrc>
  32 #include <svx/dialmgr.hxx>
  33
  34 #include "fmpgeimp.hxx"
  35
  36 #include <sfx2/objsh.hxx>
  37 #include <svx/svditer.hxx>
  38 #include <svx/svdview.hxx>
  39 #include <tools/urlobj.hxx>
  40 #include <vcl/help.hxx>
  41
  42
  43 #include <svx/fmglob.hxx>
  44 #include "fmprop.hrc"
  45 #include "fmundo.hxx"
  46 #include "svx/fmtools.hxx"
  47 using namespace ::svxform;
  48 #include <comphelper/property.hxx>
  49
  50 using com::sun::star::uno::Reference;
  51 using com::sun::star::uno::UNO_QUERY;
  52 using com::sun::star::container::XChild;
  53 using com::sun::star::container::XNameContainer;
  54
  55 TYPEINIT1(FmFormPage, SdrPage);
  56
  57
  58 FmFormPage::FmFormPage(FmFormModel& rModel, bool bMasterPage)
  59            :SdrPage(rModel, bMasterPage)
  60            ,m_pImpl( new FmFormPageImpl( *this ) )
  61 {
  62 }
  63
  64
  65 FmFormPage::FmFormPage(const FmFormPage& rPage)
  66            :SdrPage(rPage)
  67            ,m_pImpl(new FmFormPageImpl( *this ) )
  68 {
  69 }
  70
  71 void FmFormPage::lateInit(const FmFormPage& rPage, FmFormModel* const pNewModel)
  72 {
  73     SdrPage::lateInit( rPage, pNewModel );
  74
  75     m_pImpl->initFrom( rPage.GetImpl() );
  76     m_sPageName = rPage.m_sPageName;
  77 }
  78
  79
  80 FmFormPage::~FmFormPage()
  81 {
  82     delete m_pImpl;
  83 }
  84
  85
  86 void FmFormPage::SetModel(SdrModel* pNewModel)
  87 {
  88     /* #35055# */
  89     // we want to call the super's "SetModel" method even if the model is the
  90     // same, in case code somewhere in the system depends on it.  But our code
  91     // doesn't, so get the old model to do a check.
  92     SdrModel *pOldModel = GetModel();
  93
  94     SdrPage::SetModel( pNewModel );
  95
  96     /* #35055# */
  97     if ( ( pOldModel != pNewModel ) && m_pImpl )
  98     {
  99         try
 100         {
 101             Reference< css::form::XForms > xForms( m_pImpl->getForms( false ) );
 102             if ( xForms.is() )
 103             {
 104                 // we want to keep the current collection, just reset the model
 105                 // with which it's associated.
 106                 FmFormModel* pDrawModel = static_cast<FmFormModel*>( GetModel() );
 107                 SfxObjectShell* pObjShell = pDrawModel->GetObjectShell();
 108                 if ( pObjShell )
 109                     xForms->setParent( pObjShell->GetModel() );
 110             }
 111         }
 112         catch( ::com::sun::star::uno::Exception const& )
 113         {
 114             OSL_FAIL( "UNO Exception caught resetting model for m_pImpl (FmFormPageImpl) in FmFormPage::SetModel" );
 115         }
 116     }
 117 }
 118
 119
 120 SdrPage* FmFormPage::Clone() const
 121 {
 122     return Clone(0);
 123 }
 124
 125 SdrPage* FmFormPage::Clone(SdrModel* const pNewModel) const
 126 {
 127     FmFormPage* const pNewPage = new FmFormPage(*this);
 128     FmFormModel* pFormModel = 0;
 129     if (pNewModel)
 130     {
 131         pFormModel = dynamic_cast<FmFormModel*>(pNewModel);
 132         assert(pFormModel);
 133     }
 134     pNewPage->lateInit(*this, pFormModel);
 135     return pNewPage;
 136 }
 137
 138
 139 void FmFormPage::InsertObject(SdrObject* pObj, size_t nPos,
 140                               const SdrInsertReason* pReason)
 141 {
 142     SdrPage::InsertObject( pObj, nPos, pReason );
 143     if (GetModel() && (!pReason || pReason->GetReason() != SDRREASON_STREAMING))
 144         static_cast<FmFormModel*>(GetModel())->GetUndoEnv().Inserted(pObj);
 145 }
 146
 147
 148 const Reference< css::form::XForms > & FmFormPage::GetForms( bool _bForceCreate ) const
 149 {
 150     const SdrPage& rMasterPage( *this );
 151     const FmFormPage* pFormPage = dynamic_cast< const FmFormPage* >( &rMasterPage );
 152     OSL_ENSURE( pFormPage, "FmFormPage::GetForms: referenced page is no FmFormPage - is this allowed?!" );
 153     if ( !pFormPage )
 154         pFormPage = this;
 155
 156     return pFormPage->m_pImpl->getForms( _bForceCreate );
 157 }
 158
 159
 160 bool FmFormPage::RequestHelp( vcl::Window* pWindow, SdrView* pView,
 161                               const HelpEvent& rEvt )
 162 {
 163     if( pView->IsAction() )
 164         return false;
 165
 166     Point aPos = rEvt.GetMousePosPixel();
 167     aPos = pWindow->ScreenToOutputPixel( aPos );
 168     aPos = pWindow->PixelToLogic( aPos );
 169
 170     SdrObject* pObj = NULL;
 171     SdrPageView* pPV = NULL;
 172     if ( !pView->PickObj( aPos, 0, pObj, pPV, SdrSearchOptions::DEEP ) )
 173         return false;
 174
 175     FmFormObj* pFormObject = FmFormObj::GetFormObject( pObj );
 176     if ( !pFormObject )
 177         return false;
 178
 179     OUString aHelpText;
 180     ::com::sun::star::uno::Reference< ::com::sun::star::beans::XPropertySet >  xSet( pFormObject->GetUnoControlModel(), ::com::sun::star::uno::UNO_QUERY );
 181     if (xSet.is())
 182     {
 183         if (::comphelper::hasProperty(FM_PROP_HELPTEXT, xSet))
 184             aHelpText = ::comphelper::getString(xSet->getPropertyValue(FM_PROP_HELPTEXT)).getStr();
 185
 186         if (aHelpText.isEmpty() && ::comphelper::hasProperty(FM_PROP_TARGET_URL, xSet))
 187         {
 188             OUString aText = ::comphelper::getString(xSet->getPropertyValue(FM_PROP_TARGET_URL));
 189             INetURLObject aUrl(aText);
 190
 191             // testen, ob es ein Protokoll-Typ ist, den ich anzeigen will
 192             INetProtocol aProtocol = aUrl.GetProtocol();
 193             static const INetProtocol s_aQuickHelpSupported[] =
 194                 {   INetProtocol::Ftp, INetProtocol::Http, INetProtocol::File, INetProtocol::Mailto,
 195                     INetProtocol::Https, INetProtocol::Javascript,
 196                     INetProtocol::Ldap
 197                 };
 198             for (sal_uInt16 i=0; i<sizeof(s_aQuickHelpSupported)/sizeof(s_aQuickHelpSupported[0]); ++i)
 199                 if (s_aQuickHelpSupported[i] == aProtocol)
 200                 {
 201                     aHelpText = INetURLObject::decode(aUrl.GetURLNoPass(), INetURLObject::DECODE_UNAMBIGUOUS);
 202                     break;
 203                 }
 204         }
 205     }
 206     if ( !aHelpText.isEmpty() )
 207     {
 208         // Hilfe anzeigen
 209         Rectangle aItemRect = pObj->GetCurrentBoundRect();
 210         aItemRect = pWindow->LogicToPixel( aItemRect );
 211         Point aPt = pWindow->OutputToScreenPixel( aItemRect.TopLeft() );
 212         aItemRect.Left()   = aPt.X();
 213         aItemRect.Top()    = aPt.Y();
 214         aPt = pWindow->OutputToScreenPixel( aItemRect.BottomRight() );
 215         aItemRect.Right()  = aPt.X();
 216         aItemRect.Bottom() = aPt.Y();
 217         if( rEvt.GetMode() == HelpEventMode::BALLOON )
 218             Help::ShowBalloon( pWindow, aItemRect.Center(), aItemRect, aHelpText);
 219         else
 220             Help::ShowQuickHelp( pWindow, aItemRect, aHelpText );
 221     }
 222     return true;
 223 }
 224
 225
 226 SdrObject* FmFormPage::RemoveObject(size_t nObjNum)
 227 {
 228     SdrObject* pObj = SdrPage::RemoveObject(nObjNum);
 229     if (pObj && GetModel())
 230         static_cast<FmFormModel*>(GetModel())->GetUndoEnv().Removed(pObj);
 231     return pObj;
 232 }
 233
 234 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */