toolkit/source/controls/dialogcontrol.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
  21 #include <vcl/svapp.hxx>
  22 #include <vcl/window.hxx>
  23 #include <vcl/wall.hxx>
  24 #include <osl/mutex.hxx>
  25 #include <toolkit/controls/dialogcontrol.hxx>
  26 #include <toolkit/helper/property.hxx>
  27 #include <toolkit/helper/unopropertyarrayhelper.hxx>
  28 #include <toolkit/controls/stdtabcontroller.hxx>
  29 #include <com/sun/star/awt/PosSize.hpp>
  30 #include <com/sun/star/awt/WindowAttribute.hpp>
  31 #include <com/sun/star/resource/XStringResourceResolver.hpp>
  32 #include <com/sun/star/graphic/XGraphicProvider.hpp>
  33 #include <cppuhelper/typeprovider.hxx>
  34 #include <tools/debug.hxx>
  35 #include <tools/diagnose_ex.h>
  36 #include <comphelper/sequence.hxx>
  37 #include <vcl/outdev.hxx>
  38
  39 #include <toolkit/helper/vclunohelper.hxx>
  40 #include <unotools/ucbstreamhelper.hxx>
  41 #include <vcl/graph.hxx>
  42 #include <vcl/image.hxx>
  43 #include <map>
  44 #include <boost/unordered_map.hpp>
  45 #include <cppuhelper/implbase1.hxx>
  46 #include <algorithm>
  47 #include <functional>
  48 #include "osl/file.hxx"
  49
  50 #include <vcl/tabctrl.hxx>
  51 #include <toolkit/awt/vclxwindows.hxx>
  52 #include "toolkit/controls/unocontrols.hxx"
  53
  54 using namespace ::com::sun::star;
  55 using namespace ::com::sun::star::uno;
  56 using namespace ::com::sun::star::awt;
  57 using namespace ::com::sun::star::lang;
  58 using namespace ::com::sun::star::container;
  59 using namespace ::com::sun::star::beans;
  60 using namespace ::com::sun::star::util;
  61
  62 #define PROPERTY_DIALOGSOURCEURL OUString( "DialogSourceURL" )
  63 #define PROPERTY_IMAGEURL OUString( "ImageURL" )
  64 #define PROPERTY_GRAPHIC OUString( "Graphic" )
  65 //
  66
  67 // we probably will need both a hash of control models and hash of controls
  68 // => use some template magic
  69
  70 typedef ::cppu::WeakImplHelper1< container::XNameContainer > SimpleNameContainer_BASE;
  71
  72 template< typename T >
  73 class SimpleNamedThingContainer : public SimpleNameContainer_BASE
  74 {
  75     typedef boost::unordered_map< OUString, Reference< T >, OUStringHash,
  76        ::std::equal_to< OUString > > NamedThingsHash;
  77     NamedThingsHash things;
  78     ::osl::Mutex m_aMutex;
  79 public:
  80     // ::com::sun::star::container::XNameContainer, XNameReplace, XNameAccess
  81     virtual void SAL_CALL replaceByName( const OUString& aName, const Any& aElement ) throw(IllegalArgumentException, NoSuchElementException, WrappedTargetException, RuntimeException)
  82     {
  83         ::osl::MutexGuard aGuard( m_aMutex );
  84         if ( !hasByName( aName ) )
  85             throw NoSuchElementException();
  86         Reference< T > xElement;
  87         if ( ! ( aElement >>= xElement ) )
  88             throw IllegalArgumentException();
  89         things[ aName ] = xElement;
  90     }
  91     virtual Any SAL_CALL getByName( const OUString& aName ) throw(NoSuchElementException, WrappedTargetException, RuntimeException)
  92     {
  93         ::osl::MutexGuard aGuard( m_aMutex );
  94         if ( !hasByName( aName ) )
  95             throw NoSuchElementException();
  96         return uno::makeAny( things[ aName ] );
  97     }
  98     virtual Sequence< OUString > SAL_CALL getElementNames(  ) throw(RuntimeException)
  99     {
 100         ::osl::MutexGuard aGuard( m_aMutex );
 101         Sequence< OUString > aResult( things.size() );
 102         typename NamedThingsHash::iterator it = things.begin();
 103         typename NamedThingsHash::iterator it_end = things.end();
 104         OUString* pName = aResult.getArray();
 105         for (; it != it_end; ++it, ++pName )
 106             *pName = it->first;
 107         return aResult;
 108     }
 109     virtual sal_Bool SAL_CALL hasByName( const OUString& aName ) throw(RuntimeException)
 110     {
 111         ::osl::MutexGuard aGuard( m_aMutex );
 112         return ( things.find( aName ) != things.end() );
 113     }
 114     virtual void SAL_CALL insertByName( const OUString& aName, const Any& aElement ) throw(IllegalArgumentException, ElementExistException, WrappedTargetException, RuntimeException)
 115     {
 116         ::osl::MutexGuard aGuard( m_aMutex );
 117         if ( hasByName( aName ) )
 118             throw ElementExistException();
 119         Reference< T > xElement;
 120         if ( ! ( aElement >>= xElement ) )
 121             throw IllegalArgumentException();
 122         things[ aName ] = xElement;
 123     }
 124     virtual void SAL_CALL removeByName( const OUString& aName ) throw(NoSuchElementException, WrappedTargetException, RuntimeException)
 125     {
 126         ::osl::MutexGuard aGuard( m_aMutex );
 127         if ( !hasByName( aName ) )
 128             throw NoSuchElementException();
 129         things.erase( things.find( aName ) );
 130     }
 131     virtual Type SAL_CALL getElementType(  ) throw (RuntimeException)
 132     {
 133         return T::static_type( NULL );
 134     }
 135     virtual ::sal_Bool SAL_CALL hasElements(  ) throw (RuntimeException)
 136     {
 137         ::osl::MutexGuard aGuard( m_aMutex );
 138         return ( things.size() > 0 );
 139     }
 140 };
 141
 142 ////HELPER
 143 OUString getPhysicalLocation( const ::com::sun::star::uno::Any& rbase, const ::com::sun::star::uno::Any& rUrl );
 144
 145 //  ----------------------------------------------------
 146 //  class UnoControlDialogModel
 147 //  ----------------------------------------------------
 148 UnoControlDialogModel::UnoControlDialogModel( const Reference< XComponentContext >& rxContext )
 149     :ControlModelContainerBase( rxContext )
 150 {
 151     ImplRegisterProperty( BASEPROPERTY_BACKGROUNDCOLOR );
 152 //  ImplRegisterProperty( BASEPROPERTY_BORDER );
 153     ImplRegisterProperty( BASEPROPERTY_DEFAULTCONTROL );
 154     ImplRegisterProperty( BASEPROPERTY_ENABLED );
 155     ImplRegisterProperty( BASEPROPERTY_FONTDESCRIPTOR );
 156 //  ImplRegisterProperty( BASEPROPERTY_PRINTABLE );
 157     ImplRegisterProperty( BASEPROPERTY_HELPTEXT );
 158     ImplRegisterProperty( BASEPROPERTY_HELPURL );
 159     ImplRegisterProperty( BASEPROPERTY_TITLE );
 160     ImplRegisterProperty( BASEPROPERTY_SIZEABLE );
 161     ImplRegisterProperty( BASEPROPERTY_DESKTOP_AS_PARENT );
 162     ImplRegisterProperty( BASEPROPERTY_DECORATION );
 163     ImplRegisterProperty( BASEPROPERTY_DIALOGSOURCEURL );
 164     ImplRegisterProperty( BASEPROPERTY_GRAPHIC );
 165     ImplRegisterProperty( BASEPROPERTY_IMAGEURL );
 166     ImplRegisterProperty( BASEPROPERTY_HSCROLL );
 167     ImplRegisterProperty( BASEPROPERTY_VSCROLL );
 168     ImplRegisterProperty( BASEPROPERTY_SCROLLWIDTH );
 169     ImplRegisterProperty( BASEPROPERTY_SCROLLHEIGHT );
 170     ImplRegisterProperty( BASEPROPERTY_SCROLLTOP );
 171     ImplRegisterProperty( BASEPROPERTY_SCROLLLEFT );
 172
 173     Any aBool;
 174     aBool <<= (sal_Bool) sal_True;
 175     ImplRegisterProperty( BASEPROPERTY_MOVEABLE, aBool );
 176     ImplRegisterProperty( BASEPROPERTY_CLOSEABLE, aBool );
 177     // #TODO separate class for 'UserForm' ( instead of re-using Dialog ? )
 178     uno::Reference< XNameContainer > xNameCont = new SimpleNamedThingContainer< XControlModel >();
 179     ImplRegisterProperty( BASEPROPERTY_USERFORMCONTAINEES, uno::makeAny( xNameCont ) );
 180 }
 181
 182 UnoControlDialogModel::UnoControlDialogModel( const UnoControlDialogModel& rModel )
 183     : ControlModelContainerBase( rModel )
 184 {
 185     // need to clone BASEPROPERTY_USERFORMCONTAINEES too
 186     Reference< XNameContainer > xSrcNameCont( const_cast< UnoControlDialogModel& >(rModel).getPropertyValue( GetPropertyName( BASEPROPERTY_USERFORMCONTAINEES ) ), UNO_QUERY );
 187     Reference<XNameContainer > xNameCont( new SimpleNamedThingContainer< XControlModel >() );
 188
 189     uno::Sequence< OUString > sNames = xSrcNameCont->getElementNames();
 190     OUString* pName = sNames.getArray();
 191     OUString* pNamesEnd = pName + sNames.getLength();
 192     for ( ; pName != pNamesEnd; ++pName )
 193     {
 194         if ( xSrcNameCont->hasByName( *pName ) )
 195             xNameCont->insertByName( *pName, xSrcNameCont->getByName( *pName ) );
 196     }
 197     setFastPropertyValue_NoBroadcast( BASEPROPERTY_USERFORMCONTAINEES, makeAny( xNameCont ) );
 198 }
 199
 200 UnoControlDialogModel::~UnoControlDialogModel()
 201 {
 202 }
 203
 204 UnoControlModel* UnoControlDialogModel::Clone() const
 205 {
 206     // clone the container itself
 207     UnoControlDialogModel* pClone = new UnoControlDialogModel( *this );
 208
 209     Clone_Impl(*pClone);
 210
 211     return pClone;
 212 }
 213
 214
 215 OUString UnoControlDialogModel::getServiceName( ) throw(RuntimeException)
 216 {
 217     return OUString::createFromAscii( szServiceName_UnoControlDialogModel );
 218 }
 219
 220 Any UnoControlDialogModel::ImplGetDefaultValue( sal_uInt16 nPropId ) const
 221 {
 222     Any aAny;
 223
 224     switch ( nPropId )
 225     {
 226         case BASEPROPERTY_DEFAULTCONTROL:
 227             aAny <<= OUString::createFromAscii( szServiceName_UnoControlDialog );
 228             break;
 229         case BASEPROPERTY_SCROLLWIDTH:
 230         case BASEPROPERTY_SCROLLHEIGHT:
 231         case BASEPROPERTY_SCROLLTOP:
 232         case BASEPROPERTY_SCROLLLEFT:
 233             aAny <<= sal_Int32(0);
 234             break;
 235         default:
 236             aAny = UnoControlModel::ImplGetDefaultValue( nPropId );
 237     }
 238
 239     return aAny;
 240 }
 241
 242 ::cppu::IPropertyArrayHelper& UnoControlDialogModel::getInfoHelper()
 243 {
 244     static UnoPropertyArrayHelper* pHelper = NULL;
 245     if ( !pHelper )
 246     {
 247         Sequence<sal_Int32> aIDs = ImplGetPropertyIds();
 248         pHelper = new UnoPropertyArrayHelper( aIDs );
 249     }
 250     return *pHelper;
 251 }
 252
 253 // XMultiPropertySet
 254 Reference< XPropertySetInfo > UnoControlDialogModel::getPropertySetInfo(  ) throw(RuntimeException)
 255 {
 256     static Reference< XPropertySetInfo > xInfo( createPropertySetInfo( getInfoHelper() ) );
 257     return xInfo;
 258 }
 259
 260 void SAL_CALL UnoControlDialogModel::setFastPropertyValue_NoBroadcast( sal_Int32 nHandle, const ::com::sun::star::uno::Any& rValue ) throw (::com::sun::star::uno::Exception)
 261 {
 262     ControlModelContainerBase::setFastPropertyValue_NoBroadcast( nHandle, rValue );
 263     try
 264     {
 265         if ( nHandle == BASEPROPERTY_IMAGEURL && ImplHasProperty( BASEPROPERTY_GRAPHIC ) )
 266         {
 267             OUString sImageURL;
 268             OSL_VERIFY( rValue >>= sImageURL );
 269             setPropertyValue( GetPropertyName( BASEPROPERTY_GRAPHIC ), uno::makeAny( ImageHelper::getGraphicAndGraphicObjectFromURL_nothrow( mxGrfObj, sImageURL ) ) );
 270         }
 271     }
 272     catch( const ::com::sun::star::uno::Exception& )
 273     {
 274         OSL_ENSURE( sal_False, "UnoControlDialogModel::setFastPropertyValue_NoBroadcast: caught an exception while setting ImageURL properties!" );
 275     }
 276 }
 277 // ============================================================================
 278 // = class UnoDialogControl
 279 // ============================================================================
 280
 281 UnoDialogControl::UnoDialogControl( const uno::Reference< uno::XComponentContext >& rxContext )
 282     :UnoDialogControl_Base( rxContext )
 283     ,maTopWindowListeners( *this )
 284     ,mbWindowListener(false)
 285 {
 286     maComponentInfos.nWidth = 300;
 287     maComponentInfos.nHeight = 450;
 288  }
 289
 290 UnoDialogControl::~UnoDialogControl()
 291 {
 292 }
 293
 294 OUString UnoDialogControl::GetComponentServiceName()
 295 {
 296
 297     sal_Bool bDecoration( sal_True );
 298     ImplGetPropertyValue( GetPropertyName( BASEPROPERTY_DECORATION )) >>= bDecoration;
 299     if ( bDecoration )
 300         return OUString("Dialog");
 301     else
 302         return OUString("TabPage");
 303 }
 304
 305 void UnoDialogControl::dispose() throw(RuntimeException)
 306 {
 307     SolarMutexGuard aGuard;
 308
 309     EventObject aEvt;
 310     aEvt.Source = static_cast< ::cppu::OWeakObject* >( this );
 311     maTopWindowListeners.disposeAndClear( aEvt );
 312     ControlContainerBase::dispose();
 313 }
 314
 315 void SAL_CALL UnoDialogControl::disposing(
 316     const EventObject& Source )
 317 throw(RuntimeException)
 318 {
 319     ControlContainerBase::disposing( Source );
 320 }
 321
 322 sal_Bool UnoDialogControl::setModel( const Reference< XControlModel >& rxModel ) throw(RuntimeException)
 323 {
 324         // #Can we move all the Resource stuff to the ControlContainerBase ?
 325     SolarMutexGuard aGuard;
 326         sal_Bool bRet = ControlContainerBase::setModel( rxModel );
 327     ImplStartListingForResourceEvents();
 328     return bRet;
 329 }
 330
 331 void UnoDialogControl::createPeer( const Reference< XToolkit > & rxToolkit, const Reference< XWindowPeer >  & rParentPeer ) throw(RuntimeException)
 332 {
 333     SolarMutexGuard aGuard;
 334
 335     UnoControlContainer::createPeer( rxToolkit, rParentPeer );
 336
 337     Reference < XTopWindow > xTW( getPeer(), UNO_QUERY );
 338     if ( xTW.is() )
 339     {
 340         xTW->setMenuBar( mxMenuBar );
 341
 342         if ( !mbWindowListener )
 343         {
 344             Reference< XWindowListener > xWL( static_cast< cppu::OWeakObject*>( this ), UNO_QUERY );
 345             addWindowListener( xWL );
 346             mbWindowListener = true;
 347         }
 348
 349         if ( maTopWindowListeners.getLength() )
 350             xTW->addTopWindowListener( &maTopWindowListeners );
 351         // there must be a better way than doing this, we can't
 352         // process the scrolltop & scrollleft in XDialog because
 353         // the children haven't been added when those props are applied
 354         ImplSetPeerProperty( GetPropertyName( BASEPROPERTY_SCROLLTOP ), ImplGetPropertyValue( GetPropertyName( BASEPROPERTY_SCROLLTOP ) ) );
 355         ImplSetPeerProperty( GetPropertyName( BASEPROPERTY_SCROLLLEFT ), ImplGetPropertyValue( GetPropertyName( BASEPROPERTY_SCROLLLEFT ) ) );
 356
 357     }
 358 }
 359
 360 void UnoDialogControl::PrepareWindowDescriptor( ::com::sun::star::awt::WindowDescriptor& rDesc )
 361 {
 362     UnoControlContainer::PrepareWindowDescriptor( rDesc );
 363     sal_Bool bDecoration( sal_True );
 364     ImplGetPropertyValue( GetPropertyName( BASEPROPERTY_DECORATION )) >>= bDecoration;
 365     if ( !bDecoration )
 366     {
 367         // Now we have to manipulate the WindowDescriptor
 368         rDesc.WindowAttributes = rDesc.WindowAttributes | ::com::sun::star::awt::WindowAttribute::NODECORATION;
 369     }
 370
 371     // We have to set the graphic property before the peer
 372     // will be created. Otherwise the properties will be copied
 373     // into the peer via propertiesChangeEvents. As the order of
 374     // can lead to overwrites we have to set the graphic property
 375     // before the propertiesChangeEvents are sent!
 376     OUString aImageURL;
 377     Reference< graphic::XGraphic > xGraphic;
 378     if (( ImplGetPropertyValue( PROPERTY_IMAGEURL ) >>= aImageURL ) &&
 379         ( !aImageURL.isEmpty() ))
 380     {
 381         OUString absoluteUrl = aImageURL;
 382         if ( !aImageURL.startsWith( UNO_NAME_GRAPHOBJ_URLPREFIX ) )
 383             absoluteUrl = getPhysicalLocation( ImplGetPropertyValue( PROPERTY_DIALOGSOURCEURL ),
 384                                  uno::makeAny( aImageURL ) );
 385
 386         xGraphic = ImageHelper::getGraphicFromURL_nothrow( absoluteUrl );
 387         ImplSetPropertyValue( PROPERTY_GRAPHIC, uno::makeAny( xGraphic ), sal_True );
 388     }
 389 }
 390
 391 void UnoDialogControl::addTopWindowListener( const Reference< XTopWindowListener >& rxListener ) throw (RuntimeException)
 392 {
 393     maTopWindowListeners.addInterface( rxListener );
 394     if( getPeer().is() && maTopWindowListeners.getLength() == 1 )
 395     {
 396         Reference < XTopWindow >  xTW( getPeer(), UNO_QUERY );
 397         xTW->addTopWindowListener( &maTopWindowListeners );
 398     }
 399 }
 400
 401 void UnoDialogControl::removeTopWindowListener( const Reference< XTopWindowListener >& rxListener ) throw (RuntimeException)
 402 {
 403     if( getPeer().is() && maTopWindowListeners.getLength() == 1 )
 404     {
 405         Reference < XTopWindow >  xTW( getPeer(), UNO_QUERY );
 406         xTW->removeTopWindowListener( &maTopWindowListeners );
 407     }
 408     maTopWindowListeners.removeInterface( rxListener );
 409 }
 410
 411 void UnoDialogControl::toFront(  ) throw (RuntimeException)
 412 {
 413     SolarMutexGuard aGuard;
 414     if ( getPeer().is() )
 415     {
 416         Reference< XTopWindow > xTW( getPeer(), UNO_QUERY );
 417         if( xTW.is() )
 418             xTW->toFront();
 419     }
 420 }
 421
 422 void UnoDialogControl::toBack(  ) throw (RuntimeException)
 423 {
 424     SolarMutexGuard aGuard;
 425     if ( getPeer().is() )
 426     {
 427         Reference< XTopWindow > xTW( getPeer(), UNO_QUERY );
 428         if( xTW.is() )
 429             xTW->toBack();
 430     }
 431 }
 432
 433 void UnoDialogControl::setMenuBar( const Reference< XMenuBar >& rxMenuBar ) throw (RuntimeException)
 434 {
 435     SolarMutexGuard aGuard;
 436     mxMenuBar = rxMenuBar;
 437     if ( getPeer().is() )
 438     {
 439         Reference< XTopWindow > xTW( getPeer(), UNO_QUERY );
 440         if( xTW.is() )
 441             xTW->setMenuBar( mxMenuBar );
 442     }
 443 }
 444 static ::Size ImplMapPixelToAppFont( OutputDevice* pOutDev, const ::Size& aSize )
 445 {
 446     ::Size aTmp = pOutDev->PixelToLogic( aSize, MAP_APPFONT );
 447     return aTmp;
 448 }
 449 // ::com::sun::star::awt::XWindowListener
 450 void SAL_CALL UnoDialogControl::windowResized( const ::com::sun::star::awt::WindowEvent& e )
 451 throw (::com::sun::star::uno::RuntimeException)
 452 {
 453     OutputDevice*pOutDev = Application::GetDefaultDevice();
 454     DBG_ASSERT( pOutDev, "Missing Default Device!" );
 455     if ( pOutDev && !mbSizeModified )
 456     {
 457         // Currentley we are simply using MAP_APPFONT
 458         ::Size aAppFontSize( e.Width, e.Height );
 459
 460         Reference< XControl > xDialogControl( *this, UNO_QUERY_THROW );
 461         Reference< XDevice > xDialogDevice( xDialogControl->getPeer(), UNO_QUERY );
 462         OSL_ENSURE( xDialogDevice.is(), "UnoDialogControl::windowResized: no peer, but a windowResized event?" );
 463
 464         // #i87592 In design mode the drawing layer works with sizes with decoration.
 465         // Therefore we have to substract them before writing back to the properties (model).
 466         if ( xDialogDevice.is() && mbDesignMode )
 467         {
 468             DeviceInfo aDeviceInfo( xDialogDevice->getInfo() );
 469             aAppFontSize.Width() -= aDeviceInfo.LeftInset + aDeviceInfo.RightInset;
 470             aAppFontSize.Height() -= aDeviceInfo.TopInset + aDeviceInfo.BottomInset;
 471         }
 472
 473         aAppFontSize = ImplMapPixelToAppFont( pOutDev, aAppFontSize );
 474
 475         // Remember that changes have been done by listener. No need to
 476         // update the position because of property change event.
 477         mbSizeModified = true;
 478         Sequence< OUString > aProps( 2 );
 479         Sequence< Any > aValues( 2 );
 480         // Properties in a sequence must be sorted!
 481         aProps[0] = OUString( "Height" );
 482         aProps[1] = OUString( "Width" );
 483         aValues[0] <<= aAppFontSize.Height();
 484         aValues[1] <<= aAppFontSize.Width();
 485
 486         ImplSetPropertyValues( aProps, aValues, true );
 487         mbSizeModified = false;
 488     }
 489 }
 490
 491 void SAL_CALL UnoDialogControl::windowMoved( const ::com::sun::star::awt::WindowEvent& e )
 492 throw (::com::sun::star::uno::RuntimeException)
 493 {
 494     OutputDevice*pOutDev = Application::GetDefaultDevice();
 495     DBG_ASSERT( pOutDev, "Missing Default Device!" );
 496     if ( pOutDev && !mbPosModified )
 497     {
 498         // Currentley we are simply using MAP_APPFONT
 499         Any    aAny;
 500         ::Size aTmp( e.X, e.Y );
 501         aTmp = ImplMapPixelToAppFont( pOutDev, aTmp );
 502
 503         // Remember that changes have been done by listener. No need to
 504         // update the position because of property change event.
 505         mbPosModified = true;
 506         Sequence< OUString > aProps( 2 );
 507         Sequence< Any > aValues( 2 );
 508         aProps[0] = OUString( "PositionX" );
 509         aProps[1] = OUString( "PositionY" );
 510         aValues[0] <<= aTmp.Width();
 511         aValues[1] <<= aTmp.Height();
 512
 513         ImplSetPropertyValues( aProps, aValues, true );
 514         mbPosModified = false;
 515     }
 516 }
 517
 518 void SAL_CALL UnoDialogControl::windowShown( const EventObject& e ) throw (RuntimeException)
 519 {
 520     (void)e;
 521 }
 522
 523 void SAL_CALL UnoDialogControl::windowHidden( const EventObject& e ) throw (RuntimeException)
 524 {
 525     (void)e;
 526 }
 527
 528 void SAL_CALL UnoDialogControl::endDialog( ::sal_Int32 i_result ) throw (RuntimeException)
 529 {
 530     Reference< XDialog2 > xPeerDialog( getPeer(), UNO_QUERY );
 531     if ( xPeerDialog.is() )
 532         xPeerDialog->endDialog( i_result );
 533 }
 534
 535 void SAL_CALL UnoDialogControl::setHelpId( const OUString& i_id ) throw (RuntimeException)
 536 {
 537     Reference< XDialog2 > xPeerDialog( getPeer(), UNO_QUERY );
 538     if ( xPeerDialog.is() )
 539         xPeerDialog->setHelpId( i_id );
 540 }
 541
 542 void UnoDialogControl::setTitle( const OUString& Title ) throw(RuntimeException)
 543 {
 544     SolarMutexGuard aGuard;
 545     Any aAny;
 546     aAny <<= Title;
 547     ImplSetPropertyValue( GetPropertyName( BASEPROPERTY_TITLE ), aAny, sal_True );
 548 }
 549
 550 OUString UnoDialogControl::getTitle() throw(RuntimeException)
 551 {
 552     SolarMutexGuard aGuard;
 553     return ImplGetPropertyValue_UString( BASEPROPERTY_TITLE );
 554 }
 555
 556 sal_Int16 UnoDialogControl::execute() throw(RuntimeException)
 557 {
 558     SolarMutexGuard aGuard;
 559     sal_Int16 nDone = -1;
 560     if ( getPeer().is() )
 561     {
 562         Reference< XDialog > xDlg( getPeer(), UNO_QUERY );
 563         if( xDlg.is() )
 564         {
 565             GetComponentInfos().bVisible = sal_True;
 566             nDone = xDlg->execute();
 567             GetComponentInfos().bVisible = sal_False;
 568         }
 569     }
 570     return nDone;
 571 }
 572
 573 void UnoDialogControl::endExecute() throw(RuntimeException)
 574 {
 575     SolarMutexGuard aGuard;
 576     if ( getPeer().is() )
 577     {
 578         Reference< XDialog > xDlg( getPeer(), UNO_QUERY );
 579         if( xDlg.is() )
 580         {
 581             xDlg->endExecute();
 582             GetComponentInfos().bVisible = sal_False;
 583         }
 584     }
 585 }
 586
 587 // XModifyListener
 588 void SAL_CALL UnoDialogControl::modified(
 589     const lang::EventObject& /*rEvent*/ )
 590 throw (RuntimeException)
 591 {
 592     ImplUpdateResourceResolver();
 593 }
 594
 595 void UnoDialogControl::ImplModelPropertiesChanged( const Sequence< PropertyChangeEvent >& rEvents ) throw(RuntimeException)
 596 {
 597     sal_Int32 nLen = rEvents.getLength();
 598     for( sal_Int32 i = 0; i < nLen; i++ )
 599     {
 600         const PropertyChangeEvent& rEvt = rEvents.getConstArray()[i];
 601         Reference< XControlModel > xModel( rEvt.Source, UNO_QUERY );
 602         sal_Bool bOwnModel = (XControlModel*)xModel.get() == (XControlModel*)getModel().get();
 603         if ( bOwnModel && rEvt.PropertyName.equalsAsciiL( "ImageURL", 8 ))
 604         {
 605             OUString aImageURL;
 606             Reference< graphic::XGraphic > xGraphic;
 607             if (( ImplGetPropertyValue( GetPropertyName( BASEPROPERTY_IMAGEURL ) ) >>= aImageURL ) &&
 608                 ( !aImageURL.isEmpty() ))
 609             {
 610                 OUString absoluteUrl = aImageURL;
 611                 if ( !aImageURL.startsWith( UNO_NAME_GRAPHOBJ_URLPREFIX ) )
 612
 613                     absoluteUrl = getPhysicalLocation( ImplGetPropertyValue( GetPropertyName( BASEPROPERTY_DIALOGSOURCEURL )),
 614                                          uno::makeAny(aImageURL));
 615
 616                 xGraphic = ImageHelper::getGraphicFromURL_nothrow( absoluteUrl );
 617             }
 618             ImplSetPropertyValue(  GetPropertyName( BASEPROPERTY_GRAPHIC), uno::makeAny( xGraphic ), sal_True );
 619             break;
 620         }
 621     }
 622     ControlContainerBase::ImplModelPropertiesChanged(rEvents);
 623 }
 624
 625 //  ----------------------------------------------------
 626 //  class MultiPageControl
 627 //  ----------------------------------------------------
 628 UnoMultiPageControl::UnoMultiPageControl( const uno::Reference< uno::XComponentContext >& rxContext ) : ControlContainerBase(rxContext), maTabListeners( *this )
 629 {
 630     maComponentInfos.nWidth = 280;
 631     maComponentInfos.nHeight = 400;
 632 }
 633
 634 UnoMultiPageControl::~UnoMultiPageControl()
 635 {
 636 }
 637 // XTabListener
 638
 639 void SAL_CALL UnoMultiPageControl::inserted( SAL_UNUSED_PARAMETER ::sal_Int32 ) throw (RuntimeException)
 640 {
 641 }
 642 void SAL_CALL UnoMultiPageControl::removed( SAL_UNUSED_PARAMETER ::sal_Int32 ) throw (RuntimeException)
 643 {
 644 }
 645 void SAL_CALL UnoMultiPageControl::changed( SAL_UNUSED_PARAMETER ::sal_Int32,
 646                                             SAL_UNUSED_PARAMETER const Sequence< NamedValue >& ) throw (RuntimeException)
 647 {
 648 }
 649 void SAL_CALL UnoMultiPageControl::activated( ::sal_Int32 ID ) throw (RuntimeException)
 650 {
 651     ImplSetPropertyValue( GetPropertyName( BASEPROPERTY_MULTIPAGEVALUE ), uno::makeAny( ID ), sal_False );
 652
 653 }
 654 void SAL_CALL UnoMultiPageControl::deactivated( SAL_UNUSED_PARAMETER ::sal_Int32 ) throw (RuntimeException)
 655 {
 656 }
 657 void SAL_CALL UnoMultiPageControl::disposing(const EventObject&) throw (RuntimeException)
 658 {
 659 }
 660
 661 void SAL_CALL UnoMultiPageControl::dispose() throw (RuntimeException)
 662 {
 663     lang::EventObject aEvt;
 664     aEvt.Source = (::cppu::OWeakObject*)this;
 665     maTabListeners.disposeAndClear( aEvt );
 666     ControlContainerBase::dispose();
 667 }
 668
 669 // com::sun::star::awt::XSimpleTabController
 670 ::sal_Int32 SAL_CALL UnoMultiPageControl::insertTab() throw (RuntimeException)
 671 {
 672     Reference< XSimpleTabController > xMultiPage( getPeer(), UNO_QUERY );
 673     if ( !xMultiPage.is() )
 674         throw RuntimeException();
 675     return xMultiPage->insertTab();
 676 }
 677
 678 void SAL_CALL UnoMultiPageControl::removeTab( ::sal_Int32 ID ) throw (IndexOutOfBoundsException, RuntimeException)
 679 {
 680     Reference< XSimpleTabController > xMultiPage( getPeer(), UNO_QUERY );
 681     if ( !xMultiPage.is() )
 682         throw RuntimeException();
 683     xMultiPage->removeTab( ID );
 684 }
 685
 686 void SAL_CALL UnoMultiPageControl::setTabProps( ::sal_Int32 ID, const Sequence< NamedValue >& Properties ) throw (IndexOutOfBoundsException, RuntimeException)
 687 {
 688     Reference< XSimpleTabController > xMultiPage( getPeer(), UNO_QUERY );
 689     if ( !xMultiPage.is() )
 690         throw RuntimeException();
 691     xMultiPage->setTabProps( ID, Properties );
 692 }
 693
 694 Sequence< NamedValue > SAL_CALL UnoMultiPageControl::getTabProps( ::sal_Int32 ID ) throw (IndexOutOfBoundsException, RuntimeException)
 695 {
 696     Reference< XSimpleTabController > xMultiPage( getPeer(), UNO_QUERY );
 697     if ( !xMultiPage.is() )
 698         throw RuntimeException();
 699     return xMultiPage->getTabProps( ID );
 700 }
 701
 702 void SAL_CALL UnoMultiPageControl::activateTab( ::sal_Int32 ID ) throw (IndexOutOfBoundsException, RuntimeException)
 703 {
 704     Reference< XSimpleTabController > xMultiPage( getPeer(), UNO_QUERY );
 705     if ( !xMultiPage.is() )
 706         throw RuntimeException();
 707     xMultiPage->activateTab( ID );
 708     ImplSetPropertyValue( GetPropertyName( BASEPROPERTY_MULTIPAGEVALUE ), uno::makeAny( ID ), sal_True );
 709
 710 }
 711
 712 ::sal_Int32 SAL_CALL UnoMultiPageControl::getActiveTabID() throw (RuntimeException)
 713 {
 714     Reference< XSimpleTabController > xMultiPage( getPeer(), UNO_QUERY );
 715     if ( !xMultiPage.is() )
 716         throw RuntimeException();
 717     return xMultiPage->getActiveTabID();
 718 }
 719
 720 void SAL_CALL UnoMultiPageControl::addTabListener( const Reference< XTabListener >& Listener ) throw (RuntimeException)
 721 {
 722     maTabListeners.addInterface( Listener );
 723     Reference< XSimpleTabController > xMultiPage( getPeer(), UNO_QUERY );
 724     if ( xMultiPage.is()  && maTabListeners.getLength() == 1 )
 725         xMultiPage->addTabListener( &maTabListeners );
 726 }
 727
 728 void SAL_CALL UnoMultiPageControl::removeTabListener( const Reference< XTabListener >& Listener ) throw (RuntimeException)
 729 {
 730     Reference< XSimpleTabController > xMultiPage( getPeer(), UNO_QUERY );
 731     if ( xMultiPage.is()  && maTabListeners.getLength() == 1 )
 732         xMultiPage->removeTabListener( &maTabListeners );
 733     maTabListeners.removeInterface( Listener );
 734 }
 735
 736
 737 // lang::XTypeProvider
 738 IMPL_XTYPEPROVIDER_START( UnoMultiPageControl )
 739     getCppuType( ( uno::Reference< awt::XSimpleTabController>* ) NULL ),
 740     getCppuType( ( uno::Reference< awt::XTabListener>* ) NULL ),
 741     ControlContainerBase::getTypes()
 742 IMPL_XTYPEPROVIDER_END
 743
 744 // uno::XInterface
 745 uno::Any UnoMultiPageControl::queryAggregation( const uno::Type & rType ) throw(uno::RuntimeException)
 746 {
 747     uno::Any aRet = ::cppu::queryInterface( rType,
 748                                         (static_cast< awt::XTabListener* >(this)), (static_cast< awt::XSimpleTabController* >(this)) );
 749     return (aRet.hasValue() ? aRet : ControlContainerBase::queryAggregation( rType ));
 750 }
 751
 752 OUString UnoMultiPageControl::GetComponentServiceName()
 753 {
 754     sal_Bool bDecoration( sal_True );
 755     ImplGetPropertyValue( GetPropertyName( BASEPROPERTY_DECORATION )) >>= bDecoration;
 756     if ( bDecoration )
 757         return OUString("tabcontrol");
 758     // Hopefully we can tweak the tabcontrol to display without tabs
 759     return OUString("tabcontrolnotabs");
 760 }
 761
 762 void UnoMultiPageControl::bindPage( const uno::Reference< awt::XControl >& _rxControl )
 763 {
 764     uno::Reference< awt::XWindowPeer > xPage( _rxControl->getPeer() );
 765     uno::Reference< awt::XSimpleTabController > xTabCntrl( getPeer(), uno::UNO_QUERY );
 766     uno::Reference< beans::XPropertySet > xProps( _rxControl->getModel(), uno::UNO_QUERY );
 767
 768    VCLXTabPage* pXPage = dynamic_cast< VCLXTabPage* >( xPage.get() );
 769    TabPage* pPage = pXPage ? pXPage->getTabPage() : NULL;
 770     if ( xTabCntrl.is() && pPage )
 771     {
 772         VCLXMultiPage* pXTab = dynamic_cast< VCLXMultiPage* >( xTabCntrl.get() );
 773         if ( pXTab )
 774         {
 775             OUString sTitle;
 776             xProps->getPropertyValue( GetPropertyName( BASEPROPERTY_TITLE ) ) >>= sTitle;
 777             pXTab->insertTab( pPage, sTitle);
 778         }
 779     }
 780
 781 }
 782
 783 void UnoMultiPageControl::createPeer( const Reference< XToolkit > & rxToolkit, const Reference< XWindowPeer >  & rParentPeer ) throw(RuntimeException)
 784 {
 785     SolarMutexGuard aSolarGuard;
 786
 787     UnoControlContainer::createPeer( rxToolkit, rParentPeer );
 788
 789     uno::Sequence< uno::Reference< awt::XControl > > aCtrls = getControls();
 790     sal_uInt32 nCtrls = aCtrls.getLength();
 791     for( sal_uInt32 n = 0; n < nCtrls; n++ )
 792        bindPage( aCtrls[ n ] );
 793     sal_Int32 nActiveTab(0);
 794     Reference< XPropertySet > xMultiProps( getModel(), UNO_QUERY );
 795     xMultiProps->getPropertyValue( GetPropertyName( BASEPROPERTY_MULTIPAGEVALUE ) ) >>= nActiveTab;
 796
 797     uno::Reference< awt::XSimpleTabController > xTabCntrl( getPeer(), uno::UNO_QUERY );
 798     if ( xTabCntrl.is() )
 799     {
 800         xTabCntrl->addTabListener( this );
 801         if ( nActiveTab && nCtrls ) // Ensure peer is initialise with correct activated tab
 802         {
 803             xTabCntrl->activateTab( nActiveTab );
 804             ImplSetPropertyValue( GetPropertyName( BASEPROPERTY_MULTIPAGEVALUE ), uno::makeAny( nActiveTab ), sal_True );
 805         }
 806     }
 807 }
 808
 809 void    UnoMultiPageControl::impl_createControlPeerIfNecessary( const uno::Reference< awt::XControl >& _rxControl)
 810 {
 811     OSL_PRECOND( _rxControl.is(), "UnoMultiPageControl::impl_createControlPeerIfNecessary: invalid control, this will crash!" );
 812
 813     // if the container already has a peer, then also create a peer for the control
 814     uno::Reference< awt::XWindowPeer > xMyPeer( getPeer() );
 815
 816     if( xMyPeer.is() )
 817     {
 818         _rxControl->createPeer( NULL, xMyPeer );
 819         bindPage( _rxControl );
 820         ImplActivateTabControllers();
 821     }
 822
 823 }
 824
 825 // ------------- UnoMultiPageModel -----------------
 826
 827 UnoMultiPageModel::UnoMultiPageModel( const Reference< XComponentContext >& rxContext ) : ControlModelContainerBase( rxContext )
 828 {
 829     ImplRegisterProperty( BASEPROPERTY_DEFAULTCONTROL );
 830     ImplRegisterProperty( BASEPROPERTY_BACKGROUNDCOLOR );
 831     ImplRegisterProperty( BASEPROPERTY_ENABLEVISIBLE );
 832     ImplRegisterProperty( BASEPROPERTY_ENABLED );
 833
 834     ImplRegisterProperty( BASEPROPERTY_FONTDESCRIPTOR );
 835     ImplRegisterProperty( BASEPROPERTY_HELPTEXT );
 836     ImplRegisterProperty( BASEPROPERTY_HELPURL );
 837     ImplRegisterProperty( BASEPROPERTY_SIZEABLE );
 838     //ImplRegisterProperty( BASEPROPERTY_DIALOGSOURCEURL );
 839     ImplRegisterProperty( BASEPROPERTY_MULTIPAGEVALUE );
 840     ImplRegisterProperty( BASEPROPERTY_PRINTABLE );
 841     ImplRegisterProperty( BASEPROPERTY_USERFORMCONTAINEES );
 842
 843     Any aBool;
 844     aBool <<= (sal_Bool) sal_True;
 845     ImplRegisterProperty( BASEPROPERTY_MOVEABLE, aBool );
 846     ImplRegisterProperty( BASEPROPERTY_CLOSEABLE, aBool );
 847     ImplRegisterProperty( BASEPROPERTY_DECORATION, aBool );
 848     // MultiPage Control has the tab stop property. And the default value is True.
 849     ImplRegisterProperty( BASEPROPERTY_TABSTOP, aBool );
 850
 851     uno::Reference< XNameContainer > xNameCont = new SimpleNamedThingContainer< XControlModel >();
 852     ImplRegisterProperty( BASEPROPERTY_USERFORMCONTAINEES, uno::makeAny( xNameCont ) );
 853 }
 854
 855 UnoMultiPageModel::UnoMultiPageModel( const UnoMultiPageModel& rModel )
 856     : ControlModelContainerBase( rModel )
 857 {
 858 }
 859
 860 UnoMultiPageModel::~UnoMultiPageModel()
 861 {
 862 }
 863
 864 UnoControlModel*
 865 UnoMultiPageModel::Clone() const
 866 {
 867     // clone the container itself
 868     UnoMultiPageModel* pClone = new UnoMultiPageModel( *this );
 869     Clone_Impl( *pClone );
 870     return pClone;
 871 }
 872
 873 OUString UnoMultiPageModel::getServiceName() throw(::com::sun::star::uno::RuntimeException)
 874 {
 875     return OUString::createFromAscii( szServiceName_UnoMultiPageModel );
 876 }
 877
 878 uno::Any UnoMultiPageModel::ImplGetDefaultValue( sal_uInt16 nPropId ) const
 879 {
 880     if ( nPropId == BASEPROPERTY_DEFAULTCONTROL )
 881     {
 882         uno::Any aAny;
 883         aAny <<= OUString::createFromAscii( szServiceName_UnoMultiPageControl );
 884         return aAny;
 885     }
 886     return ControlModelContainerBase::ImplGetDefaultValue( nPropId );
 887 }
 888
 889 ::cppu::IPropertyArrayHelper& UnoMultiPageModel::getInfoHelper()
 890 {
 891     static UnoPropertyArrayHelper* pHelper = NULL;
 892     if ( !pHelper )
 893     {
 894         uno::Sequence<sal_Int32>    aIDs = ImplGetPropertyIds();
 895         pHelper = new UnoPropertyArrayHelper( aIDs );
 896     }
 897     return *pHelper;
 898 }
 899
 900 // beans::XMultiPropertySet
 901 uno::Reference< beans::XPropertySetInfo > UnoMultiPageModel::getPropertySetInfo(  ) throw(uno::RuntimeException)
 902 {
 903     static uno::Reference< beans::XPropertySetInfo > xInfo( createPropertySetInfo( getInfoHelper() ) );
 904     return xInfo;
 905 }
 906
 907 void UnoMultiPageModel::insertByName( const OUString& aName, const Any& aElement ) throw(IllegalArgumentException, ElementExistException, WrappedTargetException, RuntimeException)
 908 {
 909     Reference< XServiceInfo > xInfo;
 910     aElement >>= xInfo;
 911
 912     if ( !xInfo.is() )
 913         throw IllegalArgumentException();
 914
 915     // Only a Page model can be inserted into the multipage
 916     if ( !xInfo->supportsService( OUString::createFromAscii( szServiceName_UnoPageModel ) ) )
 917         throw IllegalArgumentException();
 918
 919     return ControlModelContainerBase::insertByName( aName, aElement );
 920 }
 921
 922 // ----------------------------------------------------------------------------
 923 sal_Bool SAL_CALL UnoMultiPageModel::getGroupControl(  ) throw (RuntimeException)
 924 {
 925     return sal_True;
 926 }
 927
 928 //  ----------------------------------------------------
 929 //  class UnoPageControl
 930 //  ----------------------------------------------------
 931 UnoPageControl::UnoPageControl( const uno::Reference< uno::XComponentContext >& rxContext ) : ControlContainerBase(rxContext)
 932 {
 933     maComponentInfos.nWidth = 280;
 934     maComponentInfos.nHeight = 400;
 935 }
 936
 937 UnoPageControl::~UnoPageControl()
 938 {
 939 }
 940
 941 OUString UnoPageControl::GetComponentServiceName()
 942 {
 943     return OUString("tabpage");
 944 }
 945
 946
 947 // ------------- UnoPageModel -----------------
 948
 949 UnoPageModel::UnoPageModel( const Reference< XComponentContext >& rxContext ) : ControlModelContainerBase( rxContext )
 950 {
 951     ImplRegisterProperty( BASEPROPERTY_DEFAULTCONTROL );
 952     ImplRegisterProperty( BASEPROPERTY_BACKGROUNDCOLOR );
 953     ImplRegisterProperty( BASEPROPERTY_ENABLED );
 954     ImplRegisterProperty( BASEPROPERTY_ENABLEVISIBLE );
 955
 956     ImplRegisterProperty( BASEPROPERTY_FONTDESCRIPTOR );
 957     ImplRegisterProperty( BASEPROPERTY_HELPTEXT );
 958     ImplRegisterProperty( BASEPROPERTY_HELPURL );
 959     ImplRegisterProperty( BASEPROPERTY_TITLE );
 960     ImplRegisterProperty( BASEPROPERTY_SIZEABLE );
 961     ImplRegisterProperty( BASEPROPERTY_PRINTABLE );
 962     ImplRegisterProperty( BASEPROPERTY_USERFORMCONTAINEES );
 963 //    ImplRegisterProperty( BASEPROPERTY_DIALOGSOURCEURL );
 964
 965     Any aBool;
 966     aBool <<= (sal_Bool) sal_True;
 967     ImplRegisterProperty( BASEPROPERTY_MOVEABLE, aBool );
 968     ImplRegisterProperty( BASEPROPERTY_CLOSEABLE, aBool );
 969     //ImplRegisterProperty( BASEPROPERTY_TABSTOP, aBool );
 970
 971     uno::Reference< XNameContainer > xNameCont = new SimpleNamedThingContainer< XControlModel >();
 972     ImplRegisterProperty( BASEPROPERTY_USERFORMCONTAINEES, uno::makeAny( xNameCont ) );
 973 }
 974
 975 UnoPageModel::UnoPageModel( const UnoPageModel& rModel )
 976     : ControlModelContainerBase( rModel )
 977 {
 978 }
 979
 980 UnoPageModel::~UnoPageModel()
 981 {
 982 }
 983
 984 UnoControlModel*
 985 UnoPageModel::Clone() const
 986 {
 987     // clone the container itself
 988     UnoPageModel* pClone = new UnoPageModel( *this );
 989     Clone_Impl( *pClone );
 990     return pClone;
 991 }
 992
 993 OUString UnoPageModel::getServiceName() throw(::com::sun::star::uno::RuntimeException)
 994 {
 995     return OUString::createFromAscii( szServiceName_UnoPageModel );
 996 }
 997
 998 uno::Any UnoPageModel::ImplGetDefaultValue( sal_uInt16 nPropId ) const
 999 {
1000     if ( nPropId == BASEPROPERTY_DEFAULTCONTROL )
1001     {
1002         uno::Any aAny;
1003         aAny <<= OUString::createFromAscii( szServiceName_UnoPageControl );
1004         return aAny;
1005     }
1006     return ControlModelContainerBase::ImplGetDefaultValue( nPropId );
1007 }
1008
1009 ::cppu::IPropertyArrayHelper& UnoPageModel::getInfoHelper()
1010 {
1011     static UnoPropertyArrayHelper* pHelper = NULL;
1012     if ( !pHelper )
1013     {
1014         uno::Sequence<sal_Int32>  aIDs = ImplGetPropertyIds();
1015         pHelper = new UnoPropertyArrayHelper( aIDs );
1016     }
1017     return *pHelper;
1018 }
1019
1020 // beans::XMultiPropertySet
1021 uno::Reference< beans::XPropertySetInfo > UnoPageModel::getPropertySetInfo(  ) throw(uno::RuntimeException)
1022 {
1023     static uno::Reference< beans::XPropertySetInfo > xInfo( createPropertySetInfo( getInfoHelper() ) );
1024     return xInfo;
1025 }
1026
1027 // ----------------------------------------------------------------------------
1028 sal_Bool SAL_CALL UnoPageModel::getGroupControl(  ) throw (RuntimeException)
1029 {
1030     return sal_False;
1031 }
1032
1033 // Frame control
1034
1035 //  ----------------------------------------------------
1036 //  class UnoFrameControl
1037 //  ----------------------------------------------------
1038 UnoFrameControl::UnoFrameControl( const uno::Reference< uno::XComponentContext >& rxContext ) : ControlContainerBase(rxContext)
1039 {
1040     maComponentInfos.nWidth = 280;
1041     maComponentInfos.nHeight = 400;
1042 }
1043
1044 UnoFrameControl::~UnoFrameControl()
1045 {
1046 }
1047
1048 OUString UnoFrameControl::GetComponentServiceName()
1049 {
1050     return OUString("frame");
1051 }
1052
1053 void UnoFrameControl::ImplSetPosSize( Reference< XControl >& rxCtrl )
1054 {
1055     bool bOwnCtrl = false;
1056     OUString sTitle;
1057     if ( rxCtrl.get() == Reference<XControl>( this ).get() )
1058         bOwnCtrl = true;
1059     Reference< XPropertySet > xProps( getModel(), UNO_QUERY );
1060     //xProps->getPropertyValue( GetPropertyName( BASEPROPERTY_TITLE ) ) >>= sTitle;
1061     xProps->getPropertyValue( GetPropertyName( BASEPROPERTY_LABEL ) ) >>= sTitle;
1062
1063     ControlContainerBase::ImplSetPosSize( rxCtrl );
1064     Reference < XWindow > xW( rxCtrl, UNO_QUERY );
1065     if ( !bOwnCtrl && xW.is() && !sTitle.isEmpty() )
1066     {
1067         awt::Rectangle aSizePos = xW->getPosSize();
1068
1069         sal_Int32 nX = aSizePos.X, nY = aSizePos.Y, nWidth = aSizePos.Width, nHeight = aSizePos.Height;
1070         // Retrieve the values set by the base class
1071         OutputDevice*pOutDev = Application::GetDefaultDevice();
1072         if ( pOutDev )
1073         {
1074             if ( !bOwnCtrl && !sTitle.isEmpty() )
1075             {
1076                 // Adjust Y based on height of Title
1077                 ::Rectangle aRect;
1078                 aRect = pOutDev->GetTextRect( aRect, sTitle );
1079                 nY = nY + ( aRect.GetHeight() / 2 );
1080             }
1081         }
1082         else
1083         {
1084             Reference< XWindowPeer > xPeer = ImplGetCompatiblePeer( sal_True );
1085             Reference< XDevice > xD( xPeer, UNO_QUERY );
1086
1087             SimpleFontMetric aFM;
1088             FontDescriptor aFD;
1089             Any aVal = ImplGetPropertyValue( GetPropertyName( BASEPROPERTY_FONTDESCRIPTOR ) );
1090
1091             aVal >>= aFD;
1092             if ( !aFD.StyleName.isEmpty() )
1093             {
1094                 Reference< XFont > xFont = xD->getFont( aFD );
1095                 aFM = xFont->getFontMetric();
1096             }
1097             else
1098             {
1099                 Reference< XGraphics > xG = xD->createGraphics();
1100                 aFM = xG->getFontMetric();
1101             }
1102
1103             sal_Int16 nH = aFM.Ascent + aFM.Descent;
1104             if ( !bOwnCtrl && !sTitle.isEmpty() )
1105                 // offset y based on height of font ( not sure if my guess at the correct calculation is correct here )
1106                 nY = nY + ( nH / 8); // how do I test this
1107         }
1108         xW->setPosSize( nX, nY, nWidth, nHeight, PosSize::POSSIZE );
1109     }
1110 }
1111
1112 // ------------- UnoFrameModel -----------------
1113
1114 UnoFrameModel::UnoFrameModel(  const Reference< XComponentContext >& rxContext ) : ControlModelContainerBase( rxContext )
1115 {
1116     ImplRegisterProperty( BASEPROPERTY_DEFAULTCONTROL );
1117     ImplRegisterProperty( BASEPROPERTY_BACKGROUNDCOLOR );
1118     ImplRegisterProperty( BASEPROPERTY_ENABLED );
1119     ImplRegisterProperty( BASEPROPERTY_ENABLEVISIBLE );
1120     ImplRegisterProperty( BASEPROPERTY_FONTDESCRIPTOR );
1121     ImplRegisterProperty( BASEPROPERTY_HELPTEXT );
1122     ImplRegisterProperty( BASEPROPERTY_HELPURL );
1123     ImplRegisterProperty( BASEPROPERTY_PRINTABLE );
1124     ImplRegisterProperty( BASEPROPERTY_LABEL );
1125     ImplRegisterProperty( BASEPROPERTY_WRITING_MODE );
1126     ImplRegisterProperty( BASEPROPERTY_CONTEXT_WRITING_MODE );
1127     ImplRegisterProperty( BASEPROPERTY_USERFORMCONTAINEES );
1128     ImplRegisterProperty( BASEPROPERTY_HSCROLL );
1129     ImplRegisterProperty( BASEPROPERTY_VSCROLL );
1130     ImplRegisterProperty( BASEPROPERTY_SCROLLWIDTH );
1131     ImplRegisterProperty( BASEPROPERTY_SCROLLHEIGHT );
1132     ImplRegisterProperty( BASEPROPERTY_SCROLLTOP );
1133     ImplRegisterProperty( BASEPROPERTY_SCROLLLEFT );
1134
1135
1136     uno::Reference< XNameContainer > xNameCont = new SimpleNamedThingContainer< XControlModel >();
1137     ImplRegisterProperty( BASEPROPERTY_USERFORMCONTAINEES, uno::makeAny( xNameCont ) );
1138 }
1139
1140 UnoFrameModel::UnoFrameModel( const UnoFrameModel& rModel )
1141     : ControlModelContainerBase( rModel )
1142 {
1143 }
1144
1145 UnoFrameModel::~UnoFrameModel()
1146 {
1147 }
1148
1149 UnoControlModel*
1150 UnoFrameModel::Clone() const
1151 {
1152     // clone the container itself
1153     UnoFrameModel* pClone = new UnoFrameModel( *this );
1154     Clone_Impl( *pClone );
1155     return pClone;
1156 }
1157
1158 OUString UnoFrameModel::getServiceName() throw(::com::sun::star::uno::RuntimeException)
1159 {
1160     return OUString::createFromAscii( szServiceName_UnoFrameModel );
1161 }
1162
1163 uno::Any UnoFrameModel::ImplGetDefaultValue( sal_uInt16 nPropId ) const
1164 {
1165     uno::Any aAny;
1166     switch ( nPropId )
1167     {
1168         case BASEPROPERTY_DEFAULTCONTROL:
1169         {
1170             aAny <<= OUString::createFromAscii( szServiceName_UnoFrameControl );
1171             return aAny;
1172         }
1173         case BASEPROPERTY_SCROLLWIDTH:
1174         case BASEPROPERTY_SCROLLHEIGHT:
1175         case BASEPROPERTY_SCROLLTOP:
1176         case BASEPROPERTY_SCROLLLEFT:
1177             aAny <<= sal_Int32(0);
1178             return aAny;
1179         case BASEPROPERTY_USERFORMCONTAINEES:
1180         {
1181             uno::Reference< XNameContainer > xNameCont = new SimpleNamedThingContainer< XControlModel >();
1182             return makeAny( xNameCont );
1183         }
1184     }
1185     return ControlModelContainerBase::ImplGetDefaultValue( nPropId );
1186 }
1187
1188 ::cppu::IPropertyArrayHelper& UnoFrameModel::getInfoHelper()
1189 {
1190     static UnoPropertyArrayHelper* pHelper = NULL;
1191     if ( !pHelper )
1192     {
1193         uno::Sequence<sal_Int32>    aIDs = ImplGetPropertyIds();
1194         pHelper = new UnoPropertyArrayHelper( aIDs );
1195     }
1196     return *pHelper;
1197 }
1198
1199 // beans::XMultiPropertySet
1200 uno::Reference< beans::XPropertySetInfo > UnoFrameModel::getPropertySetInfo(  ) throw(uno::RuntimeException)
1201 {
1202     static uno::Reference< beans::XPropertySetInfo > xInfo( createPropertySetInfo( getInfoHelper() ) );
1203     return xInfo;
1204 }
1205
1206 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */