svx/source/form/tabwin.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 "tabwin.hxx"
  22 #include "svx/fmtools.hxx"
  23 #include "fmservs.hxx"
  24 #include "stringlistresource.hxx"
  25
  26 #include <svx/svxids.hrc>
  27 #include <svx/dbaexchange.hxx>
  28 #include <com/sun/star/sdb/CommandType.hpp>
  29 #include <com/sun/star/sdbcx/XTablesSupplier.hpp>
  30 #include <com/sun/star/sdb/XQueriesSupplier.hpp>
  31 #include <com/sun/star/sdbc/XPreparedStatement.hpp>
  32 #include <com/sun/star/awt/XControlContainer.hpp>
  33 #include <com/sun/star/util/XLocalizedAliases.hpp>
  34 #include <comphelper/processfactory.hxx>
  35
  36 #include "fmhelp.hrc"
  37 #include <svx/fmshell.hxx>
  38 #include "fmshimp.hxx"
  39 #include "svx/dbtoolsclient.hxx"
  40 #include <svx/fmpage.hxx>
  41
  42 #include "fmpgeimp.hxx"
  43
  44 #include "fmprop.hrc"
  45
  46 #include "svx/fmresids.hrc"
  47 #include <svx/dialmgr.hxx>
  48 #include <tools/shl.hxx>
  49 #include <svx/svdpagv.hxx>
  50 #include <sfx2/objitem.hxx>
  51 #include <sfx2/dispatch.hxx>
  52 #include <comphelper/property.hxx>
  53 #include <sfx2/frame.hxx>
  54 #include <svx/dataaccessdescriptor.hxx>
  55 #include "svtools/treelistentry.hxx"
  56 #include <vcl/settings.hxx>
  57
  58 const long STD_WIN_SIZE_X = 120;
  59 const long STD_WIN_SIZE_Y = 150;
  60
  61 const long LISTBOX_BORDER = 2;
  62
  63 using namespace ::com::sun::star::sdbc;
  64 using namespace ::com::sun::star::sdb;
  65 using namespace ::com::sun::star::uno;
  66 using namespace ::com::sun::star::datatransfer;
  67 using namespace ::com::sun::star::beans;
  68 using namespace ::com::sun::star::lang;
  69 using namespace ::com::sun::star::form;
  70 using namespace ::com::sun::star::container;
  71 using namespace ::com::sun::star;
  72 using namespace ::svxform;
  73 using namespace ::svx;
  74
  75
  76 struct ColumnInfo
  77 {
  78     OUString sColumnName;
  79     OUString sLabel;
  80     ColumnInfo(const OUString& i_sColumnName,const OUString& i_sLabel)
  81         : sColumnName(i_sColumnName)
  82         , sLabel(i_sLabel)
  83     {
  84     }
  85 };
  86
  87 static void lcl_addToList( SvTreeListBox& _rListBox, const uno::Reference< container::XNameAccess>& i_xColumns )
  88 {
  89     uno::Sequence< OUString > aEntries = i_xColumns->getElementNames();
  90     const OUString* pEntries = aEntries.getConstArray();
  91     sal_Int32 nEntries = aEntries.getLength();
  92     for ( sal_Int32 i = 0; i < nEntries; ++i, ++pEntries )
  93     {
  94         uno::Reference< beans::XPropertySet> xColumn(i_xColumns->getByName(*pEntries),UNO_QUERY_THROW);
  95         OUString sLabel;
  96         if ( xColumn->getPropertySetInfo()->hasPropertyByName(FM_PROP_LABEL) )
  97             xColumn->getPropertyValue(FM_PROP_LABEL) >>= sLabel;
  98         if ( !sLabel.isEmpty() )
  99             _rListBox.InsertEntry( sLabel, NULL, false, TREELIST_APPEND, new ColumnInfo(*pEntries,sLabel) );
 100         else
 101             _rListBox.InsertEntry( *pEntries, NULL, false, TREELIST_APPEND, new ColumnInfo(*pEntries,sLabel) );
 102     }
 103 }
 104
 105 // class FmFieldWinListBox
 106
 107
 108 FmFieldWinListBox::FmFieldWinListBox( FmFieldWin* pParent )
 109     :SvTreeListBox( pParent, WB_HASBUTTONS|WB_BORDER )
 110     ,pTabWin( pParent )
 111 {
 112     SetHelpId( HID_FIELD_SEL );
 113
 114     SetHighlightRange( );
 115 }
 116
 117
 118 FmFieldWinListBox::~FmFieldWinListBox()
 119 {
 120 }
 121
 122
 123 sal_Int8 FmFieldWinListBox::AcceptDrop( const AcceptDropEvent& /*rEvt*/ )
 124 {
 125     return DND_ACTION_NONE;
 126 }
 127
 128
 129 sal_Int8 FmFieldWinListBox::ExecuteDrop( const ExecuteDropEvent& /*rEvt*/ )
 130 {
 131     return DND_ACTION_NONE;
 132 }
 133
 134
 135 bool FmFieldWinListBox::DoubleClickHdl()
 136 {
 137     if ( pTabWin->createSelectionControls() )
 138         return true;
 139
 140     return SvTreeListBox::DoubleClickHdl();
 141 }
 142
 143
 144 void FmFieldWinListBox::StartDrag( sal_Int8 /*_nAction*/, const Point& /*_rPosPixel*/ )
 145 {
 146     SvTreeListEntry* pSelected = FirstSelected();
 147     if (!pSelected)
 148         // no drag without a field
 149         return;
 150
 151     ::svx::ODataAccessDescriptor aDescriptor;
 152     aDescriptor[ daDataSource ] <<= pTabWin->GetDatabaseName();
 153     aDescriptor[ daConnection ] <<= pTabWin->GetConnection().getTyped();
 154     aDescriptor[ daCommand ]    <<= pTabWin->GetObjectName();
 155     aDescriptor[ daCommandType ]<<= pTabWin->GetObjectType();
 156     ColumnInfo* pInfo = static_cast<ColumnInfo*>(pSelected->GetUserData());
 157     aDescriptor[ daColumnName ] <<= pInfo->sColumnName;
 158
 159     TransferableHelper* pTransferColumn = new OColumnTransferable(
 160         aDescriptor, CTF_FIELD_DESCRIPTOR | CTF_CONTROL_EXCHANGE | CTF_COLUMN_DESCRIPTOR
 161     );
 162     Reference< XTransferable> xEnsureDelete = pTransferColumn;
 163     if (pTransferColumn)
 164     {
 165         EndSelection();
 166         pTransferColumn->StartDrag( this, DND_ACTION_COPY );
 167     }
 168 }
 169
 170
 171 // class FmFieldWinData
 172
 173
 174 FmFieldWinData::FmFieldWinData()
 175 {
 176 }
 177
 178
 179 FmFieldWinData::~FmFieldWinData()
 180 {
 181 }
 182
 183
 184 // class FmFieldWin
 185
 186
 187 FmFieldWin::FmFieldWin(SfxBindings* _pBindings, SfxChildWindow* _pMgr, Window* _pParent)
 188             :SfxFloatingWindow(_pBindings, _pMgr, _pParent, WinBits(WB_STDMODELESS|WB_SIZEABLE))
 189             ,SfxControllerItem(SID_FM_FIELDS_CONTROL, *_pBindings)
 190             ,::comphelper::OPropertyChangeListener(m_aMutex)
 191             ,pData(new FmFieldWinData)
 192             ,m_nObjectType(0)
 193             ,m_pChangeListener(NULL)
 194 {
 195     SetHelpId( HID_FIELD_SEL_WIN );
 196
 197     SetBackground( Wallpaper( Application::GetSettings().GetStyleSettings().GetFaceColor()) );
 198     pListBox = new FmFieldWinListBox( this );
 199     pListBox->Show();
 200     UpdateContent(NULL);
 201     SetSizePixel(Size(STD_WIN_SIZE_X,STD_WIN_SIZE_Y));
 202 }
 203
 204
 205 FmFieldWin::~FmFieldWin()
 206 {
 207     if (m_pChangeListener)
 208     {
 209         m_pChangeListener->dispose();
 210         m_pChangeListener->release();
 211         //  delete m_pChangeListener;
 212     }
 213     delete pListBox;
 214     delete pData;
 215 }
 216
 217
 218 void FmFieldWin::GetFocus()
 219 {
 220     if ( pListBox )
 221         pListBox->GrabFocus();
 222     else
 223         SfxFloatingWindow::GetFocus();
 224 }
 225
 226
 227 bool FmFieldWin::createSelectionControls( )
 228 {
 229     SvTreeListEntry* pSelected = pListBox->FirstSelected();
 230     if ( pSelected )
 231     {
 232         // build a descriptor for the currently selected field
 233         ODataAccessDescriptor aDescr;
 234         aDescr.setDataSource(GetDatabaseName());
 235
 236         aDescr[ daConnection ]  <<= GetConnection().getTyped();
 237
 238         aDescr[ daCommand ]     <<= GetObjectName();
 239         aDescr[ daCommandType ] <<= GetObjectType();
 240         ColumnInfo* pInfo = static_cast<ColumnInfo*>(pSelected->GetUserData());
 241         aDescr[ daColumnName ]  <<= pInfo->sColumnName;//OUString( pListBox->GetEntryText( pSelected) );
 242
 243         // transfer this to the SFX world
 244         SfxUnoAnyItem aDescriptorItem( SID_FM_DATACCESS_DESCRIPTOR, makeAny( aDescr.createPropertyValueSequence() ) );
 245         const SfxPoolItem* pArgs[] =
 246         {
 247             &aDescriptorItem, NULL
 248         };
 249
 250         // execute the create slot
 251         GetBindings().Execute( SID_FM_CREATE_FIELDCONTROL, pArgs );
 252     }
 253
 254     return NULL != pSelected;
 255 }
 256
 257
 258 bool FmFieldWin::PreNotify( NotifyEvent& _rNEvt )
 259 {
 260     if ( EVENT_KEYINPUT == _rNEvt.GetType() )
 261     {
 262         const KeyCode& rKeyCode = _rNEvt.GetKeyEvent()->GetKeyCode();
 263         if ( ( 0 == rKeyCode.GetModifier() ) && ( KEY_RETURN == rKeyCode.GetCode() ) )
 264         {
 265             if ( createSelectionControls() )
 266                 return true;
 267         }
 268     }
 269
 270     return SfxFloatingWindow::PreNotify( _rNEvt );
 271 }
 272
 273
 274 bool FmFieldWin::Close()
 275 {
 276     return SfxFloatingWindow::Close();
 277 }
 278
 279
 280 void FmFieldWin::_propertyChanged(const ::com::sun::star::beans::PropertyChangeEvent& evt) throw( ::com::sun::star::uno::RuntimeException )
 281 {
 282     ::com::sun::star::uno::Reference< ::com::sun::star::form::XForm >  xForm(evt.Source, ::com::sun::star::uno::UNO_QUERY);
 283     UpdateContent(xForm);
 284 }
 285
 286
 287 void FmFieldWin::StateChanged(sal_uInt16 nSID, SfxItemState eState, const SfxPoolItem* pState)
 288 {
 289     if (!pState  || SID_FM_FIELDS_CONTROL != nSID)
 290         return;
 291
 292     if (eState >= SFX_ITEM_AVAILABLE)
 293     {
 294         FmFormShell* pShell = PTR_CAST(FmFormShell,((SfxObjectItem*)pState)->GetShell());
 295         UpdateContent(pShell);
 296     }
 297     else
 298         UpdateContent(NULL);
 299 }
 300
 301
 302 void FmFieldWin::UpdateContent(FmFormShell* pShell)
 303 {
 304     pListBox->Clear();
 305     OUString aTitle(SVX_RESSTR(RID_STR_FIELDSELECTION));
 306     SetText( aTitle );
 307
 308     if (!pShell || !pShell->GetImpl())
 309         return;
 310
 311     Reference< XForm >  xForm = pShell->GetImpl()->getCurrentForm();
 312     if ( xForm.is() )
 313         UpdateContent( xForm );
 314 }
 315
 316
 317 void FmFieldWin::UpdateContent(const ::com::sun::star::uno::Reference< ::com::sun::star::form::XForm > & xForm)
 318 {
 319     try
 320     {
 321         // ListBox loeschen
 322         pListBox->Clear();
 323         OUString aTitle(SVX_RES(RID_STR_FIELDSELECTION));
 324         SetText(aTitle);
 325
 326         if (!xForm.is())
 327             return;
 328
 329         Reference< XPreparedStatement >  xStatement;
 330         Reference< XPropertySet >  xSet(xForm, UNO_QUERY);
 331
 332         m_aObjectName   = ::comphelper::getString(xSet->getPropertyValue(FM_PROP_COMMAND));
 333         m_aDatabaseName = ::comphelper::getString(xSet->getPropertyValue(FM_PROP_DATASOURCE));
 334         m_nObjectType   = ::comphelper::getINT32(xSet->getPropertyValue(FM_PROP_COMMANDTYPE));
 335
 336         // get the connection of the form
 337         OStaticDataAccessTools aTools;
 338         m_aConnection.reset(
 339             aTools.connectRowset( Reference< XRowSet >( xForm, UNO_QUERY ), ::comphelper::getProcessComponentContext(), true ),
 340             SharedConnection::NoTakeOwnership
 341         );
 342         // TODO: When incompatible changes (such as extending the "virtualdbtools" interface by ensureRowSetConnection)
 343         // are allowed, again, we should change this: dbtools should consistently use SharedConnection all over
 344         // the place, and connectRowset should be replaced with ensureRowSetConnection
 345
 346         // get the fields of the object
 347
 348         if ( m_aConnection.is() && !m_aObjectName.isEmpty() )
 349         {
 350             Reference< XComponent > xKeepFieldsAlive;
 351             Reference< XNameAccess > xColumns = getFieldsByCommandDescriptor( m_aConnection, m_nObjectType, m_aObjectName,xKeepFieldsAlive );
 352             if ( xColumns.is() )
 353                 lcl_addToList(*pListBox,xColumns);
 354         }
 355
 356         // Prefix setzen
 357         OUString  aPrefix;
 358         StringListResource aPrefixes( SVX_RES( RID_RSC_TABWIN_PREFIX ) );
 359
 360         switch (m_nObjectType)
 361         {
 362             case CommandType::TABLE:
 363                 aPrefix = aPrefixes[0];
 364                 break;
 365             case CommandType::QUERY:
 366                 aPrefix = aPrefixes[1];
 367                 break;
 368             default:
 369                 aPrefix = aPrefixes[2];
 370                 break;
 371         }
 372
 373         // an dem PropertySet nach Aenderungen der ControlSource lauschen
 374         if (m_pChangeListener)
 375         {
 376             m_pChangeListener->dispose();
 377             m_pChangeListener->release();
 378         }
 379         m_pChangeListener = new ::comphelper::OPropertyChangeMultiplexer(this, xSet);
 380         m_pChangeListener->acquire();
 381         m_pChangeListener->addProperty(FM_PROP_DATASOURCE);
 382         m_pChangeListener->addProperty(FM_PROP_COMMAND);
 383         m_pChangeListener->addProperty(FM_PROP_COMMANDTYPE);
 384
 385         // Titel setzen
 386         aTitle = aTitle + " " + aPrefix + " " + OUString(m_aObjectName.getStr());
 387         SetText( aTitle );
 388     }
 389     catch( const Exception& )
 390     {
 391         OSL_FAIL( "FmTabWin::UpdateContent: caught an exception!" );
 392     }
 393 }
 394
 395
 396 void FmFieldWin::Resize()
 397 {
 398     SfxFloatingWindow::Resize();
 399
 400     Size aOutputSize( GetOutputSizePixel() );
 401
 402
 403
 404     // Groesse der ::com::sun::star::form::ListBox anpassen
 405     Point aLBPos( LISTBOX_BORDER, LISTBOX_BORDER );
 406     Size aLBSize( aOutputSize );
 407     aLBSize.Width() -= (2*LISTBOX_BORDER);
 408     aLBSize.Height() -= (2*LISTBOX_BORDER);
 409
 410     pListBox->SetPosSizePixel( aLBPos, aLBSize );
 411 }
 412
 413
 414 void FmFieldWin::FillInfo( SfxChildWinInfo& rInfo ) const
 415 {
 416     rInfo.bVisible = false;
 417 }
 418
 419
 420 SFX_IMPL_FLOATINGWINDOW(FmFieldWinMgr, SID_FM_ADD_FIELD)
 421
 422
 423 FmFieldWinMgr::FmFieldWinMgr(Window* _pParent, sal_uInt16 _nId,
 424                SfxBindings* _pBindings, SfxChildWinInfo* _pInfo)
 425               :SfxChildWindow(_pParent, _nId)
 426 {
 427     pWindow = new FmFieldWin(_pBindings, this, _pParent);
 428     SetHideNotDelete(true);
 429     eChildAlignment = SFX_ALIGN_NOALIGNMENT;
 430     ((SfxFloatingWindow*)pWindow)->Initialize( _pInfo );
 431 }
 432
 433
 434 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */