xref: /aoo4110/main/svx/source/fmcomp/fmgridcl.cxx (revision b1cdbd2c)
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_svx.hxx"
26 
27 #include "svx/dbexch.hrc"
28 #include "svx/fmgridif.hxx"
29 #include "fmitems.hxx"
30 #include "fmprop.hrc"
31 #include "svx/fmtools.hxx"
32 #include "svx/fmresids.hrc"
33 #include "fmservs.hxx"
34 #include "fmurl.hxx"
35 #include "formcontrolfactory.hxx"
36 #include "gridcell.hxx"
37 #include "gridcols.hxx"
38 #include "svx/dbaexchange.hxx"
39 #include "svx/dialmgr.hxx"
40 #include "svx/dialogs.hrc"
41 #include "svx/fmgridcl.hxx"
42 #include "svx/svxdlg.hxx"
43 #include "svx/svxids.hrc"
44 #include "trace.hxx"
45 
46 #include <com/sun/star/form/XConfirmDeleteListener.hpp>
47 #include <com/sun/star/form/XFormComponent.hpp>
48 #include <com/sun/star/form/XGridColumnFactory.hpp>
49 #include <com/sun/star/io/XPersistObject.hpp>
50 #include <com/sun/star/sdb/CommandType.hpp>
51 #include <com/sun/star/sdb/RowChangeAction.hpp>
52 #include <com/sun/star/sdb/XQueriesSupplier.hpp>
53 #include <com/sun/star/sdbc/DataType.hpp>
54 #include <com/sun/star/sdbc/XPreparedStatement.hpp>
55 #include <com/sun/star/sdbcx/XColumnsSupplier.hpp>
56 #include <com/sun/star/sdbcx/XDeleteRows.hpp>
57 #include <com/sun/star/sdbcx/XTablesSupplier.hpp>
58 #include <com/sun/star/uno/XNamingService.hpp>
59 #include <com/sun/star/util/XNumberFormats.hpp>
60 #include <com/sun/star/util/XNumberFormatsSupplier.hpp>
61 #include <com/sun/star/util/XURLTransformer.hpp>
62 #include <com/sun/star/view/XSelectionSupplier.hpp>
63 
64 #ifndef _SVSTDARR_STRINGSDTOR
65 #define _SVSTDARR_STRINGSDTOR
66 #define _SVSTDARR_ULONGS
67 #include <svl/svstdarr.hxx>
68 #endif
69 
70 #include <comphelper/extract.hxx>
71 #include <comphelper/numbers.hxx>
72 #include <comphelper/processfactory.hxx>
73 #include <comphelper/property.hxx>
74 #include <connectivity/dbtools.hxx>
75 #include <sfx2/dispatch.hxx>
76 #include <sfx2/viewfrm.hxx>
77 #include <svl/eitem.hxx>
78 #include <svtools/fmtfield.hxx>
79 #include <svl/numuno.hxx>
80 #include <tools/multisel.hxx>
81 #include <tools/shl.hxx>
82 #include <tools/diagnose_ex.h>
83 #include <vcl/help.hxx>
84 #include <vcl/image.hxx>
85 #include <vcl/longcurr.hxx>
86 #include <vcl/menu.hxx>
87 
88 #include <math.h>
89 
90 using namespace ::com::sun::star::uno;
91 using namespace ::com::sun::star::view;
92 using namespace ::com::sun::star::beans;
93 using namespace ::com::sun::star::lang;
94 using namespace ::com::sun::star::sdbcx;
95 using namespace ::com::sun::star::sdbc;
96 using namespace ::com::sun::star::sdb;
97 using namespace ::com::sun::star::form;
98 using namespace ::com::sun::star::util;
99 using namespace ::com::sun::star::container;
100 using namespace ::cppu;
101 using namespace ::svxform;
102 using namespace ::svx;
103 
104 //==============================================================================
105 //------------------------------------------------------------------------------
FieldServiceFromId(sal_Int32 nID)106 ::rtl::OUString FieldServiceFromId(sal_Int32 nID)
107 {
108 	switch (nID)
109 	{
110 		case SID_FM_EDIT			: return FM_COL_TEXTFIELD;
111 		case SID_FM_COMBOBOX		: return FM_COL_COMBOBOX;
112 		case SID_FM_LISTBOX 		: return FM_COL_LISTBOX;
113 		case SID_FM_CHECKBOX		: return FM_COL_CHECKBOX;
114 		case SID_FM_DATEFIELD		: return FM_COL_DATEFIELD;
115 		case SID_FM_TIMEFIELD		: return FM_COL_TIMEFIELD;
116 		case SID_FM_NUMERICFIELD	: return FM_COL_NUMERICFIELD;
117 		case SID_FM_CURRENCYFIELD	: return FM_COL_CURRENCYFIELD;
118 		case SID_FM_PATTERNFIELD	: return FM_COL_PATTERNFIELD;
119 		case SID_FM_FORMATTEDFIELD	: return FM_COL_FORMATTEDFIELD;
120 	}
121 	return ::rtl::OUString();
122 }
123 
124 //==============================================================================
125 struct FmGridHeaderData
126 {
127 	ODataAccessDescriptor	aDropData;
128 	Point					aDropPosPixel;
129 	sal_Int8				nDropAction;
130 	Reference< XInterface > xDroppedStatement;
131 	Reference< XInterface > xDroppedResultSet;
132 };
133 
134 //==============================================================================
135 //------------------------------------------------------------------------------
136 const sal_Int16 nChangeTypeOffset = 1000;
SetMenuItem(const ImageList & rList,sal_uInt16 nID,Menu * pMenu,Menu & rNewMenu,sal_Bool bDesignMode=sal_True,sal_Int16 nOffset=nChangeTypeOffset)137 void SetMenuItem(const ImageList& rList, sal_uInt16 nID, Menu* pMenu, Menu& rNewMenu, sal_Bool bDesignMode = sal_True, sal_Int16 nOffset = nChangeTypeOffset)
138 {
139 	pMenu->SetItemImage(nID, rList.GetImage(nID));
140 	pMenu->EnableItem(nID, bDesignMode);
141 	rNewMenu.InsertItem(nID + nOffset, pMenu->GetItemText(nID));
142 	rNewMenu.SetItemImage(nID + nOffset, rList.GetImage(nID));
143 	rNewMenu.SetHelpId(nID + nOffset, pMenu->GetHelpId(nID));
144 	rNewMenu.EnableItem(nID + nOffset, bDesignMode);
145 }
146 
147 //------------------------------------------------------------------------------
FmGridHeader(BrowseBox * pParent,WinBits nWinBits)148 FmGridHeader::FmGridHeader( BrowseBox* pParent, WinBits nWinBits)
149 		:EditBrowserHeader(pParent, nWinBits)
150 		,DropTargetHelper(this)
151 		,m_pImpl(new FmGridHeaderData)
152 {
153 }
154 
155 //------------------------------------------------------------------------------
~FmGridHeader()156 FmGridHeader::~FmGridHeader()
157 {
158 	delete m_pImpl;
159 }
160 
161 //------------------------------------------------------------------------------
GetModelColumnPos(sal_uInt16 nId) const162 sal_uInt16 FmGridHeader::GetModelColumnPos(sal_uInt16 nId) const
163 {
164 	return static_cast<FmGridControl*>(GetParent())->GetModelColumnPos(nId);
165 }
166 //---------------------------------------------------------------------------------------
notifyColumnSelect(sal_uInt16 nColumnId)167 void FmGridHeader::notifyColumnSelect(sal_uInt16 nColumnId)
168 {
169 	sal_uInt16 nPos = GetModelColumnPos(nColumnId);
170 	Reference< XIndexAccess >  xColumns(((FmGridControl*)GetParent())->GetPeer()->getColumns(), UNO_QUERY);
171 	if ( nPos < xColumns->getCount() )
172 	{
173 		Reference< XSelectionSupplier >  xSelSupplier(xColumns, UNO_QUERY);
174 		if ( xSelSupplier.is() )
175 		{
176 			Reference< XPropertySet >  xColumn;
177 			xColumns->getByIndex(nPos) >>= xColumn;
178 			xSelSupplier->select(makeAny(xColumn));
179 		}
180 	}
181 }
182 //------------------------------------------------------------------------------
Select()183 void FmGridHeader::Select()
184 {
185 	EditBrowserHeader::Select();
186 	notifyColumnSelect(GetCurItemId());
187 }
188 
189 //------------------------------------------------------------------------------
RequestHelp(const HelpEvent & rHEvt)190 void FmGridHeader::RequestHelp( const HelpEvent& rHEvt )
191 {
192 	sal_uInt16 nItemId = GetItemId( ScreenToOutputPixel( rHEvt.GetMousePosPixel() ) );
193 	if ( nItemId )
194 	{
195 		if ( rHEvt.GetMode() & (HELPMODE_QUICK | HELPMODE_BALLOON) )
196 		{
197 			Rectangle aItemRect = GetItemRect( nItemId );
198 			Point aPt = OutputToScreenPixel( aItemRect.TopLeft() );
199 			aItemRect.Left()   = aPt.X();
200 			aItemRect.Top()    = aPt.Y();
201 			aPt = OutputToScreenPixel( aItemRect.BottomRight() );
202 			aItemRect.Right()  = aPt.X();
203 			aItemRect.Bottom() = aPt.Y();
204 
205 			sal_uInt16 nPos = GetModelColumnPos(nItemId);
206 			Reference< ::com::sun::star::container::XIndexContainer >  xColumns(static_cast<FmGridControl*>(GetParent())->GetPeer()->getColumns());
207 			try
208 			{
209 				Reference< ::com::sun::star::beans::XPropertySet >	xColumn(xColumns->getByIndex(nPos),UNO_QUERY);
210 				::rtl::OUString aHelpText;
211 				xColumn->getPropertyValue(FM_PROP_HELPTEXT) >>= aHelpText;
212                 if ( !aHelpText.getLength() )
213                     xColumn->getPropertyValue(FM_PROP_DESCRIPTION) >>= aHelpText;
214 				if ( aHelpText.getLength() )
215 				{
216 					if ( rHEvt.GetMode() & HELPMODE_BALLOON )
217 						Help::ShowBalloon( this, aItemRect.Center(), aItemRect, aHelpText );
218 					else
219 						Help::ShowQuickHelp( this, aItemRect, aHelpText );
220 					return;
221 				}
222 			}
223 			catch(Exception&)
224 			{
225 				return;
226 			}
227 		}
228 	}
229 	EditBrowserHeader::RequestHelp( rHEvt );
230 }
231 
232 //------------------------------------------------------------------------------
AcceptDrop(const AcceptDropEvent & rEvt)233 sal_Int8 FmGridHeader::AcceptDrop( const AcceptDropEvent& rEvt )
234 {
235 	// drop allowed in design mode only
236 	if (!static_cast<FmGridControl*>(GetParent())->IsDesignMode())
237 		return DND_ACTION_NONE;
238 
239 	// search for recognized formats
240 	const DataFlavorExVector& rFlavors = GetDataFlavorExVector();
241 	if (OColumnTransferable::canExtractColumnDescriptor(rFlavors, CTF_COLUMN_DESCRIPTOR | CTF_FIELD_DESCRIPTOR))
242 		return rEvt.mnAction;
243 
244 	return DND_ACTION_NONE;
245 }
246 
247 //------------------------------------------------------------------------------
ExecuteDrop(const ExecuteDropEvent & _rEvt)248 sal_Int8 FmGridHeader::ExecuteDrop( const ExecuteDropEvent& _rEvt )
249 {
250 	if (!static_cast<FmGridControl*>(GetParent())->IsDesignMode())
251 		return DND_ACTION_NONE;
252 
253 	TransferableDataHelper aDroppedData(_rEvt.maDropEvent.Transferable);
254 
255 	// check the formats
256 	sal_Bool bColumnDescriptor	= OColumnTransferable::canExtractColumnDescriptor(aDroppedData.GetDataFlavorExVector(), CTF_COLUMN_DESCRIPTOR);
257 	sal_Bool bFieldDescriptor	= OColumnTransferable::canExtractColumnDescriptor(aDroppedData.GetDataFlavorExVector(), CTF_FIELD_DESCRIPTOR);
258 	if (!bColumnDescriptor && !bFieldDescriptor)
259 	{
260 		DBG_ERROR("FmGridHeader::ExecuteDrop: should never have reached this (no extractable format)!");
261 		return DND_ACTION_NONE;
262 	}
263 
264 	// extract the descriptor
265 	::rtl::OUString sDatasouce, sCommand, sFieldName,sDatabaseLocation,sConnnectionResource;
266 	sal_Int32		nCommandType = CommandType::COMMAND;
267 	Reference< XPreparedStatement > 	xStatement;
268 	Reference< XResultSet > 			xResultSet;
269 	Reference< XPropertySet >			xField;
270 	Reference< XConnection >			xConnection;
271 
272 	ODataAccessDescriptor aColumn = OColumnTransferable::extractColumnDescriptor(aDroppedData);
273 	if (aColumn.has(daDataSource))	aColumn[daDataSource]	>>= sDatasouce;
274 	if (aColumn.has(daDatabaseLocation))	aColumn[daDatabaseLocation]	>>= sDatabaseLocation;
275 	if (aColumn.has(daConnectionResource))	aColumn[daConnectionResource] >>= sConnnectionResource;
276 	if (aColumn.has(daCommand)) 	aColumn[daCommand]		>>= sCommand;
277 	if (aColumn.has(daCommandType)) aColumn[daCommandType]	>>= nCommandType;
278 	if (aColumn.has(daColumnName))	aColumn[daColumnName]	>>= sFieldName;
279 	if (aColumn.has(daColumnObject))aColumn[daColumnObject] >>= xField;
280 	if (aColumn.has(daConnection))	aColumn[daConnection]	>>= xConnection;
281 
282 	if  (   !sFieldName.getLength()
283         ||  !sCommand.getLength()
284         ||  (   !sDatasouce.getLength()
285             &&  !sDatabaseLocation.getLength()
286             &&  !xConnection.is()
287             )
288         )
289 	{
290 		DBG_ERROR( "FmGridHeader::ExecuteDrop: somebody started a nonsense drag operation!!" );
291 		return DND_ACTION_NONE;
292 	}
293 
294 	try
295 	{
296 		// need a connection
297 		if (!xConnection.is())
298 		{	// the transferable did not contain the connection -> build an own one
299 			try
300 			{
301                 ::rtl::OUString sSignificantSource( sDatasouce.getLength() ? sDatasouce : sDatabaseLocation );
302 				xConnection = OStaticDataAccessTools().getConnection_withFeedback(sSignificantSource, ::rtl::OUString(),::rtl::OUString(),static_cast<FmGridControl*>(GetParent())->getServiceManager());
303 			}
304 			catch(NoSuchElementException&)
305 			{	// allowed, means sDatasouce isn't a valid data source name ....
306 			}
307 			catch(Exception&)
308 			{
309 				DBG_ERROR("FmGridHeader::ExecuteDrop: could not retrieve the database access object !");
310 			}
311 
312 			if (!xConnection.is())
313 			{
314 				DBG_ERROR("FmGridHeader::ExecuteDrop: could not retrieve the database access object !");
315 				return DND_ACTION_NONE;
316 			}
317 		}
318 
319 		// try to obtain the column object
320 		if (!xField.is())
321 		{
322 #ifdef DBG_UTIL
323 			Reference< XServiceInfo >  xServiceInfo(xConnection, UNO_QUERY);
324 			DBG_ASSERT(xServiceInfo.is() && xServiceInfo->supportsService(SRV_SDB_CONNECTION), "FmGridHeader::ExecuteDrop: invalid connection (no database access connection !)");
325 #endif
326 
327 			Reference< XNameAccess > xFields;
328 			switch (nCommandType)
329 			{
330 				case CommandType::TABLE:
331 				{
332 					Reference< XTablesSupplier > xSupplyTables(xConnection, UNO_QUERY);
333 					Reference< XColumnsSupplier >  xSupplyColumns;
334 					xSupplyTables->getTables()->getByName(sCommand) >>= xSupplyColumns;
335 					xFields = xSupplyColumns->getColumns();
336 				}
337 				break;
338 				case CommandType::QUERY:
339 				{
340 					Reference< XQueriesSupplier > xSupplyQueries(xConnection, UNO_QUERY);
341 					Reference< XColumnsSupplier > xSupplyColumns;
342 					xSupplyQueries->getQueries()->getByName(sCommand) >>= xSupplyColumns;
343 					xFields  = xSupplyColumns->getColumns();
344 				}
345 				break;
346 				default:
347 				{
348 					xStatement = xConnection->prepareStatement(sCommand);
349 					// not interested in any results
350 
351 					Reference< XPropertySet > xStatProps(xStatement,UNO_QUERY);
352 					xStatProps->setPropertyValue(rtl::OUString::createFromAscii("MaxRows"), makeAny(sal_Int32(0)));
353 
354 					xResultSet = xStatement->executeQuery();
355 					Reference< XColumnsSupplier >  xSupplyCols(xResultSet, UNO_QUERY);
356 					if (xSupplyCols.is())
357 						xFields = xSupplyCols->getColumns();
358 				}
359 			}
360 
361 			if (xFields.is() && xFields->hasByName(sFieldName))
362 				xFields->getByName(sFieldName) >>= xField;
363 
364 			if (!xField.is())
365 			{
366 				::comphelper::disposeComponent(xStatement);
367 				return DND_ACTION_NONE;
368 			}
369 		}
370 
371 		// do the drop asynchronously
372 		// (85957 - UI actions within the drop are not allowed, but we want to open a popup menu)
373 		m_pImpl->aDropData = aColumn;
374 		m_pImpl->aDropData[daConnection] <<= xConnection;
375 		m_pImpl->aDropData[daColumnObject] <<= xField;
376 
377 		m_pImpl->nDropAction = _rEvt.mnAction;
378 		m_pImpl->aDropPosPixel = _rEvt.maPosPixel;
379 		m_pImpl->xDroppedStatement = xStatement;
380 		m_pImpl->xDroppedResultSet = xResultSet;
381 
382 		PostUserEvent(LINK(this, FmGridHeader, OnAsyncExecuteDrop));
383 	}
384 	catch (Exception&)
385 	{
386 		DBG_ERROR("FmGridHeader::ExecuteDrop: caught an exception while creatin' the column !");
387 		::comphelper::disposeComponent(xStatement);
388 		return sal_False;
389 	}
390 
391 	return DND_ACTION_LINK;
392 }
393 
394 //------------------------------------------------------------------------------
395 IMPL_LINK( FmGridHeader, OnAsyncExecuteDrop, void*, /*NOTINTERESTEDIN*/ )
396 {
397 	::rtl::OUString 			sCommand, sFieldName,sURL;
398 	sal_Int32					nCommandType = CommandType::COMMAND;
399 	Reference< XPropertySet >	xField;
400 	Reference< XConnection >	xConnection;
401 
402 	::rtl::OUString sDatasouce = m_pImpl->aDropData.getDataSource();
403 	if ( !sDatasouce.getLength() && m_pImpl->aDropData.has(daConnectionResource) )
404 		m_pImpl->aDropData[daConnectionResource]	>>= sURL;
405 	m_pImpl->aDropData[daCommand]		>>= sCommand;
406 	m_pImpl->aDropData[daCommandType]	>>= nCommandType;
407 	m_pImpl->aDropData[daColumnName]	>>= sFieldName;
408 	m_pImpl->aDropData[daConnection]	>>= xConnection;
409 	m_pImpl->aDropData[daColumnObject]	>>= xField;
410 
411 	try
412 	{
413 		// need number formats
414 		Reference< XNumberFormatsSupplier > xSupplier = OStaticDataAccessTools().getNumberFormats(xConnection, sal_True);
415 		Reference< XNumberFormats >  xNumberFormats;
416 		if (xSupplier.is())
417 			xNumberFormats = xSupplier->getNumberFormats();
418 		if (!xNumberFormats.is())
419 		{
420 			::comphelper::disposeComponent(m_pImpl->xDroppedResultSet);
421 			::comphelper::disposeComponent(m_pImpl->xDroppedStatement);
422 			return 0L;
423 		}
424 
425 		// Vom Feld werden nun zwei Informationen benoetigt:
426 		// a.) Name des Feldes fuer Label und ControlSource
427 		// b.) FormatKey, um festzustellen, welches Feld erzeugt werden soll
428 		sal_Int32 nDataType = 0;
429 		xField->getPropertyValue(FM_PROP_FIELDTYPE) >>= nDataType;
430 		// diese Datentypen koennen im Gridcontrol nicht verarbeitet werden
431 		switch (nDataType)
432 		{
433 			case DataType::BLOB:
434 			case DataType::LONGVARBINARY:
435 			case DataType::BINARY:
436 			case DataType::VARBINARY:
437 			case DataType::OTHER:
438 				::comphelper::disposeComponent(m_pImpl->xDroppedResultSet);
439 				::comphelper::disposeComponent(m_pImpl->xDroppedStatement);
440 				return 0L;
441 		}
442 
443 		// Erstellen der Column
444 		Reference< XIndexContainer >  xCols(static_cast<FmGridControl*>(GetParent())->GetPeer()->getColumns());
445 		Reference< XGridColumnFactory >  xFactory(xCols, UNO_QUERY);
446 
447 		Point aPos	= OutputToScreenPixel(m_pImpl->aDropPosPixel);
448 		sal_uInt16 nColId = GetItemId(m_pImpl->aDropPosPixel);
449 		// EinfuegePosition, immer vor der aktuellen Spalte
450 		sal_uInt16 nPos = GetModelColumnPos(nColId);
451 		Reference< XPropertySet >  xCol, xSecondCol;
452 
453 		// erzeugen der Column in abhaengigkeit vom type, default textfeld
454 		SvULongs aPossibleTypes;
455 		switch (nDataType)
456 		{
457 			case DataType::BIT:
458 			case DataType::BOOLEAN:
459 				aPossibleTypes.Insert(SID_FM_CHECKBOX, aPossibleTypes.Count());
460 				break;
461 			case DataType::TINYINT:
462 			case DataType::SMALLINT:
463 			case DataType::INTEGER:
464 				aPossibleTypes.Insert(SID_FM_NUMERICFIELD, aPossibleTypes.Count());
465 				aPossibleTypes.Insert(SID_FM_FORMATTEDFIELD, aPossibleTypes.Count());
466 				break;
467 			case DataType::REAL:
468 			case DataType::DOUBLE:
469 			case DataType::NUMERIC:
470 			case DataType::DECIMAL:
471 				aPossibleTypes.Insert(SID_FM_FORMATTEDFIELD, aPossibleTypes.Count());
472 				aPossibleTypes.Insert(SID_FM_NUMERICFIELD, aPossibleTypes.Count());
473 				break;
474 			case DataType::TIMESTAMP:
475 				aPossibleTypes.Insert(SID_FM_TWOFIELDS_DATE_N_TIME, aPossibleTypes.Count());
476 				aPossibleTypes.Insert(SID_FM_DATEFIELD, aPossibleTypes.Count());
477 				aPossibleTypes.Insert(SID_FM_TIMEFIELD, aPossibleTypes.Count());
478 				aPossibleTypes.Insert(SID_FM_FORMATTEDFIELD, aPossibleTypes.Count());
479 				break;
480 			case DataType::DATE:
481 				aPossibleTypes.Insert(SID_FM_DATEFIELD, aPossibleTypes.Count());
482 				aPossibleTypes.Insert(SID_FM_FORMATTEDFIELD, aPossibleTypes.Count());
483 				break;
484 			case DataType::TIME:
485 				aPossibleTypes.Insert(SID_FM_TIMEFIELD, aPossibleTypes.Count());
486 				aPossibleTypes.Insert(SID_FM_FORMATTEDFIELD, aPossibleTypes.Count());
487 				break;
488 			case DataType::CHAR:
489 			case DataType::VARCHAR:
490 			case DataType::LONGVARCHAR:
491 			default:
492 				aPossibleTypes.Insert(SID_FM_EDIT, aPossibleTypes.Count());
493 				aPossibleTypes.Insert(SID_FM_FORMATTEDFIELD, aPossibleTypes.Count());
494 				break;
495 		}
496 		// if it's a currency field, a a "currency field" option
497 		try
498 		{
499 			if	(	::comphelper::hasProperty(FM_PROP_ISCURRENCY, xField)
500 				&&	::comphelper::getBOOL(xField->getPropertyValue(FM_PROP_ISCURRENCY)))
501 				aPossibleTypes.Insert(SID_FM_CURRENCYFIELD, 0);
502 		}
503 		catch(Exception&)
504 		{
505 			DBG_ERROR("FmGridHeader::ExecuteDrop: Exception occured!");
506 		}
507 
508 		sal_Int32 nPreferedType = -1;
509 		sal_Bool bDateNTimeCol = sal_False;
510 		if (aPossibleTypes.Count() != 0)
511 		{
512 			nPreferedType = aPossibleTypes[0];
513 			if ((m_pImpl->nDropAction == DND_ACTION_LINK) && (aPossibleTypes.Count() > 1))
514 			{
515 				ImageList aImageList( SVX_RES(RID_SVXIMGLIST_FMEXPL) );
516 
517 				PopupMenu aInsertMenu(SVX_RES(RID_SVXMNU_COLS));
518 				PopupMenu aTypeMenu;
519 				PopupMenu* pMenu = aInsertMenu.GetPopupMenu(SID_FM_INSERTCOL);
520 				for (sal_uInt32 i=0; i<aPossibleTypes.Count(); ++i)
521 					SetMenuItem(aImageList, sal_uInt16(aPossibleTypes[(sal_uInt16)i]), pMenu, aTypeMenu, sal_True, 0);
522 				nPreferedType = aTypeMenu.Execute(this, m_pImpl->aDropPosPixel);
523 			}
524 
525 			bDateNTimeCol = nPreferedType == SID_FM_TWOFIELDS_DATE_N_TIME;
526 			sal_uInt16 nColCount = bDateNTimeCol ? 2 : 1;
527 			::rtl::OUString sFieldService;
528 			while (nColCount--)
529 			{
530 				if (bDateNTimeCol)
531 					nPreferedType = nColCount ? SID_FM_DATEFIELD : SID_FM_TIMEFIELD;
532 
533 				sFieldService = FieldServiceFromId(nPreferedType);
534 				Reference< XPropertySet >  xThisRoundCol;
535 				if ( sFieldService.getLength() )
536 					xThisRoundCol = xFactory->createColumn(sFieldService);
537 				if (nColCount)
538 					xSecondCol = xThisRoundCol;
539 				else
540 					xCol = xThisRoundCol;
541 			}
542 		}
543 
544 		if (!xCol.is() || (bDateNTimeCol && !xSecondCol.is()))
545 		{
546 			::comphelper::disposeComponent(xCol);	// in case only the creation of the second column failed
547 			::comphelper::disposeComponent(m_pImpl->xDroppedResultSet);
548 			::comphelper::disposeComponent(m_pImpl->xDroppedStatement);
549 			return 0L;
550 		}
551 
552 		if (bDateNTimeCol)
553 		{
554             String sTimePostfix( SVX_RES( RID_STR_POSTFIX_TIME ) );
555             xCol->setPropertyValue(FM_PROP_LABEL, makeAny( ::rtl::OUString( sFieldName + sTimePostfix ) ) );
556 
557             String sDatePostfix( SVX_RES( RID_STR_POSTFIX_DATE ) );
558             xSecondCol->setPropertyValue(FM_PROP_LABEL, makeAny( ::rtl::OUString( sFieldName + sDatePostfix ) ) );
559 		}
560 		else
561 			xCol->setPropertyValue(FM_PROP_LABEL, makeAny(sFieldName));
562 
563         FormControlFactory aControlFactory( ::comphelper::getProcessServiceFactory() );
564         aControlFactory.initializeControlModel( DocumentClassification::classifyHostDocument( xCols ), xCol );
565         aControlFactory.initializeFieldDependentProperties( xField, xCol, xNumberFormats );
566 
567 		xCol->setPropertyValue(FM_PROP_CONTROLSOURCE, makeAny(sFieldName));
568 		if ( xSecondCol.is() )
569 			xSecondCol->setPropertyValue(FM_PROP_CONTROLSOURCE, makeAny(sFieldName));
570 
571 		if (bDateNTimeCol)
572 		{
573 			String sRealName,sPurePostfix;
574 
575             String aPostfix[] = {
576                 String( SVX_RES( RID_STR_POSTFIX_DATE ) ),
577                 String( SVX_RES( RID_STR_POSTFIX_TIME ) )
578             };
579 
580 			for ( size_t i=0; i<2; ++i )
581 			{
582                 sPurePostfix = aPostfix[i];
583 				sPurePostfix.EraseLeadingChars(' ');
584 				sPurePostfix.EraseLeadingChars('(');
585 				sPurePostfix.EraseTrailingChars(')');
586 				sRealName = sFieldName;
587 				sRealName += '_';
588 				sRealName += sPurePostfix;
589 				if (i)
590 					xSecondCol->setPropertyValue(FM_PROP_NAME, makeAny(::rtl::OUString(sRealName)));
591 				else
592 					xCol->setPropertyValue(FM_PROP_NAME, makeAny(::rtl::OUString(sRealName)));
593 			}
594 		}
595 		else
596 			xCol->setPropertyValue(FM_PROP_NAME, makeAny(sFieldName));
597 
598 		// jetzt einfuegen
599 		Any aElement;
600 		aElement <<= xCol;
601 		xCols->insertByIndex(nPos, aElement);
602 
603 		if (bDateNTimeCol)
604 		{
605 			aElement <<= xSecondCol;
606 			xCols->insertByIndex(nPos == (sal_uInt16)-1 ? nPos : ++nPos, aElement);
607 		}
608 
609 		// ist die component::Form an die Datenbankangebunden?
610 		Reference< XFormComponent >  xFormCp(xCols, UNO_QUERY);
611 		Reference< XPropertySet >  xForm(xFormCp->getParent(), UNO_QUERY);
612 		if (xForm.is())
613 		{
614 			if (!::comphelper::getString(xForm->getPropertyValue(FM_PROP_DATASOURCE)).getLength())
615 			{
616 				if ( sDatasouce.getLength() )
617 					xForm->setPropertyValue(FM_PROP_DATASOURCE, makeAny(sDatasouce));
618 				else
619 					xForm->setPropertyValue(FM_PROP_URL, makeAny(sURL));
620 			}
621 
622 			if (!::comphelper::getString(xForm->getPropertyValue(FM_PROP_COMMAND)).getLength())
623 			{
624 				xForm->setPropertyValue(FM_PROP_COMMAND, makeAny(sCommand));
625 				Any aCommandType;
626 				switch (nCommandType)
627 				{
628 					case CommandType::TABLE:
629 						aCommandType <<= (sal_Int32)CommandType::TABLE;
630 						break;
631 					case CommandType::QUERY:
632 						aCommandType <<= (sal_Int32)CommandType::QUERY;
633 						break;
634 					default:
635 						aCommandType <<= (sal_Int32)CommandType::COMMAND;
636 						xForm->setPropertyValue(FM_PROP_ESCAPE_PROCESSING, bool2any((sal_Bool)(2 == nCommandType)));
637 						break;
638 				}
639 				xForm->setPropertyValue(FM_PROP_COMMANDTYPE, aCommandType);
640 			}
641 		}
642 	}
643 	catch (Exception&)
644 	{
645 		DBG_ERROR("FmGridHeader::OnAsyncExecuteDrop: caught an exception while creatin' the column !");
646 		::comphelper::disposeComponent(m_pImpl->xDroppedResultSet);
647 		::comphelper::disposeComponent(m_pImpl->xDroppedStatement);
648 		return 0L;
649 	}
650 
651 	::comphelper::disposeComponent(m_pImpl->xDroppedResultSet);
652 	::comphelper::disposeComponent(m_pImpl->xDroppedStatement);
653 	return 1L;
654 }
655 
656 //------------------------------------------------------------------------------
PreExecuteColumnContextMenu(sal_uInt16 nColId,PopupMenu & rMenu)657 void FmGridHeader::PreExecuteColumnContextMenu(sal_uInt16 nColId, PopupMenu& rMenu)
658 {
659 	sal_Bool bDesignMode = static_cast<FmGridControl*>(GetParent())->IsDesignMode();
660 
661 	Reference< ::com::sun::star::container::XIndexContainer >  xCols(static_cast<FmGridControl*>(GetParent())->GetPeer()->getColumns());
662 	// Aufbau des Insert Menues
663 	// mark the column if nColId != HEADERBAR_ITEM_NOTFOUND
664 	if(nColId > 0)
665 	{
666 		sal_uInt16 nPos2 = GetModelColumnPos(nColId);
667 
668 		Reference< ::com::sun::star::container::XIndexContainer >  xColumns(static_cast<FmGridControl*>(GetParent())->GetPeer()->getColumns());
669 		Reference< ::com::sun::star::beans::XPropertySet> xColumn;
670 		::cppu::extractInterface(xColumn, xColumns->getByIndex(nPos2));
671 		Reference< ::com::sun::star::view::XSelectionSupplier >  xSelSupplier(xColumns, UNO_QUERY);
672 		if (xSelSupplier.is())
673 			xSelSupplier->select(makeAny(xColumn));
674 	}
675 
676 	// EinfuegePosition, immer vor der aktuellen Spalte
677 	sal_uInt16 nPos = GetModelColumnPos(nColId);
678 	sal_Bool bMarked = nColId && static_cast<FmGridControl*>(GetParent())->isColumnMarked(nColId);
679 
680 	ImageList aImageList( SVX_RES(RID_SVXIMGLIST_FMEXPL) );
681 	PopupMenu* pControlMenu = new PopupMenu;
682 
683 	PopupMenu* pMenu = rMenu.GetPopupMenu(SID_FM_INSERTCOL);
684 	if (pMenu)
685 	{
686 		SetMenuItem(aImageList, SID_FM_EDIT, pMenu, *pControlMenu, bDesignMode);
687 		SetMenuItem(aImageList, SID_FM_CHECKBOX, pMenu, *pControlMenu, bDesignMode);
688 		SetMenuItem(aImageList, SID_FM_COMBOBOX, pMenu, *pControlMenu, bDesignMode);
689 		SetMenuItem(aImageList, SID_FM_LISTBOX, pMenu, *pControlMenu, bDesignMode);
690 		SetMenuItem(aImageList, SID_FM_DATEFIELD, pMenu, *pControlMenu, bDesignMode);
691 		SetMenuItem(aImageList, SID_FM_TIMEFIELD, pMenu, *pControlMenu, bDesignMode);
692 		SetMenuItem(aImageList, SID_FM_NUMERICFIELD, pMenu, *pControlMenu, bDesignMode);
693 		SetMenuItem(aImageList, SID_FM_CURRENCYFIELD, pMenu, *pControlMenu, bDesignMode);
694 		SetMenuItem(aImageList, SID_FM_PATTERNFIELD, pMenu, *pControlMenu, bDesignMode);
695 		SetMenuItem(aImageList, SID_FM_FORMATTEDFIELD, pMenu, *pControlMenu, bDesignMode);
696 	}
697 
698 	if (pMenu && xCols.is() && nColId)
699 	{
700 		Reference< ::com::sun::star::beans::XPropertySet > xSet;
701 		::cppu::extractInterface(xSet, xCols->getByIndex(nPos));
702 		sal_Int16 nClassId;
703 		xSet->getPropertyValue(FM_PROP_CLASSID) >>= nClassId;
704 
705 		Reference< ::com::sun::star::io::XPersistObject >  xServiceQuestion(xSet, UNO_QUERY);
706 		sal_Int32 nColType = xServiceQuestion.is() ? getColumnTypeByModelName(xServiceQuestion->getServiceName()) : 0;
707 		if (nColType == TYPE_TEXTFIELD)
708 		{	// edit fields and formatted fields have the same service name, thus getColumnTypeByModelName returns TYPE_TEXTFIELD
709 			// in both cases. And as columns don't have an ::com::sun::star::lang::XServiceInfo interface, we have to distinguish both
710 			// types via the existence of special properties
711 			Reference< ::com::sun::star::beans::XPropertySet >	xProps(xSet, UNO_QUERY);
712 			if (xProps.is())
713 			{
714 				Reference< ::com::sun::star::beans::XPropertySetInfo >	xPropsInfo = xProps->getPropertySetInfo();
715 				if (xPropsInfo.is() && xPropsInfo->hasPropertyByName(FM_PROP_FORMATSSUPPLIER))
716 					nColType = TYPE_FORMATTEDFIELD;
717 			}
718 		}
719 
720 		pControlMenu->EnableItem(SID_FM_EDIT + nChangeTypeOffset, bDesignMode && (nColType != TYPE_TEXTFIELD));
721 		pControlMenu->EnableItem(SID_FM_COMBOBOX + nChangeTypeOffset, bDesignMode && (nColType != TYPE_COMBOBOX));
722 		pControlMenu->EnableItem(SID_FM_LISTBOX + nChangeTypeOffset, bDesignMode && (nColType != TYPE_LISTBOX));
723 		pControlMenu->EnableItem(SID_FM_CHECKBOX + nChangeTypeOffset, bDesignMode && (nColType != TYPE_CHECKBOX));
724 		pControlMenu->EnableItem(SID_FM_DATEFIELD + nChangeTypeOffset, bDesignMode && (nColType != TYPE_DATEFIELD));
725 		pControlMenu->EnableItem(SID_FM_NUMERICFIELD + nChangeTypeOffset, bDesignMode && (nColType != TYPE_NUMERICFIELD));
726 		pControlMenu->EnableItem(SID_FM_TIMEFIELD + nChangeTypeOffset, bDesignMode && (nColType != TYPE_TIMEFIELD));
727 		pControlMenu->EnableItem(SID_FM_CURRENCYFIELD + nChangeTypeOffset, bDesignMode && (nColType != TYPE_CURRENCYFIELD));
728 		pControlMenu->EnableItem(SID_FM_PATTERNFIELD + nChangeTypeOffset, bDesignMode && (nColType != TYPE_PATTERNFIELD));
729 		pControlMenu->EnableItem(SID_FM_FORMATTEDFIELD + nChangeTypeOffset, bDesignMode && (nColType != TYPE_FORMATTEDFIELD));
730 		rMenu.SetPopupMenu(SID_FM_CHANGECOL, pControlMenu);
731 	}
732 
733 	rMenu.EnableItem(SID_FM_INSERTCOL, bDesignMode && xCols.is());
734 	rMenu.EnableItem(SID_FM_DELETECOL, bDesignMode && bMarked && xCols.is());
735 	rMenu.EnableItem(SID_FM_CHANGECOL, bDesignMode && bMarked && xCols.is());
736 	rMenu.EnableItem(SID_FM_SHOW_PROPERTY_BROWSER, bDesignMode && bMarked && xCols.is());
737 
738 	PopupMenu* pShowColsMenu = rMenu.GetPopupMenu(SID_FM_SHOWCOLS);
739 	sal_uInt16 nHiddenCols = 0;
740 	if (pShowColsMenu)
741 	{
742 		if (xCols.is())
743 		{
744 			// check for hidden cols
745 			Reference< ::com::sun::star::beans::XPropertySet >	xCurCol;
746 			Any aHidden,aName;
747 			for (sal_uInt16 i=0; i<xCols->getCount(); ++i)
748 			{
749 				::cppu::extractInterface(xCurCol, xCols->getByIndex(i));
750 				DBG_ASSERT(xCurCol.is(), "FmGridHeader::PreExecuteColumnContextMenu : the Peer has invalid columns !");
751 				aHidden = xCurCol->getPropertyValue(FM_PROP_HIDDEN);
752 				DBG_ASSERT(aHidden.getValueType().getTypeClass() == TypeClass_BOOLEAN,
753 					"FmGridHeader::PreExecuteColumnContextMenu : the property 'hidden' should be boolean !");
754 				if (::comphelper::getBOOL(aHidden))
755 				{
756 					// put the column name into the 'show col' menu
757 					if (nHiddenCols < 16)
758 					{	// (only the first 16 items to keep the menu rather small)
759 						aName = xCurCol->getPropertyValue(FM_PROP_LABEL);
760 						pShowColsMenu->InsertItem(nHiddenCols + 1, ::comphelper::getString(aName), 0, nHiddenCols);
761 							// the ID is arbitrary, but should be unique within the whole menu
762 					}
763 					++nHiddenCols;
764 				}
765 			}
766 		}
767 		pShowColsMenu->EnableItem(SID_FM_SHOWCOLS_MORE, xCols.is() && (nHiddenCols > 16));
768 		pShowColsMenu->EnableItem(SID_FM_SHOWALLCOLS, xCols.is() && (nHiddenCols > 0));
769 	}
770 
771 	// allow the 'hide column' item ?
772 	sal_Bool bAllowHide = bMarked;											// a column is marked
773 	bAllowHide = bAllowHide || (!bDesignMode && (nPos != (sal_uInt16)-1));	// OR we are in alive mode and have hit a column
774 	bAllowHide = bAllowHide && xCols.is();								// AND we have a column container
775 	bAllowHide = bAllowHide && (xCols->getCount()-nHiddenCols > 1); 	// AND there are at least two visible columns
776 	rMenu.EnableItem(SID_FM_HIDECOL,  bAllowHide);
777 
778 	sal_Bool bChecked = sal_False;
779 	if (bMarked)
780 	{
781 
782 		SfxViewFrame* pCurrentFrame = SfxViewFrame::Current();
783 		SfxItemState eState = SFX_ITEM_UNKNOWN;
784 		// ask the bindings of the current view frame (which should be the one we're residing in) for the state
785 		if (pCurrentFrame)
786 		{
787 			SfxPoolItem* pItem = NULL;
788 			eState = pCurrentFrame->GetBindings().QueryState(SID_FM_CTL_PROPERTIES, pItem);
789 
790 			if (eState >= SFX_ITEM_AVAILABLE && pItem )
791 			{
792 				bChecked = pItem->ISA(SfxBoolItem) && ((SfxBoolItem*)pItem)->GetValue();
793 				rMenu.CheckItem(SID_FM_SHOW_PROPERTY_BROWSER,bChecked);
794 			}
795 			delete pItem;
796 		}
797 	}
798 }
799 
800 enum InspectorAction { eOpenInspector, eCloseInspector, eUpdateInspector, eNone };
801 
802 //------------------------------------------------------------------------------
PostExecuteColumnContextMenu(sal_uInt16 nColId,const PopupMenu & rMenu,sal_uInt16 nExecutionResult)803 void FmGridHeader::PostExecuteColumnContextMenu(sal_uInt16 nColId, const PopupMenu& rMenu, sal_uInt16 nExecutionResult)
804 {
805 	Reference< ::com::sun::star::container::XIndexContainer >  xCols(static_cast<FmGridControl*>(GetParent())->GetPeer()->getColumns());
806 	sal_uInt16 nPos = GetModelColumnPos(nColId);
807 
808 	// remove and delet the menu we inserted in PreExecuteColumnContextMenu
809 	PopupMenu* pControlMenu = rMenu.GetPopupMenu(SID_FM_CHANGECOL);
810 	delete pControlMenu;
811 
812 	::rtl::OUString aFieldType;
813 	sal_Bool	bReplace = sal_False;
814     InspectorAction eInspectorAction = eNone;
815     Reference< XPropertySet > xColumnToInspect;
816 	switch (nExecutionResult)
817 	{
818 		case SID_FM_DELETECOL:
819 		{
820 			Reference< XInterface >  xCol;
821 			::cppu::extractInterface(xCol, xCols->getByIndex(nPos));
822 			xCols->removeByIndex(nPos);
823 			::comphelper::disposeComponent(xCol);
824 		}	break;
825 		case SID_FM_SHOW_PROPERTY_BROWSER:
826             eInspectorAction = rMenu.IsItemChecked( SID_FM_SHOW_PROPERTY_BROWSER ) ? eOpenInspector : eCloseInspector;
827             xColumnToInspect.set( xCols->getByIndex( nPos ), UNO_QUERY );
828             break;
829 		case SID_FM_EDIT + nChangeTypeOffset:
830 			bReplace = sal_True;
831 		case SID_FM_EDIT:
832 			aFieldType = FM_COL_TEXTFIELD;
833 			break;
834 		case SID_FM_COMBOBOX + nChangeTypeOffset:
835 			bReplace = sal_True;
836 		case SID_FM_COMBOBOX:
837 			aFieldType = FM_COL_COMBOBOX;
838 			break;
839 		case SID_FM_LISTBOX + nChangeTypeOffset:
840 			bReplace = sal_True;
841 		case SID_FM_LISTBOX:
842 			aFieldType = FM_COL_LISTBOX;
843 			break;
844 		case SID_FM_CHECKBOX + nChangeTypeOffset:
845 			bReplace = sal_True;
846 		case SID_FM_CHECKBOX:
847 			aFieldType = FM_COL_CHECKBOX;
848 			break;
849 		case SID_FM_DATEFIELD + nChangeTypeOffset:
850 			bReplace = sal_True;
851 		case SID_FM_DATEFIELD:
852 			aFieldType = FM_COL_DATEFIELD;
853 			break;
854 		case SID_FM_TIMEFIELD + nChangeTypeOffset:
855 			bReplace = sal_True;
856 		case SID_FM_TIMEFIELD:
857 			aFieldType = FM_COL_TIMEFIELD;
858 			break;
859 		case SID_FM_NUMERICFIELD + nChangeTypeOffset:
860 			bReplace = sal_True;
861 		case SID_FM_NUMERICFIELD:
862 			aFieldType = FM_COL_NUMERICFIELD;
863 			break;
864 		case SID_FM_CURRENCYFIELD + nChangeTypeOffset:
865 			bReplace = sal_True;
866 		case SID_FM_CURRENCYFIELD:
867 			aFieldType = FM_COL_CURRENCYFIELD;
868 			break;
869 		case SID_FM_PATTERNFIELD + nChangeTypeOffset:
870 			bReplace = sal_True;
871 		case SID_FM_PATTERNFIELD:
872 			aFieldType = FM_COL_PATTERNFIELD;
873 			break;
874 		case SID_FM_FORMATTEDFIELD + nChangeTypeOffset:
875 			bReplace = sal_True;
876 		case SID_FM_FORMATTEDFIELD:
877 			aFieldType = FM_COL_FORMATTEDFIELD;
878 			break;
879 		case SID_FM_HIDECOL:
880 		{
881 			Reference< ::com::sun::star::beans::XPropertySet >	xCurCol;
882 			::cppu::extractInterface(xCurCol, xCols->getByIndex(nPos));
883 			xCurCol->setPropertyValue(FM_PROP_HIDDEN, makeAny((sal_Bool)sal_True));
884 		}
885 		break;
886 		case SID_FM_SHOWCOLS_MORE:
887 		{
888 			SvxAbstractDialogFactory* pFact = SvxAbstractDialogFactory::Create();
889 			if(pFact)
890 			{
891 				AbstractFmShowColsDialog* pDlg = pFact->CreateFmShowColsDialog(NULL);
892 				DBG_ASSERT(pDlg, "Dialogdiet fail!");//CHINA001
893 				pDlg->SetColumns(xCols);
894 				pDlg->Execute();
895 				delete pDlg;
896 			}
897 
898 		}
899 		break;
900 		case SID_FM_SHOWALLCOLS:
901 		{
902 			// just iterate through all the cols ...
903 			Reference< ::com::sun::star::beans::XPropertySet >	xCurCol;
904 			for (sal_uInt16 i=0; i<xCols->getCount(); ++i)
905 			{
906 				::cppu::extractInterface(xCurCol, xCols->getByIndex(i));
907 				xCurCol->setPropertyValue(FM_PROP_HIDDEN, makeAny((sal_Bool)sal_False));
908 			}
909 			// TODO : there must be a more clever way to do this ....
910 			// with the above the view is updated after every single model update ...
911 		}
912 		break;
913 		default:
914 			if (nExecutionResult>0 && nExecutionResult<=16)
915 			{	// it was a "show column/<colname>" command (there are at most 16 such items)
916 				// search the nExecutionResult'th hidden col
917 				Reference< ::com::sun::star::beans::XPropertySet >	xCurCol;
918 				for (sal_uInt16 i=0; i<xCols->getCount() && nExecutionResult; ++i)
919 				{
920 					::cppu::extractInterface(xCurCol, xCols->getByIndex(i));
921 					Any aHidden = xCurCol->getPropertyValue(FM_PROP_HIDDEN);
922 					if (::comphelper::getBOOL(aHidden))
923 						if (!--nExecutionResult)
924 						{
925 							xCurCol->setPropertyValue(FM_PROP_HIDDEN, makeAny((sal_Bool)sal_False));
926 							break;
927 						}
928 				}
929 			}
930 			break;
931 	}
932 
933 	if ( aFieldType.getLength() )
934 	{
935         try
936         {
937             Reference< XGridColumnFactory > xFactory( xCols, UNO_QUERY_THROW );
938             Reference< XPropertySet > xNewCol( xFactory->createColumn( aFieldType ), UNO_SET_THROW );
939 
940             if ( bReplace )
941             {
942                 // ein paar Properties hinueberretten
943                 Reference< XPropertySet > xReplaced( xCols->getByIndex( nPos ), UNO_QUERY );
944 
945                 OStaticDataAccessTools().TransferFormComponentProperties(
946                     xReplaced, xNewCol, Application::GetSettings().GetUILocale() );
947 
948                 xCols->replaceByIndex( nPos, makeAny( xNewCol ) );
949                 ::comphelper::disposeComponent( xReplaced );
950 
951                 eInspectorAction = eUpdateInspector;
952                 xColumnToInspect = xNewCol;
953             }
954             else
955             {
956                 FormControlFactory factory( ::comphelper::getProcessServiceFactory() );
957 
958                 ::rtl::OUString sLabel = factory.getDefaultUniqueName_ByComponentType(
959                     Reference< XNameAccess >( xCols, UNO_QUERY_THROW ), xNewCol );
960                 xNewCol->setPropertyValue( FM_PROP_LABEL, makeAny( sLabel ) );
961                 xNewCol->setPropertyValue( FM_PROP_NAME, makeAny( sLabel ) );
962 
963                 factory.initializeControlModel( DocumentClassification::classifyHostDocument( xCols ), xNewCol );
964 
965                 xCols->insertByIndex( nPos, makeAny( xNewCol ) );
966             }
967         }
968         catch( const Exception& )
969         {
970         	DBG_UNHANDLED_EXCEPTION();
971         }
972 	}
973 
974     SfxViewFrame* pCurrentFrame = SfxViewFrame::Current();
975     OSL_ENSURE( pCurrentFrame, "FmGridHeader::PostExecuteColumnContextMenu: no view frame -> no bindings -> no property browser!" );
976     if ( pCurrentFrame )
977     {
978         if ( eInspectorAction == eUpdateInspector )
979         {
980             if ( !pCurrentFrame->HasChildWindow( SID_FM_SHOW_PROPERTIES ) )
981                 eInspectorAction = eNone;
982         }
983 
984         if ( eInspectorAction != eNone )
985         {
986             FmInterfaceItem aIFaceItem( SID_FM_SHOW_PROPERTY_BROWSER, xColumnToInspect );
987             SfxBoolItem aShowItem( SID_FM_SHOW_PROPERTIES, eInspectorAction == eCloseInspector ? sal_False : sal_True );
988 
989             pCurrentFrame->GetBindings().GetDispatcher()->Execute( SID_FM_SHOW_PROPERTY_BROWSER, SFX_CALLMODE_ASYNCHRON,
990                                       &aIFaceItem, &aShowItem, 0L );
991         }
992     }
993 }
994 
995 //------------------------------------------------------------------------------
triggerColumnContextMenu(const::Point & _rPreferredPos)996 void FmGridHeader::triggerColumnContextMenu( const ::Point& _rPreferredPos )
997 {
998 	// the affected col
999 	sal_uInt16 nColId = GetItemId( _rPreferredPos );
1000 
1001 	// the menu
1002 	PopupMenu aContextMenu( SVX_RES( RID_SVXMNU_COLS ) );
1003 
1004 	// let derivees modify the menu
1005 	PreExecuteColumnContextMenu( nColId, aContextMenu );
1006 	aContextMenu.RemoveDisabledEntries( sal_True, sal_True );
1007 
1008 	// execute the menu
1009 	sal_uInt16 nResult = aContextMenu.Execute( this, _rPreferredPos );
1010 
1011 	// let derivees handle the result
1012 	PostExecuteColumnContextMenu( nColId, aContextMenu, nResult );
1013 }
1014 
1015 //------------------------------------------------------------------------------
Command(const CommandEvent & rEvt)1016 void FmGridHeader::Command(const CommandEvent& rEvt)
1017 {
1018 	switch (rEvt.GetCommand())
1019 	{
1020 		case COMMAND_CONTEXTMENU:
1021 		{
1022 			if (!rEvt.IsMouseEvent())
1023 				return;
1024 
1025 			triggerColumnContextMenu( rEvt.GetMousePosPixel() );
1026 		}
1027 		break;
1028 		default:
1029 			EditBrowserHeader::Command(rEvt);
1030 	}
1031 }
1032 
1033 //------------------------------------------------------------------------------
FmGridControl(Reference<::com::sun::star::lang::XMultiServiceFactory> _rxFactory,Window * pParent,FmXGridPeer * _pPeer,WinBits nBits)1034 FmGridControl::FmGridControl(
1035 				Reference< ::com::sun::star::lang::XMultiServiceFactory > _rxFactory,
1036 				Window* pParent,
1037 				FmXGridPeer* _pPeer,
1038 				WinBits nBits)
1039 		:DbGridControl(_rxFactory, pParent, nBits)
1040         ,m_pPeer(_pPeer)
1041         ,m_nCurrentSelectedColumn(-1)
1042 		,m_nMarkedColumnId(BROWSER_INVALIDID)
1043         ,m_bSelecting(sal_False)
1044         ,m_bInColumnMove(sal_False)
1045 {
1046     EnableInteractiveRowHeight( );
1047 }
1048 
1049 //------------------------------------------------------------------------------
Command(const CommandEvent & _rEvt)1050 void FmGridControl::Command(const CommandEvent& _rEvt)
1051 {
1052 	if ( COMMAND_CONTEXTMENU == _rEvt.GetCommand() )
1053 	{
1054 		FmGridHeader* pMyHeader = static_cast< FmGridHeader* >( GetHeaderBar() );
1055         if ( pMyHeader && !_rEvt.IsMouseEvent() )
1056 		{	// context menu requested by keyboard
1057 			if	( 1 == GetSelectColumnCount() || IsDesignMode() )
1058 			{
1059 				sal_uInt16 nSelId = GetColumnId(
1060                     sal::static_int_cast< sal_uInt16 >( FirstSelectedColumn() ) );
1061 				::Rectangle aColRect( GetFieldRectPixel( 0, nSelId, sal_False ) );
1062 
1063                 Point aRelativePos( pMyHeader->ScreenToOutputPixel( OutputToScreenPixel( aColRect.TopCenter() ) ) );
1064                 pMyHeader->triggerColumnContextMenu( aRelativePos, FmGridHeader::AccessControl() );
1065 
1066 				// handled
1067 				return;
1068 			}
1069 		}
1070 	}
1071 
1072 	DbGridControl::Command( _rEvt );
1073 }
1074 
1075 // ::com::sun::star::beans::XPropertyChangeListener
1076 //------------------------------------------------------------------------------
propertyChange(const::com::sun::star::beans::PropertyChangeEvent & evt)1077 void FmGridControl::propertyChange(const ::com::sun::star::beans::PropertyChangeEvent& evt)
1078 {
1079 	if (evt.PropertyName == FM_PROP_ROWCOUNT)
1080 	{
1081 		// if we're not in the main thread call AdjustRows asynchronously
1082 		implAdjustInSolarThread(sal_True);
1083 		return;
1084 	}
1085 
1086 	const DbGridRowRef& xRow = GetCurrentRow();
1087 	// waehrend Positionierung wird kein abgleich  der Properties vorgenommen
1088 	Reference<XPropertySet> xSet(evt.Source,UNO_QUERY);
1089 	if (xRow.Is() && (::cppu::any2bool(xSet->getPropertyValue(FM_PROP_ISNEW))|| CompareBookmark(getDataSource()->getBookmark(), xRow->GetBookmark())))
1090 	{
1091 		if (evt.PropertyName == FM_PROP_ISMODIFIED)
1092 		{
1093 			// modified or clean ?
1094 			GridRowStatus eStatus = ::comphelper::getBOOL(evt.NewValue) ? GRS_MODIFIED : GRS_CLEAN;
1095 			if (eStatus != xRow->GetStatus())
1096 			{
1097 				xRow->SetStatus(eStatus);
1098 				vos::OGuard aGuard( Application::GetSolarMutex() );
1099 				RowModified(GetCurrentPos());
1100 			}
1101 		}
1102 	}
1103 }
1104 
1105 //------------------------------------------------------------------------------
SetDesignMode(sal_Bool bMode)1106 void FmGridControl::SetDesignMode(sal_Bool bMode)
1107 {
1108 	sal_Bool bOldMode = IsDesignMode();
1109 	DbGridControl::SetDesignMode(bMode);
1110 	if (bOldMode != bMode)
1111 	{
1112 		if (!bMode)
1113 		{
1114 			// selection aufheben
1115 			markColumn(USHRT_MAX);
1116 		}
1117 		else
1118 		{
1119 			Reference< ::com::sun::star::container::XIndexContainer >  xColumns(GetPeer()->getColumns());
1120 			Reference< ::com::sun::star::view::XSelectionSupplier >  xSelSupplier(xColumns, UNO_QUERY);
1121 			if (xSelSupplier.is())
1122 			{
1123 				Any aSelection = xSelSupplier->getSelection();
1124 				Reference< ::com::sun::star::beans::XPropertySet >	xColumn;
1125 				if (aSelection.getValueType().getTypeClass() == TypeClass_INTERFACE)
1126 					::cppu::extractInterface(xColumn, aSelection);
1127 				Reference< XInterface >  xCurrent;
1128 				for (sal_uInt16 i=0; i<xColumns->getCount(); ++i)
1129 				{
1130 					::cppu::extractInterface(xCurrent, xColumns->getByIndex(i));
1131 					if (xCurrent == xColumn)
1132 					{
1133 						markColumn(GetColumnIdFromModelPos(i));
1134 						break;
1135 					}
1136 				}
1137 			}
1138 		}
1139 	}
1140 }
1141 
1142 //------------------------------------------------------------------------------
DeleteSelectedRows()1143 void FmGridControl::DeleteSelectedRows()
1144 {
1145 	if (!m_pSeekCursor)
1146 		return;
1147 
1148 	// how many rows are selected?
1149 	sal_Int32 nSelectedRows = GetSelectRowCount();
1150 
1151     // the current line should be deleted but it is currently in edit mode
1152 	if ( IsCurrentAppending() )
1153         return;
1154     // is the insert row selected
1155 	if (GetEmptyRow().Is() && IsRowSelected(GetRowCount() - 1))
1156 		nSelectedRows -= 1;
1157 
1158 	// nothing to do
1159 	if (nSelectedRows <= 0)
1160 		return;
1161 
1162 	// try to confirm the delete
1163 	Reference< ::com::sun::star::frame::XDispatchProvider >  xDispatcher = (::com::sun::star::frame::XDispatchProvider*)GetPeer();
1164 	if (xDispatcher.is())
1165 	{
1166 		::com::sun::star::util::URL aUrl;
1167 		aUrl.Complete = FMURL_CONFIRM_DELETION;
1168 		// #100312# ------------
1169 		Reference< ::com::sun::star::util::XURLTransformer > xTransformer(
1170 			::comphelper::getProcessServiceFactory()->createInstance(
1171 			::rtl::OUString::createFromAscii("com.sun.star.util.URLTransformer")), UNO_QUERY);
1172 		if( xTransformer.is() )
1173 			xTransformer->parseStrict( aUrl );
1174 
1175 		Reference< ::com::sun::star::frame::XDispatch >  xDispatch = xDispatcher->queryDispatch(aUrl, rtl::OUString(), 0);
1176 		Reference< ::com::sun::star::form::XConfirmDeleteListener >  xConfirm(xDispatch, UNO_QUERY);
1177 		if (xConfirm.is())
1178 		{
1179 			::com::sun::star::sdb::RowChangeEvent aEvent;
1180 			aEvent.Source = (Reference< XInterface > )(*getDataSource());
1181 			aEvent.Rows = nSelectedRows;
1182 			aEvent.Action = ::com::sun::star::sdb::RowChangeAction::DELETE;
1183 			if (!xConfirm->confirmDelete(aEvent))
1184 				return;
1185 		}
1186 	}
1187 
1188 	const MultiSelection* pRowSelection = GetSelection();
1189 	if ( pRowSelection && pRowSelection->IsAllSelected() )
1190 	{
1191 		BeginCursorAction();
1192 		CursorWrapper* pCursor = getDataSource();
1193 		Reference< XResultSetUpdate >  xUpdateCursor((Reference< XInterface >)*pCursor, UNO_QUERY);
1194 		try
1195 		{
1196 			pCursor->beforeFirst();
1197 			while( pCursor->next() )
1198 				xUpdateCursor->deleteRow();
1199 
1200 			SetUpdateMode(sal_False);
1201 			SetNoSelection();
1202 
1203 			xUpdateCursor->moveToInsertRow();
1204 		}
1205 		catch(const Exception&)
1206 		{
1207 			OSL_ENSURE(0,"Exception caught while deleting rows!");
1208 		}
1209 		// An den DatenCursor anpassen
1210 		AdjustDataSource(sal_True);
1211 		EndCursorAction();
1212 		SetUpdateMode(sal_True);
1213 	}
1214 	else
1215 	{
1216 		Reference< ::com::sun::star::sdbcx::XDeleteRows >  xDeleteThem((Reference< XInterface >)*getDataSource(), UNO_QUERY);
1217 
1218 		// colect the bookmarks of the selected rows
1219 		Sequence < Any> aBookmarks = getSelectionBookmarks();
1220 
1221 		// determine the next row to position after deletion
1222 		Any aBookmark;
1223 		sal_Bool bNewPos = sal_False;
1224 		// if the current row isn't selected we take the row as row after deletion
1225         OSL_ENSURE( GetCurrentRow().Is(), "FmGridControl::DeleteSelectedRows: no current row here?" );
1226             // crash reports suggest it can happen we don't have a current row - how?
1227             // #154303# / 2008-04-23 / frank.schoenheit@sun.com
1228 		if ( !IsRowSelected( GetCurrentPos() ) && !IsCurrentAppending() && GetCurrentRow().Is() )
1229 		{
1230 			aBookmark = GetCurrentRow()->GetBookmark();
1231 			bNewPos   = sal_True;
1232 		}
1233 		else
1234 		{
1235 			// we look for the first row after the selected block for selection
1236 			long nIdx = LastSelectedRow() + 1;
1237 			if (nIdx < GetRowCount() - 1)
1238 			{
1239 				// there is a next row to position on
1240 				if (SeekCursor(nIdx))
1241 				{
1242 					GetSeekRow()->SetState(m_pSeekCursor, sal_True);
1243 
1244 					bNewPos = sal_True;
1245 					// if it's not the row for inserting we keep the bookmark
1246 					if (!IsInsertionRow(nIdx))
1247 						aBookmark = m_pSeekCursor->getBookmark();
1248 				}
1249 			}
1250 			else
1251 			{
1252 				// we look for the first row before the selected block for selection after deletion
1253 				nIdx = FirstSelectedRow() - 1;
1254 				if (nIdx >= 0 && SeekCursor(nIdx))
1255 				{
1256 					GetSeekRow()->SetState(m_pSeekCursor, sal_True);
1257 
1258 					bNewPos = sal_True;
1259 					aBookmark = m_pSeekCursor->getBookmark();
1260 				}
1261 			}
1262 		}
1263 
1264 		// Sind alle Zeilen Selectiert
1265 		// Zweite bedingung falls keine einguegeZeile existiert
1266 		sal_Bool bAllSelected = GetTotalCount() == nSelectedRows || GetRowCount() == nSelectedRows;
1267 
1268 		BeginCursorAction();
1269 
1270 		// now delete the row
1271 		Sequence <sal_Int32> aDeletedRows;
1272         SetUpdateMode( sal_False );
1273 		try
1274 		{
1275 			aDeletedRows = xDeleteThem->deleteRows(aBookmarks);
1276 		}
1277 		catch(SQLException&)
1278 		{
1279 		}
1280         SetUpdateMode( sal_True );
1281 
1282 		// how many rows are deleted?
1283 		sal_Int32 nDeletedRows = 0;
1284 		const sal_Int32* pSuccess = aDeletedRows.getConstArray();
1285 		for (sal_Int32 i = 0; i < aDeletedRows.getLength(); i++)
1286 		{
1287 			if (pSuccess[i])
1288 				++nDeletedRows;
1289 		}
1290 
1291 		// sind Zeilen geloescht worden?
1292 		if (nDeletedRows)
1293 		{
1294 			SetUpdateMode(sal_False);
1295 			SetNoSelection();
1296 			try
1297 			{
1298 				// did we delete all the rows than try to move to the next possible row
1299 				if (nDeletedRows == aDeletedRows.getLength())
1300 				{
1301 					// there exists a new position to move on
1302 					if (bNewPos)
1303 					{
1304 						if (aBookmark.hasValue())
1305 							getDataSource()->moveToBookmark(aBookmark);
1306 						// no valid bookmark so move to the insert row
1307 						else
1308 						{
1309 							Reference< XResultSetUpdate >  xUpdateCursor((Reference< XInterface >)*m_pDataCursor, UNO_QUERY);
1310 							xUpdateCursor->moveToInsertRow();
1311 						}
1312 					}
1313 					else
1314 					{
1315 						Reference< ::com::sun::star::beans::XPropertySet >	xSet((Reference< XInterface >)*m_pDataCursor, UNO_QUERY);
1316 
1317                         sal_Int32 nRecordCount(0);
1318 						xSet->getPropertyValue(FM_PROP_ROWCOUNT) >>= nRecordCount;
1319                         if ( m_pDataCursor->rowDeleted() )
1320                             --nRecordCount;
1321 
1322 						// there are no rows left and we have an insert row
1323 						if (!nRecordCount && GetEmptyRow().Is())
1324 						{
1325 							Reference< XResultSetUpdate >  xUpdateCursor((Reference< XInterface >)*m_pDataCursor, UNO_QUERY);
1326 							xUpdateCursor->moveToInsertRow();
1327 						}
1328 						else if (nRecordCount)
1329 							// move to the first row
1330 							getDataSource()->first();
1331 					}
1332 				}
1333 				// not all the rows where deleted, so move to the first row which remained in the resultset
1334 				else
1335 				{
1336 					for (sal_Int32 i = 0; i < aDeletedRows.getLength(); i++)
1337 					{
1338 						if (!pSuccess[i])
1339 						{
1340 							getDataSource()->moveToBookmark(aBookmarks.getConstArray()[i]);
1341 							break;
1342 						}
1343 					}
1344 				}
1345 			}
1346 			catch(const Exception&)
1347 			{
1348 				try
1349 				{
1350 					// positioning went wrong so try to move to the first row
1351 					getDataSource()->first();
1352 				}
1353 				catch(const Exception&)
1354 				{
1355 				}
1356 			}
1357 
1358 			// An den DatenCursor anpassen
1359 			AdjustDataSource(sal_True);
1360 
1361 			// es konnten nicht alle Zeilen geloescht werden
1362 			// da nie nicht geloeschten wieder selektieren
1363 			if (nDeletedRows < nSelectedRows)
1364 			{
1365 				// waren alle selektiert
1366 				if (bAllSelected)
1367 				{
1368 					SelectAll();
1369 					if (IsInsertionRow(GetRowCount() - 1))	// einfuegeZeile nicht
1370 						SelectRow(GetRowCount() - 1, sal_False);
1371 				}
1372 				else
1373 				{
1374 					// select the remaining rows
1375 					for (sal_Int32 i = 0; i < aDeletedRows.getLength(); i++)
1376 					{
1377 						try
1378 						{
1379 							if (!pSuccess[i])
1380 							{
1381 								m_pSeekCursor->moveToBookmark(m_pDataCursor->getBookmark());
1382 								SetSeekPos(m_pSeekCursor->getRow() - 1);
1383 								SelectRow(GetSeekPos());
1384 							}
1385 						}
1386 						catch(const Exception&)
1387 						{
1388 							// keep the seekpos in all cases
1389 							SetSeekPos(m_pSeekCursor->getRow() - 1);
1390 						}
1391 					}
1392 				}
1393 			}
1394 
1395 			EndCursorAction();
1396 			SetUpdateMode(sal_True);
1397 		}
1398 		else // Zeile konnte nicht geloescht werden
1399 		{
1400 			EndCursorAction();
1401 			try
1402 			{
1403 				// currentrow is the insert row?
1404 				if (!IsCurrentAppending())
1405 					getDataSource()->refreshRow();
1406 			}
1407 			catch(const Exception&)
1408 			{
1409 			}
1410 		}
1411 	}
1412 
1413 	// if there is no selection anymore we can start editing
1414 	if (!GetSelectRowCount())
1415 		ActivateCell();
1416 }
1417 
1418 
1419 // XCurrentRecordListener
1420 //------------------------------------------------------------------------------
positioned(const::com::sun::star::lang::EventObject &)1421 void FmGridControl::positioned(const ::com::sun::star::lang::EventObject& /*rEvent*/)
1422 {
1423 	TRACE_RANGE("FmGridControl::positioned");
1424 	// position on the data source (force it to be done in the main thread)
1425 	implAdjustInSolarThread(sal_False);
1426 }
1427 
1428 //------------------------------------------------------------------------------
commit()1429 sal_Bool FmGridControl::commit()
1430 {
1431 	// Commit nur ausfuehren, wenn nicht bereits ein Update vom ::com::sun::star::form::component::GridControl ausgefuehrt
1432 	// wird
1433 	if (!IsUpdating())
1434 	{
1435 		if (Controller().Is() && Controller()->IsModified())
1436 		{
1437 			if (!SaveModified())
1438 				return sal_False;
1439 		}
1440 	}
1441 	return sal_True;
1442 }
1443 
1444 //------------------------------------------------------------------------------
inserted(const::com::sun::star::lang::EventObject &)1445 void FmGridControl::inserted(const ::com::sun::star::lang::EventObject& /*rEvent*/)
1446 {
1447 	const DbGridRowRef& xRow = GetCurrentRow();
1448 	if (!xRow.Is())
1449 		return;
1450 
1451 	// Zeile ist eingefuegt worden, dann den status und mode zuruecksetzen
1452 	xRow->SetState(m_pDataCursor, sal_False);
1453 	xRow->SetNew(sal_False);
1454 
1455 }
1456 
1457 // XCancelUpdateRecordListener
1458 //------------------------------------------------------------------------------
restored(const::com::sun::star::lang::EventObject & rEvent)1459 void FmGridControl::restored(const ::com::sun::star::lang::EventObject& rEvent)
1460 {
1461 	if (!GetCurrentRow().Is())
1462 		return;
1463 
1464 	sal_Bool bAppending = GetCurrentRow()->IsNew();
1465 	sal_Bool bDirty 	= GetCurrentRow()->IsModified();
1466 	if (bAppending && (EditBrowseBox::IsModified() || bDirty))
1467 	{
1468 		if (Controller().Is())
1469 			Controller()->ClearModified();
1470 
1471 		// jetzt die Zeile herausnehmen
1472 		RowRemoved(GetRowCount() - 1, 1, sal_True);
1473 		GetNavigationBar().InvalidateAll();
1474 	}
1475 
1476 	positioned(rEvent);
1477 }
1478 
1479 //------------------------------------------------------------------------------
imp_CreateHeaderBar(BrowseBox * pParent)1480 BrowserHeader* FmGridControl::imp_CreateHeaderBar(BrowseBox* pParent)
1481 {
1482     DBG_ASSERT( pParent == this, "FmGridControl::imp_CreateHeaderBar: parent?" );
1483     return new FmGridHeader( pParent );
1484 }
1485 
1486 //------------------------------------------------------------------------------
markColumn(sal_uInt16 nId)1487 void FmGridControl::markColumn(sal_uInt16 nId)
1488 {
1489 	if (GetHeaderBar() && m_nMarkedColumnId != nId)
1490 	{
1491 		// deselektieren
1492 		if (m_nMarkedColumnId != BROWSER_INVALIDID)
1493 		{
1494 			HeaderBarItemBits aBits = GetHeaderBar()->GetItemBits(m_nMarkedColumnId) & ~HIB_FLAT;
1495 			GetHeaderBar()->SetItemBits(m_nMarkedColumnId, aBits);
1496 		}
1497 
1498 
1499 		if (nId != BROWSER_INVALIDID)
1500 		{
1501 			HeaderBarItemBits aBits = GetHeaderBar()->GetItemBits(nId) | HIB_FLAT;
1502 			GetHeaderBar()->SetItemBits(nId, aBits);
1503 		}
1504 		m_nMarkedColumnId = nId;
1505 	}
1506 }
1507 
1508 //------------------------------------------------------------------------------
isColumnMarked(sal_uInt16 nId) const1509 sal_Bool FmGridControl::isColumnMarked(sal_uInt16 nId) const
1510 {
1511 	return m_nMarkedColumnId == nId;
1512 }
1513 
1514 //------------------------------------------------------------------------------
QueryMinimumRowHeight()1515 long FmGridControl::QueryMinimumRowHeight()
1516 {
1517     long nMinimalLogicHeight = 20; // 0.2 cm
1518     long nMinimalPixelHeight = LogicToPixel( Point( 0, nMinimalLogicHeight ), MAP_10TH_MM ).Y();
1519     return CalcZoom( nMinimalPixelHeight );
1520 }
1521 
1522 //------------------------------------------------------------------------------
RowHeightChanged()1523 void FmGridControl::RowHeightChanged()
1524 {
1525     DbGridControl::RowHeightChanged();
1526 
1527     Reference< XPropertySet > xModel( GetPeer()->getColumns(), UNO_QUERY );
1528     DBG_ASSERT( xModel.is(), "FmGridControl::RowHeightChanged: no model!" );
1529     if ( xModel.is() )
1530     {
1531         try
1532         {
1533 			sal_Int32 nUnzoomedPixelHeight = CalcReverseZoom( GetDataRowHeight() );
1534 			Any aProperty = makeAny( (sal_Int32)PixelToLogic( Point( 0, nUnzoomedPixelHeight ), MAP_10TH_MM ).Y() );
1535             xModel->setPropertyValue( FM_PROP_ROWHEIGHT, aProperty );
1536         }
1537         catch( const Exception& )
1538         {
1539         	OSL_ENSURE( sal_False, "FmGridControl::RowHeightChanged: caught an exception!" );
1540         }
1541     }
1542 }
1543 
1544 //------------------------------------------------------------------------------
ColumnResized(sal_uInt16 nId)1545 void FmGridControl::ColumnResized(sal_uInt16 nId)
1546 {
1547 	DbGridControl::ColumnResized(nId);
1548 
1549 	// Wert ans model uebergeben
1550 	DbGridColumn* pCol = DbGridControl::GetColumns().GetObject(GetModelColumnPos(nId));
1551 	Reference< ::com::sun::star::beans::XPropertySet >	xColModel(pCol->getModel());
1552 	if (xColModel.is())
1553 	{
1554 		Any aWidth;
1555 		sal_Int32 nColumnWidth = GetColumnWidth(nId);
1556 		nColumnWidth = CalcReverseZoom(nColumnWidth);
1557 		// Umrechnen in 10THMM
1558 		aWidth <<= (sal_Int32)PixelToLogic(Point(nColumnWidth,0),MAP_10TH_MM).X();
1559 		xColModel->setPropertyValue(FM_PROP_WIDTH, aWidth);
1560 	}
1561 }
1562 
1563 //------------------------------------------------------------------------------
CellModified()1564 void FmGridControl::CellModified()
1565 {
1566 	DbGridControl::CellModified();
1567 	GetPeer()->CellModified();
1568 }
1569 
1570 //------------------------------------------------------------------------------
BeginCursorAction()1571 void FmGridControl::BeginCursorAction()
1572 {
1573 	DbGridControl::BeginCursorAction();
1574 	m_pPeer->stopCursorListening();
1575 }
1576 
1577 //------------------------------------------------------------------------------
EndCursorAction()1578 void FmGridControl::EndCursorAction()
1579 {
1580 	m_pPeer->startCursorListening();
1581 	DbGridControl::EndCursorAction();
1582 }
1583 
1584 //------------------------------------------------------------------------------
ColumnMoved(sal_uInt16 nId)1585 void FmGridControl::ColumnMoved(sal_uInt16 nId)
1586 {
1587 	m_bInColumnMove = sal_True;
1588 
1589 	DbGridControl::ColumnMoved(nId);
1590 	Reference< ::com::sun::star::container::XIndexContainer >  xColumns(GetPeer()->getColumns());
1591 
1592 	if (xColumns.is())
1593 	{
1594 		// suchen der Spalte und verschieben im Model
1595 		// ColumnPos holen
1596 		DbGridColumn* pCol = DbGridControl::GetColumns().GetObject(GetModelColumnPos(nId));
1597 		Reference< ::com::sun::star::beans::XPropertySet >	xCol;
1598 
1599 		// Einfuegen muß sich an den Column Positionen orientieren
1600 		sal_Int32 i;
1601 		Reference< XInterface > xCurrent;
1602 		for (i = 0; !xCol.is() && i < xColumns->getCount(); i++)
1603 		{
1604 			::cppu::extractInterface(xCurrent, xColumns->getByIndex(i));
1605 			if (xCurrent == pCol->getModel())
1606 			{
1607 				xCol = pCol->getModel();
1608 				break;
1609 			}
1610 		}
1611 
1612 		DBG_ASSERT(i < xColumns->getCount(), "Falscher ::com::sun::star::sdbcx::Index");
1613 		xColumns->removeByIndex(i);
1614 		Any aElement;
1615 		aElement <<= xCol;
1616 		xColumns->insertByIndex(GetModelColumnPos(nId), aElement);
1617 		pCol->setModel(xCol);
1618 		// if the column which is shown here is selected ...
1619 		if ( isColumnSelected(nId,pCol) )
1620 			markColumn(nId); // ... -> mark it
1621 	}
1622 
1623 	m_bInColumnMove = sal_False;
1624 }
1625 
1626 //------------------------------------------------------------------------------
InitColumnsByModels(const Reference<::com::sun::star::container::XIndexContainer> & xColumns)1627 void FmGridControl::InitColumnsByModels(const Reference< ::com::sun::star::container::XIndexContainer >& xColumns)
1628 {
1629 	// Spalten wieder neu setzen
1630 	// wenn es nur eine HandleColumn gibt, dann nicht
1631 	if (GetModelColCount())
1632 	{
1633 		RemoveColumns();
1634 		InsertHandleColumn();
1635 	}
1636 
1637 	if (!xColumns.is())
1638 		return;
1639 
1640 	SetUpdateMode(sal_False);
1641 
1642 	// Einfuegen mu� sich an den Column Positionen orientieren
1643 	sal_Int32 i;
1644 	String aName;
1645 	Any aWidth;
1646 	for (i = 0; i < xColumns->getCount(); ++i)
1647 	{
1648 		Reference< ::com::sun::star::beans::XPropertySet > xCol;
1649 		::cppu::extractInterface(xCol, xColumns->getByIndex(i));
1650 
1651 		aName  = ::comphelper::getString( xCol->getPropertyValue(FM_PROP_LABEL)).getStr();
1652 
1653 		aWidth = xCol->getPropertyValue(FM_PROP_WIDTH);
1654 		sal_Int32 nWidth = 0;
1655 		if (aWidth >>= nWidth)
1656 			nWidth = LogicToPixel(Point(nWidth,0),MAP_10TH_MM).X();
1657 
1658 		AppendColumn(aName, (sal_uInt16)nWidth);
1659 		DbGridColumn* pCol = DbGridControl::GetColumns().GetObject(i);
1660 		pCol->setModel(xCol);
1661 	}
1662 
1663 	// und jetzt noch die hidden columns rausnehmen
1664 	// (wir haben das nicht gleich in der oberen Schleife gemacht, da wir dann Probleme mit den
1665 	// IDs der Spalten bekommen haetten : AppendColumn vergibt die automatisch, die Spalte _nach_
1666 	// einer versteckten braucht aber eine um eine erhoehte ID ....
1667 	Any aHidden;
1668 	for (i = 0; i < xColumns->getCount(); ++i)
1669 	{
1670 		Reference< ::com::sun::star::beans::XPropertySet > xCol;
1671 		::cppu::extractInterface(xCol, xColumns->getByIndex(i));
1672 		aHidden = xCol->getPropertyValue(FM_PROP_HIDDEN);
1673 		if (::comphelper::getBOOL(aHidden))
1674 			HideColumn(GetColumnIdFromModelPos((sal_uInt16)i));
1675 	}
1676 
1677 	SetUpdateMode(sal_True);
1678 }
1679 
1680 //------------------------------------------------------------------------------
InitColumnByField(DbGridColumn * _pColumn,const Reference<XPropertySet> & _rxColumnModel,const Reference<XNameAccess> & _rxFieldsByNames,const Reference<XIndexAccess> & _rxFieldsByIndex)1681 void FmGridControl::InitColumnByField(
1682 	DbGridColumn* _pColumn, const Reference< XPropertySet >& _rxColumnModel,
1683 	const Reference< XNameAccess >& _rxFieldsByNames, const Reference< XIndexAccess >& _rxFieldsByIndex )
1684 {
1685 	DBG_ASSERT( _rxFieldsByNames == _rxFieldsByIndex, "FmGridControl::InitColumnByField: invalid container interfaces!" );
1686 
1687 	// lookup the column which belongs to the control source
1688 	::rtl::OUString sFieldName;
1689 	_rxColumnModel->getPropertyValue( FM_PROP_CONTROLSOURCE ) >>= sFieldName;
1690     Reference< XPropertySet > xField;
1691     _rxColumnModel->getPropertyValue( FM_PROP_BOUNDFIELD ) >>= xField;
1692 
1693 
1694 	if ( !xField.is() && /*sFieldName.getLength() && */_rxFieldsByNames->hasByName( sFieldName ) ) // #i93452# do not check for name length
1695 		_rxFieldsByNames->getByName( sFieldName ) >>= xField;
1696 
1697 	// determine the position of this column
1698 	sal_Int32 nFieldPos = -1;
1699 	if ( xField.is() )
1700 	{
1701 		Reference< XPropertySet > xCheck;
1702 		sal_Int32 nFieldCount = _rxFieldsByIndex->getCount();
1703 		for ( sal_Int32 i = 0; i < nFieldCount; ++i)
1704 		{
1705 			_rxFieldsByIndex->getByIndex( i ) >>= xCheck;
1706 			if ( xField.get() == xCheck.get() )
1707 			{
1708 				nFieldPos = i;
1709 				break;
1710 			}
1711 		}
1712 	}
1713 
1714 	if ( xField.is() && ( nFieldPos >= 0 ) )
1715 	{
1716 		// some data types are not allowed
1717 		sal_Int32 nDataType = DataType::OTHER;
1718 		xField->getPropertyValue( FM_PROP_FIELDTYPE ) >>= nDataType;
1719 
1720 		sal_Bool bIllegalType = sal_False;
1721 		switch ( nDataType )
1722 		{
1723 			case DataType::BLOB:
1724 			case DataType::LONGVARBINARY:
1725 			case DataType::BINARY:
1726 			case DataType::VARBINARY:
1727 			case DataType::OTHER:
1728 				bIllegalType = sal_True;
1729 				break;
1730 		}
1731 
1732 		if ( bIllegalType )
1733 		{
1734 			_pColumn->SetObject( (sal_Int16)nFieldPos );
1735 			return;
1736 		}
1737 /*
1738 		// handle readonly columns
1739 		sal_Bool bReadOnly = sal_True;
1740 		xField->getPropertyValue( FM_PROP_ISREADONLY ) >>= bReadOnly;
1741 		_pColumn->SetReadOnly( bReadOnly );
1742 */
1743 	}
1744 
1745 	// the control type is determined by the ColumnServiceName
1746 	static ::rtl::OUString s_sPropColumnServiceName( RTL_CONSTASCII_USTRINGPARAM( "ColumnServiceName" ) );
1747 	if ( !::comphelper::hasProperty( s_sPropColumnServiceName, _rxColumnModel ) )
1748 		return;
1749 
1750 	_pColumn->setModel( _rxColumnModel );
1751 
1752 	::rtl::OUString sColumnServiceName;
1753 	_rxColumnModel->getPropertyValue( s_sPropColumnServiceName ) >>= sColumnServiceName;
1754 
1755 	sal_Int32 nTypeId = getColumnTypeByModelName( sColumnServiceName );
1756 	_pColumn->CreateControl( nFieldPos, xField, nTypeId );
1757 }
1758 
1759 //------------------------------------------------------------------------------
InitColumnsByFields(const Reference<::com::sun::star::container::XIndexAccess> & _rxFields)1760 void FmGridControl::InitColumnsByFields(const Reference< ::com::sun::star::container::XIndexAccess >& _rxFields)
1761 {
1762 	if ( !_rxFields.is() )
1763 		return;
1764 
1765 	// Spalten initialisieren
1766 	Reference< XIndexContainer > xColumns( GetPeer()->getColumns() );
1767 	Reference< XNameAccess > xFieldsAsNames( _rxFields, UNO_QUERY );
1768 
1769 	// Einfuegen muss sich an den Column Positionen orientieren
1770 	for (sal_Int32 i = 0; i < xColumns->getCount(); i++)
1771 	{
1772 		DbGridColumn* pCol = GetColumns().GetObject(i);
1773 		OSL_ENSURE(pCol,"No grid column!");
1774 		if ( pCol )
1775 		{
1776 			Reference< XPropertySet > xColumnModel;
1777 			::cppu::extractInterface( xColumnModel, xColumns->getByIndex( i ) );
1778 
1779 			InitColumnByField( pCol, xColumnModel, xFieldsAsNames, _rxFields );
1780 		}
1781 	}
1782 }
1783 
1784 //------------------------------------------------------------------------------
HideColumn(sal_uInt16 nId)1785 void FmGridControl::HideColumn(sal_uInt16 nId)
1786 {
1787 	DbGridControl::HideColumn(nId);
1788 
1789 	sal_uInt16 nPos = GetModelColumnPos(nId);
1790 	if (nPos == (sal_uInt16)-1)
1791 		return;
1792 
1793 	DbGridColumn* pColumn = GetColumns().GetObject(nPos);
1794 	if (pColumn->IsHidden())
1795 		GetPeer()->columnHidden(pColumn);
1796 
1797 	if (nId == m_nMarkedColumnId)
1798 		m_nMarkedColumnId = (sal_uInt16)-1;
1799 }
1800 // -----------------------------------------------------------------------------
isColumnSelected(sal_uInt16,DbGridColumn * _pColumn)1801 sal_Bool FmGridControl::isColumnSelected(sal_uInt16 /*nId*/,DbGridColumn* _pColumn)
1802 {
1803 	OSL_ENSURE(_pColumn,"Column can not be null!");
1804 	sal_Bool bSelected = sal_False;
1805 	// if the column which is shown here is selected ...
1806 	Reference< ::com::sun::star::view::XSelectionSupplier >  xSelSupplier(GetPeer()->getColumns(), UNO_QUERY);
1807 	if ( xSelSupplier.is() )
1808 	{
1809 		Reference< ::com::sun::star::beans::XPropertySet >	xColumn;
1810 		xSelSupplier->getSelection() >>= xColumn;
1811 		bSelected = (xColumn.get() == _pColumn->getModel().get());
1812 	}
1813 	return bSelected;
1814 }
1815 
1816 //------------------------------------------------------------------------------
ShowColumn(sal_uInt16 nId)1817 void FmGridControl::ShowColumn(sal_uInt16 nId)
1818 {
1819 	DbGridControl::ShowColumn(nId);
1820 
1821 	sal_uInt16 nPos = GetModelColumnPos(nId);
1822 	if (nPos == (sal_uInt16)-1)
1823 		return;
1824 
1825 	DbGridColumn* pColumn = GetColumns().GetObject(nPos);
1826 	if (!pColumn->IsHidden())
1827 		GetPeer()->columnVisible(pColumn);
1828 
1829 	// if the column which is shown here is selected ...
1830 	if ( isColumnSelected(nId,pColumn) )
1831 		markColumn(nId); // ... -> mark it
1832 }
1833 
1834 //------------------------------------------------------------------------------
selectBookmarks(const Sequence<Any> & _rBookmarks)1835 sal_Bool FmGridControl::selectBookmarks(const Sequence< Any >& _rBookmarks)
1836 {
1837 	vos::OGuard aGuard( Application::GetSolarMutex() );
1838 		// need to lock the SolarMutex so that no paint call disturbs us ...
1839 
1840 	if ( !m_pSeekCursor )
1841 	{
1842 		DBG_ERROR( "FmGridControl::selectBookmarks: no seek cursor!" );
1843 		return sal_False;
1844 	}
1845 
1846 	const Any* pBookmark = _rBookmarks.getConstArray();
1847 	const Any* pBookmarkEnd = pBookmark + _rBookmarks.getLength();
1848 
1849 	SetNoSelection();
1850 
1851 	sal_Bool bAllSuccessfull = sal_True;
1852 	try
1853 	{
1854 		for (; pBookmark != pBookmarkEnd; ++pBookmark)
1855 		{
1856 			// move the seek cursor to the row given
1857 			if (m_pSeekCursor->moveToBookmark(*pBookmark))
1858 				SelectRow( m_pSeekCursor->getRow() - 1);
1859 			else
1860 				bAllSuccessfull = sal_False;
1861 		}
1862 	}
1863 	catch(Exception&)
1864 	{
1865 		DBG_ERROR("FmGridControl::selectBookmarks: could not move to one of the bookmarks!");
1866 		return sal_False;
1867 	}
1868 
1869 	return bAllSuccessfull;
1870 }
1871 
1872 //------------------------------------------------------------------------------
getSelectionBookmarks()1873 Sequence< Any> FmGridControl::getSelectionBookmarks()
1874 {
1875 	// lock our update so no paint-triggered seeks interfere ...
1876 	SetUpdateMode(sal_False);
1877 
1878 	sal_Int32 nSelectedRows = GetSelectRowCount(), i = 0;
1879 	Sequence< Any> aBookmarks(nSelectedRows);
1880 	if ( nSelectedRows )
1881 	{
1882 		Any* pBookmarks = (Any*)aBookmarks.getArray();
1883 
1884 		// (I'm not sure if the problem isn't deeper : The szenario : a large table displayed by a grid with a
1885 		// thread-safe cursor (dBase). On loading the sdb-cursor started a counting thread. While this counting progress
1886 		// was running, I tried do delete 3 records from within the grid. Deletion caused a SeekCursor, which did a
1887 		// m_pSeekCursor->moveRelative and a m_pSeekCursor->getPosition.
1888 		// Unfortunally the first call caused a propertyChanged(RECORDCOUNT) which resulted in a repaint of the
1889 		// navigation bar and the grid. The latter itself will result in SeekRow calls. So after (successfully) returning
1890 		// from the moveRelative the getPosition returns an invalid value. And so the SeekCursor fails.
1891 		// In the consequence ALL parts of code where two calls to the seek cursor are done, while the second call _relys_ on
1892 		// the first one, should be secured against recursion, with a broad-minded interpretion of "recursion" : if any of these
1893 		// code parts is executed, no other should be accessible. But this sounds very difficult to achieve ....
1894 		// )
1895 
1896 		// The next problem caused by the same behaviuor (SeekCursor causes a propertyChanged) : when adjusting rows we implicitly
1897 		// change our selection. So a "FirstSelected(); SeekCursor(); NextSelected();" may produce unpredictable results.
1898 		// That's why we _first_ collect the indicies of the selected rows and _then_ their bookmarks.
1899 		long nIdx = FirstSelectedRow();
1900 		while (nIdx >= 0)
1901 		{
1902 			// (we misuse the bookmarks array for this ...)
1903 			pBookmarks[i++] <<= (sal_Int32)nIdx;
1904 			nIdx = NextSelectedRow();
1905 		}
1906 		DBG_ASSERT(i == nSelectedRows, "FmGridControl::DeleteSelectedRows : could not collect the row indicies !");
1907 
1908 		for (i=0; i<nSelectedRows; ++i)
1909 		{
1910 			nIdx = ::comphelper::getINT32(pBookmarks[i]);
1911 			if (IsInsertionRow(nIdx))
1912 			{
1913 				// leerzeile nicht loeschen
1914 				aBookmarks.realloc(--nSelectedRows);
1915 				SelectRow(nIdx,sal_False);			// selection aufheben fuer leerzeile
1916 				break;
1917 			}
1918 
1919 			// Zunaechst den DatenCursor auf den selektierten Satz pos.
1920 			if (SeekCursor(nIdx))
1921 			{
1922 				GetSeekRow()->SetState(m_pSeekCursor, sal_True);
1923 
1924 				pBookmarks[i] = m_pSeekCursor->getBookmark();
1925 			}
1926 	#ifdef DBG_UTIL
1927 			else
1928 				DBG_ERROR("FmGridControl::DeleteSelectedRows : a bookmark could not be determined !");
1929 	#endif
1930 		}
1931 	}
1932 	SetUpdateMode(sal_True);
1933 
1934 	// if one of the SeekCursor-calls failed ....
1935 	aBookmarks.realloc(i);
1936 
1937 	// (the alternative : while collecting the bookmarks lock our propertyChanged, this should resolve both our problems.
1938 	// but this would be incompatible as we need a locking flag, then ...)
1939 
1940 	return aBookmarks;
1941 }
1942 // -----------------------------------------------------------------------------
1943 namespace
1944 {
getColumnPropertyFromPeer(FmXGridPeer * _pPeer,sal_Int32 _nPosition,const::rtl::OUString & _sPropName)1945 	::rtl::OUString getColumnPropertyFromPeer(FmXGridPeer* _pPeer,sal_Int32 _nPosition,const ::rtl::OUString& _sPropName)
1946 	{
1947 		::rtl::OUString sRetText;
1948 		if ( _pPeer && _nPosition != -1)
1949 		{
1950 			Reference<XIndexContainer> xIndex = _pPeer->getColumns();
1951 			if ( xIndex.is() && xIndex->getCount() > _nPosition )
1952 			{
1953 				Reference<XPropertySet> xProp;
1954 				xIndex->getByIndex( _nPosition ) >>= xProp;
1955 				if ( xProp.is() )
1956 					xProp->getPropertyValue( _sPropName ) >>= sRetText;
1957 			}
1958 		}
1959 		return sRetText;
1960 	}
1961 }
1962 // Object data and state ------------------------------------------------------
GetAccessibleObjectName(::svt::AccessibleBrowseBoxObjType _eObjType,sal_Int32 _nPosition) const1963 ::rtl::OUString FmGridControl::GetAccessibleObjectName( ::svt::AccessibleBrowseBoxObjType _eObjType,sal_Int32 _nPosition ) const
1964 {
1965     ::rtl::OUString sRetText;
1966     switch( _eObjType )
1967     {
1968         case ::svt::BBTYPE_BROWSEBOX:
1969             if ( GetPeer() )
1970 			{
1971 				Reference<XPropertySet> xProp(GetPeer()->getColumns(),UNO_QUERY);
1972 				if ( xProp.is() )
1973 					xProp->getPropertyValue(FM_PROP_NAME) >>= sRetText;
1974 			}
1975 			break;
1976         case ::svt::BBTYPE_COLUMNHEADERCELL:
1977 			sRetText = getColumnPropertyFromPeer(
1978                 GetPeer(),
1979                 GetModelColumnPos(
1980                     sal::static_int_cast< sal_uInt16 >(_nPosition)),
1981                 FM_PROP_LABEL);
1982 			break;
1983 		default:
1984 			sRetText = DbGridControl::GetAccessibleObjectName(_eObjType,_nPosition);
1985     }
1986     return sRetText;
1987 }
1988 // -----------------------------------------------------------------------------
1989 
GetAccessibleObjectDescription(::svt::AccessibleBrowseBoxObjType _eObjType,sal_Int32 _nPosition) const1990 ::rtl::OUString FmGridControl::GetAccessibleObjectDescription( ::svt::AccessibleBrowseBoxObjType _eObjType,sal_Int32 _nPosition ) const
1991 {
1992     ::rtl::OUString sRetText;
1993     switch( _eObjType )
1994     {
1995         case ::svt::BBTYPE_BROWSEBOX:
1996 			if ( GetPeer() )
1997 			{
1998 				Reference<XPropertySet> xProp(GetPeer()->getColumns(),UNO_QUERY);
1999 				if ( xProp.is() )
2000                 {
2001 					xProp->getPropertyValue(FM_PROP_HELPTEXT) >>= sRetText;
2002                     if ( !sRetText.getLength() )
2003                         xProp->getPropertyValue(FM_PROP_DESCRIPTION) >>= sRetText;
2004                 }
2005 			}
2006 			break;
2007 		case ::svt::BBTYPE_COLUMNHEADERCELL:
2008 			sRetText = getColumnPropertyFromPeer(
2009                 GetPeer(),
2010                 GetModelColumnPos(
2011                     sal::static_int_cast< sal_uInt16 >(_nPosition)),
2012                 FM_PROP_HELPTEXT);
2013             if ( !sRetText.getLength() )
2014                 sRetText = getColumnPropertyFromPeer(
2015                             GetPeer(),
2016                             GetModelColumnPos(
2017                                 sal::static_int_cast< sal_uInt16 >(_nPosition)),
2018                             FM_PROP_DESCRIPTION);
2019 
2020 			break;
2021 		default:
2022             sRetText = DbGridControl::GetAccessibleObjectDescription(_eObjType,_nPosition);
2023     }
2024     return sRetText;
2025 }
2026 // -----------------------------------------------------------------------------
Select()2027 void FmGridControl::Select()
2028 {
2029 	DbGridControl::Select();
2030 	// ... betrifft das unsere Spalten ?
2031 	const MultiSelection* pColumnSelection = GetColumnSelection();
2032 
2033 	sal_uInt16 nSelectedColumn =
2034 		pColumnSelection && pColumnSelection->GetSelectCount()
2035 			? sal::static_int_cast< sal_uInt16 >(
2036                 ((MultiSelection*)pColumnSelection)->FirstSelected())
2037 			: SAL_MAX_UINT16;
2038 	// die HandleColumn wird nicht selektiert
2039 	switch (nSelectedColumn)
2040 	{
2041 		case SAL_MAX_UINT16: break;	// no selection
2042 		case  0	: nSelectedColumn = SAL_MAX_UINT16; break;
2043                     // handle col can't be seledted
2044 		default	:
2045 			// get the model col pos instead of the view col pos
2046 			nSelectedColumn = GetModelColumnPos(GetColumnIdFromViewPos(nSelectedColumn - 1));
2047 			break;
2048 	}
2049 
2050 	if (nSelectedColumn != m_nCurrentSelectedColumn)
2051 	{
2052 		// VOR dem Aufruf des select am SelectionSupplier !
2053 		m_nCurrentSelectedColumn = nSelectedColumn;
2054 
2055 		if (!m_bSelecting)
2056 		{
2057 			m_bSelecting = sal_True;
2058 
2059 			try
2060 			{
2061 				Reference< XIndexAccess >  xColumns(GetPeer()->getColumns(), UNO_QUERY);
2062 				Reference< XSelectionSupplier >  xSelSupplier(xColumns, UNO_QUERY);
2063 				if (xSelSupplier.is())
2064 				{
2065 					if (nSelectedColumn != SAL_MAX_UINT16)
2066 					{
2067 						Reference< XPropertySet >  xColumn;
2068 						::cppu::extractInterface(xColumn,xColumns->getByIndex(nSelectedColumn));
2069 						xSelSupplier->select(makeAny(xColumn));
2070 					}
2071 					else
2072 					{
2073 						xSelSupplier->select(Any());
2074 					}
2075 				}
2076 			}
2077 			catch(Exception&)
2078 			{
2079 			}
2080 
2081 
2082 			m_bSelecting = sal_False;
2083 		}
2084 	}
2085 }
2086 // -----------------------------------------------------------------------------
GetSelectedColumn() const2087 sal_Int32 FmGridControl::GetSelectedColumn() const
2088 {
2089 	return m_nCurrentSelectedColumn;
2090 }
2091 // -----------------------------------------------------------------------------
KeyInput(const KeyEvent & rKEvt)2092 void FmGridControl::KeyInput( const KeyEvent& rKEvt )
2093 {
2094 	sal_Bool bDone = sal_False;
2095 	const KeyCode& rKeyCode = rKEvt.GetKeyCode();
2096 	if (	IsDesignMode()
2097 		&&	!rKeyCode.IsShift()
2098 		&&	!rKeyCode.IsMod1()
2099 		&&	!rKeyCode.IsMod2()
2100 		&&	GetParent() )
2101 	{
2102 		switch ( rKeyCode.GetCode() )
2103 		{
2104 			case KEY_ESCAPE:
2105 				GetParent()->GrabFocus();
2106 				bDone = sal_True;
2107 				break;
2108 			case KEY_DELETE:
2109 				if ( GetSelectColumnCount() && GetPeer() && m_nCurrentSelectedColumn >= 0 )
2110 				{
2111 					Reference< ::com::sun::star::container::XIndexContainer >  xCols(GetPeer()->getColumns());
2112 					if ( xCols.is() )
2113 					{
2114 						try
2115 						{
2116 							if ( m_nCurrentSelectedColumn < xCols->getCount() )
2117 							{
2118 								Reference< XInterface >  xCol;
2119 								xCols->getByIndex(m_nCurrentSelectedColumn) >>= xCol;
2120 								xCols->removeByIndex(m_nCurrentSelectedColumn);
2121 								::comphelper::disposeComponent(xCol);
2122 							}
2123 						}
2124 						catch(const Exception&)
2125 						{
2126 							OSL_ENSURE(0,"exception occured while deleting a column");
2127 						}
2128 					}
2129 				}
2130 				bDone = sal_True;
2131 				break;
2132 		}
2133 	}
2134 	if ( !bDone )
2135 		DbGridControl::KeyInput( rKEvt );
2136 }
2137 // -----------------------------------------------------------------------------
2138 
2139 
2140 
2141