toolkit/source/controls/unocontrolbase.cxx

   1 /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
   2 /*
   3  * This file is part of the LibreOffice project.
   4  *
   5  * This Source Code Form is subject to the terms of the Mozilla Public
   6  * License, v. 2.0. If a copy of the MPL was not distributed with this
   7  * file, You can obtain one at http://mozilla.org/MPL/2.0/.
   8  *
   9  * This file incorporates work covered by the following license notice:
  10  *
  11  *   Licensed to the Apache Software Foundation (ASF) under one or more
  12  *   contributor license agreements. See the NOTICE file distributed
  13  *   with this work for additional information regarding copyright
  14  *   ownership. The ASF licenses this file to you under the Apache
  15  *   License, Version 2.0 (the "License"); you may not use this file
  16  *   except in compliance with the License. You may obtain a copy of
  17  *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
  18  */
  19
  20 #include <com/sun/star/awt/XLayoutConstrains.hpp>
  21 #include <com/sun/star/awt/XTextLayoutConstrains.hpp>
  22
  23 #include <toolkit/controls/unocontrolbase.hxx>
  24 #include <toolkit/helper/property.hxx>
  25 #include <comphelper/processfactory.hxx>
  26
  27 #include <tools/debug.hxx>
  28
  29 using namespace com::sun::star;
  30
  31 //  ----------------------------------------------------
  32 //  class UnoControlBase
  33 //  ----------------------------------------------------
  34
  35 sal_Bool UnoControlBase::ImplHasProperty( sal_uInt16 nPropId )
  36 {
  37     OUString aPropName( GetPropertyName( nPropId ) );
  38     return ImplHasProperty( aPropName );
  39 }
  40
  41 sal_Bool UnoControlBase::ImplHasProperty( const OUString& aPropertyName )
  42 {
  43     ::com::sun::star::uno::Reference< ::com::sun::star::beans::XPropertySet >  xPSet( mxModel, ::com::sun::star::uno::UNO_QUERY );
  44     if ( !xPSet.is() )
  45         return sal_False;
  46     ::com::sun::star::uno::Reference< ::com::sun::star::beans::XPropertySetInfo >  xInfo = xPSet->getPropertySetInfo();
  47     if ( !xInfo.is() )
  48         return sal_False;
  49
  50     return xInfo->hasPropertyByName( aPropertyName );
  51 }
  52
  53 void UnoControlBase::ImplSetPropertyValues( const ::com::sun::star::uno::Sequence< OUString >& aPropertyNames, const ::com::sun::star::uno::Sequence< ::com::sun::star::uno::Any >& aValues, sal_Bool bUpdateThis )
  54 {
  55     ::com::sun::star::uno::Reference< ::com::sun::star::beans::XMultiPropertySet > xMPS( mxModel, ::com::sun::star::uno::UNO_QUERY );
  56     if ( !mxModel.is() )
  57         return;
  58
  59     DBG_ASSERT( xMPS.is(), "UnoControlBase::ImplSetPropertyValues: no multi property set interface!" );
  60     if ( xMPS.is() )
  61     {
  62         if ( !bUpdateThis )
  63             ImplLockPropertyChangeNotifications( aPropertyNames, true );
  64
  65         try
  66         {
  67             xMPS->setPropertyValues( aPropertyNames, aValues );
  68         }
  69         catch( const ::com::sun::star::uno::Exception& )
  70         {
  71             if ( !bUpdateThis )
  72                 ImplLockPropertyChangeNotifications( aPropertyNames, false );
  73         }
  74         if ( !bUpdateThis )
  75             ImplLockPropertyChangeNotifications( aPropertyNames, false );
  76     }
  77     else
  78     {
  79         int dummy = 0;
  80         (void)dummy;
  81     }
  82 }
  83
  84 void UnoControlBase::ImplSetPropertyValue( const OUString& aPropertyName, const ::com::sun::star::uno::Any& aValue, sal_Bool bUpdateThis )
  85 {
  86     // Model might be logged off already but an event still fires
  87     if ( mxModel.is() )
  88     {
  89         ::com::sun::star::uno::Reference< ::com::sun::star::beans::XPropertySet >  xPSet( mxModel, ::com::sun::star::uno::UNO_QUERY );
  90         if ( !bUpdateThis )
  91             ImplLockPropertyChangeNotification( aPropertyName, true );
  92
  93         try
  94         {
  95             xPSet->setPropertyValue( aPropertyName, aValue );
  96         }
  97         catch( const com::sun::star::uno::Exception& )
  98         {
  99             if ( !bUpdateThis )
 100                 ImplLockPropertyChangeNotification( aPropertyName, false );
 101             throw;
 102         }
 103         if ( !bUpdateThis )
 104             ImplLockPropertyChangeNotification( aPropertyName, false );
 105     }
 106 }
 107
 108 ::com::sun::star::uno::Any UnoControlBase::ImplGetPropertyValue( const OUString& aPropertyName )
 109 {
 110     ::com::sun::star::uno::Reference< ::com::sun::star::beans::XPropertySet >  xPSet( mxModel, ::com::sun::star::uno::UNO_QUERY );
 111     if ( xPSet.is() )
 112         return xPSet->getPropertyValue( aPropertyName );
 113     else
 114         return ::com::sun::star::uno::Any();
 115 }
 116
 117 template <typename T> T UnoControlBase::ImplGetPropertyValuePOD( sal_uInt16 nProp )
 118 {
 119     T t(0);
 120     if ( mxModel.is() )
 121     {
 122         ::com::sun::star::uno::Any aVal = ImplGetPropertyValue( GetPropertyName( nProp ) );
 123         aVal >>= t;
 124     }
 125     return t;
 126 }
 127
 128 template <typename T> T UnoControlBase::ImplGetPropertyValueClass( sal_uInt16 nProp )
 129 {
 130     T t;
 131     if ( mxModel.is() )
 132     {
 133         ::com::sun::star::uno::Any aVal = ImplGetPropertyValue( GetPropertyName( nProp ) );
 134         aVal >>= t;
 135     }
 136     return t;
 137 }
 138
 139 sal_Bool UnoControlBase::ImplGetPropertyValue_BOOL( sal_uInt16 nProp )
 140 {
 141     return ImplGetPropertyValuePOD<sal_Bool>(nProp);
 142 }
 143
 144 sal_Int16 UnoControlBase::ImplGetPropertyValue_INT16( sal_uInt16 nProp )
 145 {
 146     return ImplGetPropertyValuePOD<sal_Int16>(nProp);
 147 }
 148
 149 sal_Int32 UnoControlBase::ImplGetPropertyValue_INT32( sal_uInt16 nProp )
 150 {
 151     return ImplGetPropertyValuePOD<sal_Int32>(nProp);
 152 }
 153
 154 sal_Int64 UnoControlBase::ImplGetPropertyValue_INT64( sal_uInt16 nProp )
 155 {
 156     return ImplGetPropertyValuePOD<sal_Int64>(nProp);
 157 }
 158
 159 double UnoControlBase::ImplGetPropertyValue_DOUBLE( sal_uInt16 nProp )
 160 {
 161     return ImplGetPropertyValuePOD<double>(nProp);
 162 }
 163
 164 OUString UnoControlBase::ImplGetPropertyValue_UString( sal_uInt16 nProp )
 165 {
 166     return ImplGetPropertyValueClass<OUString>(nProp);
 167 }
 168
 169 util::Date UnoControlBase::ImplGetPropertyValue_Date( sal_uInt16 nProp )
 170 {
 171     return ImplGetPropertyValueClass<util::Date>(nProp);
 172 }
 173
 174 util::Time UnoControlBase::ImplGetPropertyValue_Time( sal_uInt16 nProp )
 175 {
 176     return ImplGetPropertyValueClass<util::Time>(nProp);
 177 }
 178
 179 ::com::sun::star::awt::Size UnoControlBase::Impl_getMinimumSize()
 180 {
 181     ::com::sun::star::awt::Size aSz;
 182     ::com::sun::star::uno::Reference< ::com::sun::star::awt::XWindowPeer >  xP = ImplGetCompatiblePeer( sal_True );
 183     DBG_ASSERT( xP.is(), "Layout: No Peer!" );
 184     if ( xP.is() )
 185     {
 186         ::com::sun::star::uno::Reference< ::com::sun::star::awt::XLayoutConstrains >  xL( xP, ::com::sun::star::uno::UNO_QUERY );
 187         if ( xL.is() )
 188             aSz = xL->getMinimumSize();
 189
 190         if ( !getPeer().is() || ( getPeer() != xP ) )
 191             xP->dispose();
 192     }
 193     return aSz;
 194 }
 195
 196 ::com::sun::star::awt::Size UnoControlBase::Impl_getPreferredSize()
 197 {
 198     ::com::sun::star::awt::Size aSz;
 199     ::com::sun::star::uno::Reference< ::com::sun::star::awt::XWindowPeer >  xP = ImplGetCompatiblePeer( sal_True );
 200     DBG_ASSERT( xP.is(), "Layout: No Peer!" );
 201     if ( xP.is() )
 202     {
 203         ::com::sun::star::uno::Reference< ::com::sun::star::awt::XLayoutConstrains >  xL( xP, ::com::sun::star::uno::UNO_QUERY );
 204         if ( xL.is() )
 205             aSz = xL->getPreferredSize();
 206
 207         if ( !getPeer().is() || ( getPeer() != xP ) )
 208             xP->dispose();
 209     }
 210     return aSz;
 211 }
 212
 213 ::com::sun::star::awt::Size UnoControlBase::Impl_calcAdjustedSize( const ::com::sun::star::awt::Size& rNewSize )
 214 {
 215     ::com::sun::star::awt::Size aSz;
 216     ::com::sun::star::uno::Reference< ::com::sun::star::awt::XWindowPeer >  xP = ImplGetCompatiblePeer( sal_True );
 217     DBG_ASSERT( xP.is(), "Layout: No Peer!" );
 218     if ( xP.is() )
 219     {
 220         ::com::sun::star::uno::Reference< ::com::sun::star::awt::XLayoutConstrains > xL( xP, ::com::sun::star::uno::UNO_QUERY );
 221         if ( xL.is() )
 222             aSz = xL->calcAdjustedSize( rNewSize );
 223
 224         if ( !getPeer().is() || ( getPeer() != xP ) )
 225             xP->dispose();
 226     }
 227     return aSz;
 228 }
 229
 230 ::com::sun::star::awt::Size UnoControlBase::Impl_getMinimumSize( sal_Int16 nCols, sal_Int16 nLines )
 231 {
 232     ::com::sun::star::awt::Size aSz;
 233     ::com::sun::star::uno::Reference< ::com::sun::star::awt::XWindowPeer >  xP = ImplGetCompatiblePeer( sal_True );
 234     DBG_ASSERT( xP.is(), "Layout: No Peer!" );
 235     if ( xP.is() )
 236     {
 237         ::com::sun::star::uno::Reference< ::com::sun::star::awt::XTextLayoutConstrains >  xL( xP, ::com::sun::star::uno::UNO_QUERY );
 238         if ( xL.is() )
 239             aSz = xL->getMinimumSize( nCols, nLines );
 240
 241         if ( !getPeer().is() || ( getPeer() != xP ) )
 242             xP->dispose();
 243     }
 244     return aSz;
 245 }
 246
 247 void UnoControlBase::Impl_getColumnsAndLines( sal_Int16& nCols, sal_Int16& nLines )
 248 {
 249     ::com::sun::star::uno::Reference< ::com::sun::star::awt::XWindowPeer >  xP = ImplGetCompatiblePeer( sal_True );
 250     DBG_ASSERT( xP.is(), "Layout: No Peer!" );
 251     if ( xP.is() )
 252     {
 253         ::com::sun::star::uno::Reference< ::com::sun::star::awt::XTextLayoutConstrains >  xL( xP, ::com::sun::star::uno::UNO_QUERY );
 254         if ( xL.is() )
 255             xL->getColumnsAndLines( nCols, nLines );
 256
 257         if ( !getPeer().is() || ( getPeer() != xP ) )
 258             xP->dispose();
 259     }
 260 }
 261
 262
 263
 264 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */