reportdesign/source/core/sdr/RptObject.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: RptObject.cxx,v $
  10  * $Revision: 1.10 $
  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 #include "precompiled_reportdesign.hxx"
  31 #include "RptObject.hxx"
  32 #include <vector>
  33 #include <algorithm>
  34
  35 #include <RptDef.hxx>
  36 #include <svx/unoshape.hxx>
  37 #include "RptModel.hxx"
  38 #include "RptObjectListener.hxx"
  39 #include <toolkit/helper/vclunohelper.hxx>
  40 #include <toolkit/helper/convert.hxx>
  41 #include "RptPage.hxx"
  42 #include "corestrings.hrc"
  43 #include <dbaccess/singledoccontroller.hxx>
  44 #include "ModuleHelper.hxx"
  45
  46 #include <RptResId.hrc>
  47 #include <svx/xflclit.hxx>
  48 #include <svx/xlnclit.hxx>
  49 #include <svx/xlndsit.hxx>
  50 #include <svx/xlineit0.hxx>
  51 #include <svx/sderitm.hxx>
  52 #include <svx/xlnwtit.hxx>
  53 #include <svx/xlntrit.hxx>
  54 #include <com/sun/star/style/XStyle.hpp>
  55 #include <com/sun/star/awt/XTabControllerModel.hpp>
  56 #include <com/sun/star/awt/XUnoControlContainer.hpp>
  57 #include <com/sun/star/awt/XVclContainerPeer.hpp>
  58 #include <com/sun/star/awt/XWindow.hpp>
  59 #include <com/sun/star/awt/TextAlign.hpp>
  60 #include <com/sun/star/beans/XPropertySet.hpp>
  61 #include <com/sun/star/beans/PropertyAttribute.hpp>
  62 #include <com/sun/star/script/XScriptEventsSupplier.hpp>
  63 #include <com/sun/star/container/XContainer.hpp>
  64 #include <com/sun/star/lang/XServiceInfo.hpp>
  65 #include <com/sun/star/report/XShape.hpp>
  66 #include <com/sun/star/report/XFixedLine.hpp>
  67 #include <com/sun/star/chart/ChartDataRowSource.hpp>
  68 #include <com/sun/star/chart2/data/XDataReceiver.hpp>
  69 #include <com/sun/star/chart2/data/DatabaseDataProvider.hpp>
  70 #include <com/sun/star/chart2/XChartDocument.hpp>
  71 #include <com/sun/star/style/VerticalAlignment.hpp>
  72 #include <com/sun/star/style/ParagraphAdjust.hpp>
  73 #include <com/sun/star/report/XFormattedField.hpp>
  74 #include <comphelper/genericpropertyset.hxx>
  75 #include <comphelper/processfactory.hxx>
  76 #include <comphelper/property.hxx>
  77 #include <tools/diagnose_ex.h>
  78 #include "PropertyForward.hxx"
  79 #include <connectivity/dbtools.hxx>
  80 #include <connectivity/dbconversion.hxx>
  81 #include "UndoActions.hxx"
  82 #include "UndoEnv.hxx"
  83 #include <algorithm>
  84 #include <functional>
  85
  86 namespace rptui
  87 {
  88
  89 using namespace ::com::sun::star;
  90 using namespace uno;
  91 using namespace beans;
  92 using namespace reportdesign;
  93 using namespace container;
  94 using namespace script;
  95 using namespace report;
  96 //----------------------------------------------------------------------------
  97 sal_uInt16 OObjectBase::getObjectType(const uno::Reference< report::XReportComponent>& _xComponent)
  98 {
  99     uno::Reference< lang::XServiceInfo > xServiceInfo( _xComponent , uno::UNO_QUERY );
 100     OSL_ENSURE(xServiceInfo.is(),"Who deletes the XServiceInfo interface!");
 101     if ( xServiceInfo.is() )
 102     {
 103         if ( xServiceInfo->supportsService( SERVICE_FIXEDTEXT ))
 104             return OBJ_DLG_FIXEDTEXT;
 105         if ( xServiceInfo->supportsService( SERVICE_FIXEDLINE ))
 106         {
 107             uno::Reference< report::XFixedLine> xFixedLine(_xComponent,uno::UNO_QUERY);
 108             return xFixedLine->getOrientation() ? OBJ_DLG_HFIXEDLINE : OBJ_DLG_VFIXEDLINE;
 109         }
 110         if ( xServiceInfo->supportsService( SERVICE_IMAGECONTROL))
 111             return OBJ_DLG_IMAGECONTROL;
 112         if ( xServiceInfo->supportsService( SERVICE_FORMATTEDFIELD ))
 113             return OBJ_DLG_FORMATTEDFIELD;
 114         if ( xServiceInfo->supportsService( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("com.sun.star.drawing.OLE2Shape")) ) )
 115             return OBJ_OLE2;
 116         if ( xServiceInfo->supportsService( SERVICE_SHAPE ))
 117             return OBJ_CUSTOMSHAPE;
 118         if ( xServiceInfo->supportsService( SERVICE_REPORTDEFINITION ) )
 119             return OBJ_DLG_SUBREPORT;
 120         return OBJ_OLE2;
 121     }
 122     return 0;
 123 }
 124 // -----------------------------------------------------------------------------
 125 SdrObject* OObjectBase::createObject(const uno::Reference< report::XReportComponent>& _xComponent)
 126 {
 127     SdrObject* pNewObj = NULL;
 128     sal_uInt16 nType = OObjectBase::getObjectType(_xComponent);
 129     switch( nType )
 130     {
 131         case OBJ_DLG_FIXEDTEXT:
 132             {
 133                 OUnoObject* pUnoObj = new OUnoObject( _xComponent
 134                                     ,::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("com.sun.star.form.component.FixedText"))
 135                                     ,OBJ_DLG_FIXEDTEXT);
 136                 pNewObj = pUnoObj;
 137
 138                 uno::Reference<beans::XPropertySet> xControlModel(pUnoObj->GetUnoControlModel(),uno::UNO_QUERY);
 139                 if ( xControlModel.is() )
 140                     xControlModel->setPropertyValue( PROPERTY_MULTILINE,uno::makeAny(sal_True));
 141             }
 142             break;
 143         case OBJ_DLG_IMAGECONTROL:
 144             pNewObj = new OUnoObject(_xComponent
 145                                     ,::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("com.sun.star.form.component.DatabaseImageControl"))
 146                                     ,OBJ_DLG_IMAGECONTROL);
 147             break;
 148         case OBJ_DLG_FORMATTEDFIELD:
 149             pNewObj = new OUnoObject( _xComponent
 150                                     ,::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("com.sun.star.form.component.FormattedField"))
 151                                     ,OBJ_DLG_FORMATTEDFIELD);
 152             break;
 153         case OBJ_DLG_HFIXEDLINE:
 154         case OBJ_DLG_VFIXEDLINE:
 155             pNewObj = new OUnoObject( _xComponent
 156                                     ,::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("com.sun.star.awt.UnoControlFixedLineModel"))
 157                                     ,nType);
 158             break;
 159         case OBJ_CUSTOMSHAPE:
 160             pNewObj = OCustomShape::Create( _xComponent );
 161             try
 162             {
 163                 sal_Bool bOpaque = sal_False;
 164                 _xComponent->getPropertyValue(PROPERTY_OPAQUE) >>= bOpaque;
 165                 pNewObj->SetLayer(bOpaque ? RPT_LAYER_FRONT : RPT_LAYER_BACK);
 166             }
 167             catch(const uno::Exception&)
 168             {
 169                 DBG_UNHANDLED_EXCEPTION();
 170             }
 171             break;
 172         case OBJ_DLG_SUBREPORT:
 173         case OBJ_OLE2:
 174             pNewObj = OOle2Obj::Create( _xComponent,nType );
 175             break;
 176         default:
 177             OSL_ENSURE(0,"Unknown object id");
 178             break;
 179     }
 180
 181     ensureSdrObjectOwnership( _xComponent );
 182
 183     return pNewObj;
 184 }
 185 // -----------------------------------------------------------------------------
 186 namespace
 187 {
 188     class ParaAdjust : public AnyConverter
 189     {
 190     public:
 191         virtual ::com::sun::star::uno::Any operator() (const ::rtl::OUString& _sPropertyName,const ::com::sun::star::uno::Any& lhs) const
 192         {
 193             uno::Any aRet;
 194             if ( _sPropertyName.equalsAscii(PROPERTY_PARAADJUST) )
 195             {
 196                 sal_Int16 nTextAlign = 0;
 197                 lhs >>= nTextAlign;
 198                 switch(nTextAlign)
 199                 {
 200                     case awt::TextAlign::LEFT:
 201                         nTextAlign = style::ParagraphAdjust_LEFT;
 202                         break;
 203                     case awt::TextAlign::CENTER:
 204                         nTextAlign = style::ParagraphAdjust_CENTER;
 205                         break;
 206                     case awt::TextAlign::RIGHT:
 207                         nTextAlign = style::ParagraphAdjust_RIGHT;
 208                         break;
 209                     default:
 210                         OSL_ENSURE(0,"Illegal text alignment value!");
 211                         break;
 212                 } // switch(nTextAlign)
 213                 aRet <<= (style::ParagraphAdjust)nTextAlign;
 214             }
 215             else
 216             {
 217                 sal_Int16 nTextAlign = 0;
 218                 sal_Int16 eParagraphAdjust = 0;
 219                 lhs >>= eParagraphAdjust;
 220                 switch(eParagraphAdjust)
 221                 {
 222                     case style::ParagraphAdjust_LEFT:
 223                     case style::ParagraphAdjust_BLOCK:
 224                         nTextAlign = awt::TextAlign::LEFT;
 225                         break;
 226                     case style::ParagraphAdjust_CENTER:
 227                         nTextAlign = awt::TextAlign::CENTER;
 228                         break;
 229                     case style::ParagraphAdjust_RIGHT:
 230                         nTextAlign = awt::TextAlign::RIGHT;
 231                         break;
 232                     default:
 233                         OSL_ENSURE(0,"Illegal text alignment value!");
 234                         break;
 235                 } // switch(eParagraphAdjust)
 236                 aRet <<= nTextAlign;
 237             }
 238             return aRet;
 239         }
 240     };
 241 }
 242 // -----------------------------------------------------------------------------
 243 const TPropertyNamePair& getPropertyNameMap(sal_uInt16 _nObjectId)
 244 {
 245     switch(_nObjectId)
 246     {
 247         case OBJ_DLG_IMAGECONTROL:
 248             {
 249                 static TPropertyNamePair s_aNameMap;
 250                 if ( s_aNameMap.empty() )
 251                 {
 252                     ::boost::shared_ptr<AnyConverter> aNoConverter(new AnyConverter());
 253                     s_aNameMap.insert(TPropertyNamePair::value_type(PROPERTY_CONTROLBACKGROUND,TPropertyConverter(PROPERTY_BACKGROUNDCOLOR,aNoConverter)));
 254                     s_aNameMap.insert(TPropertyNamePair::value_type(PROPERTY_CONTROLBORDER,TPropertyConverter(PROPERTY_BORDER,aNoConverter)));
 255                     s_aNameMap.insert(TPropertyNamePair::value_type(PROPERTY_CONTROLBORDERCOLOR,TPropertyConverter(PROPERTY_BORDERCOLOR,aNoConverter)));
 256                     //s_aNameMap.insert(TPropertyNamePair::value_type(PROPERTY_PARAADJUST,PROPERTY_ALIGN));
 257                 }
 258                 return s_aNameMap;
 259             }
 260
 261         case OBJ_DLG_FIXEDTEXT:
 262             {
 263                 static TPropertyNamePair s_aNameMap;
 264                 if ( s_aNameMap.empty() )
 265                 {
 266                     ::boost::shared_ptr<AnyConverter> aNoConverter(new AnyConverter());
 267                     s_aNameMap.insert(TPropertyNamePair::value_type(PROPERTY_CHARCOLOR,TPropertyConverter(PROPERTY_TEXTCOLOR,aNoConverter)));
 268                     s_aNameMap.insert(TPropertyNamePair::value_type(PROPERTY_CONTROLBACKGROUND,TPropertyConverter(PROPERTY_BACKGROUNDCOLOR,aNoConverter)));
 269                     s_aNameMap.insert(TPropertyNamePair::value_type(PROPERTY_CHARUNDERLINECOLOR,TPropertyConverter(PROPERTY_TEXTLINECOLOR,aNoConverter)));
 270                     s_aNameMap.insert(TPropertyNamePair::value_type(PROPERTY_CHARRELIEF,TPropertyConverter(PROPERTY_FONTRELIEF,aNoConverter)));
 271                     s_aNameMap.insert(TPropertyNamePair::value_type(PROPERTY_CHARFONTHEIGHT,TPropertyConverter(PROPERTY_FONTHEIGHT,aNoConverter)));
 272                     s_aNameMap.insert(TPropertyNamePair::value_type(PROPERTY_CHARSTRIKEOUT,TPropertyConverter(PROPERTY_FONTSTRIKEOUT,aNoConverter)));
 273                     s_aNameMap.insert(TPropertyNamePair::value_type(PROPERTY_CONTROLTEXTEMPHASISMARK,TPropertyConverter(PROPERTY_FONTEMPHASISMARK,aNoConverter)));
 274                     s_aNameMap.insert(TPropertyNamePair::value_type(PROPERTY_CONTROLBORDER,TPropertyConverter(PROPERTY_BORDER,aNoConverter)));
 275                     s_aNameMap.insert(TPropertyNamePair::value_type(PROPERTY_CONTROLBORDERCOLOR,TPropertyConverter(PROPERTY_BORDERCOLOR,aNoConverter)));
 276
 277                     ::boost::shared_ptr<AnyConverter> aParaAdjust(new ParaAdjust());
 278                     s_aNameMap.insert(TPropertyNamePair::value_type(PROPERTY_PARAADJUST,TPropertyConverter(PROPERTY_ALIGN,aParaAdjust)));
 279                 }
 280                 return s_aNameMap;
 281             }
 282         case OBJ_DLG_FORMATTEDFIELD:
 283             {
 284                 static TPropertyNamePair s_aNameMap;
 285                 if ( s_aNameMap.empty() )
 286                 {
 287                     ::boost::shared_ptr<AnyConverter> aNoConverter(new AnyConverter());
 288                     s_aNameMap.insert(TPropertyNamePair::value_type(PROPERTY_CHARCOLOR,TPropertyConverter(PROPERTY_TEXTCOLOR,aNoConverter)));
 289                     s_aNameMap.insert(TPropertyNamePair::value_type(PROPERTY_CONTROLBACKGROUND,TPropertyConverter(PROPERTY_BACKGROUNDCOLOR,aNoConverter)));
 290                     s_aNameMap.insert(TPropertyNamePair::value_type(PROPERTY_CHARUNDERLINECOLOR,TPropertyConverter(PROPERTY_TEXTLINECOLOR,aNoConverter)));
 291                     s_aNameMap.insert(TPropertyNamePair::value_type(PROPERTY_CHARRELIEF,TPropertyConverter(PROPERTY_FONTRELIEF,aNoConverter)));
 292                     s_aNameMap.insert(TPropertyNamePair::value_type(PROPERTY_CHARFONTHEIGHT,TPropertyConverter(PROPERTY_FONTHEIGHT,aNoConverter)));
 293                     s_aNameMap.insert(TPropertyNamePair::value_type(PROPERTY_CHARSTRIKEOUT,TPropertyConverter(PROPERTY_FONTSTRIKEOUT,aNoConverter)));
 294                     s_aNameMap.insert(TPropertyNamePair::value_type(PROPERTY_CONTROLTEXTEMPHASISMARK,TPropertyConverter(PROPERTY_FONTEMPHASISMARK,aNoConverter)));
 295                     s_aNameMap.insert(TPropertyNamePair::value_type(PROPERTY_CONTROLBORDER,TPropertyConverter(PROPERTY_BORDER,aNoConverter)));
 296                     s_aNameMap.insert(TPropertyNamePair::value_type(PROPERTY_CONTROLBORDERCOLOR,TPropertyConverter(PROPERTY_BORDERCOLOR,aNoConverter)));
 297                     //s_aNameMap.insert(TPropertyNamePair::value_type(PROPERTY_PARAADJUST,TPropertyConverter(PROPERTY_ALIGN,aNoConverter)));
 298                     ::boost::shared_ptr<AnyConverter> aParaAdjust(new ParaAdjust());
 299                     s_aNameMap.insert(TPropertyNamePair::value_type(PROPERTY_PARAADJUST,TPropertyConverter(PROPERTY_ALIGN,aParaAdjust)));
 300                 }
 301                 return s_aNameMap;
 302             }
 303
 304         case OBJ_CUSTOMSHAPE:
 305             {
 306                 static TPropertyNamePair s_aNameMap;
 307                 if ( s_aNameMap.empty() )
 308                 {
 309                     ::boost::shared_ptr<AnyConverter> aNoConverter(new AnyConverter());
 310                     s_aNameMap.insert(TPropertyNamePair::value_type(::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("FillColor")),TPropertyConverter(PROPERTY_CONTROLBACKGROUND,aNoConverter)));
 311                     s_aNameMap.insert(TPropertyNamePair::value_type(PROPERTY_PARAADJUST,TPropertyConverter(PROPERTY_ALIGN,aNoConverter)));
 312                 }
 313                 return s_aNameMap;
 314             }
 315
 316         default:
 317             break;
 318     }
 319     static TPropertyNamePair s_aEmptyNameMap;
 320     return s_aEmptyNameMap;
 321 }
 322 // -----------------------------------------------------------------------------
 323
 324 DBG_NAME( rpt_OObjectBase )
 325 OObjectBase::OObjectBase(const uno::Reference< report::XReportComponent>& _xComponent)
 326 :m_bIsListening(sal_False)
 327 {
 328     DBG_CTOR( rpt_OObjectBase,NULL);
 329     m_xReportComponent = _xComponent;
 330 }
 331 //----------------------------------------------------------------------------
 332 OObjectBase::OObjectBase(const ::rtl::OUString& _sComponentName)
 333 :m_sComponentName(_sComponentName)
 334 ,m_bIsListening(sal_False)
 335 {
 336     DBG_CTOR( rpt_OObjectBase,NULL);
 337 }
 338 //----------------------------------------------------------------------------
 339 OObjectBase::~OObjectBase()
 340 {
 341     DBG_DTOR( rpt_OObjectBase,NULL);
 342     m_xMediator.reset();
 343     if ( isListening() )
 344         EndListening();
 345     m_xReportComponent.clear();
 346 }
 347 // -----------------------------------------------------------------------------
 348 uno::Reference< report::XSection> OObjectBase::getSection() const
 349 {
 350     uno::Reference< report::XSection> xSection;
 351     OReportPage* pPage = dynamic_cast<OReportPage*>(GetImplPage());
 352     if ( pPage )
 353         xSection = pPage->getSection();
 354     return xSection;
 355 }
 356 // -----------------------------------------------------------------------------
 357 uno::Reference< report::XReportComponent> OObjectBase::getReportComponent() const
 358 {
 359     return m_xReportComponent;
 360 }
 361 // -----------------------------------------------------------------------------
 362 uno::Reference< beans::XPropertySet> OObjectBase::getAwtComponent()
 363 {
 364     return uno::Reference< beans::XPropertySet>();
 365 }
 366 // -----------------------------------------------------------------------------
 367 sal_Bool OObjectBase::IsInside(const Rectangle& _rRect,const Point& rPnt,USHORT nTol) const
 368 {
 369     sal_Bool bRet = sal_False;
 370     Rectangle aRect( _rRect );
 371     if ( !aRect.IsEmpty() )
 372     {
 373         aRect.Left() -= nTol;
 374         aRect.Top() -= nTol;
 375         aRect.Right() = ( aRect.Right() == RECT_EMPTY ? _rRect.Left() + nTol : aRect.Right() + nTol );
 376         aRect.Bottom() = ( aRect.Bottom() == RECT_EMPTY ? _rRect.Top() + nTol : aRect.Bottom() + nTol );
 377
 378         bRet = aRect.IsInside( rPnt );
 379     }
 380     return bRet;
 381 }
 382 //----------------------------------------------------------------------------
 383 void OObjectBase::StartListening()
 384 {
 385     DBG_CHKTHIS( rpt_OObjectBase,NULL);
 386     OSL_ENSURE(!isListening(), "OUnoObject::StartListening: already listening!");
 387
 388     if ( !isListening() && m_xReportComponent.is() )
 389     {
 390         m_bIsListening = sal_True;
 391
 392         if ( !m_xPropertyChangeListener.is() )
 393         {
 394             m_xPropertyChangeListener = new OObjectListener( this );
 395             // register listener to all properties
 396             m_xReportComponent->addPropertyChangeListener( ::rtl::OUString() , m_xPropertyChangeListener );
 397         }
 398     }
 399 }
 400 //----------------------------------------------------------------------------
 401 void OObjectBase::EndListening(sal_Bool /*bRemoveListener*/)
 402 {
 403     DBG_CHKTHIS( rpt_OObjectBase,NULL);
 404     OSL_ENSURE(!m_xReportComponent.is() || isListening(), "OUnoObject::EndListening: not listening currently!");
 405
 406     m_bIsListening = sal_False;
 407     if ( isListening() && m_xReportComponent.is() )
 408     {
 409         // XPropertyChangeListener
 410         if ( m_xPropertyChangeListener.is() )
 411         {
 412             // remove listener
 413             try
 414             {
 415                 m_xReportComponent->removePropertyChangeListener( ::rtl::OUString() , m_xPropertyChangeListener );
 416             }
 417             catch(uno::Exception)
 418             {
 419                 OSL_ENSURE(0,"OObjectBase::EndListening: Exception caught!");
 420             }
 421         }
 422         m_xPropertyChangeListener.clear();
 423     }
 424 }
 425 //----------------------------------------------------------------------------
 426 void OObjectBase::SetPropsFromRect(const Rectangle& _rRect)
 427 {
 428     DBG_CHKTHIS( rpt_OObjectBase,NULL);
 429     // set properties
 430     OReportPage* pPage = dynamic_cast<OReportPage*>(GetImplPage());
 431     if ( pPage && !_rRect.IsEmpty() )
 432     {
 433         uno::Reference<report::XSection> xSection = pPage->getSection();
 434         if ( xSection.is() && (static_cast<sal_uInt32>(_rRect.getHeight() + _rRect.Top()) > xSection->getHeight()) )
 435             xSection->setHeight(_rRect.getHeight() + _rRect.Top());
 436
 437         // TODO
 438         //pModel->GetRefDevice()->Invalidate(INVALIDATE_CHILDREN);
 439     }
 440 }
 441 //----------------------------------------------------------------------------
 442 void OObjectBase::_propertyChange( const  beans::PropertyChangeEvent& /*evt*/ ) throw( uno::RuntimeException)
 443 {
 444     DBG_CHKTHIS( rpt_OObjectBase,NULL);
 445 }
 446 //----------------------------------------------------------------------------
 447 void OObjectBase::SetObjectItemHelper(const SfxPoolItem& /*rItem*/)
 448 {
 449     // do nothing
 450 }
 451
 452 //----------------------------------------------------------------------------
 453 sal_Bool OObjectBase::supportsService( const ::rtl::OUString& _sServiceName ) const
 454 {
 455     DBG_CHKTHIS( rpt_OObjectBase,NULL);
 456     sal_Bool bSupports = sal_False;
 457
 458     Reference< lang::XServiceInfo > xServiceInfo( m_xReportComponent , UNO_QUERY );
 459         // TODO: cache xServiceInfo as member?
 460     if ( xServiceInfo.is() )
 461         bSupports = xServiceInfo->supportsService( _sServiceName );
 462
 463     return bSupports;
 464 }
 465
 466 //----------------------------------------------------------------------------
 467 void OObjectBase::ensureSdrObjectOwnership( const uno::Reference< uno::XInterface >& _rxShape )
 468 {
 469     // UNDO in the report designer is implemented at the level of the XShapes, not
 470     // at the level of SdrObjects. That is, if an object is removed from the report
 471     // design, then this happens by removing the XShape from the UNO DrawPage, and
 472     // putting this XShape (resp. the ReportComponent which wraps it) into an UNDO
 473     // action.
 474     // Unfortunately, the SvxDrawPage implementation usually deletes SdrObjects
 475     // which are removed from it, which is deadly for us. To prevent this,
 476     // we give the XShape implementation the ownership of the SdrObject, which
 477     // ensures the SvxDrawPage won't delete it.
 478     SvxShape* pShape = SvxShape::getImplementation( _rxShape );
 479     OSL_ENSURE( pShape, "OObjectBase::ensureSdrObjectOwnership: can't access the SvxShape!" );
 480     if ( pShape )
 481     {
 482         OSL_ENSURE( !pShape->HasSdrObjectOwnership(), "OObjectBase::ensureSdrObjectOwnership: called twice?" );
 483         pShape->TakeSdrObjectOwnership();
 484     }
 485 }
 486
 487 //----------------------------------------------------------------------------
 488 uno::Reference< uno::XInterface > OObjectBase::getUnoShapeOf( SdrObject& _rSdrObject )
 489 {
 490     uno::Reference< uno::XInterface > xShape( _rSdrObject.getWeakUnoShape() );
 491     if ( xShape.is() )
 492         return xShape;
 493
 494     xShape = _rSdrObject.SdrObject::getUnoShape();
 495     if ( !xShape.is() )
 496         return xShape;
 497
 498     ensureSdrObjectOwnership( xShape );
 499
 500     m_xKeepShapeAlive = xShape;
 501     return xShape;
 502 }
 503
 504 //----------------------------------------------------------------------------
 505 TYPEINIT1(OCustomShape, SdrObjCustomShape);
 506 DBG_NAME( rpt_OCustomShape );
 507 OCustomShape::OCustomShape(const uno::Reference< report::XReportComponent>& _xComponent
 508                            )
 509           :SdrObjCustomShape()
 510           ,OObjectBase(_xComponent)
 511 {
 512     DBG_CTOR( rpt_OCustomShape, NULL);
 513     impl_setUnoShape( uno::Reference< uno::XInterface >(_xComponent,uno::UNO_QUERY) );
 514     m_bIsListening = sal_True;
 515 }
 516 //----------------------------------------------------------------------------
 517 OCustomShape::OCustomShape(const ::rtl::OUString& _sComponentName)
 518           :SdrObjCustomShape()
 519           ,OObjectBase(_sComponentName)
 520 {
 521     DBG_CTOR( rpt_OCustomShape, NULL);
 522     m_bIsListening = sal_True;
 523 }
 524
 525 //----------------------------------------------------------------------------
 526 OCustomShape::~OCustomShape()
 527 {
 528     DBG_DTOR( rpt_OCustomShape, NULL);
 529 }
 530 // -----------------------------------------------------------------------------
 531 UINT16 OCustomShape::GetObjIdentifier() const
 532 {
 533     return UINT16(OBJ_CUSTOMSHAPE);
 534 }
 535 //----------------------------------------------------------------------------
 536 UINT32 OCustomShape::GetObjInventor() const
 537 {
 538     return ReportInventor;
 539 }
 540 //----------------------------------------------------------------------------
 541 SdrPage* OCustomShape::GetImplPage() const
 542 {
 543     return GetPage();
 544 }
 545 //----------------------------------------------------------------------------
 546 void OCustomShape::SetSnapRectImpl(const Rectangle& _rRect)
 547 {
 548     SetSnapRect( _rRect );
 549 }
 550 //----------------------------------------------------------------------------
 551 sal_Int32 OCustomShape::GetStep() const
 552 {
 553     // get step property
 554     sal_Int32 nStep = 0;
 555     OSL_ENSURE(0,"Who called me!");
 556     return nStep;
 557 }
 558 //----------------------------------------------------------------------------
 559 void OCustomShape::NbcMove( const Size& rSize )
 560 {
 561     if ( m_bIsListening )
 562     {
 563         m_bIsListening = sal_False;
 564
 565         if ( m_xReportComponent.is() )
 566         {
 567             OReportModel* pRptModel = static_cast<OReportModel*>(GetModel());
 568             OXUndoEnvironment::OUndoEnvLock aLock(pRptModel->GetUndoEnv());
 569             m_xReportComponent->setPositionX(m_xReportComponent->getPositionX() + rSize.A());
 570             m_xReportComponent->setPositionY(m_xReportComponent->getPositionY() + rSize.B());
 571         }
 572
 573         // set geometry properties
 574         SetPropsFromRect(GetSnapRect());
 575
 576         m_bIsListening = sal_True;
 577     }
 578     else
 579         SdrObjCustomShape::NbcMove( rSize );
 580 }
 581 //----------------------------------------------------------------------------
 582 void OCustomShape::NbcResize(const Point& rRef, const Fraction& xFract, const Fraction& yFract)
 583 {
 584     SdrObjCustomShape::NbcResize( rRef, xFract, yFract );
 585
 586     SetPropsFromRect(GetSnapRect());
 587 }
 588 //----------------------------------------------------------------------------
 589 void OCustomShape::NbcSetLogicRect(const Rectangle& rRect)
 590 {
 591     SdrObjCustomShape::NbcSetLogicRect(rRect);
 592     SetPropsFromRect(rRect);
 593 }
 594 //----------------------------------------------------------------------------
 595 FASTBOOL OCustomShape::EndCreate(SdrDragStat& rStat, SdrCreateCmd eCmd)
 596 {
 597     FASTBOOL bResult = SdrObjCustomShape::EndCreate(rStat, eCmd);
 598     if ( bResult )
 599     {
 600         OReportModel* pRptModel = static_cast<OReportModel*>(GetModel());
 601         if ( pRptModel )
 602         {
 603             OXUndoEnvironment::OUndoEnvLock aLock(pRptModel->GetUndoEnv());
 604             if ( !m_xReportComponent.is() )
 605                 m_xReportComponent.set(getUnoShape(),uno::UNO_QUERY);
 606         }
 607         SetPropsFromRect(GetSnapRect());
 608     }
 609
 610     return bResult;
 611 }
 612
 613 //----------------------------------------------------------------------------
 614 void OCustomShape::SetObjectItemHelper(const SfxPoolItem& rItem)
 615 {
 616     SetObjectItem(rItem);
 617     // TODO
 618     //getSectionWindow()->getView()->AdjustMarkHdl();
 619 }
 620
 621 // -----------------------------------------------------------------------------
 622 uno::Reference< beans::XPropertySet> OCustomShape::getAwtComponent()
 623 {
 624     return uno::Reference< beans::XPropertySet>(m_xReportComponent,uno::UNO_QUERY);
 625 }
 626
 627 //----------------------------------------------------------------------------
 628 uno::Reference< uno::XInterface > OCustomShape::getUnoShape()
 629 {
 630     uno::Reference< uno::XInterface> xShape = OObjectBase::getUnoShapeOf( *this );
 631     if ( !m_xReportComponent.is() )
 632     {
 633         OReportModel* pRptModel = static_cast<OReportModel*>(GetModel());
 634         OXUndoEnvironment::OUndoEnvLock aLock(pRptModel->GetUndoEnv());
 635         m_xReportComponent.set(xShape,uno::UNO_QUERY);
 636     }
 637     return xShape;
 638 }
 639
 640 //----------------------------------------------------------------------------
 641 //----------------------------------------------------------------------------
 642 TYPEINIT1(OUnoObject, SdrUnoObj);
 643 DBG_NAME( rpt_OUnoObject );
 644 //----------------------------------------------------------------------------
 645 OUnoObject::OUnoObject(const ::rtl::OUString& _sComponentName
 646                        ,const ::rtl::OUString& rModelName
 647                        ,sal_uInt16   _nObjectType)
 648           :SdrUnoObj(rModelName, sal_True)
 649           ,OObjectBase(_sComponentName)
 650           ,m_nObjectType(_nObjectType)
 651 {
 652     DBG_CTOR( rpt_OUnoObject, NULL);
 653     if ( rModelName.getLength() )
 654         impl_initializeModel_nothrow();
 655 }
 656 //----------------------------------------------------------------------------
 657 OUnoObject::OUnoObject(const uno::Reference< report::XReportComponent>& _xComponent
 658                        ,const ::rtl::OUString& rModelName
 659                        ,sal_uInt16   _nObjectType)
 660           :SdrUnoObj(rModelName, sal_True)
 661           ,OObjectBase(_xComponent)
 662           ,m_nObjectType(_nObjectType)
 663 {
 664     DBG_CTOR( rpt_OUnoObject, NULL);
 665     impl_setUnoShape( uno::Reference< uno::XInterface >( _xComponent, uno::UNO_QUERY ) );
 666
 667     if ( rModelName.getLength() )
 668         impl_initializeModel_nothrow();
 669
 670     if ( rModelName.getLength() )
 671         impl_initializeModel_nothrow();
 672 }
 673 //----------------------------------------------------------------------------
 674 OUnoObject::~OUnoObject()
 675 {
 676     DBG_DTOR( rpt_OUnoObject, NULL);
 677 }
 678 // -----------------------------------------------------------------------------
 679 void OUnoObject::impl_initializeModel_nothrow()
 680 {
 681     try
 682     {
 683         Reference< XFormattedField > xFormatted( m_xReportComponent, UNO_QUERY );
 684         if ( xFormatted.is() )
 685         {
 686             const Reference< XPropertySet > xModelProps( GetUnoControlModel(), UNO_QUERY_THROW );
 687             const ::rtl::OUString sTreatAsNumberProperty = ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "TreatAsNumber" ) );
 688             xModelProps->setPropertyValue( sTreatAsNumberProperty, makeAny( sal_False ) );
 689         }
 690     }
 691     catch( const Exception& )
 692     {
 693         DBG_UNHANDLED_EXCEPTION();
 694     }
 695 }
 696 // -----------------------------------------------------------------------------
 697 void OUnoObject::impl_setReportComponent_nothrow()
 698 {
 699     if ( m_xReportComponent.is() )
 700         return;
 701
 702     OReportModel* pReportModel = static_cast<OReportModel*>(GetModel());
 703     OSL_ENSURE( pReportModel, "OUnoObject::impl_setReportComponent_nothrow: no report model!" );
 704     if ( !pReportModel )
 705         return;
 706
 707     OXUndoEnvironment::OUndoEnvLock aLock( pReportModel->GetUndoEnv() );
 708     m_xReportComponent.set(getUnoShape(),uno::UNO_QUERY);
 709
 710     impl_initializeModel_nothrow();
 711 }
 712 // -----------------------------------------------------------------------------
 713 UINT16 OUnoObject::GetObjIdentifier() const
 714 {
 715     return UINT16(m_nObjectType);
 716 }
 717 //----------------------------------------------------------------------------
 718 UINT32 OUnoObject::GetObjInventor() const
 719 {
 720     return ReportInventor;
 721 }
 722 //----------------------------------------------------------------------------
 723 SdrPage* OUnoObject::GetImplPage() const
 724 {
 725     DBG_CHKTHIS( rpt_OUnoObject,NULL);
 726     return GetPage();
 727 }
 728 //----------------------------------------------------------------------------
 729 void OUnoObject::SetSnapRectImpl(const Rectangle& _rRect)
 730 {
 731     DBG_CHKTHIS( rpt_OUnoObject,NULL);
 732     SetSnapRect( _rRect );
 733 }
 734 //----------------------------------------------------------------------------
 735 sal_Int32 OUnoObject::GetStep() const
 736 {
 737     DBG_CHKTHIS( rpt_OUnoObject,NULL);
 738     // get step property
 739     sal_Int32 nStep = 0;
 740     OSL_ENSURE(0,"Who called me!");
 741     return nStep;
 742 }
 743
 744 //----------------------------------------------------------------------------
 745 void OUnoObject::NbcMove( const Size& rSize )
 746 {
 747     DBG_CHKTHIS( rpt_OUnoObject,NULL);
 748
 749     if ( m_bIsListening )
 750     {
 751         // stop listening
 752         OObjectBase::EndListening(sal_False);
 753
 754         bool bPositionFixed = false;
 755         Size aUndoSize(0,0);
 756         bool bUndoMode = false;
 757         if ( m_xReportComponent.is() )
 758         {
 759             OReportModel* pRptModel = static_cast<OReportModel*>(GetModel());
 760             if (pRptModel->GetUndoEnv().IsUndoMode())
 761             {
 762                 // if we are locked from outside, then we must not handle wrong moves, we are in UNDO mode
 763                 bUndoMode = true;
 764             }
 765             OXUndoEnvironment::OUndoEnvLock aLock(pRptModel->GetUndoEnv());
 766
 767             // LLA: why there exists getPositionX and getPositionY and NOT getPosition() which return a Point?
 768             int nNewX = m_xReportComponent->getPositionX() + rSize.A();
 769             // can this hinder us to set components outside the area?
 770             // if (nNewX < 0)
 771             // {
 772             //     nNewX = 0;
 773             // }
 774             m_xReportComponent->setPositionX(nNewX);
 775             int nNewY = m_xReportComponent->getPositionY() + rSize.B();
 776             if (nNewY < 0 && !bUndoMode)
 777             {
 778                 aUndoSize.B() = abs(nNewY);
 779                 bPositionFixed = true;
 780                 nNewY = 0;
 781             }
 782             m_xReportComponent->setPositionY(nNewY);
 783         }
 784         if (bPositionFixed)
 785         {
 786             // OReportModel* pRptModel = static_cast<OReportModel*>(GetModel());
 787             // if ( pRptModel )
 788             // {
 789             //    if (! pRptModel->GetUndoEnv().IsLocked())
 790             //    {
 791                     GetModel()->AddUndo(GetModel()->GetSdrUndoFactory().CreateUndoMoveObject(*this, aUndoSize));
 792             //    }
 793             // }
 794         }
 795         // set geometry properties
 796         SetPropsFromRect(GetLogicRect());
 797
 798         // start listening
 799         OObjectBase::StartListening();
 800     }
 801     else
 802         SdrUnoObj::NbcMove( rSize );
 803 }
 804
 805 //----------------------------------------------------------------------------
 806
 807 void OUnoObject::NbcResize(const Point& rRef, const Fraction& xFract, const Fraction& yFract)
 808 {
 809     DBG_CHKTHIS( rpt_OUnoObject,NULL);
 810     SdrUnoObj::NbcResize( rRef, xFract, yFract );
 811
 812     // stop listening
 813     OObjectBase::EndListening(sal_False);
 814
 815     // set geometry properties
 816     SetPropsFromRect(GetLogicRect());
 817
 818     // start listening
 819     OObjectBase::StartListening();
 820 }
 821 //----------------------------------------------------------------------------
 822 void OUnoObject::NbcSetLogicRect(const Rectangle& rRect)
 823 {
 824     SdrUnoObj::NbcSetLogicRect(rRect);
 825     // stop listening
 826     OObjectBase::EndListening(sal_False);
 827
 828     // set geometry properties
 829     SetPropsFromRect(rRect);
 830
 831     // start listening
 832     OObjectBase::StartListening();
 833 }
 834 //----------------------------------------------------------------------------
 835
 836 FASTBOOL OUnoObject::EndCreate(SdrDragStat& rStat, SdrCreateCmd eCmd)
 837 {
 838     DBG_CHKTHIS( rpt_OUnoObject,NULL);
 839     FASTBOOL bResult = SdrUnoObj::EndCreate(rStat, eCmd);
 840     if ( bResult )
 841     {
 842         impl_setReportComponent_nothrow();
 843         // set labels
 844         if ( m_xReportComponent.is() )
 845         {
 846             try
 847             {
 848                 if ( supportsService( SERVICE_FIXEDTEXT ) )
 849                 {
 850                     m_xReportComponent->setPropertyValue( PROPERTY_LABEL, uno::makeAny(GetDefaultName(this)) );
 851                 }
 852             }
 853             catch(const uno::Exception&)
 854             {
 855                 DBG_UNHANDLED_EXCEPTION();
 856             }
 857
 858             impl_initializeModel_nothrow();
 859         }
 860         // set geometry properties
 861         SetPropsFromRect(GetLogicRect());
 862     }
 863
 864     return bResult;
 865 }
 866 //----------------------------------------------------------------------------
 867 ::rtl::OUString OUnoObject::GetDefaultName(const OUnoObject* _pObj)
 868 {
 869     sal_uInt16 nResId = 0;
 870     ::rtl::OUString aDefaultName = ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("HERE WE HAVE TO INSERT OUR NAME!"));
 871     if ( _pObj->supportsService( SERVICE_FIXEDTEXT ) )
 872     {
 873         nResId = RID_STR_CLASS_FIXEDTEXT;
 874     }
 875     else if ( _pObj->supportsService( SERVICE_FIXEDLINE ) )
 876     {
 877         nResId = RID_STR_CLASS_FIXEDLINE;
 878     }
 879     else if ( _pObj->supportsService( SERVICE_IMAGECONTROL ) )
 880     {
 881         nResId = RID_STR_CLASS_IMAGECONTROL;
 882     }
 883     else if ( _pObj->supportsService( SERVICE_FORMATTEDFIELD ) )
 884     {
 885         nResId = RID_STR_CLASS_FORMATTEDFIELD;
 886     }
 887
 888     if (nResId)
 889         aDefaultName = ::rtl::OUString( String(ModuleRes(nResId)) );
 890
 891     return aDefaultName;
 892 }
 893
 894 // -----------------------------------------------------------------------------
 895 void OUnoObject::_propertyChange( const  beans::PropertyChangeEvent& evt ) throw( uno::RuntimeException)
 896 {
 897     DBG_CHKTHIS( rpt_OUnoObject,NULL);
 898     OObjectBase::_propertyChange(evt);
 899     if (isListening())
 900     {
 901         if ( evt.PropertyName == PROPERTY_CHARCOLOR )
 902         {
 903             Reference<XPropertySet> xControlModel(GetUnoControlModel(),uno::UNO_QUERY);
 904             if ( xControlModel.is() )
 905             {
 906                 OObjectBase::EndListening(sal_False);
 907                 try
 908                 {
 909                     xControlModel->setPropertyValue(PROPERTY_TEXTCOLOR,evt.NewValue);
 910                 }
 911                 catch(uno::Exception&)
 912                 {
 913                 }
 914                 OObjectBase::StartListening();
 915             }
 916         }
 917         else if ( evt.PropertyName == PROPERTY_NAME )
 918         {
 919             Reference<XPropertySet> xControlModel(GetUnoControlModel(),uno::UNO_QUERY);
 920             if ( xControlModel.is() && xControlModel->getPropertySetInfo()->hasPropertyByName(PROPERTY_NAME) )
 921             {
 922                 // get old name
 923                 ::rtl::OUString aOldName;
 924                 evt.OldValue >>= aOldName;
 925
 926                 // get new name
 927                 ::rtl::OUString aNewName;
 928                 evt.NewValue >>= aNewName;
 929
 930                 if ( !aNewName.equals(aOldName) )
 931                 {
 932                     // set old name property
 933                     OObjectBase::EndListening(sal_False);
 934                     if ( m_xMediator.is() )
 935                         m_xMediator.get()->stopListening();
 936                     try
 937                     {
 938                         xControlModel->setPropertyValue( PROPERTY_NAME, evt.NewValue );
 939                     }
 940                     catch(uno::Exception&)
 941                     {
 942                     }
 943                     if ( m_xMediator.is() )
 944                         m_xMediator.get()->startListening();
 945                     OObjectBase::StartListening();
 946                 }
 947             }
 948         }
 949     }
 950 }
 951 // -----------------------------------------------------------------------------
 952 void OUnoObject::CreateMediator(sal_Bool _bReverse)
 953 {
 954     if ( !m_xMediator.is() )
 955     {
 956         impl_setReportComponent_nothrow();
 957
 958         Reference<XPropertySet> xControlModel(GetUnoControlModel(),uno::UNO_QUERY);
 959         if ( !m_xMediator.is() && m_xReportComponent.is() && xControlModel.is() )
 960             m_xMediator = TMediator::createFromQuery(new OPropertyMediator(m_xReportComponent.get(),xControlModel,getPropertyNameMap(GetObjIdentifier()),_bReverse));
 961         OObjectBase::StartListening();
 962     }
 963 }
 964 // -----------------------------------------------------------------------------
 965 uno::Reference< beans::XPropertySet> OUnoObject::getAwtComponent()
 966 {
 967     return Reference<XPropertySet>(GetUnoControlModel(),uno::UNO_QUERY);
 968 }
 969
 970 // -----------------------------------------------------------------------------
 971 uno::Reference< uno::XInterface > OUnoObject::getUnoShape()
 972 {
 973     return OObjectBase::getUnoShapeOf( *this );
 974 }
 975 // -----------------------------------------------------------------------------
 976 SdrObject* OUnoObject::Clone() const
 977 {
 978     SdrObject* pClone = SdrUnoObj::Clone();
 979     if ( pClone )
 980     {
 981         Reference<XPropertySet> xSource(const_cast<OUnoObject*>(this)->getUnoShape(),uno::UNO_QUERY);
 982         Reference<XPropertySet> xDest(pClone->getUnoShape(),uno::UNO_QUERY);
 983         if ( xSource.is() && xDest.is() )
 984             comphelper::copyProperties(xSource.get(),xDest.get());
 985     } // if ( pClone )
 986     return pClone;
 987 }
 988 //----------------------------------------------------------------------------
 989 // OOle2Obj
 990 //----------------------------------------------------------------------------
 991 TYPEINIT1(OOle2Obj, SdrOle2Obj);
 992 DBG_NAME( rpt_OOle2Obj );
 993 OOle2Obj::OOle2Obj(const uno::Reference< report::XReportComponent>& _xComponent,UINT16 _nType)
 994           :SdrOle2Obj()
 995           ,OObjectBase(_xComponent)
 996           ,m_nType(_nType)
 997           ,m_bOnlyOnce(true)
 998 {
 999     DBG_CTOR( rpt_OOle2Obj, NULL);
1000
1001     impl_setUnoShape( uno::Reference< uno::XInterface >( _xComponent, uno::UNO_QUERY ) );
1002     m_bIsListening = sal_True;
1003 }
1004 //----------------------------------------------------------------------------
1005 OOle2Obj::OOle2Obj(const ::rtl::OUString& _sComponentName,UINT16 _nType)
1006           :SdrOle2Obj()
1007           ,OObjectBase(_sComponentName)
1008           ,m_nType(_nType)
1009           ,m_bOnlyOnce(true)
1010 {
1011     DBG_CTOR( rpt_OOle2Obj, NULL);
1012     m_bIsListening = sal_True;
1013 }
1014 //----------------------------------------------------------------------------
1015 OOle2Obj::~OOle2Obj()
1016 {
1017     DBG_DTOR( rpt_OOle2Obj, NULL);
1018 }
1019 // -----------------------------------------------------------------------------
1020 UINT16 OOle2Obj::GetObjIdentifier() const
1021 {
1022     return m_nType;
1023 }
1024 //----------------------------------------------------------------------------
1025 UINT32 OOle2Obj::GetObjInventor() const
1026 {
1027     return ReportInventor;
1028 }
1029 //----------------------------------------------------------------------------
1030 SdrPage* OOle2Obj::GetImplPage() const
1031 {
1032     DBG_CHKTHIS( rpt_OOle2Obj,NULL);
1033     return GetPage();
1034 }
1035 //----------------------------------------------------------------------------
1036 void OOle2Obj::SetSnapRectImpl(const Rectangle& _rRect)
1037 {
1038     DBG_CHKTHIS( rpt_OOle2Obj,NULL);
1039     SetSnapRect( _rRect );
1040 }
1041 //----------------------------------------------------------------------------
1042 sal_Int32 OOle2Obj::GetStep() const
1043 {
1044     DBG_CHKTHIS( rpt_OOle2Obj,NULL);
1045     // get step property
1046     sal_Int32 nStep = 0;
1047     OSL_ENSURE(0,"Who called me!");
1048     return nStep;
1049 }
1050
1051 //----------------------------------------------------------------------------
1052 void OOle2Obj::NbcMove( const Size& rSize )
1053 {
1054     DBG_CHKTHIS( rpt_OOle2Obj,NULL);
1055
1056     if ( m_bIsListening )
1057     {
1058         // stop listening
1059         OObjectBase::EndListening(sal_False);
1060
1061         if ( m_xReportComponent.is() )
1062         {
1063             OReportModel* pRptModel = static_cast<OReportModel*>(GetModel());
1064             OXUndoEnvironment::OUndoEnvLock aLock(pRptModel->GetUndoEnv());
1065             m_xReportComponent->setPositionX(m_xReportComponent->getPositionX() + rSize.A());
1066             m_xReportComponent->setPositionY(m_xReportComponent->getPositionY() + rSize.B());
1067         }
1068
1069         // set geometry properties
1070         SetPropsFromRect(GetLogicRect());
1071
1072         // start listening
1073         OObjectBase::StartListening();
1074     }
1075     else
1076         SdrOle2Obj::NbcMove( rSize );
1077 }
1078
1079 //----------------------------------------------------------------------------
1080
1081 void OOle2Obj::NbcResize(const Point& rRef, const Fraction& xFract, const Fraction& yFract)
1082 {
1083     DBG_CHKTHIS( rpt_OOle2Obj,NULL);
1084     SdrOle2Obj::NbcResize( rRef, xFract, yFract );
1085
1086     // stop listening
1087     OObjectBase::EndListening(sal_False);
1088
1089     // set geometry properties
1090     SetPropsFromRect(GetLogicRect());
1091
1092     // start listening
1093     OObjectBase::StartListening();
1094 }
1095 //----------------------------------------------------------------------------
1096 void OOle2Obj::NbcSetLogicRect(const Rectangle& rRect)
1097 {
1098     SdrOle2Obj::NbcSetLogicRect(rRect);
1099     // stop listening
1100     OObjectBase::EndListening(sal_False);
1101
1102     // set geometry properties
1103     SetPropsFromRect(rRect);
1104
1105     // start listening
1106     OObjectBase::StartListening();
1107 }
1108 //----------------------------------------------------------------------------
1109
1110 FASTBOOL OOle2Obj::EndCreate(SdrDragStat& rStat, SdrCreateCmd eCmd)
1111 {
1112     DBG_CHKTHIS( rpt_OOle2Obj,NULL);
1113     FASTBOOL bResult = SdrOle2Obj::EndCreate(rStat, eCmd);
1114     if ( bResult )
1115     {
1116         OReportModel* pRptModel = static_cast<OReportModel*>(GetModel());
1117         if ( pRptModel )
1118         {
1119             OXUndoEnvironment::OUndoEnvLock aLock(pRptModel->GetUndoEnv());
1120             if ( !m_xReportComponent.is() )
1121                 m_xReportComponent.set(getUnoShape(),uno::UNO_QUERY);
1122         }
1123         // set geometry properties
1124         SetPropsFromRect(GetLogicRect());
1125     }
1126
1127     return bResult;
1128 }
1129
1130 uno::Reference< beans::XPropertySet> OOle2Obj::getAwtComponent()
1131 {
1132     return uno::Reference< beans::XPropertySet>(m_xReportComponent,uno::UNO_QUERY);
1133 }
1134
1135 // -----------------------------------------------------------------------------
1136 uno::Reference< uno::XInterface > OOle2Obj::getUnoShape()
1137 {
1138     uno::Reference< uno::XInterface> xShape = OObjectBase::getUnoShapeOf( *this );
1139     if ( !m_xReportComponent.is() )
1140     {
1141         OReportModel* pRptModel = static_cast<OReportModel*>(GetModel());
1142         OXUndoEnvironment::OUndoEnvLock aLock(pRptModel->GetUndoEnv());
1143         m_xReportComponent.set(xShape,uno::UNO_QUERY);
1144     }
1145     return xShape;
1146 }
1147 // -----------------------------------------------------------------------------
1148 uno::Reference< chart2::data::XDatabaseDataProvider > lcl_getDataProvider(const uno::Reference < embed::XEmbeddedObject >& _xObj)
1149 {
1150     uno::Reference< chart2::data::XDatabaseDataProvider > xSource;
1151     uno::Reference< embed::XComponentSupplier > xCompSupp(_xObj,uno::UNO_QUERY);
1152     if( xCompSupp.is())
1153     {
1154         uno::Reference< chart2::XChartDocument> xChartDoc( xCompSupp->getComponent(), uno::UNO_QUERY );
1155         if ( xChartDoc.is() )
1156         {
1157             xSource.set(xChartDoc->getDataProvider(),uno::UNO_QUERY);
1158         }
1159     } // if( xCompSupp.is())
1160     return xSource;
1161 }
1162 // -----------------------------------------------------------------------------
1163 // Clone() soll eine komplette Kopie des Objektes erzeugen.
1164 SdrObject* OOle2Obj::Clone() const
1165 {
1166     OOle2Obj* pObj = static_cast<OOle2Obj*>(SdrOle2Obj::Clone());
1167     OReportModel* pRptModel = static_cast<OReportModel*>(GetModel());
1168     svt::EmbeddedObjectRef::TryRunningState( pObj->GetObjRef() );
1169     pObj->impl_createDataProvider_nothrow(pRptModel->getReportDefinition().get());
1170
1171     uno::Reference< chart2::data::XDatabaseDataProvider > xSource( lcl_getDataProvider(GetObjRef()) );
1172     uno::Reference< chart2::data::XDatabaseDataProvider > xDest( lcl_getDataProvider(pObj->GetObjRef()) );
1173     if ( xSource.is() && xDest.is() )
1174         comphelper::copyProperties(xSource.get(),xDest.get());
1175
1176     pObj->initializeChart(pRptModel->getReportDefinition().get());
1177     return pObj;
1178 }
1179 // -----------------------------------------------------------------------------
1180 void OOle2Obj::impl_createDataProvider_nothrow(const uno::Reference< frame::XModel>& _xModel)
1181 {
1182     try
1183     {
1184         uno::Reference < embed::XEmbeddedObject > xObj = GetObjRef();
1185         uno::Reference< chart2::data::XDataReceiver > xReceiver;
1186         uno::Reference< embed::XComponentSupplier > xCompSupp( xObj, uno::UNO_QUERY );
1187         if( xCompSupp.is())
1188             xReceiver.set( xCompSupp->getComponent(), uno::UNO_QUERY );
1189         OSL_ASSERT( xReceiver.is());
1190         if( xReceiver.is() )
1191         {
1192             uno::Reference< lang::XMultiServiceFactory> xFac(_xModel,uno::UNO_QUERY);
1193             uno::Reference< chart2::data::XDatabaseDataProvider > xDataProvider( xFac->createInstance(::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("com.sun.star.chart2.data.DataProvider"))),uno::UNO_QUERY);
1194             xReceiver->attachDataProvider( xDataProvider.get() );
1195         } // if( xReceiver.is() )
1196     }
1197     catch(uno::Exception)
1198     {
1199     }
1200 }
1201 // -----------------------------------------------------------------------------
1202 void OOle2Obj::initializeOle()
1203 {
1204     if ( m_bOnlyOnce )
1205     {
1206         m_bOnlyOnce = false;
1207         uno::Reference < embed::XEmbeddedObject > xObj = GetObjRef();
1208         OReportModel* pRptModel = static_cast<OReportModel*>(GetModel());
1209         pRptModel->GetUndoEnv().AddElement(lcl_getDataProvider(xObj));
1210
1211         uno::Reference< embed::XComponentSupplier > xCompSupp( xObj, uno::UNO_QUERY );
1212         if( xCompSupp.is() )
1213         {
1214             uno::Reference< beans::XPropertySet > xChartProps( xCompSupp->getComponent(), uno::UNO_QUERY );
1215             if ( xChartProps.is() )
1216                 xChartProps->setPropertyValue(::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("NullDate")),uno::makeAny(util::DateTime(0,0,0,0,1,1,1900)));
1217         }
1218     }
1219 }
1220 // -----------------------------------------------------------------------------
1221 void OOle2Obj::initializeChart( const uno::Reference< frame::XModel>& _xModel)
1222 {
1223     uno::Reference < embed::XEmbeddedObject > xObj = GetObjRef();
1224     uno::Reference< chart2::data::XDataReceiver > xReceiver;
1225     uno::Reference< embed::XComponentSupplier > xCompSupp( xObj, uno::UNO_QUERY );
1226     if( xCompSupp.is())
1227         xReceiver.set( xCompSupp->getComponent(), uno::UNO_QUERY );
1228     OSL_ASSERT( xReceiver.is());
1229     if( xReceiver.is() )
1230     {
1231         // lock the model to suppress any internal updates
1232         uno::Reference< frame::XModel > xChartModel( xReceiver, uno::UNO_QUERY );
1233         if( xChartModel.is() )
1234             xChartModel->lockControllers();
1235
1236         if ( !lcl_getDataProvider(xObj).is() )
1237             impl_createDataProvider_nothrow(_xModel);
1238
1239         OReportModel* pRptModel = static_cast<OReportModel*>(GetModel());
1240         pRptModel->GetUndoEnv().AddElement(lcl_getDataProvider(xObj));
1241
1242         uno::Sequence< beans::PropertyValue > aArgs( 4 );
1243         aArgs[0] = beans::PropertyValue(
1244             ::rtl::OUString::createFromAscii("CellRangeRepresentation"), -1,
1245             uno::makeAny( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("all")) ), beans::PropertyState_DIRECT_VALUE );
1246         aArgs[1] = beans::PropertyValue(
1247             ::rtl::OUString::createFromAscii("HasCategories"), -1,
1248             uno::makeAny( sal_True ), beans::PropertyState_DIRECT_VALUE );
1249         aArgs[2] = beans::PropertyValue(
1250             ::rtl::OUString::createFromAscii("FirstCellAsLabel"), -1,
1251             uno::makeAny( sal_True ), beans::PropertyState_DIRECT_VALUE );
1252         aArgs[3] = beans::PropertyValue(
1253             ::rtl::OUString::createFromAscii("DataRowSource"), -1,
1254             uno::makeAny( chart::ChartDataRowSource_COLUMNS ), beans::PropertyState_DIRECT_VALUE );
1255         xReceiver->setArguments( aArgs );
1256
1257         if( xChartModel.is() )
1258             xChartModel->unlockControllers();
1259     }
1260 }
1261 // -----------------------------------------------------------------------------
1262 uno::Reference< style::XStyle> getUsedStyle(const uno::Reference< report::XReportDefinition>& _xReport)
1263 {
1264     uno::Reference<container::XNameAccess> xStyles = _xReport->getStyleFamilies();
1265     uno::Reference<container::XNameAccess> xPageStyles(xStyles->getByName(::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("PageStyles"))),uno::UNO_QUERY);
1266
1267     uno::Reference< style::XStyle> xReturn;
1268     uno::Sequence< ::rtl::OUString> aSeq = xPageStyles->getElementNames();
1269     const ::rtl::OUString* pIter = aSeq.getConstArray();
1270     const ::rtl::OUString* pEnd   = pIter + aSeq.getLength();
1271     for(;pIter != pEnd && !xReturn.is() ;++pIter)
1272     {
1273         uno::Reference< style::XStyle> xStyle(xPageStyles->getByName(*pIter),uno::UNO_QUERY);
1274         if ( xStyle->isInUse() )
1275             xReturn = xStyle;
1276     }
1277     return xReturn;
1278 }
1279 //----------------------------------------------------------------------------
1280 //============================================================================
1281 } // rptui
1282 //============================================================================