?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
update dev300-m57
[ooovba.git] / sc / source / ui / dbgui / filtdlg.cxx
blob9d3baa17224019c9f5fb65f6a5831d43103cecc9
1 /*************************************************************************
2 *
3 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
4 *
5 * Copyright 2008 by Sun Microsystems, Inc.
6 *
7 * OpenOffice.org - a multi-platform office productivity suite
8 *
9 * $RCSfile: filtdlg.cxx,v $
10 * $Revision: 1.17 $
11 *
12 * This file is part of OpenOffice.org.
13 *
14 * OpenOffice.org is free software: you can redistribute it and/or modify
15 * it under the terms of the GNU Lesser General Public License version 3
16 * only, as published by the Free Software Foundation.
17 *
18 * OpenOffice.org is distributed in the hope that it will be useful,
19 * but WITHOUT ANY WARRANTY; without even the implied warranty of
20 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
21 * GNU Lesser General Public License version 3 for more details
22 * (a copy is included in the LICENSE file that accompanied this code).
23 *
24 * You should have received a copy of the GNU Lesser General Public License
25 * version 3 along with OpenOffice.org. If not, see
26 * <http://www.openoffice.org/license.html>
27 * for a copy of the LGPLv3 License.
28 *
29 ************************************************************************/
30
31 // MARKER(update_precomp.py): autogen include statement, do not remove
32 #include "precompiled_sc.hxx"
33
34 // System - Includes ---------------------------------------------------------
35
36
37
38 // INCLUDE -------------------------------------------------------------------
39 #include <rangelst.hxx>
40 #include <sfx2/dispatch.hxx>
41 #include <vcl/waitobj.hxx>
42
43 #include "uiitems.hxx"
44 #include "dbcolect.hxx"
45 #include "reffact.hxx"
46 #include "viewdata.hxx"
47 #include "document.hxx"
48 #include "docsh.hxx"
49 #include "scresid.hxx"
50
51 #include "foptmgr.hxx"
52
53 #include "globstr.hrc"
54 #include "filter.hrc"
55
56 #define _FILTDLG_CXX
57 #include "filtdlg.hxx"
58 #undef _FILTDLG_CXX
59 #include <vcl/msgbox.hxx>
60
61 // DEFINE --------------------------------------------------------------------
62
63 #define ERRORBOX(rid) ErrorBox( this, WinBits( WB_OK|WB_DEF_OK), \
64 ScGlobal::GetRscString(rid) ).Execute()
65
66
67 //============================================================================
68 // class ScFilterDlg
69
70 //----------------------------------------------------------------------------
71
72 ScFilterDlg::ScFilterDlg( SfxBindings* pB, SfxChildWindow* pCW, Window* pParent,
73 const SfxItemSet& rArgSet )
74
75 : ScAnyRefDlg ( pB, pCW, pParent, RID_SCDLG_FILTER ),
76 //
77 aFlCriteria ( this, ScResId( FL_CRITERIA ) ),
78 aLbConnect1 ( this, ScResId( LB_OP1 ) ),
79 aLbField1 ( this, ScResId( LB_FIELD1 ) ),
80 aLbCond1 ( this, ScResId( LB_COND1 ) ),
81 aEdVal1 ( this, ScResId( ED_VAL1 ) ),
82 aLbConnect2 ( this, ScResId( LB_OP2 ) ),
83 aLbField2 ( this, ScResId( LB_FIELD2 ) ),
84 aLbCond2 ( this, ScResId( LB_COND2 ) ),
85 aEdVal2 ( this, ScResId( ED_VAL2 ) ),
86 aLbConnect3 ( this, ScResId( LB_OP3 ) ),
87 aLbField3 ( this, ScResId( LB_FIELD3 ) ),
88 aLbCond3 ( this, ScResId( LB_COND3 ) ),
89 aEdVal3 ( this, ScResId( ED_VAL3 ) ),
90 aLbConnect4 ( this, ScResId( LB_OP4 ) ),
91 aLbField4 ( this, ScResId( LB_FIELD4 ) ),
92 aLbCond4 ( this, ScResId( LB_COND4 ) ),
93 aEdVal4 ( this, ScResId( ED_VAL4 ) ),
94 aFtConnect ( this, ScResId( FT_OP ) ),
95 aFtField ( this, ScResId( FT_FIELD ) ),
96 aFtCond ( this, ScResId( FT_COND ) ),
97 aFtVal ( this, ScResId( FT_VAL ) ),
98 aFlSeparator ( this, ScResId( FL_SEPARATOR ) ),
99 aScrollBar ( this, ScResId( LB_SCROLL ) ),
100 aFlOptions ( this, ScResId( FL_OPTIONS ) ),
101 aBtnMore ( this, ScResId( BTN_MORE ) ),
102 aBtnHelp ( this, ScResId( BTN_HELP ) ),
103 aBtnOk ( this, ScResId( BTN_OK ) ),
104 aBtnCancel ( this, ScResId( BTN_CANCEL ) ),
105 _INIT_COMMON_FILTER_RSCOBJS
106 aStrEmpty ( ScResId( SCSTR_EMPTY ) ),
107 aStrNotEmpty ( ScResId( SCSTR_NOTEMPTY ) ),
108 aStrRow ( ScResId( SCSTR_ROW ) ),
109 aStrColumn ( ScResId( SCSTR_COLUMN ) ),
110 //
111 pOptionsMgr ( NULL ),
112 nWhichQuery ( rArgSet.GetPool()->GetWhich( SID_QUERY ) ),
113 theQueryData ( ((const ScQueryItem&)
114 rArgSet.Get( nWhichQuery )).GetQueryData() ),
115 pOutItem ( NULL ),
116 pViewData ( NULL ),
117 pDoc ( NULL ),
118 nSrcTab ( 0 ),
119 nFieldCount ( 0 ),
120 bRefInputMode ( FALSE ),
121 pTimer ( NULL )
122 {
123 for (USHORT i=0; i<=MAXCOL; i++)
124 pEntryLists[i] = NULL;
125 for (SCSIZE i=0;i<MAXQUERY;i++)
126 {
127 bRefreshExceptQuery[i]=FALSE;
128 }
129 aBtnMore.SetMoreText( String(ScResId( SCSTR_MOREBTN_MOREOPTIONS )) );
130 aBtnMore.SetLessText( String(ScResId( SCSTR_MOREBTN_FEWEROPTIONS )) );
131 Init( rArgSet );
132 FreeResource();
133
134 // Hack: RefInput-Kontrolle
135 pTimer = new Timer;
136 pTimer->SetTimeout( 50 ); // 50ms warten
137 pTimer->SetTimeoutHdl( LINK( this, ScFilterDlg, TimeOutHdl ) );
138 }
139
140
141 //----------------------------------------------------------------------------
142
143 __EXPORT ScFilterDlg::~ScFilterDlg()
144 {
145 for (USHORT i=0; i<=MAXCOL; i++)
146 delete pEntryLists[i];
147
148 delete pOptionsMgr;
149 delete pOutItem;
150
151 // Hack: RefInput-Kontrolle
152 pTimer->Stop();
153 delete pTimer;
154 }
155
156
157 //----------------------------------------------------------------------------
158
159 void __EXPORT ScFilterDlg::Init( const SfxItemSet& rArgSet )
160 {
161 const ScQueryItem& rQueryItem = (const ScQueryItem&)
162 rArgSet.Get( nWhichQuery );
163
164 aBtnOk.SetClickHdl ( LINK( this, ScFilterDlg, EndDlgHdl ) );
165 aBtnCancel.SetClickHdl ( LINK( this, ScFilterDlg, EndDlgHdl ) );
166 aBtnMore.SetClickHdl ( LINK( this, ScFilterDlg, MoreClickHdl ) );
167 aBtnHeader.SetClickHdl ( LINK( this, ScFilterDlg, CheckBoxHdl ) );
168 aBtnCase.SetClickHdl ( LINK( this, ScFilterDlg, CheckBoxHdl ) );
169 //
170 aLbField1.SetSelectHdl ( LINK( this, ScFilterDlg, LbSelectHdl ) );
171 aLbField2.SetSelectHdl ( LINK( this, ScFilterDlg, LbSelectHdl ) );
172 aLbField3.SetSelectHdl ( LINK( this, ScFilterDlg, LbSelectHdl ) );
173 aLbField4.SetSelectHdl ( LINK( this, ScFilterDlg, LbSelectHdl ) );
174 aLbConnect1.SetSelectHdl( LINK( this, ScFilterDlg, LbSelectHdl ) );
175 aLbConnect2.SetSelectHdl( LINK( this, ScFilterDlg, LbSelectHdl ) );
176 aLbConnect3.SetSelectHdl( LINK( this, ScFilterDlg, LbSelectHdl ) );
177 aLbConnect4.SetSelectHdl( LINK( this, ScFilterDlg, LbSelectHdl ) );
178
179 aLbCond1.SetSelectHdl( LINK( this, ScFilterDlg, LbSelectHdl ) );
180 aLbCond2.SetSelectHdl( LINK( this, ScFilterDlg, LbSelectHdl ) );
181 aLbCond3.SetSelectHdl( LINK( this, ScFilterDlg, LbSelectHdl ) );
182 aLbCond4.SetSelectHdl( LINK( this, ScFilterDlg, LbSelectHdl ) );
183
184 pViewData = rQueryItem.GetViewData();
185 pDoc = pViewData ? pViewData->GetDocument() : NULL;
186 nSrcTab = pViewData ? pViewData->GetTabNo() : static_cast<SCTAB>(0);
187
188 // fuer leichteren Zugriff:
189 aFieldLbArr [0] = &aLbField1;
190 aFieldLbArr [1] = &aLbField2;
191 aFieldLbArr [2] = &aLbField3;
192 aFieldLbArr [3] = &aLbField4;
193 aValueEdArr [0] = &aEdVal1;
194 aValueEdArr [1] = &aEdVal2;
195 aValueEdArr [2] = &aEdVal3;
196 aValueEdArr [3] = &aEdVal4;
197 aCondLbArr [0] = &aLbCond1;
198 aCondLbArr [1] = &aLbCond2;
199 aCondLbArr [2] = &aLbCond3;
200 aCondLbArr [3] = &aLbCond4;
201 aConnLbArr [0] = &aLbConnect1;
202 aConnLbArr [1] = &aLbConnect2;
203 aConnLbArr [2] = &aLbConnect3;
204 aConnLbArr [3] = &aLbConnect4;
205
206 // Optionen initialisieren lassen:
207
208 pOptionsMgr = new ScFilterOptionsMgr(
209 this,
210 pViewData,
211 theQueryData,
212 aBtnMore,
213 aBtnCase,
214 aBtnRegExp,
215 aBtnHeader,
216 aBtnUnique,
217 aBtnCopyResult,
218 aBtnDestPers,
219 aLbCopyArea,
220 aEdCopyArea,
221 aRbCopyArea,
222 aFtDbAreaLabel,
223 aFtDbArea,
224 aFlOptions,
225 aStrNoName,
226 aStrUndefined );
227
228 // Feldlisten einlesen und Eintraege selektieren:
229
230 FillFieldLists();
231
232 for ( SCSIZE i=0; i<4; i++ )
233 {
234 String aValStr;
235 USHORT nCondPos = 0;
236 USHORT nFieldSelPos = 0;
237
238 ScQueryEntry& rEntry = theQueryData.GetEntry(i);
239 if ( rEntry.bDoQuery )
240 {
241 nCondPos = (USHORT)rEntry.eOp;
242 nFieldSelPos = GetFieldSelPos( static_cast<SCCOL>(rEntry.nField) );
243 if ( rEntry.nVal == SC_EMPTYFIELDS && !rEntry.bQueryByString && *rEntry.pStr == EMPTY_STRING )
244 {
245 aValStr = aStrEmpty;
246 aCondLbArr[i]->Disable();
247 }
248 else if ( rEntry.nVal == SC_NONEMPTYFIELDS && !rEntry.bQueryByString && *rEntry.pStr == EMPTY_STRING )
249 {
250 aValStr = aStrNotEmpty;
251 aCondLbArr[i]->Disable();
252 }
253 else
254 aValStr = *rEntry.pStr;
255 }
256 else if ( i == 0 )
257 {
258 nFieldSelPos = GetFieldSelPos( pViewData->GetCurX() );
259 rEntry.nField = nFieldSelPos ? (theQueryData.nCol1 +
260 static_cast<SCCOL>(nFieldSelPos) - 1) : static_cast<SCCOL>(0);
261 rEntry.bDoQuery=TRUE;
262 bRefreshExceptQuery[i]=TRUE;
263
264 }
265 aFieldLbArr[i]->SelectEntryPos( nFieldSelPos );
266 aCondLbArr [i]->SelectEntryPos( nCondPos );
267 aValueEdArr[i]->SetText( aValStr );
268 aValueEdArr[i]->SetModifyHdl( LINK( this, ScFilterDlg, ValModifyHdl ) );
269 UpdateValueList( static_cast<USHORT>(i+1) );
270 }
271
272 aScrollBar.SetEndScrollHdl( LINK( this, ScFilterDlg, ScrollHdl ) );
273 aScrollBar.SetScrollHdl( LINK( this, ScFilterDlg, ScrollHdl ) );
274
275 aScrollBar.SetRange( Range( 0, 4 ) );
276 aScrollBar.SetLineSize( 1 );
277 aLbConnect1.Hide();
278 // Disable/Enable Logik:
279
280 (aLbField1.GetSelectEntryPos() != 0)
281 && (aLbField2.GetSelectEntryPos() != 0)
282 ? aLbConnect2.SelectEntryPos( (USHORT)theQueryData.GetEntry(1).eConnect )
283 : aLbConnect2.SetNoSelection();
284
285 (aLbField2.GetSelectEntryPos() != 0)
286 && (aLbField3.GetSelectEntryPos() != 0)
287 ? aLbConnect3.SelectEntryPos( (USHORT)theQueryData.GetEntry(2).eConnect )
288 : aLbConnect3.SetNoSelection();
289
290 (aLbField3.GetSelectEntryPos() != 0)
291 && (aLbField4.GetSelectEntryPos() != 0)
292 ? aLbConnect4.SelectEntryPos( (USHORT)theQueryData.GetEntry(3).eConnect )
293 : aLbConnect4.SetNoSelection();
294 if ( aLbField1.GetSelectEntryPos() == 0 )
295 {
296 aLbConnect2.Disable();
297 aLbField2.Disable();
298 aLbCond2.Disable();
299 aEdVal2.Disable();
300 }
301 else if ( aLbConnect2.GetSelectEntryCount() == 0 )
302 {
303 aLbField2.Disable();
304 aLbCond2.Disable();
305 aEdVal2.Disable();
306 }
307
308 if ( aLbField2.GetSelectEntryPos() == 0 )
309 {
310 aLbConnect3.Disable();
311 aLbField3.Disable();
312 aLbCond3.Disable();
313 aEdVal3.Disable();
314 }
315 else if ( aLbConnect3.GetSelectEntryCount() == 0 )
316 {
317 aLbField3.Disable();
318 aLbCond3.Disable();
319 aEdVal3.Disable();
320 }
321 if ( aLbField3.GetSelectEntryPos() == 0 )
322 {
323 aLbConnect4.Disable();
324 aLbField4.Disable();
325 aLbCond4.Disable();
326 aEdVal4.Disable();
327 }
328 else if ( aLbConnect4.GetSelectEntryCount() == 0 )
329 {
330 aLbField4.Disable();
331 aLbCond4.Disable();
332 aEdVal4.Disable();
333 }
334
335 if(pDoc!=NULL &&
336 pDoc->GetChangeTrack()!=NULL) aBtnCopyResult.Disable();
337 // Modal-Modus einschalten
338 // SetDispatcherLock( TRUE );
339 //@BugID 54702 Enablen/Disablen nur noch in Basisklasse
340 // SFX_APPWINDOW->Disable(FALSE); //! allgemeine Methode im ScAnyRefDlg
341 }
342
343
344 //----------------------------------------------------------------------------
345
346 BOOL __EXPORT ScFilterDlg::Close()
347 {
348 if (pViewData)
349 pViewData->GetDocShell()->CancelAutoDBRange();
350
351 return DoClose( ScFilterDlgWrapper::GetChildWindowId() );
352 }
353
354
355 //----------------------------------------------------------------------------
356 // Uebergabe eines mit der Maus selektierten Tabellenbereiches, der dann als
357 // neue Selektion im Referenz-Edit angezeigt wird.
358
359 void ScFilterDlg::SetReference( const ScRange& rRef, ScDocument* pDocP )
360 {
361 if ( bRefInputMode ) // Nur moeglich, wenn im Referenz-Editmodus
362 {
363 if ( rRef.aStart != rRef.aEnd )
364 RefInputStart( &aEdCopyArea );
365 String aRefStr;
366 rRef.aStart.Format( aRefStr, SCA_ABS_3D, pDocP, pDocP->GetAddressConvention() );
367 aEdCopyArea.SetRefString( aRefStr );
368 }
369 }
370
371
372 //----------------------------------------------------------------------------
373
374 void ScFilterDlg::SetActive()
375 {
376 if ( bRefInputMode )
377 {
378 aEdCopyArea.GrabFocus();
379 if ( aEdCopyArea.GetModifyHdl().IsSet() )
380 ((Link&)aEdCopyArea.GetModifyHdl()).Call( &aEdCopyArea );
381 }
382 else
383 GrabFocus();
384
385 RefInputDone();
386 }
387
388 //----------------------------------------------------------------------------
389
390 void ScFilterDlg::FillFieldLists()
391 {
392 aLbField1.Clear();
393 aLbField2.Clear();
394 aLbField3.Clear();
395 aLbField4.Clear();
396 aLbField1.InsertEntry( aStrNone, 0 );
397 aLbField2.InsertEntry( aStrNone, 0 );
398 aLbField3.InsertEntry( aStrNone, 0 );
399 aLbField4.InsertEntry( aStrNone, 0 );
400
401 if ( pDoc )
402 {
403 String aFieldName;
404 SCTAB nTab = nSrcTab;
405 SCCOL nFirstCol = theQueryData.nCol1;
406 SCROW nFirstRow = theQueryData.nRow1;
407 SCCOL nMaxCol = theQueryData.nCol2;
408 SCCOL col = 0;
409 USHORT i=1;
410
411 for ( col=nFirstCol; col<=nMaxCol; col++ )
412 {
413 pDoc->GetString( col, nFirstRow, nTab, aFieldName );
414 if ( !aBtnHeader.IsChecked() || (aFieldName.Len() == 0) )
415 {
416 aFieldName = aStrColumn;
417 aFieldName += ' ';
418 aFieldName += ScColToAlpha( col );
419 }
420 aLbField1.InsertEntry( aFieldName, i );
421 aLbField2.InsertEntry( aFieldName, i );
422 aLbField3.InsertEntry( aFieldName, i );
423 aLbField4.InsertEntry( aFieldName, i );
424 i++;
425 }
426 nFieldCount = i;
427 }
428 }
429
430
431 //----------------------------------------------------------------------------
432
433 void ScFilterDlg::UpdateValueList( USHORT nList )
434 {
435 if ( pDoc && nList>0 && nList<=4 )
436 {
437 ComboBox* pValList = aValueEdArr[nList-1];
438 USHORT nFieldSelPos = aFieldLbArr[nList-1]->GetSelectEntryPos();
439 USHORT nListPos = 0;
440 String aCurValue = pValList->GetText();
441
442 pValList->Clear();
443 pValList->InsertEntry( aStrNotEmpty, 0 );
444 pValList->InsertEntry( aStrEmpty, 1 );
445 nListPos = 2;
446
447 if ( nFieldSelPos )
448 {
449 WaitObject aWaiter( this ); // auch wenn nur die ListBox gefuellt wird
450
451 SCCOL nColumn = theQueryData.nCol1 + static_cast<SCCOL>(nFieldSelPos) - 1;
452 if (!pEntryLists[nColumn])
453 {
454 SCTAB nTab = nSrcTab;
455 SCROW nFirstRow = theQueryData.nRow1;
456 SCROW nLastRow = theQueryData.bUseDynamicRange ? theQueryData.nDynamicEndRow : theQueryData.nRow2;
457
458 // erstmal ohne die erste Zeile
459
460 pEntryLists[nColumn] = new TypedScStrCollection( 128, 128 );
461 pEntryLists[nColumn]->SetCaseSensitive( aBtnCase.IsChecked() );
462 pDoc->GetFilterEntriesArea( nColumn, nFirstRow+1, nLastRow,
463 nTab, *pEntryLists[nColumn] );
464
465 // Eintrag fuer die erste Zeile
466 //! Eintrag (pHdrEntry) ohne Collection erzeugen?
467
468 nHeaderPos[nColumn] = USHRT_MAX;
469 TypedScStrCollection aHdrColl( 1, 1 );
470 pDoc->GetFilterEntriesArea( nColumn, nFirstRow, nFirstRow,
471 nTab, aHdrColl );
472 TypedStrData* pHdrEntry = aHdrColl[0];
473 if ( pHdrEntry )
474 {
475 TypedStrData* pNewEntry = new TypedStrData(*pHdrEntry);
476 if ( pEntryLists[nColumn]->Insert( pNewEntry ) )
477 {
478 nHeaderPos[nColumn] = pEntryLists[nColumn]->IndexOf( pNewEntry );
479 DBG_ASSERT( nHeaderPos[nColumn] != USHRT_MAX,
480 "Header-Eintrag nicht wiedergefunden" );
481 }
482 else
483 delete pNewEntry; // war schon drin
484 }
485 }
486
487 TypedScStrCollection* pColl = pEntryLists[nColumn];
488 USHORT nValueCount = pColl->GetCount();
489 if ( nValueCount > 0 )
490 {
491 for ( USHORT i=0; i<nValueCount; i++ )
492 {
493 pValList->InsertEntry( (*pColl)[i]->GetString(), nListPos );
494 nListPos++;
495 }
496 }
497 }
498 pValList->SetText( aCurValue );
499 }
500
501 UpdateHdrInValueList( nList );
502 }
503
504 void ScFilterDlg::UpdateHdrInValueList( USHORT nList )
505 {
506 //! GetText / SetText ??
507
508 if ( pDoc && nList>0 && nList<=4 )
509 {
510 USHORT nFieldSelPos = aFieldLbArr[nList-1]->GetSelectEntryPos();
511 if ( nFieldSelPos )
512 {
513 SCCOL nColumn = theQueryData.nCol1 + static_cast<SCCOL>(nFieldSelPos) - 1;
514 if ( pEntryLists[nColumn] )
515 {
516 USHORT nPos = nHeaderPos[nColumn];
517 if ( nPos != USHRT_MAX )
518 {
519 ComboBox* pValList = aValueEdArr[nList-1];
520 USHORT nListPos = nPos + 2; // nach "leer" und "nicht leer"
521
522 TypedStrData* pHdrEntry = (*pEntryLists[nColumn])[nPos];
523 if ( pHdrEntry )
524 {
525 String aHdrStr = pHdrEntry->GetString();
526 BOOL bWasThere = ( pValList->GetEntry(nListPos) == aHdrStr );
527 BOOL bInclude = !aBtnHeader.IsChecked();
528
529 if (bInclude) // Eintrag aufnehmen
530 {
531 if (!bWasThere)
532 pValList->InsertEntry(aHdrStr, nListPos);
533 }
534 else // Eintrag weglassen
535 {
536 if (bWasThere)
537 pValList->RemoveEntry(nListPos);
538 }
539 }
540 else
541 {
542 DBG_ERROR("Eintag in Liste nicht gefunden");
543 }
544 }
545 }
546 else
547 {
548 DBG_ERROR("Spalte noch nicht initialisiert");
549 }
550 }
551 }
552 }
553
554 //----------------------------------------------------------------------------
555
556 void ScFilterDlg::ClearValueList( USHORT nList )
557 {
558 if ( nList>0 && nList<=4 )
559 {
560 ComboBox* pValList = aValueEdArr[nList-1];
561 pValList->Clear();
562 pValList->InsertEntry( aStrNotEmpty, 0 );
563 pValList->InsertEntry( aStrEmpty, 1 );
564 pValList->SetText( EMPTY_STRING );
565 }
566 }
567
568
569 //----------------------------------------------------------------------------
570
571 USHORT ScFilterDlg::GetFieldSelPos( SCCOL nField )
572 {
573 if ( nField >= theQueryData.nCol1 && nField <= theQueryData.nCol2 )
574 return static_cast<USHORT>(nField - theQueryData.nCol1 + 1);
575 else
576 return 0;
577 }
578
579 //----------------------------------------------------------------------------
580
581 ScQueryItem* ScFilterDlg::GetOutputItem()
582 {
583 ScAddress theCopyPos;
584 ScQueryParam theParam( theQueryData );
585 BOOL bCopyPosOk = FALSE;
586
587 if ( aBtnCopyResult.IsChecked() )
588 {
589 String theCopyStr( aEdCopyArea.GetText() );
590 xub_StrLen nColonPos = theCopyStr.Search( ':' );
591
592 if ( STRING_NOTFOUND != nColonPos )
593 theCopyStr.Erase( nColonPos );
594
595 USHORT nResult = theCopyPos.Parse( theCopyStr, pDoc, pDoc->GetAddressConvention() );
596 bCopyPosOk = ( SCA_VALID == (nResult & SCA_VALID) );
597 }
598
599 if ( aBtnCopyResult.IsChecked() && bCopyPosOk )
600 {
601 theParam.bInplace = FALSE;
602 theParam.nDestTab = theCopyPos.Tab();
603 theParam.nDestCol = theCopyPos.Col();
604 theParam.nDestRow = theCopyPos.Row();
605 }
606 else
607 {
608 theParam.bInplace = TRUE;
609 theParam.nDestTab = 0;
610 theParam.nDestCol = 0;
611 theParam.nDestRow = 0;
612 }
613
614 theParam.bHasHeader = aBtnHeader.IsChecked();
615 theParam.bByRow = TRUE;
616 theParam.bDuplicate = !aBtnUnique.IsChecked();
617 theParam.bCaseSens = aBtnCase.IsChecked();
618 theParam.bRegExp = aBtnRegExp.IsChecked();
619 theParam.bDestPers = aBtnDestPers.IsChecked();
620
621 // nur die drei eingestellten - alles andere zuruecksetzen
622
623 DELETEZ( pOutItem );
624 pOutItem = new ScQueryItem( nWhichQuery, &theParam );
625
626 return pOutItem;
627 }
628
629
630 //----------------------------------------------------------------------------
631
632 BOOL ScFilterDlg::IsRefInputMode() const
633 {
634 return bRefInputMode;
635 }
636
637
638 //----------------------------------------------------------------------------
639 // Handler:
640 // ========
641
642 IMPL_LINK( ScFilterDlg, EndDlgHdl, Button*, pBtn )
643 {
644 if ( pBtn == &aBtnOk )
645 {
646 BOOL bAreaInputOk = TRUE;
647
648 if ( aBtnCopyResult.IsChecked() )
649 {
650 if ( !pOptionsMgr->VerifyPosStr( aEdCopyArea.GetText() ) )
651 {
652 if ( !aBtnMore.GetState() )
653 aBtnMore.SetState( TRUE );
654
655 ERRORBOX( STR_INVALID_TABREF );
656 aEdCopyArea.GrabFocus();
657 bAreaInputOk = FALSE;
658 }
659 }
660
661 if ( bAreaInputOk )
662 {
663 SetDispatcherLock( FALSE );
664 SwitchToDocument();
665 GetBindings().GetDispatcher()->Execute( FID_FILTER_OK,
666 SFX_CALLMODE_SLOT | SFX_CALLMODE_RECORD,
667 GetOutputItem(), 0L, 0L );
668 Close();
669 }
670 }
671 else if ( pBtn == &aBtnCancel )
672 {
673 Close();
674 }
675
676 return 0;
677 }
678
679
680 //----------------------------------------------------------------------------
681
682 IMPL_LINK( ScFilterDlg, MoreClickHdl, MoreButton*, EMPTYARG )
683 {
684 if ( aBtnMore.GetState() )
685 pTimer->Start();
686 else
687 {
688 pTimer->Stop();
689 bRefInputMode = FALSE;
690 //@BugID 54702 Enablen/Disablen nur noch in Basisklasse
691 //SFX_APPWINDOW->Disable(FALSE); //! allgemeine Methode im ScAnyRefDlg
692 }
693 return 0;
694 }
695
696
697 //----------------------------------------------------------------------------
698
699 IMPL_LINK( ScFilterDlg, TimeOutHdl, Timer*, _pTimer )
700 {
701 // alle 50ms nachschauen, ob RefInputMode noch stimmt
702
703 if( _pTimer == pTimer && IsActive() )
704 bRefInputMode = (aEdCopyArea.HasFocus() || aRbCopyArea.HasFocus());
705
706 if ( aBtnMore.GetState() )
707 pTimer->Start();
708
709 return 0;
710 }
711
712
713 //----------------------------------------------------------------------------
714
715 IMPL_LINK( ScFilterDlg, LbSelectHdl, ListBox*, pLb )
716 {
717 /*
718 * Behandlung der Enable/Disable-Logik,
719 * abhaengig davon, welche ListBox angefasst wurde:
720 */
721 USHORT nOffset = GetSliderPos();
722
723 if ( pLb == &aLbConnect1 )
724 {
725 aLbField1.Enable();
726 aLbCond1.Enable();
727 aEdVal1.Enable();
728
729 USHORT nConnect1 = aLbConnect1.GetSelectEntryPos();
730 USHORT nQE = nOffset;
731 theQueryData.GetEntry(nQE).eConnect =(ScQueryConnect)nConnect1;
732 bRefreshExceptQuery[nQE]=TRUE;
733 }
734
735 else if ( pLb == &aLbConnect2 )
736 {
737 aLbField2.Enable();
738 aLbCond2.Enable();
739 aEdVal2.Enable();
740
741 USHORT nConnect2 = aLbConnect2.GetSelectEntryPos();
742 USHORT nQE = 1+nOffset;
743 theQueryData.GetEntry(nQE).eConnect =(ScQueryConnect)nConnect2;
744 bRefreshExceptQuery[nQE]=TRUE;
745 }
746 else if ( pLb == &aLbConnect3 )
747 {
748 aLbField3.Enable();
749 aLbCond3.Enable();
750 aEdVal3.Enable();
751
752 USHORT nConnect3 = aLbConnect3.GetSelectEntryPos();
753 USHORT nQE = 2+nOffset;
754 theQueryData.GetEntry(nQE).eConnect = (ScQueryConnect)nConnect3;
755 bRefreshExceptQuery[nQE]=TRUE;
756
757 }
758 else if ( pLb == &aLbConnect4 )
759 {
760 aLbField4.Enable();
761 aLbCond4.Enable();
762 aEdVal4.Enable();
763
764 USHORT nConnect4 = aLbConnect4.GetSelectEntryPos();
765 USHORT nQE = 3+nOffset;
766 theQueryData.GetEntry(nQE).eConnect = (ScQueryConnect)nConnect4;
767 bRefreshExceptQuery[nQE]=TRUE;
768
769 }
770 else if ( pLb == &aLbField1 )
771 {
772 if ( aLbField1.GetSelectEntryPos() == 0 )
773 {
774 aLbConnect2.SetNoSelection();
775 aLbConnect3.SetNoSelection();
776 aLbConnect4.SetNoSelection();
777 aLbField2.SelectEntryPos( 0 );
778 aLbField3.SelectEntryPos( 0 );
779 aLbField4.SelectEntryPos( 0 );
780 aLbCond2.SelectEntryPos( 0 );
781 aLbCond3.SelectEntryPos( 0 );
782 aLbCond4.SelectEntryPos( 0 );
783 ClearValueList( 1 );
784 ClearValueList( 2 );
785 ClearValueList( 3 );
786 ClearValueList( 4 );
787
788 aLbConnect2.Disable();
789 aLbConnect3.Disable();
790 aLbConnect4.Disable();
791 aLbField2.Disable();
792 aLbField3.Disable();
793 aLbField4.Disable();
794 aLbCond2.Disable();
795 aLbCond3.Disable();
796 aLbCond4.Disable();
797 aEdVal2.Disable();
798 aEdVal3.Disable();
799 aEdVal4.Disable();
800 for (USHORT i= nOffset; i< MAXQUERY; i++)
801 {
802 theQueryData.GetEntry(i).bDoQuery = FALSE;
803 bRefreshExceptQuery[i]=FALSE;
804 theQueryData.GetEntry(i).nField = static_cast<SCCOL>(0);
805 }
806 bRefreshExceptQuery[nOffset] =TRUE;
807 }
808 else
809 {
810 UpdateValueList( 1 );
811 if ( !aLbConnect2.IsEnabled() )
812 {
813 aLbConnect2.Enable();
814 }
815 theQueryData.GetEntry(nOffset).bDoQuery = TRUE;
816 USHORT nField = pLb->GetSelectEntryPos();
817 theQueryData.GetEntry(nOffset).nField = theQueryData.nCol1 + static_cast<SCCOL>(nField) - 1 ;
818 }
819 }
820 else if ( pLb == &aLbField2 )
821 {
822 if ( aLbField2.GetSelectEntryPos() == 0 )
823 {
824 aLbConnect3.SetNoSelection();
825 aLbConnect4.SetNoSelection();
826 aLbField3.SelectEntryPos( 0 );
827 aLbField4.SelectEntryPos( 0 );
828 aLbCond3.SelectEntryPos( 0 );
829 aLbCond4.SelectEntryPos( 0 );
830 ClearValueList( 2 );
831 ClearValueList( 3 );
832 ClearValueList( 4 );
833
834 aLbConnect3.Disable();
835 aLbConnect4.Disable();
836 aLbField3.Disable();
837 aLbField4.Disable();
838 aLbCond3.Disable();
839 aLbCond4.Disable();
840 aEdVal3.Disable();
841 aEdVal4.Disable();
842
843 USHORT nTemp=nOffset+1;
844 for (USHORT i= nTemp; i< MAXQUERY; i++)
845 {
846 theQueryData.GetEntry(i).bDoQuery = FALSE;
847 bRefreshExceptQuery[i]=FALSE;
848 theQueryData.GetEntry(i).nField = static_cast<SCCOL>(0);
849 }
850 bRefreshExceptQuery[nTemp]=TRUE;
851 }
852 else
853 {
854 UpdateValueList( 2 );
855 if ( !aLbConnect3.IsEnabled() )
856 {
857 aLbConnect3.Enable();
858 }
859 USHORT nField = pLb->GetSelectEntryPos();
860 USHORT nQ=1+nOffset;
861 theQueryData.GetEntry(nQ).bDoQuery = TRUE;
862 theQueryData.GetEntry(nQ).nField = theQueryData.nCol1 + static_cast<SCCOL>(nField) - 1 ;
863 }
864 }
865 else if ( pLb == &aLbField3 )
866 {
867 if ( aLbField3.GetSelectEntryPos() == 0 )
868 {
869 aLbConnect4.SetNoSelection();
870 aLbField4.SelectEntryPos( 0 );
871 aLbCond4.SelectEntryPos( 0 );
872 ClearValueList( 3 );
873 ClearValueList( 4 );
874
875 aLbConnect4.Disable();
876 aLbField4.Disable();
877 aLbCond4.Disable();
878 aEdVal4.Disable();
879
880 USHORT nTemp=nOffset+2;
881 for (USHORT i= nTemp; i< MAXQUERY; i++)
882 {
883 theQueryData.GetEntry(i).bDoQuery = FALSE;
884 bRefreshExceptQuery[i]=FALSE;
885 theQueryData.GetEntry(i).nField = static_cast<SCCOL>(0);
886 }
887 bRefreshExceptQuery[nTemp]=TRUE;
888 }
889 else
890 {
891 UpdateValueList( 3 );
892 if ( !aLbConnect4.IsEnabled() )
893 {
894 aLbConnect4.Enable();
895 }
896
897 USHORT nField = pLb->GetSelectEntryPos();
898 USHORT nQ=2+nOffset;
899 theQueryData.GetEntry(nQ).bDoQuery = TRUE;
900 theQueryData.GetEntry(nQ).nField = theQueryData.nCol1 + static_cast<SCCOL>(nField) - 1 ;
901
902 }
903 }
904 else if ( pLb == &aLbField4 )
905 {
906 if ( aLbField4.GetSelectEntryPos() == 0 )
907 {
908 ClearValueList( 4 );
909 USHORT nTemp=nOffset+3;
910 for (USHORT i= nTemp; i< MAXQUERY; i++)
911 {
912 theQueryData.GetEntry(i).bDoQuery = FALSE;
913 bRefreshExceptQuery[i]=FALSE;
914 theQueryData.GetEntry(i).nField = static_cast<SCCOL>(0);
915 }
916 bRefreshExceptQuery[nTemp]=TRUE;
917 }
918 else
919 {
920 UpdateValueList( 4 );
921 USHORT nField = pLb->GetSelectEntryPos();
922 USHORT nQ=3+nOffset;
923 theQueryData.GetEntry(nQ).bDoQuery = TRUE;
924 theQueryData.GetEntry(nQ).nField = theQueryData.nCol1 + static_cast<SCCOL>(nField) - 1 ;
925 }
926
927 }
928 else if ( pLb == &aLbCond1)
929 {
930 theQueryData.GetEntry(nOffset).eOp=(ScQueryOp)pLb->GetSelectEntryPos();
931 }
932 else if ( pLb == &aLbCond2)
933 {
934 USHORT nQ=1+nOffset;
935 theQueryData.GetEntry(nQ).eOp=(ScQueryOp)pLb->GetSelectEntryPos();
936 }
937 else if ( pLb == &aLbCond3)
938 {
939 USHORT nQ=2+nOffset;
940 theQueryData.GetEntry(nQ).eOp=(ScQueryOp)pLb->GetSelectEntryPos();
941 }
942 else
943 {
944 USHORT nQ=3+nOffset;
945 theQueryData.GetEntry(nQ).eOp=(ScQueryOp)pLb->GetSelectEntryPos();
946 }
947
948 return 0;
949 }
950
951
952 //----------------------------------------------------------------------------
953
954 IMPL_LINK( ScFilterDlg, CheckBoxHdl, CheckBox*, pBox )
955 {
956 // Spaltenkoepfe:
957 // FeldListen: Spaltexx <-> Spaltenkopf-String
958 // WertListen: Spaltenkopf-Wert entfaellt.
959 // Gross-/Kleinschreibung:
960 // WertListen: komplett neu
961
962 if ( pBox == &aBtnHeader ) // Feldlisten und Wertlisten
963 {
964 USHORT nCurSel1 = aLbField1.GetSelectEntryPos();
965 USHORT nCurSel2 = aLbField2.GetSelectEntryPos();
966 USHORT nCurSel3 = aLbField3.GetSelectEntryPos();
967 USHORT nCurSel4 = aLbField4.GetSelectEntryPos();
968 FillFieldLists();
969 aLbField1.SelectEntryPos( nCurSel1 );
970 aLbField2.SelectEntryPos( nCurSel2 );
971 aLbField3.SelectEntryPos( nCurSel3 );
972 aLbField4.SelectEntryPos( nCurSel4 );
973
974 UpdateHdrInValueList( 1 );
975 UpdateHdrInValueList( 2 );
976 UpdateHdrInValueList( 3 );
977 UpdateHdrInValueList( 4 );
978 }
979
980 if ( pBox == &aBtnCase ) // Wertlisten komplett
981 {
982 for (USHORT i=0; i<=MAXCOL; i++)
983 DELETEZ( pEntryLists[i] );
984
985 UpdateValueList( 1 ); // aktueller Text wird gemerkt
986 UpdateValueList( 2 );
987 UpdateValueList( 3 );
988 UpdateValueList( 4 );
989 }
990
991 return 0;
992 }
993
994
995 //----------------------------------------------------------------------------
996
997 IMPL_LINK( ScFilterDlg, ValModifyHdl, ComboBox*, pEd )
998 {
999 USHORT nOffset = GetSliderPos();
1000 USHORT i=0;
1001 USHORT nQE =i + nOffset;
1002 if ( pEd )
1003 {
1004 String aStrVal = pEd->GetText();
1005 ListBox* pLbCond = &aLbCond1;
1006 ListBox* pLbField = &aLbField1;
1007 if ( pEd == &aEdVal2 )
1008 {
1009 pLbCond = &aLbCond2;
1010 pLbField = &aLbField2;
1011 i=1;
1012 nQE=i+nOffset;
1013 }
1014 if ( pEd == &aEdVal3 )
1015 {
1016 pLbCond = &aLbCond3;
1017 pLbField = &aLbField3;
1018 i=2;
1019 nQE=i+nOffset;
1020 }
1021 if ( pEd == &aEdVal4 )
1022 {
1023 pLbCond = &aLbCond4;
1024 pLbField = &aLbField4;
1025 i=3;
1026 nQE=i+nOffset;
1027 }
1028
1029 if ( aStrEmpty == aStrVal || aStrNotEmpty == aStrVal )
1030 {
1031 pLbCond->SelectEntry( '=' );
1032 pLbCond->Disable();
1033 }
1034 else
1035 pLbCond->Enable();
1036
1037 ScQueryEntry& rEntry = theQueryData.GetEntry( nQE );
1038 BOOL bDoThis = (pLbField->GetSelectEntryPos() != 0);
1039 rEntry.bDoQuery = bDoThis;
1040
1041 if ( rEntry.bDoQuery || bRefreshExceptQuery[nQE] )
1042 {
1043 if ( aStrVal == aStrEmpty )
1044 {
1045 rEntry.pStr->Erase();
1046 rEntry.nVal = SC_EMPTYFIELDS;
1047 rEntry.bQueryByString = FALSE;
1048 }
1049 else if ( aStrVal == aStrNotEmpty )
1050 {
1051 rEntry.pStr->Erase();
1052 rEntry.nVal = SC_NONEMPTYFIELDS;
1053 rEntry.bQueryByString = FALSE;
1054 }
1055 else
1056 {
1057 *rEntry.pStr = aStrVal;
1058 rEntry.nVal = 0;
1059 rEntry.bQueryByString = TRUE;
1060 }
1061
1062 USHORT nField = pLbField->GetSelectEntryPos();
1063 rEntry.nField = nField ? (theQueryData.nCol1 +
1064 static_cast<SCCOL>(nField) - 1) : static_cast<SCCOL>(0);
1065
1066 ScQueryOp eOp = (ScQueryOp)pLbCond->GetSelectEntryPos();
1067 rEntry.eOp = eOp;
1068
1069 }
1070 }
1071 return 0;
1072 }
1073
1074 //----------------------------------------------------------------------------
1075 IMPL_LINK( ScFilterDlg, ScrollHdl, ScrollBar*, EMPTYARG )
1076 {
1077 SliderMoved();
1078 return 0;
1079 }
1080
1081 void ScFilterDlg::SliderMoved()
1082 {
1083 USHORT nOffset = GetSliderPos();
1084 RefreshEditRow( nOffset);
1085 }
1086 USHORT ScFilterDlg::GetSliderPos()
1087 {
1088 return (USHORT) aScrollBar.GetThumbPos();
1089 }
1090 void ScFilterDlg::RefreshEditRow( USHORT nOffset )
1091 {
1092 if (nOffset==0)
1093 aConnLbArr[0]->Hide();
1094 else
1095 aConnLbArr[0]->Show();
1096
1097 for ( USHORT i=0; i<4; i++ )
1098 {
1099 String aValStr;
1100 USHORT nCondPos = 0;
1101 USHORT nFieldSelPos = 0;
1102 USHORT nQE = i+nOffset;
1103
1104 ScQueryEntry& rEntry = theQueryData.GetEntry( nQE);
1105 if ( rEntry.bDoQuery || bRefreshExceptQuery[nQE] )
1106 {
1107 nCondPos = (USHORT)rEntry.eOp;
1108 if(rEntry.bDoQuery)
1109 nFieldSelPos = GetFieldSelPos( static_cast<SCCOL>(rEntry.nField) );
1110
1111 if ( rEntry.nVal == SC_EMPTYFIELDS && !rEntry.bQueryByString && *rEntry.pStr == EMPTY_STRING )
1112 {
1113 aValStr = aStrEmpty;
1114 aCondLbArr[i]->Disable();
1115 }
1116 else if ( rEntry.nVal == SC_NONEMPTYFIELDS && !rEntry.bQueryByString && *rEntry.pStr == EMPTY_STRING )
1117 {
1118 aValStr = aStrNotEmpty;
1119 aCondLbArr[i]->Disable();
1120 }
1121 else
1122 {
1123 aValStr = *rEntry.pStr;
1124 aCondLbArr[i]->Enable();
1125 }
1126 aFieldLbArr[i]->Enable();
1127 aValueEdArr[i]->Enable();
1128
1129 if (nOffset==0)
1130 {
1131 if (i<3)
1132 {
1133 if(rEntry.bDoQuery)
1134 aConnLbArr[i+1]->Enable();
1135 else
1136 aConnLbArr[i+1]->Disable();
1137 USHORT nQENext = nQE+1;
1138 if(theQueryData.GetEntry(nQENext).bDoQuery || bRefreshExceptQuery[nQENext])
1139 aConnLbArr[i+1]->SelectEntryPos( (USHORT) theQueryData.GetEntry(nQENext).eConnect );
1140 else
1141 aConnLbArr[i+1]->SetNoSelection();
1142 }
1143 }
1144 else
1145 {
1146 if(theQueryData.GetEntry( nQE-1).bDoQuery)
1147 aConnLbArr[i]->Enable();
1148 else
1149 aConnLbArr[i]->Disable();
1150
1151 if(rEntry.bDoQuery || bRefreshExceptQuery[nQE])
1152 aConnLbArr[i]->SelectEntryPos( (USHORT) rEntry.eConnect );
1153 else
1154 aConnLbArr[i]->SetNoSelection();
1155 }
1156
1157 }
1158 else
1159 {
1160 if (nOffset==0)
1161 {
1162 if(i<3)
1163 {
1164 aConnLbArr[i+1]->SetNoSelection();
1165 aConnLbArr[i+1]->Disable();
1166 }
1167 }
1168 else
1169 {
1170 if(theQueryData.GetEntry( nQE-1).bDoQuery)
1171 aConnLbArr[i]->Enable();
1172 else
1173 aConnLbArr[i]->Disable();
1174 aConnLbArr[i]->SetNoSelection();
1175 }
1176 aFieldLbArr[i]->Disable();
1177 aCondLbArr[i]->Disable();
1178 aValueEdArr[i]->Disable();
1179 }
1180 aFieldLbArr[i]->SelectEntryPos( nFieldSelPos );
1181 aCondLbArr [i]->SelectEntryPos( nCondPos );
1182 aValueEdArr[i]->SetText( aValStr );
1183 UpdateValueList( static_cast<USHORT>(i+1) );
1184 }
1185 }
vba interoperability for OOo