vbahelper/source/msforms/vbacombobox.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 "vbacombobox.hxx"
  21 #include <comphelper/sequence.hxx>
  22 #include "vbanewfont.hxx"
  23 #include <ooo/vba/msforms/fmStyle.hpp>
  24 #include <ooo/vba/msforms/fmDropButtonStyle.hpp>
  25 #include <ooo/vba/msforms/fmDragBehavior.hpp>
  26 #include <ooo/vba/msforms/fmEnterFieldBehavior.hpp>
  27 #include <ooo/vba/msforms/fmListStyle.hpp>
  28 #include <ooo/vba/msforms/fmTextAlign.hpp>
  29 #include <sal/log.hxx>
  30
  31 using namespace com::sun::star;
  32 using namespace ooo::vba;
  33
  34
  35 //SelectedItems list of integer indexes
  36 //StringItemList list of items
  37
  38 ScVbaComboBox::ScVbaComboBox( const uno::Reference< XHelperInterface >& xParent, const uno::Reference< uno::XComponentContext >& xContext, const uno::Reference< uno::XInterface >& xControl, const uno::Reference< frame::XModel >& xModel, std::unique_ptr<ov::AbstractGeometryAttributes> pGeomHelper )
  39     : ComboBoxImpl_BASE( xParent, xContext, xControl, xModel, std::move(pGeomHelper) )
  40     , maListHelper( m_xProps )
  41 {
  42     try
  43     {
  44        // grab the default value property name
  45        m_xProps->getPropertyValue( u"DataFieldProperty"_ustr ) >>= sSourceName;
  46     }
  47     catch( uno::Exception& )
  48     {
  49     }
  50     if( sSourceName.isEmpty() )
  51         sSourceName = "Text";
  52 }
  53
  54 // Attributes
  55
  56
  57 // Value, [read] e.g. getValue returns the value of ooo Text property e.g. the value in
  58 // the drop down
  59 uno::Any SAL_CALL
  60 ScVbaComboBox::getValue()
  61 {
  62     return m_xProps->getPropertyValue( sSourceName );
  63 }
  64
  65 void SAL_CALL
  66 ScVbaComboBox::setListIndex( const uno::Any& _value )
  67 {
  68     sal_Int16 nIndex = 0;
  69     if( !(_value >>= nIndex) )
  70         return;
  71
  72     sal_Int32 nOldIndex = -1;
  73     getListIndex() >>= nOldIndex;
  74     uno::Sequence< OUString > sItems;
  75     m_xProps->getPropertyValue( u"StringItemList"_ustr ) >>= sItems;
  76     if( ( nIndex >= 0 ) && ( sItems.getLength() > nIndex ) )
  77     {
  78         const OUString& sText = sItems[ nIndex ];
  79         m_xProps->setPropertyValue( u"Text"_ustr, uno::Any( sText ) );
  80
  81         // fire the _Change event
  82         if( nOldIndex != nIndex )
  83             fireClickEvent();
  84     }
  85 }
  86
  87 uno::Any SAL_CALL
  88 ScVbaComboBox::getListIndex()
  89 {
  90     uno::Sequence< OUString > sItems;
  91     m_xProps->getPropertyValue( u"StringItemList"_ustr ) >>= sItems;
  92     // should really return the item that has focus regardless of
  93     // it been selected
  94     if ( sItems.hasElements() )
  95     {
  96         OUString sText = getText();
  97         if (!sText.isEmpty())
  98         {
  99             sal_Int32 index = comphelper::findValue(sItems, sText);
 100             if (index != -1)
 101             {
 102                 SAL_INFO("vbahelper", "getListIndex returning " << index );
 103                 return uno::Any( index );
 104             }
 105         }
 106     }
 107     SAL_INFO("vbahelper", "getListIndex returning -1" );
 108     return uno::Any( sal_Int32( -1 ) );
 109 }
 110
 111 // Value, [write]e.g. setValue sets the value in the drop down, and if the value is one
 112 // of the values in the list then the selection is also set
 113 void SAL_CALL
 114 ScVbaComboBox::setValue( const uno::Any& _value )
 115 {
 116     // booleans are converted to uppercase strings
 117     OUString oldValue = extractStringFromAny( getValue(), OUString(), true );
 118     m_xProps->setPropertyValue( sSourceName, uno::Any( extractStringFromAny( _value, OUString(), true ) ) );
 119     OUString newValue = extractStringFromAny( getValue(), OUString(), true );
 120     if ( oldValue != newValue )
 121     {
 122         sal_Int32 index = 0;
 123         uno::Any aIndex = getListIndex();
 124         aIndex >>= index;
 125         if ( index < 0 )
 126             fireChangeEvent();
 127         else
 128             fireClickEvent();
 129     }
 130 }
 131
 132 // see Value
 133
 134 OUString SAL_CALL
 135 ScVbaComboBox::getText()
 136 {
 137     OUString result;
 138     getValue() >>= result;
 139     return result;
 140 }
 141
 142 void SAL_CALL
 143 ScVbaComboBox::setText( const OUString& _text )
 144 {
 145     setValue( uno::Any( _text ) ); // seems the same
 146 }
 147
 148 // Methods
 149 void SAL_CALL
 150 ScVbaComboBox::AddItem( const uno::Any& pvargItem, const uno::Any& pvargIndex )
 151 {
 152     maListHelper.AddItem( pvargItem, pvargIndex );
 153 }
 154
 155 void SAL_CALL
 156 ScVbaComboBox::removeItem( const uno::Any& index )
 157 {
 158     maListHelper.removeItem( index );
 159 }
 160
 161 void SAL_CALL
 162 ScVbaComboBox::Clear(  )
 163 {
 164     maListHelper.Clear();
 165 }
 166
 167 void SAL_CALL
 168 ScVbaComboBox::setRowSource( const OUString& _rowsource )
 169 {
 170     ScVbaControl::setRowSource( _rowsource );
 171     maListHelper.setRowSource( _rowsource );
 172 }
 173
 174 sal_Int32 SAL_CALL
 175 ScVbaComboBox::getListCount()
 176 {
 177     return maListHelper.getListCount();
 178 }
 179
 180 uno::Any SAL_CALL
 181 ScVbaComboBox::List( const ::uno::Any& pvargIndex, const uno::Any& pvarColumn )
 182 {
 183     return maListHelper.List( pvargIndex, pvarColumn );
 184 }
 185
 186 sal_Int32 SAL_CALL ScVbaComboBox::getStyle()
 187 {
 188     return msforms::fmStyle::fmStyleDropDownCombo;
 189 }
 190
 191 void SAL_CALL ScVbaComboBox::setStyle( sal_Int32 /*nStyle*/ )
 192 {
 193 }
 194
 195 sal_Int32 SAL_CALL ScVbaComboBox::getDropButtonStyle()
 196 {
 197     return msforms::fmDropButtonStyle::fmDropButtonStyleArrow;
 198 }
 199
 200 void SAL_CALL ScVbaComboBox::setDropButtonStyle( sal_Int32 /*nDropButtonStyle*/ )
 201 {
 202 }
 203
 204 sal_Int32 SAL_CALL ScVbaComboBox::getDragBehavior()
 205 {
 206     return msforms::fmDragBehavior::fmDragBehaviorDisabled;
 207 }
 208
 209 void SAL_CALL ScVbaComboBox::setDragBehavior( sal_Int32 /*nDragBehavior*/ )
 210 {
 211 }
 212
 213 sal_Int32 SAL_CALL ScVbaComboBox::getEnterFieldBehavior()
 214 {
 215     return msforms::fmEnterFieldBehavior::fmEnterFieldBehaviorSelectAll;
 216 }
 217
 218 void SAL_CALL ScVbaComboBox::setEnterFieldBehavior( sal_Int32 /*nEnterFieldBehavior*/ )
 219 {
 220 }
 221
 222 sal_Int32 SAL_CALL ScVbaComboBox::getListStyle()
 223 {
 224     return msforms::fmListStyle::fmListStylePlain;
 225 }
 226
 227 void SAL_CALL ScVbaComboBox::setListStyle( sal_Int32 /*nListStyle*/ )
 228 {
 229 }
 230
 231 sal_Int32 SAL_CALL ScVbaComboBox::getTextAlign()
 232 {
 233     return msforms::fmTextAlign::fmTextAlignLeft;
 234 }
 235
 236 void SAL_CALL ScVbaComboBox::setTextAlign( sal_Int32 /*nTextAlign*/ )
 237 {
 238 }
 239
 240 sal_Int32 SAL_CALL ScVbaComboBox::getTextLength()
 241 {
 242     return getText().getLength();
 243 }
 244
 245 uno::Reference< msforms::XNewFont > SAL_CALL ScVbaComboBox::getFont()
 246 {
 247     return new VbaNewFont( m_xProps );
 248 }
 249
 250 OUString
 251 ScVbaComboBox::getServiceImplName()
 252 {
 253     return u"ScVbaComboBox"_ustr;
 254 }
 255
 256 sal_Int32 SAL_CALL ScVbaComboBox::getBackColor()
 257 {
 258     return ScVbaControl::getBackColor();
 259 }
 260
 261 void SAL_CALL ScVbaComboBox::setBackColor( sal_Int32 nBackColor )
 262 {
 263     ScVbaControl::setBackColor( nBackColor );
 264 }
 265
 266 sal_Bool SAL_CALL ScVbaComboBox::getAutoSize()
 267 {
 268     return ScVbaControl::getAutoSize();
 269 }
 270
 271 void SAL_CALL ScVbaComboBox::setAutoSize( sal_Bool bAutoSize )
 272 {
 273     ScVbaControl::setAutoSize( bAutoSize );
 274 }
 275
 276 sal_Bool SAL_CALL ScVbaComboBox::getLocked()
 277 {
 278     return ScVbaControl::getLocked();
 279 }
 280
 281 void SAL_CALL ScVbaComboBox::setLocked( sal_Bool bLocked )
 282 {
 283     ScVbaControl::setLocked( bLocked );
 284 }
 285
 286 OUString SAL_CALL ScVbaComboBox::getLinkedCell()
 287 {
 288     return ScVbaControl::getControlSource();
 289 }
 290
 291 void SAL_CALL ScVbaComboBox::setLinkedCell( const OUString& _linkedcell )
 292 {
 293     ScVbaControl::setControlSource( _linkedcell );
 294 }
 295
 296 uno::Sequence< OUString >
 297 ScVbaComboBox::getServiceNames()
 298 {
 299     static uno::Sequence< OUString > const aServiceNames
 300     {
 301         u"ooo.vba.msforms.ComboBox"_ustr
 302     };
 303     return aServiceNames;
 304 }
 305
 306 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */