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