/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
/*
* This file is part of the LibreOffice project.
*
* This Source Code Form is subject to the terms of the Mozilla Public
* License, v. 2.0. If a copy of the MPL was not distributed with this
* file, You can obtain one at http://mozilla.org/MPL/2.0/.
*
* This file incorporates work covered by the following license notice:
*
* Licensed to the Apache Software Foundation (ASF) under one or more
* contributor license agreements. See the NOTICE file distributed
* with this work for additional information regarding copyright
* ownership. The ASF licenses this file to you under the Apache
* License, Version 2.0 (the "License"); you may not use this file
* except in compliance with the License. You may obtain a copy of
* the License at http://www.apache.org/licenses/LICENSE-2.0 .
*/
#include "Edit.hxx"
#include <com/sun/star/uno/Type.hxx>
#include <com/sun/star/awt/XWindow.hpp>
#include <com/sun/star/container/XIndexAccess.hpp>
#include <com/sun/star/form/XSubmit.hpp>
#include <com/sun/star/util/NumberFormat.hpp>
#include <com/sun/star/sdbc/DataType.hpp>
#include <com/sun/star/awt/XVclWindowPeer.hpp>
#include <vcl/svapp.hxx>
#include <vcl/keycodes.hxx>
#include <tools/wintypes.hxx>
#include <connectivity/dbtools.hxx>
#include <connectivity/formattedcolumnvalue.hxx>
#include <connectivity/dbconversion.hxx>
#include <comphelper/property.hxx>
#include <tools/diagnose_ex.h>
#include <sal/log.hxx>
using namespace dbtools;
namespace frm
{
using namespace ::com::sun::star::uno;
using namespace ::com::sun::star::sdb;
using namespace ::com::sun::star::sdbc;
using namespace ::com::sun::star::sdbcx;
using namespace ::com::sun::star::beans;
using namespace ::com::sun::star::container;
using namespace ::com::sun::star::form;
using namespace ::com::sun::star::awt;
using namespace ::com::sun::star::io;
using namespace ::com::sun::star::lang;
using namespace ::com::sun::star::util;
using namespace ::com::sun::star::form::binding;
Sequence<Type> OEditControl::_getTypes()
{
static Sequence<Type> aTypes;
if (!aTypes.getLength())
{
// my two base classes
aTypes = concatSequences(OBoundControl::_getTypes(), OEditControl_BASE::getTypes());
}
return aTypes;
}
Any SAL_CALL OEditControl::queryAggregation(const Type& _rType)
{
Any aReturn = OBoundControl::queryAggregation(_rType);
if (!aReturn.hasValue())
aReturn = OEditControl_BASE::queryInterface(_rType);
return aReturn;
}
OEditControl::OEditControl(const Reference<XComponentContext>& _rxFactory)
:OBoundControl( _rxFactory, FRM_SUN_CONTROL_RICHTEXTCONTROL )
,m_aChangeListeners(m_aMutex)
,m_nKeyEvent( nullptr )
{
osl_atomic_increment(&m_refCount);
{
Reference<XWindow> xComp;
if (query_aggregation(m_xAggregate, xComp))
{
xComp->addFocusListener(this);
xComp->addKeyListener(this);
}
}
osl_atomic_decrement(&m_refCount);
}
OEditControl::~OEditControl()
{
if( m_nKeyEvent )
Application::RemoveUserEvent( m_nKeyEvent );
if (!OComponentHelper::rBHelper.bDisposed)
{
acquire();
dispose();
}
}
// XChangeBroadcaster
void OEditControl::addChangeListener(const Reference<XChangeListener>& l)
{
m_aChangeListeners.addInterface( l );
}
void OEditControl::removeChangeListener(const Reference<XChangeListener>& l)
{
m_aChangeListeners.removeInterface( l );
}
// OComponentHelper
void OEditControl::disposing()
{
OBoundControl::disposing();
EventObject aEvt(static_cast<XWeak*>(this));
m_aChangeListeners.disposeAndClear(aEvt);
}
// XServiceInfo
css::uno::Sequence<OUString> OEditControl::getSupportedServiceNames()
{
css::uno::Sequence<OUString> aSupported = OBoundControl::getSupportedServiceNames();
aSupported.realloc(aSupported.getLength() + 3);
OUString*pArray = aSupported.getArray();
pArray[aSupported.getLength()-3] = FRM_SUN_CONTROL_TEXTFIELD;
pArray[aSupported.getLength()-2] = STARDIV_ONE_FORM_CONTROL_EDIT;
pArray[aSupported.getLength()-1] = STARDIV_ONE_FORM_CONTROL_TEXTFIELD;
return aSupported;
}
// XEventListener
void OEditControl::disposing(const EventObject& Source)
{
OBoundControl::disposing(Source);
}
// XFocusListener
void OEditControl::focusGained( const FocusEvent& /*e*/ )
{
Reference<XPropertySet> xSet(getModel(), UNO_QUERY);
if (xSet.is())
xSet->getPropertyValue( PROPERTY_TEXT ) >>= m_aHtmlChangeValue;
}
void OEditControl::focusLost( const FocusEvent& /*e*/ )
{
Reference<XPropertySet> xSet(getModel(), UNO_QUERY);
if (xSet.is())
{
OUString sNewHtmlChangeValue;
xSet->getPropertyValue( PROPERTY_TEXT ) >>= sNewHtmlChangeValue;
if( sNewHtmlChangeValue != m_aHtmlChangeValue )
{
EventObject aEvt( *this );
m_aChangeListeners.notifyEach( &XChangeListener::changed, aEvt );
}
}
}
// XKeyListener
void OEditControl::keyPressed(const css::awt::KeyEvent& e)
{
if( e.KeyCode != KEY_RETURN || e.Modifiers != 0 )
return;
// Is the Control in a form with a submit URL?
Reference<XPropertySet> xSet(getModel(), UNO_QUERY);
if( !xSet.is() )
return;
// Not for multiline edits
Any aTmp( xSet->getPropertyValue(PROPERTY_MULTILINE));
if ((aTmp.getValueType().equals(cppu::UnoType<bool>::get())) && getBOOL(aTmp))
return;
Reference<XFormComponent> xFComp(xSet, UNO_QUERY);
css::uno::Reference<css::uno::XInterface> xParent = xFComp->getParent();
if( !xParent.is() )
return;
Reference<XPropertySet> xFormSet(xParent, UNO_QUERY);
if( !xFormSet.is() )
return;
aTmp = xFormSet->getPropertyValue( PROPERTY_TARGET_URL );
if (!aTmp.getValueType().equals(cppu::UnoType<OUString>::get()) ||
getString(aTmp).isEmpty() )
return;
Reference<XIndexAccess> xElements(xParent, UNO_QUERY);
sal_Int32 nCount = xElements->getCount();
if( nCount > 1 )
{
Reference<XPropertySet> xFCSet;
for( sal_Int32 nIndex=0; nIndex < nCount; nIndex++ )
{
// Any aElement(xElements->getByIndex(nIndex));
xElements->getByIndex(nIndex) >>= xFCSet;
OSL_ENSURE(xFCSet.is(),"OEditControl::keyPressed: No XPropertySet!");
if (hasProperty(PROPERTY_CLASSID, xFCSet) &&
getINT16(xFCSet->getPropertyValue(PROPERTY_CLASSID)) == FormComponentType::TEXTFIELD)
{
// Found another Edit -> then do not submit!
if (xFCSet != xSet)
return;
}
}
}
// Because we're still in the header, trigger submit asynchronously
if( m_nKeyEvent )
Application::RemoveUserEvent( m_nKeyEvent );
m_nKeyEvent = Application::PostUserEvent( LINK(this, OEditControl, OnKeyPressed) );
}
void OEditControl::keyReleased(const css::awt::KeyEvent& /*e*/)
{
}
IMPL_LINK_NOARG(OEditControl, OnKeyPressed, void*, void)
{
m_nKeyEvent = nullptr;
Reference<XFormComponent> xFComp(getModel(), UNO_QUERY);
css::uno::Reference<css::uno::XInterface> xParent = xFComp->getParent();
Reference<XSubmit> xSubmit(xParent, UNO_QUERY);
if (xSubmit.is())
xSubmit->submit( Reference<XControl>(), css::awt::MouseEvent() );
}
OEditModel::OEditModel(const Reference<XComponentContext>& _rxFactory)
:OEditBaseModel( _rxFactory, FRM_SUN_COMPONENT_RICHTEXTCONTROL, FRM_SUN_CONTROL_TEXTFIELD, true, true )
,m_bMaxTextLenModified(false)
,m_bWritingFormattedFake(false)
{
m_nClassId = FormComponentType::TEXTFIELD;
initValueProperty( PROPERTY_TEXT, PROPERTY_ID_TEXT );
}
OEditModel::OEditModel( const OEditModel* _pOriginal, const Reference<XComponentContext>& _rxFactory )
:OEditBaseModel( _pOriginal, _rxFactory )
,m_bMaxTextLenModified(false)
,m_bWritingFormattedFake(false)
{
// Note that most of the properties are not clone from the original object:
// Things as the format key, it's type, and such, depend on the field being part of a loaded form
// (they're initialized in onConnectedDbColumn). Even if the original object _is_ part of such a form, we ourself
// certainly aren't, so these members are defaulted. If we're inserted into a form which is already loaded,
// they will be set to new values, anyway ....
}
OEditModel::~OEditModel()
{
if (!OComponentHelper::rBHelper.bDisposed)
{
acquire();
dispose();
}
}
IMPLEMENT_DEFAULT_CLONING( OEditModel )
void OEditModel::disposing()
{
OEditBaseModel::disposing();
m_pValueFormatter.reset();
}
// XPersistObject
OUString SAL_CALL OEditModel::getServiceName()
{
return OUString(FRM_COMPONENT_EDIT); // old (non-sun) name for compatibility !
}
// XServiceInfo
css::uno::Sequence<OUString> SAL_CALL OEditModel::getSupportedServiceNames()
{
css::uno::Sequence<OUString> aSupported = OBoundControlModel::getSupportedServiceNames();
sal_Int32 nOldLen = aSupported.getLength();
aSupported.realloc( nOldLen + 9 );
OUString* pStoreTo = aSupported.getArray() + nOldLen;
*pStoreTo++ = BINDABLE_CONTROL_MODEL;
*pStoreTo++ = DATA_AWARE_CONTROL_MODEL;
*pStoreTo++ = VALIDATABLE_CONTROL_MODEL;
*pStoreTo++ = BINDABLE_DATA_AWARE_CONTROL_MODEL;
*pStoreTo++ = VALIDATABLE_BINDABLE_CONTROL_MODEL;
*pStoreTo++ = FRM_SUN_COMPONENT_TEXTFIELD;
*pStoreTo++ = FRM_SUN_COMPONENT_DATABASE_TEXTFIELD;
*pStoreTo++ = BINDABLE_DATABASE_TEXT_FIELD;
*pStoreTo++ = FRM_COMPONENT_TEXTFIELD;
return aSupported;
}
// XPropertySet
void SAL_CALL OEditModel::getFastPropertyValue(Any& rValue, sal_Int32 nHandle ) const
{
if ( PROPERTY_ID_PERSISTENCE_MAXTEXTLENGTH == nHandle )
{
if ( m_bMaxTextLenModified )
rValue <<= sal_Int16(0);
else if ( m_xAggregateSet.is() )
rValue = m_xAggregateSet->getPropertyValue(PROPERTY_MAXTEXTLEN);
}
else
{
OEditBaseModel::getFastPropertyValue(rValue, nHandle );
}
}
void OEditModel::describeFixedProperties( Sequence< Property >& _rProps ) const
{
BEGIN_DESCRIBE_PROPERTIES( 5, OEditBaseModel )
DECL_PROP2(PERSISTENCE_MAXTEXTLENGTH,sal_Int16, READONLY, TRANSIENT);
DECL_PROP2(DEFAULT_TEXT, OUString, BOUND, MAYBEDEFAULT);
DECL_BOOL_PROP1(EMPTY_IS_NULL, BOUND);
DECL_PROP1(TABINDEX, sal_Int16, BOUND);
DECL_BOOL_PROP2(FILTERPROPOSAL, BOUND, MAYBEDEFAULT);
END_DESCRIBE_PROPERTIES();
}
void OEditModel::describeAggregateProperties( Sequence< Property >& _rAggregateProps ) const
{
OEditBaseModel::describeAggregateProperties( _rAggregateProps );
// our aggregate is a rich text model, which also derives from OControlModel, as
// do we, so we need to remove some duplicate properties
RemoveProperty( _rAggregateProps, PROPERTY_TABINDEX );
RemoveProperty( _rAggregateProps, PROPERTY_CLASSID );
RemoveProperty( _rAggregateProps, PROPERTY_NAME );
RemoveProperty( _rAggregateProps, PROPERTY_TAG );
RemoveProperty( _rAggregateProps, PROPERTY_NATIVE_LOOK );
}
bool OEditModel::implActsAsRichText( ) const
{
bool bActAsRichText = false;
if ( m_xAggregateSet.is() )
{
OSL_VERIFY( m_xAggregateSet->getPropertyValue( PROPERTY_RICH_TEXT ) >>= bActAsRichText );
}
return bActAsRichText;
}
void SAL_CALL OEditModel::reset( )
{
// no reset if we currently act as rich text control
if ( implActsAsRichText() )
return;
OEditBaseModel::reset();
}
namespace
{
void lcl_transferProperties( const Reference< XPropertySet >& _rxSource, const Reference< XPropertySet >& _rxDest )
{
try
{
Reference< XPropertySetInfo > xSourceInfo;
if ( _rxSource.is() )
xSourceInfo = _rxSource->getPropertySetInfo();
Reference< XPropertySetInfo > xDestInfo;
if ( _rxDest.is() )
xDestInfo = _rxDest->getPropertySetInfo();
if ( !xSourceInfo.is() || !xDestInfo.is() )
{
OSL_FAIL( "lcl_transferProperties: invalid property set(s)!" );
return;
}
Sequence< Property > aSourceProps( xSourceInfo->getProperties() );
for ( auto const & sourceprop : aSourceProps )
{
if ( !xDestInfo->hasPropertyByName( sourceprop.Name ) )
{
continue;
}
Property aDestProp( xDestInfo->getPropertyByName( sourceprop.Name ) );
if ( 0 != ( aDestProp.Attributes & PropertyAttribute::READONLY ) )
{
continue;
}
try
{
_rxDest->setPropertyValue( sourceprop.Name, _rxSource->getPropertyValue( sourceprop.Name ) );
}
catch(const IllegalArgumentException& e)
{
SAL_WARN( "forms.component", "could not transfer the property named '"
<< sourceprop.Name
<< "'. " << e );
}
}
}
catch( const Exception& )
{
DBG_UNHANDLED_EXCEPTION("forms.component");
}
}
}
void OEditModel::writeAggregate( const Reference< XObjectOutputStream >& _rxOutStream ) const
{
// we need to fake the writing of our aggregate. Since #i24387#, we have another aggregate,
// but for compatibility, we need to use an "old" aggregate for writing and reading
Reference< XPropertySet > xFakedAggregate(
getContext()->getServiceManager()->createInstanceWithContext( VCL_CONTROLMODEL_EDIT, getContext() ),
UNO_QUERY
);
OSL_ENSURE( xFakedAggregate.is(), "OEditModel::writeAggregate: could not create an old EditControlModel!" );
if ( !xFakedAggregate.is() )
return;
lcl_transferProperties( m_xAggregateSet, xFakedAggregate );
Reference< XPersistObject > xFakedPersist( xFakedAggregate, UNO_QUERY );
OSL_ENSURE( xFakedPersist.is(), "OEditModel::writeAggregate: no XPersistObject!" );
if ( xFakedPersist.is() )
xFakedPersist->write( _rxOutStream );
}
void OEditModel::readAggregate( const Reference< XObjectInputStream >& _rxInStream )
{
// we need to fake the reading of our aggregate. Since #i24387#, we have another aggregate,
// but for compatibility, we need to use an "old" aggregate for writing and reading
Reference< XPropertySet > xFakedAggregate(
getContext()->getServiceManager()->createInstanceWithContext( VCL_CONTROLMODEL_EDIT, getContext() ),
UNO_QUERY
);
Reference< XPersistObject > xFakedPersist( xFakedAggregate, UNO_QUERY );
OSL_ENSURE( xFakedPersist.is(), "OEditModel::readAggregate: no XPersistObject, or no faked aggregate at all!" );
if ( xFakedPersist.is() )
{
xFakedPersist->read( _rxInStream );
lcl_transferProperties( xFakedAggregate, m_xAggregateSet );
}
}
void OEditModel::write(const Reference<XObjectOutputStream>& _rxOutStream)
{
Any aCurrentText;
sal_Int16 nOldTextLen = 0;
// Am I loaded at the moment and did I switch MaxTextLen temporarily?
if ( m_bMaxTextLenModified )
{ // -> for the duration of saving, make my aggregated model believe the old TextLen
// before doing this we have to save the current text value of the aggregate, as this may be affected by resetting the text len
aCurrentText = m_xAggregateSet->getPropertyValue(PROPERTY_TEXT);
m_xAggregateSet->getPropertyValue(PROPERTY_MAXTEXTLEN) >>= nOldTextLen;
m_xAggregateSet->setPropertyValue(PROPERTY_MAXTEXTLEN, makeAny(sal_Int16(0)));
}
OEditBaseModel::write(_rxOutStream);
if ( m_bMaxTextLenModified )
{ // Reset again
m_xAggregateSet->setPropertyValue(PROPERTY_MAXTEXTLEN, makeAny(nOldTextLen));
// and reset the text
// First we set it to an empty string : Without this the second setPropertyValue would not do anything as it thinks
// we aren't changing the prop (it didn't notify the - implicit - change of the text prop while setting the max text len)
// This seems to be a bug with in toolkit's EditControl-implementation.
m_xAggregateSet->setPropertyValue(PROPERTY_TEXT, makeAny(OUString()));
m_xAggregateSet->setPropertyValue(PROPERTY_TEXT, aCurrentText);
}
}
void OEditModel::read(const Reference<XObjectInputStream>& _rxInStream)
{
OEditBaseModel::read(_rxInStream);
// Some versions (5.1 'til about 552) wrote a wrong DefaultControl-property value which is unknown
// to older versions (5.0).
// correct this ...
if (m_xAggregateSet.is())
{
Any aDefaultControl = m_xAggregateSet->getPropertyValue(PROPERTY_DEFAULTCONTROL);
if ( (aDefaultControl.getValueType().getTypeClass() == TypeClass_STRING)
&& (getString(aDefaultControl) == STARDIV_ONE_FORM_CONTROL_TEXTFIELD )
)
{
m_xAggregateSet->setPropertyValue( PROPERTY_DEFAULTCONTROL, makeAny( OUString(STARDIV_ONE_FORM_CONTROL_EDIT) ) );
// Older as well as current versions should understand this : the former knew only the STARDIV_ONE_FORM_CONTROL_EDIT,
// the latter are registered for both STARDIV_ONE_FORM_CONTROL_EDIT and STARDIV_ONE_FORM_CONTROL_TEXTFIELD.
}
}
}
sal_uInt16 OEditModel::getPersistenceFlags() const
{
sal_uInt16 nFlags = OEditBaseModel::getPersistenceFlags();
if (m_bWritingFormattedFake)
nFlags |= PF_FAKE_FORMATTED_FIELD;
return nFlags;
}
void OEditModel::onConnectedDbColumn( const Reference< XInterface >& _rxForm )
{
Reference< XPropertySet > xField = getField();
if ( xField.is() )
{
m_pValueFormatter.reset( new ::dbtools::FormattedColumnValue( getContext(), Reference< XRowSet >( _rxForm, UNO_QUERY ), xField ) );
if ( m_pValueFormatter->getKeyType() != NumberFormat::SCIENTIFIC )
{
m_bMaxTextLenModified = getINT16(m_xAggregateSet->getPropertyValue(PROPERTY_MAXTEXTLEN)) != 0;
if ( !m_bMaxTextLenModified )
{
sal_Int32 nFieldLen = 0;
xField->getPropertyValue("Precision") >>= nFieldLen;
if (nFieldLen > 0 && nFieldLen <= SAL_MAX_INT16)
{
Any aVal;
aVal <<= static_cast<sal_Int16>(nFieldLen);
m_xAggregateSet->setPropertyValue(PROPERTY_MAXTEXTLEN, aVal);
m_bMaxTextLenModified = true;
}
}
else
m_bMaxTextLenModified = false; // to get sure that the text len won't be set in unloaded
}
}
}
void OEditModel::onDisconnectedDbColumn()
{
OEditBaseModel::onDisconnectedDbColumn();
m_pValueFormatter.reset();
if ( hasField() && m_bMaxTextLenModified )
{
Any aVal;
aVal <<= sal_Int16(0); // Only if it was 0, I switched it in onConnectedDbColumn
m_xAggregateSet->setPropertyValue(PROPERTY_MAXTEXTLEN, aVal);
m_bMaxTextLenModified = false;
}
}
bool OEditModel::approveDbColumnType( sal_Int32 _nColumnType )
{
// if we act as rich text currently, we do not allow binding to a database column
if ( implActsAsRichText() )
return false;
return OEditBaseModel::approveDbColumnType( _nColumnType );
}
bool OEditModel::commitControlValueToDbColumn( bool /*_bPostReset*/ )
{
Any aNewValue( m_xAggregateFastSet->getFastPropertyValue( getValuePropertyAggHandle() ) );
OUString sNewValue;
aNewValue >>= sNewValue;
if ( !aNewValue.hasValue()
|| ( sNewValue.isEmpty() // an empty string
&& m_bEmptyIsNull // which should be interpreted as NULL
)
)
{
m_xColumnUpdate->updateNull();
}
else
{
OSL_PRECOND( m_pValueFormatter.get(), "OEditModel::commitControlValueToDbColumn: no value formatter!" );
try
{
if ( m_pValueFormatter.get() )
{
if ( !m_pValueFormatter->setFormattedValue( sNewValue ) )
return false;
}
else
m_xColumnUpdate->updateString( sNewValue );
}
catch ( const Exception& )
{
return false;
}
}
return true;
}
Any OEditModel::translateDbColumnToControlValue()
{
OSL_PRECOND( m_pValueFormatter.get(), "OEditModel::translateDbColumnToControlValue: no value formatter!" );
Any aRet;
if ( m_pValueFormatter.get() )
{
OUString sValue( m_pValueFormatter->getFormattedValue() );
if ( sValue.isEmpty()
&& m_pValueFormatter->getColumn().is()
&& m_pValueFormatter->getColumn()->wasNull()
)
{
}
else
{
// #i2817# OJ
sal_uInt16 nMaxTextLen = getINT16( m_xAggregateSet->getPropertyValue( PROPERTY_MAXTEXTLEN ) );
if ( nMaxTextLen && sValue.getLength() > nMaxTextLen )
{
sal_Int32 nDiff = sValue.getLength() - nMaxTextLen;
sValue = sValue.replaceAt( nMaxTextLen, nDiff, OUString() );
}
aRet <<= sValue;
}
}
return aRet.hasValue() ? aRet : makeAny( OUString() );
}
Any OEditModel::getDefaultForReset() const
{
return makeAny( m_aDefaultText );
}
}
extern "C" SAL_DLLPUBLIC_EXPORT css::uno::XInterface*
com_sun_star_form_OEditModel_get_implementation(css::uno::XComponentContext* component,
css::uno::Sequence<css::uno::Any> const &)
{
return cppu::acquire(new frm::OEditModel(component));
}
extern "C" SAL_DLLPUBLIC_EXPORT css::uno::XInterface*
com_sun_star_form_OEditControl_get_implementation(css::uno::XComponentContext* component,
css::uno::Sequence<css::uno::Any> const &)
{
return cppu::acquire(new frm::OEditControl(component));
}
/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
↑ V560 A part of conditional expression is always true: nFieldLen <= ((sal_Int16) 0x7FFF).
↑ V560 A part of conditional expression is always false: nFieldLen > 0.