1 /**************************************************************
2  *
3  * Licensed to the Apache Software Foundation (ASF) under one
4  * or more contributor license agreements.  See the NOTICE file
5  * distributed with this work for additional information
6  * regarding copyright ownership.  The ASF licenses this file
7  * to you under the Apache License, Version 2.0 (the
8  * "License"); you may not use this file except in compliance
9  * with the License.  You may obtain a copy of the License at
10  *
11  *   http://www.apache.org/licenses/LICENSE-2.0
12  *
13  * Unless required by applicable law or agreed to in writing,
14  * software distributed under the License is distributed on an
15  * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
16  * KIND, either express or implied.  See the License for the
17  * specific language governing permissions and limitations
18  * under the License.
19  *
20  *************************************************************/
21 
22 
23 
24 // MARKER(update_precomp.py): autogen include statement, do not remove
25 #include "precompiled_forms.hxx"
26 #include "ImageControl.hxx"
27 
28 #include "property.hrc"
29 #include "frm_resource.hrc"
30 #include "frm_resource.hxx"
31 #include "services.hxx"
32 #include "componenttools.hxx"
33 
34 #include <svtools/imageresourceaccess.hxx>
35 #include <unotools/ucblockbytes.hxx>
36 #include <sfx2/filedlghelper.hxx>
37 #include <com/sun/star/awt/XPopupMenu.hpp>
38 #include <com/sun/star/awt/PopupMenuDirection.hpp>
39 #include <com/sun/star/ui/dialogs/TemplateDescription.hpp>
40 #include <com/sun/star/ui/dialogs/ExtendedFilePickerElementIds.hpp>
41 #include <com/sun/star/ui/dialogs/XFilePickerControlAccess.hpp>
42 #include <com/sun/star/ui/dialogs/XFilePicker.hpp>
43 #include <com/sun/star/sdbc/DataType.hpp>
44 #include <com/sun/star/awt/MouseButton.hpp>
45 #include <com/sun/star/awt/XWindow.hpp>
46 #include <com/sun/star/awt/XDialog.hpp>
47 #include <com/sun/star/io/XActiveDataSink.hpp>
48 #include <com/sun/star/io/NotConnectedException.hpp>
49 #include <com/sun/star/beans/PropertyValue.hpp>
50 #include <com/sun/star/graphic/XGraphic.hpp>
51 #include <com/sun/star/graphic/GraphicObject.hpp>
52 #include <tools/urlobj.hxx>
53 #include <tools/stream.hxx>
54 #include <tools/debug.hxx>
55 #include <tools/diagnose_ex.h>
56 #include <vcl/svapp.hxx>
57 #include <unotools/streamhelper.hxx>
58 #include <comphelper/extract.hxx>
59 #include <comphelper/guarding.hxx>
60 #include <unotools/ucbstreamhelper.hxx>
61 #include <svl/urihelper.hxx>
62 
63 #include <memory>
64 
65 #define ID_OPEN_GRAPHICS			1
66 #define	ID_CLEAR_GRAPHICS			2
67 
68 //.........................................................................
69 namespace frm
70 {
71 //.........................................................................
72 using namespace ::com::sun::star;
73 using namespace ::com::sun::star::uno;
74 using namespace ::com::sun::star::sdb;
75 using namespace ::com::sun::star::sdbc;
76 using namespace ::com::sun::star::sdbcx;
77 using namespace ::com::sun::star::beans;
78 using namespace ::com::sun::star::container;
79 using namespace ::com::sun::star::form;
80 using namespace ::com::sun::star::awt;
81 using namespace ::com::sun::star::io;
82 using namespace ::com::sun::star::ui::dialogs;
83 using namespace ::com::sun::star::lang;
84 using namespace ::com::sun::star::util;
85 using namespace ::com::sun::star::graphic;
86 using namespace ::com::sun::star::frame;
87 
88 //==============================================================================
89 //= OImageControlModel
90 //==============================================================================
91 namespace
92 {
93     enum ImageStoreType
94     {
95         ImageStoreBinary,
96         ImageStoreLink,
97 
98         ImageStoreInvalid
99     };
100 
101     ImageStoreType lcl_getImageStoreType( const sal_Int32 _nFieldType )
102     {
103 	    // binary/longvarchar types could be used to store images in binary representation
104 	    if  (   ( _nFieldType == DataType::BINARY )
105             ||  ( _nFieldType == DataType::VARBINARY )
106 		    ||  ( _nFieldType == DataType::LONGVARBINARY )
107             ||  ( _nFieldType == DataType::OTHER )
108             ||  ( _nFieldType == DataType::OBJECT )
109             ||  ( _nFieldType == DataType::BLOB )
110 		    ||  ( _nFieldType == DataType::LONGVARCHAR )
111 			||  ( _nFieldType == DataType::CLOB )
112             )
113 		    return ImageStoreBinary;
114 
115         // char types could be used to store links to images
116         if  (   ( _nFieldType == DataType::CHAR )
117             ||  ( _nFieldType == DataType::VARCHAR )
118             )
119             return ImageStoreLink;
120 
121         return ImageStoreInvalid;
122     }
123 }
124 
125 //==============================================================================
126 // OImageControlModel
127 //==============================================================================
128 
129 //------------------------------------------------------------------------------
130 InterfaceRef SAL_CALL OImageControlModel_CreateInstance(const Reference<XMultiServiceFactory>& _rxFactory)
131 {
132 	return *(new OImageControlModel(_rxFactory));
133 }
134 
135 //------------------------------------------------------------------------------
136 Sequence<Type> OImageControlModel::_getTypes()
137 {
138 	return concatSequences(
139         OBoundControlModel::_getTypes(),
140         OImageControlModel_Base::getTypes()
141     );
142 }
143 
144 DBG_NAME(OImageControlModel)
145 //------------------------------------------------------------------
146 OImageControlModel::OImageControlModel(const Reference<XMultiServiceFactory>& _rxFactory)
147 	:OBoundControlModel( _rxFactory, VCL_CONTROLMODEL_IMAGECONTROL, FRM_SUN_CONTROL_IMAGECONTROL, sal_False, sal_False, sal_False )
148 					// use the old control name for compytibility reasons
149 	,m_pImageProducer( NULL )
150     ,m_bExternalGraphic( true )
151 	,m_bReadOnly( sal_False )
152     ,m_sImageURL()
153     ,m_xGraphicObject()
154 {
155 	DBG_CTOR( OImageControlModel, NULL );
156 	m_nClassId = FormComponentType::IMAGECONTROL;
157     initOwnValueProperty( PROPERTY_IMAGE_URL );
158 
159 	implConstruct();
160 }
161 
162 //------------------------------------------------------------------
163 OImageControlModel::OImageControlModel( const OImageControlModel* _pOriginal, const Reference< XMultiServiceFactory >& _rxFactory )
164 	:OBoundControlModel( _pOriginal, _rxFactory )
165 				// use the old control name for compytibility reasons
166 	,m_pImageProducer( NULL )
167     ,m_bExternalGraphic( true )
168 	,m_bReadOnly( _pOriginal->m_bReadOnly )
169     ,m_sImageURL( _pOriginal->m_sImageURL )
170     ,m_xGraphicObject( _pOriginal->m_xGraphicObject )
171 {
172 	DBG_CTOR( OImageControlModel, NULL );
173 	implConstruct();
174 
175     osl_incrementInterlockedCount( &m_refCount );
176     {
177         // simulate a propertyChanged event for the ImageURL
178         // 2003-05-15 - #109591# - fs@openoffice.org
179         ::osl::MutexGuard aGuard( m_aMutex );
180         impl_handleNewImageURL_lck( eOther );
181     }
182     osl_decrementInterlockedCount( &m_refCount );
183 }
184 
185 //------------------------------------------------------------------
186 void OImageControlModel::implConstruct()
187 {
188 	m_pImageProducer = new ImageProducer;
189 	m_xImageProducer = m_pImageProducer;
190     m_pImageProducer->SetDoneHdl( LINK( this, OImageControlModel, OnImageImportDone ) );
191 }
192 
193 //------------------------------------------------------------------
194 OImageControlModel::~OImageControlModel()
195 {
196 	if (!OComponentHelper::rBHelper.bDisposed)
197 	{
198 		acquire();
199 		dispose();
200 	}
201 
202 	DBG_DTOR(OImageControlModel,NULL);
203 }
204 
205 // XCloneable
206 //------------------------------------------------------------------------------
207 IMPLEMENT_DEFAULT_CLONING( OImageControlModel )
208 
209 // XServiceInfo
210 //------------------------------------------------------------------------------
211 StringSequence	OImageControlModel::getSupportedServiceNames() throw()
212 {
213 	StringSequence aSupported = OBoundControlModel::getSupportedServiceNames();
214 	aSupported.realloc(aSupported.getLength() + 1);
215 
216 	::rtl::OUString*pArray = aSupported.getArray();
217 	pArray[aSupported.getLength()-1] = FRM_SUN_COMPONENT_IMAGECONTROL;
218 	return aSupported;
219 }
220 
221 //------------------------------------------------------------------------------
222 Any SAL_CALL OImageControlModel::queryAggregation(const Type& _rType) throw (RuntimeException)
223 {
224     // oder matters: we want to "override" the XImageProducer interface of the aggreate with out
225     // own XImageProducer interface, thus we need to query OImageControlModel_Base first
226     Any aReturn = OImageControlModel_Base::queryInterface( _rType );
227 
228     // BUT: _don't_ let it feel responsible for the XTypeProvider interface
229     // (as this is implemented by our base class in the proper way)
230     if  (   _rType.equals( ::getCppuType( static_cast< Reference< XTypeProvider >* >( NULL ) ) )
231 	    ||  !aReturn.hasValue()
232         )
233 	    aReturn = OBoundControlModel::queryAggregation( _rType );
234 
235 	return aReturn;
236 }
237 
238 //------------------------------------------------------------------------------
239 sal_Bool OImageControlModel::approveDbColumnType( sal_Int32 _nColumnType )
240 {
241 	return ImageStoreInvalid != lcl_getImageStoreType( _nColumnType );
242 }
243 
244 //------------------------------------------------------------------------------
245 void OImageControlModel::getFastPropertyValue(Any& rValue, sal_Int32 nHandle) const
246 {
247 	switch (nHandle)
248 	{
249         case PROPERTY_ID_READONLY:
250             rValue <<= (sal_Bool)m_bReadOnly;
251             break;
252         case PROPERTY_ID_IMAGE_URL:
253             rValue <<= m_sImageURL;
254             break;
255         case PROPERTY_ID_GRAPHIC:
256             rValue <<= m_xGraphicObject.is() ? m_xGraphicObject->getGraphic() : Reference< XGraphic >();
257             break;
258 		default:
259 			OBoundControlModel::getFastPropertyValue(rValue, nHandle);
260 	}
261 }
262 
263 //------------------------------------------------------------------------------
264 void OImageControlModel::setFastPropertyValue_NoBroadcast(sal_Int32 nHandle, const Any& rValue) throw ( ::com::sun::star::uno::Exception)
265 {
266 	switch (nHandle)
267 	{
268 		case PROPERTY_ID_READONLY :
269 			DBG_ASSERT(rValue.getValueType().getTypeClass() == TypeClass_BOOLEAN, "OImageControlModel::setFastPropertyValue_NoBroadcast : invalid type !" );
270 			m_bReadOnly = getBOOL(rValue);
271 			break;
272 
273         case PROPERTY_ID_IMAGE_URL:
274             OSL_VERIFY( rValue >>= m_sImageURL );
275             impl_handleNewImageURL_lck( eOther );
276             {
277                 ControlModelLock aLock( *this );
278                     // that's a fake ... onValuePropertyChange expects to receive the only lock to our instance,
279                     // but we're already called with our mutex locked ...
280                 onValuePropertyChange( aLock );
281             }
282             break;
283 
284         case PROPERTY_ID_GRAPHIC:
285         {
286             Reference< XGraphic > xGraphic;
287             OSL_VERIFY( rValue >>= xGraphic );
288             if ( !xGraphic.is() )
289                 m_xGraphicObject.clear();
290             else
291             {
292                 m_xGraphicObject = GraphicObject::create( m_aContext.getUNOContext() );
293                 m_xGraphicObject->setGraphic( xGraphic );
294             }
295 
296             if ( m_bExternalGraphic )
297             {
298                 // if that's an external graphic, i.e. one which has not been loaded by ourselves in response to a
299                 // new image URL, then also adjust our ImageURL.
300                 ::rtl::OUString sNewImageURL;
301                 if ( m_xGraphicObject.is() )
302                 {
303                     sNewImageURL = ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "vnd.sun.star.GraphicObject:" ) );
304 				    sNewImageURL = sNewImageURL + m_xGraphicObject->getUniqueID();
305                 }
306                 m_sImageURL = sNewImageURL;
307                 // TODO: speaking strictly, this would need to be notified, since ImageURL is a bound property. However,
308                 // this method here is called with a locked mutex, so we cannot simply call listeners ...
309                 // I think the missing notification (and thus clients which potentially cannot observe the change)
310                 // is less severe than the potential deadlock ...
311             }
312         }
313         break;
314 
315         default:
316 			OBoundControlModel::setFastPropertyValue_NoBroadcast(nHandle, rValue);
317             break;
318 	}
319 }
320 
321 //------------------------------------------------------------------------------
322 sal_Bool OImageControlModel::convertFastPropertyValue(Any& rConvertedValue, Any& rOldValue, sal_Int32 nHandle, const Any& rValue)
323 								throw( IllegalArgumentException )
324 {
325 	switch (nHandle)
326 	{
327 		case PROPERTY_ID_READONLY :
328 			return tryPropertyValue(rConvertedValue, rOldValue, rValue, m_bReadOnly);
329 
330         case PROPERTY_ID_IMAGE_URL:
331             return tryPropertyValue( rConvertedValue, rOldValue, rValue, m_sImageURL );
332 
333         case PROPERTY_ID_GRAPHIC:
334         {
335             const Reference< XGraphic > xGraphic( getFastPropertyValue( PROPERTY_ID_GRAPHIC ), UNO_QUERY );
336             return tryPropertyValue( rConvertedValue, rOldValue, rValue, xGraphic );
337         }
338 
339 		default:
340 			return OBoundControlModel::convertFastPropertyValue(rConvertedValue, rOldValue, nHandle, rValue);
341 	}
342 }
343 
344 //------------------------------------------------------------------------------
345 void OImageControlModel::describeFixedProperties( Sequence< Property >& _rProps ) const
346 {
347 	BEGIN_DESCRIBE_PROPERTIES( 4, OBoundControlModel )
348         DECL_IFACE_PROP2( GRAPHIC,   XGraphic,        BOUND, TRANSIENT );
349         DECL_PROP1      ( IMAGE_URL, ::rtl::OUString, BOUND );
350 		DECL_BOOL_PROP1 ( READONLY,                   BOUND );
351         DECL_PROP1      ( TABINDEX,  sal_Int16,       BOUND );
352 	END_DESCRIBE_PROPERTIES();
353 }
354 
355 //------------------------------------------------------------------------------
356 void OImageControlModel::describeAggregateProperties( Sequence< Property >& /* [out] */ o_rAggregateProperties ) const
357 {
358     OBoundControlModel::describeAggregateProperties( o_rAggregateProperties );
359     // remove ImageULR and Graphic properties, we "overload" them. This is because our aggregate synchronizes those
360     // two, but we have an own sychronization mechanism.
361     RemoveProperty( o_rAggregateProperties, PROPERTY_IMAGE_URL );
362     RemoveProperty( o_rAggregateProperties, PROPERTY_GRAPHIC );
363 }
364 
365 //------------------------------------------------------------------------------
366 ::rtl::OUString OImageControlModel::getServiceName() throw ( ::com::sun::star::uno::RuntimeException)
367 {
368 	return FRM_COMPONENT_IMAGECONTROL;	// old (non-sun) name for compatibility !
369 }
370 
371 //------------------------------------------------------------------------------
372 void OImageControlModel::write(const Reference<XObjectOutputStream>& _rxOutStream) throw ( ::com::sun::star::io::IOException, ::com::sun::star::uno::RuntimeException)
373 {
374 	// Basisklasse
375 	OBoundControlModel::write(_rxOutStream);
376 	// Version
377 	_rxOutStream->writeShort(0x0003);
378 	// Name
379 	_rxOutStream->writeBoolean(m_bReadOnly);
380 	writeHelpTextCompatibly(_rxOutStream);
381 	// from version 0x0003 : common properties
382 	writeCommonProperties(_rxOutStream);
383 }
384 
385 //------------------------------------------------------------------------------
386 void OImageControlModel::read(const Reference<XObjectInputStream>& _rxInStream) throw ( ::com::sun::star::io::IOException, ::com::sun::star::uno::RuntimeException)
387 {
388 	OBoundControlModel::read(_rxInStream);
389 
390 	// Version
391 	sal_uInt16 nVersion = _rxInStream->readShort();
392 	switch (nVersion)
393 	{
394 		case 0x0001:
395 			m_bReadOnly = _rxInStream->readBoolean();
396 			break;
397 		case 0x0002:
398 			m_bReadOnly = _rxInStream->readBoolean();
399 			readHelpTextCompatibly(_rxInStream);
400 			break;
401 		case 0x0003:
402 			m_bReadOnly = _rxInStream->readBoolean();
403 			readHelpTextCompatibly(_rxInStream);
404 			readCommonProperties(_rxInStream);
405 			break;
406 		default :
407 			DBG_ERROR("OImageControlModel::read : unknown version !");
408 			m_bReadOnly = sal_False;
409 			defaultCommonProperties();
410 			break;
411 	}
412 	// Nach dem Lesen die Defaultwerte anzeigen
413 	if ( getControlSource().getLength() )
414 	{	// (not if we don't have a control source - the "State" property acts like it is persistent, then
415 		::osl::MutexGuard aGuard(m_aMutex);	// resetNoBroadcast expects this mutex guarding
416 		resetNoBroadcast();
417 	}
418 }
419 
420 //------------------------------------------------------------------------------
421 sal_Bool OImageControlModel::impl_updateStreamForURL_lck( const ::rtl::OUString& _rURL, ValueChangeInstigator _eInstigator )
422 {
423     // create a stream for the image specified by the URL
424     ::std::auto_ptr< SvStream > pImageStream;
425     Reference< XInputStream > xImageStream;
426 
427     if ( ::svt::GraphicAccess::isSupportedURL( _rURL ) )
428     {
429         xImageStream = ::svt::GraphicAccess::getImageXStream( getContext().getLegacyServiceFactory(), _rURL );
430     }
431     else
432     {
433         pImageStream.reset( ::utl::UcbStreamHelper::CreateStream( _rURL, STREAM_READ ) );
434         sal_Bool bSetNull = ( pImageStream.get() == NULL ) || ( ERRCODE_NONE != pImageStream->GetErrorCode() );
435 
436         if ( !bSetNull )
437         {
438 	        // get the size of the stream
439 	        pImageStream->Seek(STREAM_SEEK_TO_END);
440 	        sal_Int32 nSize = (sal_Int32)pImageStream->Tell();
441 	        if (pImageStream->GetBufferSize() < 8192)
442 		        pImageStream->SetBufferSize(8192);
443 	        pImageStream->Seek(STREAM_SEEK_TO_BEGIN);
444 
445             xImageStream = new ::utl::OInputStreamHelper( new SvLockBytes( pImageStream.get(), sal_False ), nSize );
446         }
447     }
448 
449     if ( xImageStream.is() )
450     {
451         if ( m_xColumnUpdate.is() )
452             m_xColumnUpdate->updateBinaryStream( xImageStream, xImageStream->available() );
453         else
454             setControlValue( makeAny( xImageStream ), _eInstigator );
455         xImageStream->closeInput();
456         return sal_True;
457     }
458 
459     return sal_False;
460 }
461 
462 //------------------------------------------------------------------------------
463 sal_Bool OImageControlModel::impl_handleNewImageURL_lck( ValueChangeInstigator _eInstigator )
464 {
465     switch ( lcl_getImageStoreType( getFieldType() ) )
466     {
467     case ImageStoreBinary:
468         if ( impl_updateStreamForURL_lck( m_sImageURL, _eInstigator ) )
469             return sal_True;
470         break;
471 
472     case ImageStoreLink:
473     {
474         ::rtl::OUString sCommitURL( m_sImageURL );
475         if ( m_sDocumentURL.getLength() )
476             sCommitURL = URIHelper::simpleNormalizedMakeRelative( m_sDocumentURL, sCommitURL );
477         OSL_ENSURE( m_xColumnUpdate.is(), "OImageControlModel::impl_handleNewImageURL_lck: no bound field, but ImageStoreLink?!" );
478         if ( m_xColumnUpdate.is() )
479         {
480             m_xColumnUpdate->updateString( sCommitURL );
481             return sal_True;
482         }
483     }
484     break;
485 
486     case ImageStoreInvalid:
487         OSL_ENSURE( false, "OImageControlModel::impl_handleNewImageURL_lck: image storage type type!" );
488         break;
489     }
490 
491     // if we're here, then the above code was unable to update our field/control from the given URL
492     // => fall back to NULL/VOID
493 	if ( m_xColumnUpdate.is() )
494         m_xColumnUpdate->updateNull();
495     else
496         setControlValue( Any(), _eInstigator );
497 
498     return sal_True;
499 }
500 
501 //------------------------------------------------------------------------------
502 sal_Bool OImageControlModel::commitControlValueToDbColumn( bool _bPostReset )
503 {
504     if ( _bPostReset )
505     {
506         // since this is a "commit after reset", we can simply update the column
507         // with null - this is our "default" which we were just reset to
508         if ( m_xColumnUpdate.is() )
509             m_xColumnUpdate->updateNull();
510     }
511     else
512     {
513 	    ::osl::MutexGuard aGuard(m_aMutex);
514         return impl_handleNewImageURL_lck( eDbColumnBinding );
515     }
516 
517     return sal_True;
518 }
519 
520 //------------------------------------------------------------------------------
521 namespace
522 {
523     bool lcl_isValidDocumentURL( const ::rtl::OUString& _rDocURL )
524     {
525         return ( _rDocURL.getLength() && !_rDocURL.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM( "private:object" ) ) );
526     }
527 }
528 
529 //------------------------------------------------------------------------------
530 void OImageControlModel::onConnectedDbColumn( const Reference< XInterface >& _rxForm )
531 {
532     OBoundControlModel::onConnectedDbColumn( _rxForm );
533 
534     try
535     {
536         Reference< XModel > xDocument( getXModel( *this ) );
537         if ( xDocument.is() )
538         {
539             m_sDocumentURL = xDocument->getURL();
540             if ( !lcl_isValidDocumentURL( m_sDocumentURL ) )
541             {
542                 Reference< XChild > xAsChild( xDocument, UNO_QUERY );
543                 while ( xAsChild.is() && !lcl_isValidDocumentURL( m_sDocumentURL ) )
544                 {
545                     xDocument.set( xAsChild->getParent(), UNO_QUERY );
546                     if ( xDocument.is() )
547                         m_sDocumentURL = xDocument->getURL();
548                     xAsChild.set( xDocument, UNO_QUERY );
549                 }
550             }
551         }
552     }
553     catch( const Exception& )
554     {
555     	DBG_UNHANDLED_EXCEPTION();
556     }
557 }
558 
559 //------------------------------------------------------------------------------
560 void OImageControlModel::onDisconnectedDbColumn()
561 {
562     OBoundControlModel::onDisconnectedDbColumn();
563 
564     m_sDocumentURL = ::rtl::OUString();
565 }
566 
567 //------------------------------------------------------------------------------
568 Any OImageControlModel::translateDbColumnToControlValue()
569 {
570     switch ( lcl_getImageStoreType( getFieldType() ) )
571     {
572     case ImageStoreBinary:
573     {
574         Reference< XInputStream > xImageStream( m_xColumn->getBinaryStream() );
575         if ( m_xColumn->wasNull() )
576             xImageStream.clear();
577         return makeAny( xImageStream );
578     }
579     case ImageStoreLink:
580     {
581         ::rtl::OUString sImageLink( m_xColumn->getString() );
582         if ( m_sDocumentURL.getLength() )
583             sImageLink = INetURLObject::GetAbsURL( m_sDocumentURL, sImageLink );
584         return makeAny( sImageLink );
585     }
586     case ImageStoreInvalid:
587         OSL_ENSURE( false, "OImageControlModel::translateDbColumnToControlValue: invalid field type!" );
588         break;
589     }
590     return Any();
591 }
592 
593 //------------------------------------------------------------------------------
594 Any OImageControlModel::getControlValue( ) const
595 {
596     return makeAny( m_sImageURL );
597 }
598 
599 //------------------------------------------------------------------------------
600 void OImageControlModel::doSetControlValue( const Any& _rValue )
601 {
602     DBG_ASSERT( GetImageProducer() && m_xImageProducer.is(), "OImageControlModel::doSetControlValue: no image producer!" );
603     if ( !GetImageProducer() || !m_xImageProducer.is() )
604         return;
605 
606     bool bStartProduction = false;
607     switch ( lcl_getImageStoreType( getFieldType() ) )
608     {
609     case ImageStoreBinary:
610     {
611         // give the image producer the stream
612         Reference< XInputStream > xInStream;
613         _rValue >>= xInStream;
614         GetImageProducer()->setImage( xInStream );
615         bStartProduction = true;
616     }
617     break;
618 
619     case ImageStoreLink:
620     {
621         ::rtl::OUString sImageURL;
622         _rValue >>= sImageURL;
623         GetImageProducer()->SetImage( sImageURL );
624         bStartProduction = true;
625     }
626     break;
627 
628     case ImageStoreInvalid:
629         OSL_ENSURE( false, "OImageControlModel::doSetControlValue: invalid field type!" );
630         break;
631 
632     }   // switch ( lcl_getImageStoreType( getFieldType() ) )
633 
634     if ( bStartProduction )
635     {
636         // start production
637         Reference< XImageProducer > xProducer = m_xImageProducer;
638         {
639             // release our mutex once (it's acquired in the calling method!), as starting the image production may
640 	        // result in the locking of the solar mutex (unfortunally the default implementation of our aggregate,
641 	        // VCLXImageControl, does this locking)
642 	        // FS - 74438 - 30.03.00
643 	        MutexRelease aRelease(m_aMutex);
644 	        xProducer->startProduction();
645         }
646     }
647 }
648 
649 // OComponentHelper
650 //------------------------------------------------------------------
651 void SAL_CALL OImageControlModel::disposing()
652 {
653 	OBoundControlModel::disposing();
654 }
655 
656 //------------------------------------------------------------------------------
657 void OImageControlModel::resetNoBroadcast()
658 {
659     if ( hasField() )          // only reset when we are connected to a column
660         OBoundControlModel::resetNoBroadcast( );
661 }
662 
663 //--------------------------------------------------------------------
664 Reference< XImageProducer > SAL_CALL OImageControlModel::getImageProducer() throw ( RuntimeException)
665 {
666     return this;
667 }
668 
669 //--------------------------------------------------------------------
670 void SAL_CALL OImageControlModel::addConsumer( const Reference< XImageConsumer >& _rxConsumer ) throw (RuntimeException)
671 {
672     GetImageProducer()->addConsumer( _rxConsumer );
673 }
674 
675 //--------------------------------------------------------------------
676 void SAL_CALL OImageControlModel::removeConsumer( const Reference< XImageConsumer >& _rxConsumer ) throw (RuntimeException)
677 {
678     GetImageProducer()->removeConsumer( _rxConsumer );
679 }
680 
681 //--------------------------------------------------------------------
682 void SAL_CALL OImageControlModel::startProduction(  ) throw (RuntimeException)
683 {
684     GetImageProducer()->startProduction();
685 }
686 
687 //------------------------------------------------------------------------------
688 IMPL_LINK( OImageControlModel, OnImageImportDone, ::Graphic*, i_pGraphic )
689 {
690     const Reference< XGraphic > xGraphic( i_pGraphic != NULL ? Image( i_pGraphic->GetBitmapEx() ).GetXGraphic() : NULL );
691     m_bExternalGraphic = false;
692     try
693     {
694         setPropertyValue( PROPERTY_GRAPHIC, makeAny( xGraphic ) );
695     }
696     catch ( const Exception& )
697     {
698         DBG_UNHANDLED_EXCEPTION();
699     }
700     m_bExternalGraphic = true;
701     return 1L;
702 }
703 
704 //==================================================================
705 // OImageControlControl
706 //==================================================================
707 
708 //------------------------------------------------------------------
709 InterfaceRef SAL_CALL OImageControlControl_CreateInstance(const Reference<XMultiServiceFactory>& _rxFactory)
710 {
711 	return *(new OImageControlControl(_rxFactory));
712 }
713 
714 //------------------------------------------------------------------------------
715 Sequence<Type> OImageControlControl::_getTypes()
716 {
717     return concatSequences(
718         OBoundControl::_getTypes(),
719         OImageControlControl_Base::getTypes()
720     );
721 }
722 
723 //------------------------------------------------------------------------------
724 OImageControlControl::OImageControlControl(const Reference<XMultiServiceFactory>& _rxFactory)
725 	:OBoundControl(_rxFactory, VCL_CONTROL_IMAGECONTROL)
726     ,m_aModifyListeners( m_aMutex )
727 {
728 	increment(m_refCount);
729 	{
730 		// als Focus- und MouseListener anmelden
731 		Reference< XWindow > xComp;
732 		query_aggregation( m_xAggregate, xComp );
733 		if ( xComp.is() )
734 			xComp->addMouseListener( this );
735 	}
736 	decrement(m_refCount);
737 }
738 
739 //------------------------------------------------------------------------------
740 Any SAL_CALL OImageControlControl::queryAggregation(const Type& _rType) throw (RuntimeException)
741 {
742     Any aReturn = OBoundControl::queryAggregation( _rType );
743     if ( !aReturn.hasValue() )
744         aReturn = ::cppu::queryInterface(
745             _rType,
746             static_cast< XMouseListener* >( this ),
747             static_cast< XModifyBroadcaster* >( this )
748         );
749 
750     return aReturn;
751 }
752 
753 //------------------------------------------------------------------------------
754 StringSequence	OImageControlControl::getSupportedServiceNames() throw()
755 {
756 	StringSequence aSupported = OBoundControl::getSupportedServiceNames();
757 	aSupported.realloc(aSupported.getLength() + 1);
758 
759 	::rtl::OUString*pArray = aSupported.getArray();
760 	pArray[aSupported.getLength()-1] = FRM_SUN_CONTROL_IMAGECONTROL;
761 	return aSupported;
762 }
763 
764 //------------------------------------------------------------------------------
765 void SAL_CALL OImageControlControl::addModifyListener( const Reference< XModifyListener >& _Listener ) throw (RuntimeException)
766 {
767     m_aModifyListeners.addInterface( _Listener );
768 }
769 
770 //------------------------------------------------------------------------------
771 void SAL_CALL OImageControlControl::removeModifyListener( const Reference< XModifyListener >& _Listener ) throw (RuntimeException)
772 {
773     m_aModifyListeners.removeInterface( _Listener );
774 }
775 
776 //------------------------------------------------------------------------------
777 void SAL_CALL OImageControlControl::disposing()
778 {
779     EventObject aEvent( *this );
780 	m_aModifyListeners.disposeAndClear( aEvent );
781 
782     OBoundControl::disposing();
783 }
784 
785 //------------------------------------------------------------------------------
786 void SAL_CALL OImageControlControl::disposing( const EventObject& _Event ) throw(RuntimeException)
787 {
788     OBoundControl::disposing( _Event );
789 }
790 
791 //------------------------------------------------------------------------------
792 void OImageControlControl::implClearGraphics( sal_Bool _bForce )
793 {
794 	Reference< XPropertySet > xSet( getModel(), UNO_QUERY );
795 	if ( xSet.is() )
796     {
797         if ( _bForce )
798         {
799             ::rtl::OUString sOldImageURL;
800             xSet->getPropertyValue( PROPERTY_IMAGE_URL ) >>= sOldImageURL;
801 
802             if ( !sOldImageURL.getLength() )
803                 // the ImageURL is already empty, so simply setting a new empty one would not suffice
804                 // (since it would be ignored)
805                 xSet->setPropertyValue( PROPERTY_IMAGE_URL, makeAny( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "private:emptyImage" ) ) ) );
806                     // (the concrete URL we're passing here doens't matter. It's important that
807                     // the model cannot resolve it to a a valid resource describing an image stream
808         }
809 
810         xSet->setPropertyValue( PROPERTY_IMAGE_URL, makeAny( ::rtl::OUString() ) );
811     }
812 }
813 
814 //------------------------------------------------------------------------------
815 bool OImageControlControl::implInsertGraphics()
816 {
817 	Reference< XPropertySet > xSet( getModel(), UNO_QUERY );
818 	if ( !xSet.is() )
819 		return false;
820 
821 	::rtl::OUString sTitle = FRM_RES_STRING(RID_STR_IMPORT_GRAPHIC);
822 	// build some arguments for the upcoming dialog
823 	try
824 	{
825 		::sfx2::FileDialogHelper aDialog( TemplateDescription::FILEOPEN_LINK_PREVIEW, SFXWB_GRAPHIC );
826 		aDialog.SetTitle( sTitle );
827 
828 		Reference< XFilePickerControlAccess > xController( aDialog.GetFilePicker(), UNO_QUERY_THROW );
829 		xController->setValue(ExtendedFilePickerElementIds::CHECKBOX_PREVIEW, 0, ::cppu::bool2any(sal_True));
830 
831 		Reference<XPropertySet> xBoundField;
832 		if ( hasProperty( PROPERTY_BOUNDFIELD, xSet ) )
833 			xSet->getPropertyValue( PROPERTY_BOUNDFIELD ) >>= xBoundField;
834 		sal_Bool bHasField = xBoundField.is();
835 
836         // if the control is bound to a DB field, then it's not possible to decide whether or not to link
837 		xController->enableControl(ExtendedFilePickerElementIds::CHECKBOX_LINK, !bHasField );
838 
839         // if the control is bound to a DB field, then linking of the image depends on the type of the field
840         sal_Bool bImageIsLinked = sal_True;
841         if ( bHasField )
842         {
843             sal_Int32 nFieldType = DataType::OTHER;
844             OSL_VERIFY( xBoundField->getPropertyValue( PROPERTY_FIELDTYPE ) >>= nFieldType );
845             bImageIsLinked = ( lcl_getImageStoreType( nFieldType ) == ImageStoreLink );
846         }
847 		xController->setValue(ExtendedFilePickerElementIds::CHECKBOX_LINK, 0, makeAny( bImageIsLinked ) );
848 
849 		if ( ERRCODE_NONE == aDialog.Execute() )
850 		{
851 			// reset the url property in case it already has the value we're about to set - in this case
852 			// our propertyChanged would not get called without this.
853 			implClearGraphics( sal_False );
854 			sal_Bool bIsLink = sal_False;
855 			xController->getValue(ExtendedFilePickerElementIds::CHECKBOX_LINK, 0) >>= bIsLink;
856             // Force bIsLink to be sal_True if we're bound to a field. Though we initialized the file picker with IsLink=TRUE
857             // in this case, and disabled the respective control, there might be picker implementations which do not
858             // respect this, and return IsLink=FALSE here. In this case, "normalize" the flag.
859             // #i112659# / 2010-08-26 / frank.schoenheit@oracle.com
860             bIsLink |= bHasField;
861 			if ( !bIsLink )
862 			{
863 				Graphic aGraphic;
864 				aDialog.GetGraphic( aGraphic );
865  				xSet->setPropertyValue( PROPERTY_GRAPHIC, makeAny( aGraphic.GetXGraphic() ) );
866 			}
867 			else
868 				xSet->setPropertyValue( PROPERTY_IMAGE_URL, makeAny( ::rtl::OUString( aDialog.GetPath() ) ) );
869 
870             return true;
871 		}
872 	}
873 	catch(Exception&)
874 	{
875 		DBG_ERROR("OImageControlControl::implInsertGraphics: caught an exception while attempting to execute the FilePicker!");
876 	}
877     return false;
878 }
879 
880 //------------------------------------------------------------------------------
881 bool OImageControlControl::impl_isEmptyGraphics_nothrow() const
882 {
883     bool bIsEmpty = true;
884 
885     try
886     {
887         Reference< XPropertySet > xModelProps( const_cast< OImageControlControl* >( this )->getModel(), UNO_QUERY_THROW );
888         Reference< XGraphic > xGraphic;
889         OSL_VERIFY( xModelProps->getPropertyValue( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "Graphic" ) ) ) >>= xGraphic );
890         bIsEmpty = !xGraphic.is();
891     }
892     catch( const Exception& )
893     {
894     	DBG_UNHANDLED_EXCEPTION();
895     }
896 
897     return bIsEmpty;
898 }
899 
900 // MouseListener
901 //------------------------------------------------------------------------------
902 void OImageControlControl::mousePressed(const ::com::sun::star::awt::MouseEvent& e) throw ( ::com::sun::star::uno::RuntimeException)
903 {
904     ::vos::OGuard aGuard( Application::GetSolarMutex() );
905 
906 	if (e.Buttons != MouseButton::LEFT)
907 		return;
908 
909     bool bModified = false;
910 	// is this a request for a context menu?
911 	if ( e.PopupTrigger )
912 	{
913 		Reference< XPopupMenu > xMenu( m_aContext.createComponent( "com.sun.star.awt.PopupMenu" ), UNO_QUERY );
914 		DBG_ASSERT( xMenu.is(), "OImageControlControl::mousePressed: could not create a popup menu!" );
915 
916 		Reference< XWindowPeer > xWindowPeer = getPeer();
917 		DBG_ASSERT( xWindowPeer.is(), "OImageControlControl::mousePressed: no window!" );
918 
919 		if ( xMenu.is() && xWindowPeer.is() )
920 		{
921 			xMenu->insertItem( ID_OPEN_GRAPHICS, FRM_RES_STRING( RID_STR_OPEN_GRAPHICS ), 0, 0 );
922 			xMenu->insertItem( ID_CLEAR_GRAPHICS, FRM_RES_STRING( RID_STR_CLEAR_GRAPHICS ), 0, 1 );
923 
924 			// check if the ImageURL is empty
925             if ( impl_isEmptyGraphics_nothrow() )
926 				xMenu->enableItem( ID_CLEAR_GRAPHICS, sal_False );
927 
928 			awt::Rectangle aRect( e.X, e.Y, 0, 0 );
929 			if ( ( e.X < 0 ) || ( e.Y < 0 ) )
930 			{	// context menu triggered by keyboard
931 				// position it in the center of the control
932 				// 102205 - 16.08.2002 - fs@openoffice.org
933 				Reference< XWindow > xWindow( static_cast< ::cppu::OWeakObject* >( this ), UNO_QUERY );
934 				OSL_ENSURE( xWindow.is(), "OImageControlControl::mousePressed: me not a window? How this?" );
935 				if ( xWindow.is() )
936 				{
937 					awt::Rectangle aPosSize = xWindow->getPosSize();
938 					aRect.X = aPosSize.Width / 2;
939 					aRect.Y = aPosSize.Height / 2;
940 				}
941 			}
942 
943 			const sal_Int16 nResult = xMenu->execute( xWindowPeer, aRect, PopupMenuDirection::EXECUTE_DEFAULT );
944 
945 			switch ( nResult )
946 			{
947 			case ID_OPEN_GRAPHICS:
948 				implInsertGraphics();
949                 bModified = true;
950 				break;
951 
952 			case ID_CLEAR_GRAPHICS:
953 				implClearGraphics( sal_True );
954                 bModified = true;
955 				break;
956 			}
957 		}
958 	}
959 	else
960 	{
961 		//////////////////////////////////////////////////////////////////////
962 		// Doppelclick
963 		if (e.ClickCount == 2)
964 		{
965 
966 			Reference<XPropertySet>  xSet(getModel(), UNO_QUERY);
967 			if (!xSet.is())
968 				return;
969 
970 			// wenn Control nicht gebunden ist, kein Dialog (da die zu schickende URL hinterher sowieso
971 			// versanden wuerde)
972 			// FS - #64946# - 19.04.99
973 			Reference<XPropertySet> xBoundField;
974 			if (hasProperty(PROPERTY_BOUNDFIELD, xSet))
975 				::cppu::extractInterface(xBoundField, xSet->getPropertyValue(PROPERTY_BOUNDFIELD));
976 			if (!xBoundField.is())
977 			{
978 				// but only if our IMAGE_URL property is handled as if it is transient, which is equivalent to
979 				// an empty control source
980 				if (!hasProperty(PROPERTY_CONTROLSOURCE, xSet) || (::comphelper::getString(xSet->getPropertyValue(PROPERTY_CONTROLSOURCE)).getLength() != 0))
981 					return;
982 			}
983 
984 			sal_Bool bReadOnly = false;
985 			xSet->getPropertyValue(PROPERTY_READONLY) >>= bReadOnly;
986 			if (bReadOnly)
987 				return;
988 
989 			if ( implInsertGraphics() )
990                 bModified = true;
991 		}
992 	}
993 
994     if ( bModified )
995     {
996         EventObject aEvent( *this );
997         m_aModifyListeners.notifyEach( &XModifyListener::modified, aEvent );
998     }
999 }
1000 
1001 //------------------------------------------------------------------------------
1002 void SAL_CALL OImageControlControl::mouseReleased(const awt::MouseEvent& /*e*/) throw ( RuntimeException )
1003 {
1004 }
1005 
1006 //------------------------------------------------------------------------------
1007 void SAL_CALL OImageControlControl::mouseEntered(const awt::MouseEvent& /*e*/) throw ( RuntimeException )
1008 {
1009 }
1010 
1011 //------------------------------------------------------------------------------
1012 void SAL_CALL OImageControlControl::mouseExited(const awt::MouseEvent& /*e*/) throw ( RuntimeException )
1013 {
1014 }
1015 
1016 //.........................................................................
1017 }	// namespace frm
1018 //.........................................................................
1019 
1020