toolkit/source/controls/tkscrollbar.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 "toolkit/controls/tkscrollbar.hxx"
  21 #include "toolkit/helper/property.hxx"
  22 #include <com/sun/star/uno/XComponentContext.hpp>
  23 #include <cppuhelper/typeprovider.hxx>
  24 #include <cppuhelper/queryinterface.hxx>
  25
  26 #include <toolkit/awt/vclxwindows.hxx>
  27
  28 #include "helper/unopropertyarrayhelper.hxx"
  29
  30 namespace toolkit
  31 {
  32
  33
  34     using namespace ::com::sun::star;
  35
  36
  37     //= UnoControlScrollBarModel
  38
  39
  40     UnoControlScrollBarModel::UnoControlScrollBarModel( const uno::Reference< uno::XComponentContext >& i_factory )
  41         :UnoControlModel( i_factory )
  42     {
  43         UNO_CONTROL_MODEL_REGISTER_PROPERTIES( VCLXScrollBar );
  44     }
  45
  46
  47     OUString UnoControlScrollBarModel::getServiceName( ) throw(::com::sun::star::uno::RuntimeException, std::exception)
  48     {
  49         return OUString::createFromAscii( szServiceName_UnoControlScrollBarModel );
  50     }
  51
  52     OUString UnoControlScrollBarModel::getImplementationName()
  53         throw (css::uno::RuntimeException, std::exception)
  54     {
  55         return OUString("stardiv.Toolkit.UnoControlScrollBarModel");
  56     }
  57
  58     css::uno::Sequence<OUString>
  59     UnoControlScrollBarModel::getSupportedServiceNames()
  60         throw (css::uno::RuntimeException, std::exception)
  61     {
  62         auto s(UnoControlModel::getSupportedServiceNames());
  63         s.realloc(s.getLength() + 2);
  64         s[s.getLength() - 2] = "com.sun.star.awt.UnoControlScrollBarModel";
  65         s[s.getLength() - 1] = "stardiv.vcl.controlmodel.ScrollBar";
  66         return s;
  67     }
  68
  69     uno::Any UnoControlScrollBarModel::ImplGetDefaultValue( sal_uInt16 nPropId ) const
  70     {
  71         switch ( nPropId )
  72         {
  73         case BASEPROPERTY_LIVE_SCROLL:
  74             return uno::makeAny( false );
  75         case BASEPROPERTY_DEFAULTCONTROL:
  76             return uno::makeAny( OUString::createFromAscii( szServiceName_UnoControlScrollBar ) );
  77
  78         default:
  79             return UnoControlModel::ImplGetDefaultValue( nPropId );
  80         }
  81     }
  82
  83
  84     ::cppu::IPropertyArrayHelper& UnoControlScrollBarModel::getInfoHelper()
  85     {
  86         static UnoPropertyArrayHelper* pHelper = NULL;
  87         if ( !pHelper )
  88         {
  89             uno::Sequence<sal_Int32>    aIDs = ImplGetPropertyIds();
  90             pHelper = new UnoPropertyArrayHelper( aIDs );
  91         }
  92         return *pHelper;
  93     }
  94
  95
  96     uno::Reference< beans::XPropertySetInfo > UnoControlScrollBarModel::getPropertySetInfo(  ) throw(uno::RuntimeException, std::exception)
  97     {
  98         static uno::Reference< beans::XPropertySetInfo > xInfo( createPropertySetInfo( getInfoHelper() ) );
  99         return xInfo;
 100     }
 101
 102
 103
 104     //= UnoControlScrollBarModel
 105
 106     UnoScrollBarControl::UnoScrollBarControl()
 107         :UnoControlBase()
 108         ,maAdjustmentListeners( *this )
 109     {
 110     }
 111
 112     OUString UnoScrollBarControl::GetComponentServiceName()
 113     {
 114         return OUString("ScrollBar");
 115     }
 116
 117     // ::com::sun::star::uno::XInterface
 118     uno::Any UnoScrollBarControl::queryAggregation( const uno::Type & rType ) throw(uno::RuntimeException, std::exception)
 119     {
 120         uno::Any aRet = ::cppu::queryInterface( rType,
 121                                             (static_cast< awt::XAdjustmentListener* >(this)),
 122                                             (static_cast< awt::XScrollBar* >(this)) );
 123         return (aRet.hasValue() ? aRet : UnoControlBase::queryAggregation( rType ));
 124     }
 125
 126     // ::com::sun::star::lang::XTypeProvider
 127     IMPL_XTYPEPROVIDER_START( UnoScrollBarControl )
 128         cppu::UnoType<awt::XAdjustmentListener>::get(),
 129         cppu::UnoType<awt::XScrollBar>::get(),
 130         UnoControlBase::getTypes()
 131     IMPL_XTYPEPROVIDER_END
 132
 133     void UnoScrollBarControl::dispose() throw(uno::RuntimeException, std::exception)
 134     {
 135         lang::EventObject aEvt;
 136         aEvt.Source = (::cppu::OWeakObject*)this;
 137         maAdjustmentListeners.disposeAndClear( aEvt );
 138         UnoControl::dispose();
 139     }
 140
 141     void UnoScrollBarControl::createPeer( const uno::Reference< awt::XToolkit > & rxToolkit, const uno::Reference< awt::XWindowPeer >  & rParentPeer ) throw(uno::RuntimeException, std::exception)
 142     {
 143         UnoControl::createPeer( rxToolkit, rParentPeer );
 144
 145         uno::Reference < awt::XScrollBar >  xScrollBar( getPeer(), uno::UNO_QUERY );
 146         xScrollBar->addAdjustmentListener( this );
 147     }
 148
 149     // ::com::sun::star::awt::XAdjustmentListener
 150     void UnoScrollBarControl::adjustmentValueChanged( const ::com::sun::star::awt::AdjustmentEvent& rEvent ) throw(::com::sun::star::uno::RuntimeException, std::exception)
 151     {
 152         switch ( rEvent.Type )
 153         {
 154             case ::com::sun::star::awt::AdjustmentType_ADJUST_LINE:
 155             case ::com::sun::star::awt::AdjustmentType_ADJUST_PAGE:
 156             case ::com::sun::star::awt::AdjustmentType_ADJUST_ABS:
 157             {
 158                 uno::Reference< awt::XScrollBar > xScrollBar( getPeer(), uno::UNO_QUERY );
 159
 160                 if ( xScrollBar.is() )
 161                 {
 162                     uno::Any aAny;
 163                     aAny <<= xScrollBar->getValue();
 164                     ImplSetPropertyValue( GetPropertyName( BASEPROPERTY_SCROLLVALUE ), aAny, false );
 165                 }
 166             }
 167             break;
 168             default:
 169             {
 170                 OSL_FAIL( "UnoScrollBarControl::adjustmentValueChanged - unknown Type" );
 171
 172             }
 173         }
 174
 175         if ( maAdjustmentListeners.getLength() )
 176             maAdjustmentListeners.adjustmentValueChanged( rEvent );
 177     }
 178
 179     // ::com::sun::star::awt::XScrollBar
 180     void UnoScrollBarControl::addAdjustmentListener( const ::com::sun::star::uno::Reference< ::com::sun::star::awt::XAdjustmentListener > & l ) throw(::com::sun::star::uno::RuntimeException, std::exception)
 181     {
 182         maAdjustmentListeners.addInterface( l );
 183     }
 184
 185     void UnoScrollBarControl::removeAdjustmentListener( const ::com::sun::star::uno::Reference< ::com::sun::star::awt::XAdjustmentListener > & l ) throw(::com::sun::star::uno::RuntimeException, std::exception)
 186     {
 187         maAdjustmentListeners.removeInterface( l );
 188     }
 189
 190     void UnoScrollBarControl::setValue( sal_Int32 n ) throw(::com::sun::star::uno::RuntimeException, std::exception)
 191     {
 192         ImplSetPropertyValue( GetPropertyName( BASEPROPERTY_SCROLLVALUE ), uno::makeAny( n ), true );
 193     }
 194
 195     void UnoScrollBarControl::setValues( sal_Int32 nValue, sal_Int32 nVisible, sal_Int32 nMax ) throw(::com::sun::star::uno::RuntimeException, std::exception)
 196     {
 197         uno::Any aAny;
 198         aAny <<= nValue;
 199         ImplSetPropertyValue( GetPropertyName( BASEPROPERTY_SCROLLVALUE ), aAny, true );
 200         aAny <<= nVisible;
 201         ImplSetPropertyValue( GetPropertyName( BASEPROPERTY_VISIBLESIZE ), aAny, true );
 202         aAny <<= nMax;
 203         ImplSetPropertyValue( GetPropertyName( BASEPROPERTY_SCROLLVALUE_MAX ), aAny, true );
 204     }
 205
 206     sal_Int32 UnoScrollBarControl::getValue() throw(::com::sun::star::uno::RuntimeException, std::exception)
 207     {
 208         sal_Int32 n = 0;
 209         if ( getPeer().is() )
 210         {
 211             uno::Reference< awt::XScrollBar > xScrollBar( getPeer(), uno::UNO_QUERY );
 212             n = xScrollBar->getValue();
 213         }
 214         return n;
 215     }
 216
 217     void UnoScrollBarControl::setMaximum( sal_Int32 n ) throw(::com::sun::star::uno::RuntimeException, std::exception)
 218     {
 219         ImplSetPropertyValue( GetPropertyName( BASEPROPERTY_SCROLLVALUE_MAX ), uno::makeAny( n ), true );
 220     }
 221
 222     sal_Int32 UnoScrollBarControl::getMaximum() throw(::com::sun::star::uno::RuntimeException, std::exception)
 223     {
 224         sal_Int32 n = 0;
 225         if ( getPeer().is() )
 226         {
 227             uno::Reference< awt::XScrollBar > xScrollBar( getPeer(), uno::UNO_QUERY );
 228             n = xScrollBar->getMaximum();
 229         }
 230         return n;
 231     }
 232
 233     void UnoScrollBarControl::setLineIncrement( sal_Int32 n ) throw(::com::sun::star::uno::RuntimeException, std::exception)
 234     {
 235         ImplSetPropertyValue( GetPropertyName( BASEPROPERTY_LINEINCREMENT ), uno::makeAny( n ), true );
 236     }
 237
 238     sal_Int32 UnoScrollBarControl::getLineIncrement() throw(::com::sun::star::uno::RuntimeException, std::exception)
 239     {
 240         sal_Int32 n = 0;
 241         if ( getPeer().is() )
 242         {
 243             uno::Reference< awt::XScrollBar > xScrollBar( getPeer(), uno::UNO_QUERY );
 244             n = xScrollBar->getLineIncrement();
 245         }
 246         return n;
 247     }
 248
 249     void UnoScrollBarControl::setBlockIncrement( sal_Int32 n ) throw(::com::sun::star::uno::RuntimeException, std::exception)
 250     {
 251         ImplSetPropertyValue( GetPropertyName( BASEPROPERTY_BLOCKINCREMENT ), uno::makeAny( n ), true );
 252     }
 253
 254     sal_Int32 UnoScrollBarControl::getBlockIncrement() throw(::com::sun::star::uno::RuntimeException, std::exception)
 255     {
 256         sal_Int32 n = 0;
 257         if ( getPeer().is() )
 258         {
 259             uno::Reference< awt::XScrollBar > xScrollBar( getPeer(), uno::UNO_QUERY );
 260             n = xScrollBar->getBlockIncrement();
 261         }
 262         return n;
 263     }
 264
 265     void UnoScrollBarControl::setVisibleSize( sal_Int32 n ) throw(::com::sun::star::uno::RuntimeException, std::exception)
 266     {
 267         ImplSetPropertyValue( GetPropertyName( BASEPROPERTY_VISIBLESIZE ), uno::makeAny( n ), true );
 268     }
 269
 270     sal_Int32 UnoScrollBarControl::getVisibleSize() throw(::com::sun::star::uno::RuntimeException, std::exception)
 271     {
 272         sal_Int32 n = 0;
 273         if ( getPeer().is() )
 274         {
 275             uno::Reference< awt::XScrollBar > xScrollBar( getPeer(), uno::UNO_QUERY );
 276             n = xScrollBar->getVisibleSize();
 277         }
 278         return n;
 279     }
 280
 281     void UnoScrollBarControl::setOrientation( sal_Int32 n ) throw(::com::sun::star::uno::RuntimeException, std::exception)
 282     {
 283         ImplSetPropertyValue( GetPropertyName( BASEPROPERTY_ORIENTATION ), uno::makeAny( n ), true );
 284     }
 285
 286     sal_Int32 UnoScrollBarControl::getOrientation() throw(::com::sun::star::uno::RuntimeException, std::exception)
 287     {
 288         sal_Int32 n = 0;
 289         if ( getPeer().is() )
 290         {
 291             uno::Reference< awt::XScrollBar > xScrollBar( getPeer(), uno::UNO_QUERY );
 292             n = xScrollBar->getOrientation();
 293         }
 294         return n;
 295     }
 296
 297     OUString UnoScrollBarControl::getImplementationName()
 298         throw (css::uno::RuntimeException, std::exception)
 299     {
 300         return OUString("stardiv.Toolkit.UnoScrollBarControl");
 301     }
 302
 303     css::uno::Sequence<OUString> UnoScrollBarControl::getSupportedServiceNames()
 304         throw (css::uno::RuntimeException, std::exception)
 305     {
 306         auto s(UnoControlBase::getSupportedServiceNames());
 307         s.realloc(s.getLength() + 2);
 308         s[s.getLength() - 2] = "com.sun.star.awt.UnoControlScrollBar";
 309         s[s.getLength() - 1] = "stardiv.vcl.control.ScrollBar";
 310         return s;
 311     }
 312
 313 }  // namespace toolkit
 314
 315
 316 extern "C" SAL_DLLPUBLIC_EXPORT css::uno::XInterface * SAL_CALL
 317 stardiv_Toolkit_UnoControlScrollBarModel_get_implementation(
 318     css::uno::XComponentContext *context,
 319     css::uno::Sequence<css::uno::Any> const &)
 320 {
 321     return cppu::acquire(new toolkit::UnoControlScrollBarModel(context));
 322 }
 323
 324 extern "C" SAL_DLLPUBLIC_EXPORT css::uno::XInterface * SAL_CALL
 325 stardiv_Toolkit_UnoScrollBarControl_get_implementation(
 326     css::uno::XComponentContext *,
 327     css::uno::Sequence<css::uno::Any> const &)
 328 {
 329     return cppu::acquire(new toolkit::UnoScrollBarControl());
 330 }
 331
 332 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */