sc/source/ui/dbgui/validate.cxx

   1 /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
   2 /*
   3  * This file is part of the LibreOffice project.
   4  *
   5  * This Source Code Form is subject to the terms of the Mozilla Public
   6  * License, v. 2.0. If a copy of the MPL was not distributed with this
   7  * file, You can obtain one at http://mozilla.org/MPL/2.0/.
   8  *
   9  * This file incorporates work covered by the following license notice:
  10  *
  11  *   Licensed to the Apache Software Foundation (ASF) under one or more
  12  *   contributor license agreements. See the NOTICE file distributed
  13  *   with this work for additional information regarding copyright
  14  *   ownership. The ASF licenses this file to you under the Apache
  15  *   License, Version 2.0 (the "License"); you may not use this file
  16  *   except in compliance with the License. You may obtain a copy of
  17  *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
  18  */
  19
  20
  21 #ifdef SC_DLLIMPLEMENTATION
  22 #undef SC_DLLIMPLEMENTATION
  23 #endif
  24
  25 #include <comphelper/string.hxx>
  26 #include <vcl/svapp.hxx>
  27 #include <svl/aeitem.hxx>
  28 #include <svl/stritem.hxx>
  29 #include <svl/eitem.hxx>
  30 #include <svl/intitem.hxx>
  31 #include <basic/sbmeth.hxx>
  32 #include <basic/sbstar.hxx>
  33 #include <basic/sbmod.hxx>
  34 #include <sfx2/app.hxx>
  35
  36 #include "scresid.hxx"
  37 #include "sc.hrc"       // -> Slot IDs
  38
  39 #include "stringutil.hxx"
  40 #include "validat.hxx"
  41 #include "validate.hrc"
  42 #include "validate.hxx"
  43 #include "compiler.hxx"
  44 #include "formula/opcode.hxx"
  45
  46 // cell range picker
  47 #include "tabvwsh.hxx"
  48 #include <sfx2/viewfrm.hxx>
  49 #include <sfx2/childwin.hxx>
  50 #include "reffact.hxx"
  51
  52 // ============================================================================
  53
  54 static sal_uInt16 pValueRanges[] =
  55 {
  56     FID_VALID_MODE, FID_VALID_ERRTEXT,
  57     FID_VALID_LISTTYPE, FID_VALID_LISTTYPE,
  58     0
  59 };
  60
  61
  62 // ============================================================================
  63
  64 ScValidationDlg::ScValidationDlg( Window*           pParent,
  65                                  const SfxItemSet* pArgSet,
  66                                  ScTabViewShell *pTabViewSh,
  67                                  SfxBindings *pB /*= NULL*/
  68                       ) :
  69         ScValidationDlgBase( pParent ? pParent : SFX_APP()->GetTopWindow(), TAB_DLG_VALIDATION, pArgSet, pB ),
  70             m_bOwnRefHdlr( false ),
  71             m_pTabVwSh( pTabViewSh ),
  72             m_bRefInputting( false )
  73 {
  74     AddTabPage( TP_VALIDATION_VALUES,    ScTPValidationValue::Create, 0 );
  75     AddTabPage( TP_VALIDATION_INPUTHELP, ScTPValidationHelp::Create,  0 );
  76     AddTabPage( TP_VALIDATION_ERROR,     ScTPValidationError::Create, 0 );
  77     FreeResource();
  78     //temp hack until converted to .ui
  79     mpHBox = new VclHBox(get_content_area());
  80 }
  81
  82 void ScTPValidationValue::SetReferenceHdl( const ScRange&rRange , ScDocument* pDoc )
  83 {
  84     if ( rRange.aStart != rRange.aEnd )
  85         if ( ScValidationDlg *pValidationDlg = GetValidationDlg() )
  86             if( m_pRefEdit )
  87                 pValidationDlg->RefInputStart( m_pRefEdit );
  88
  89     if ( m_pRefEdit )
  90     {
  91         OUString  aStr;
  92         rRange.Format( aStr, SCR_ABS_3D, pDoc );
  93         m_pRefEdit->SetRefString( aStr );
  94     }
  95 }
  96
  97 void ScTPValidationValue:: SetActiveHdl()
  98 {
  99     if ( m_pRefEdit ) m_pRefEdit->GrabFocus();
 100
 101     if ( ScValidationDlg *pValidationDlg = GetValidationDlg() )
 102         if( m_pRefEdit )
 103         {
 104             pValidationDlg->RefInputDone();
 105         }
 106 }
 107
 108 void            ScTPValidationValue::RefInputStartPreHdl( formula::RefEdit* pEdit, formula::RefButton* pButton )
 109 {
 110     if ( ScValidationDlg *pValidationDlg = GetValidationDlg() )
 111     {
 112         Window *pNewParent = pValidationDlg->get_refinput_shrink_parent();
 113         if( pEdit == m_pRefEdit && m_pRefEdit->GetParent() != pNewParent )
 114         {
 115             maRefEditPos = m_pRefEdit->GetPosPixel();
 116             maRefEditSize = m_pRefEdit->GetSizePixel();
 117             m_pRefEdit->SetParent(pNewParent);
 118         }
 119
 120         if( pButton == &m_btnRef && m_btnRef.GetParent() != pNewParent )
 121         {
 122             maBtnRefPos = m_btnRef.GetPosPixel();
 123             maBtnRefSize = m_btnRef.GetSizePixel();
 124             m_btnRef.SetParent(pNewParent);
 125         }
 126
 127         pNewParent->Show();
 128     }
 129 }
 130
 131 void            ScTPValidationValue::RefInputDonePostHdl()
 132 {
 133     if( m_pRefEdit && m_pRefEdit->GetParent()!= this )
 134     {
 135         m_pRefEdit->SetParent( this );
 136         m_pRefEdit->SetPosSizePixel( maRefEditPos, maRefEditSize );
 137
 138         m_btnRef.SetParent( m_pRefEdit ); //if Edit SetParent but button not, the tab order will be incorrect, need button to setparent to anthor window and restore parent later in order to restore the tab order
 139     }
 140
 141     if( m_btnRef.GetParent()!=this )
 142     {
 143         m_btnRef.SetParent( this );
 144         m_btnRef.SetPosSizePixel( maBtnRefPos, maBtnRefSize );
 145     }
 146
 147     if ( ScValidationDlg *pValidationDlg = GetValidationDlg() )
 148         pValidationDlg->get_refinput_shrink_parent()->Hide();
 149
 150     if( m_pRefEdit && !m_pRefEdit->HasFocus() )
 151         m_pRefEdit->GrabFocus();
 152
 153 }
 154
 155
 156 sal_Bool ScValidationDlg::Close()
 157 {
 158     if( m_bOwnRefHdlr )
 159         if( SfxTabPage* pPage = GetTabPage( TP_VALIDATION_VALUES ) )
 160             static_cast<ScTPValidationValue*>(pPage)->RemoveRefDlg();
 161
 162     return ScValidationDlgBase::Close();
 163 }
 164
 165 ScValidationDlg::~ScValidationDlg()
 166 {
 167     if( m_bOwnRefHdlr )
 168         RemoveRefDlg( false );
 169     delete mpHBox;
 170 }
 171
 172
 173 // ============================================================================
 174
 175 namespace {
 176
 177 /** Converts the passed ScValidationMode to the position in the list box. */
 178 sal_uInt16 lclGetPosFromValMode( ScValidationMode eValMode )
 179 {
 180     sal_uInt16 nLbPos = SC_VALIDDLG_ALLOW_ANY;
 181     switch( eValMode )
 182     {
 183         case SC_VALID_ANY:      nLbPos = SC_VALIDDLG_ALLOW_ANY;     break;
 184         case SC_VALID_WHOLE:    nLbPos = SC_VALIDDLG_ALLOW_WHOLE;   break;
 185         case SC_VALID_DECIMAL:  nLbPos = SC_VALIDDLG_ALLOW_DECIMAL; break;
 186         case SC_VALID_DATE:     nLbPos = SC_VALIDDLG_ALLOW_DATE;    break;
 187         case SC_VALID_TIME:     nLbPos = SC_VALIDDLG_ALLOW_TIME;    break;
 188         case SC_VALID_TEXTLEN:  nLbPos = SC_VALIDDLG_ALLOW_TEXTLEN; break;
 189         case SC_VALID_LIST:     nLbPos = SC_VALIDDLG_ALLOW_RANGE;   break;
 190         case SC_VALID_CUSTOM:   nLbPos = SC_VALIDDLG_ALLOW_ANY;     break;  // not supported
 191         default:    OSL_FAIL( "lclGetPosFromValMode - unknown validity mode" );
 192     }
 193     return nLbPos;
 194 }
 195
 196 /** Converts the passed list box position to an ScValidationMode. */
 197 ScValidationMode lclGetValModeFromPos( sal_uInt16 nLbPos )
 198 {
 199     ScValidationMode eValMode = SC_VALID_ANY;
 200     switch( nLbPos )
 201     {
 202         case SC_VALIDDLG_ALLOW_ANY:     eValMode = SC_VALID_ANY;        break;
 203         case SC_VALIDDLG_ALLOW_WHOLE:   eValMode = SC_VALID_WHOLE;      break;
 204         case SC_VALIDDLG_ALLOW_DECIMAL: eValMode = SC_VALID_DECIMAL;    break;
 205         case SC_VALIDDLG_ALLOW_DATE:    eValMode = SC_VALID_DATE;       break;
 206         case SC_VALIDDLG_ALLOW_TIME:    eValMode = SC_VALID_TIME;       break;
 207         case SC_VALIDDLG_ALLOW_RANGE:   eValMode = SC_VALID_LIST;       break;
 208         case SC_VALIDDLG_ALLOW_LIST:    eValMode = SC_VALID_LIST;       break;
 209         case SC_VALIDDLG_ALLOW_TEXTLEN: eValMode = SC_VALID_TEXTLEN;    break;
 210         default:    OSL_FAIL( "lclGetValModeFromPos - invalid list box position" );
 211     }
 212     return eValMode;
 213 }
 214
 215 /** Converts the passed ScConditionMode to the position in the list box. */
 216 sal_uInt16 lclGetPosFromCondMode( ScConditionMode eCondMode )
 217 {
 218     sal_uInt16 nLbPos = SC_VALIDDLG_DATA_EQUAL;
 219     switch( eCondMode )
 220     {
 221         case SC_COND_NONE:          // may occur in old XML files after Excel import
 222         case SC_COND_EQUAL:         nLbPos = SC_VALIDDLG_DATA_EQUAL;        break;
 223         case SC_COND_LESS:          nLbPos = SC_VALIDDLG_DATA_LESS;         break;
 224         case SC_COND_GREATER:       nLbPos = SC_VALIDDLG_DATA_GREATER;      break;
 225         case SC_COND_EQLESS:        nLbPos = SC_VALIDDLG_DATA_EQLESS;       break;
 226         case SC_COND_EQGREATER:     nLbPos = SC_VALIDDLG_DATA_EQGREATER;    break;
 227         case SC_COND_NOTEQUAL:      nLbPos = SC_VALIDDLG_DATA_NOTEQUAL;     break;
 228         case SC_COND_BETWEEN:       nLbPos = SC_VALIDDLG_DATA_VALIDRANGE;      break;
 229         case SC_COND_NOTBETWEEN:    nLbPos = SC_VALIDDLG_DATA_INVALIDRANGE;   break;
 230         default:    OSL_FAIL( "lclGetPosFromCondMode - unknown condition mode" );
 231     }
 232     return nLbPos;
 233 }
 234
 235 /** Converts the passed list box position to an ScConditionMode. */
 236 ScConditionMode lclGetCondModeFromPos( sal_uInt16 nLbPos )
 237 {
 238     ScConditionMode eCondMode = SC_COND_EQUAL;
 239     switch( nLbPos )
 240     {
 241         case SC_VALIDDLG_DATA_EQUAL:        eCondMode = SC_COND_EQUAL;      break;
 242         case SC_VALIDDLG_DATA_LESS:         eCondMode = SC_COND_LESS;       break;
 243         case SC_VALIDDLG_DATA_GREATER:      eCondMode = SC_COND_GREATER;    break;
 244         case SC_VALIDDLG_DATA_EQLESS:       eCondMode = SC_COND_EQLESS;     break;
 245         case SC_VALIDDLG_DATA_EQGREATER:    eCondMode = SC_COND_EQGREATER;  break;
 246         case SC_VALIDDLG_DATA_NOTEQUAL:     eCondMode = SC_COND_NOTEQUAL;   break;
 247         case SC_VALIDDLG_DATA_VALIDRANGE:      eCondMode = SC_COND_BETWEEN;    break;
 248         case SC_VALIDDLG_DATA_INVALIDRANGE:   eCondMode = SC_COND_NOTBETWEEN; break;
 249         default:    OSL_FAIL( "lclGetCondModeFromPos - invalid list box position" );
 250     }
 251     return eCondMode;
 252 }
 253
 254 /** Converts line feed separated string to a formula with strings separated by semicolons.
 255     @descr  Keeps all empty strings.
 256     Example: abc\ndef\n\nghi -> "abc";"def";"";"ghi".
 257     @param rFmlaStr  (out-param) The converted formula string. */
 258 void lclGetFormulaFromStringList( OUString& rFmlaStr, const OUString& rStringList, sal_Unicode cFmlaSep )
 259 {
 260     rFmlaStr = "";
 261     xub_StrLen nTokenCnt = comphelper::string::getTokenCount(rStringList, '\n');
 262     for( sal_Int32 nToken = 0, nStringIx = 0; nToken < (sal_Int32) nTokenCnt; ++nToken )
 263     {
 264         OUString aToken( rStringList.getToken( 0, '\n', nStringIx ) );
 265         ScGlobal::AddQuotes( aToken, '"' );
 266         rFmlaStr = ScGlobal::addToken(rFmlaStr, aToken, cFmlaSep);
 267     }
 268     if( rFmlaStr.isEmpty() )
 269         rFmlaStr = "\"\"";
 270 }
 271
 272
 273 /** Converts formula with strings separated by semicolons to line feed separated string.
 274     @descr  Keeps all empty strings. Ignores all empty tokens (multiple semicolons).
 275     Example: "abc";;;"def";"";"ghi" -> abc\ndef\n\nghi.
 276     @param rStringList  (out-param) The converted line feed separated string list.
 277     @return  true = Conversion successful. */
 278 bool lclGetStringListFromFormula( OUString& rStringList, const OUString& rFmlaStr, sal_Unicode cFmlaSep )
 279 {
 280     OUString aQuotes( "\"\"" );
 281     sal_Int32 nTokenCnt = ScStringUtil::GetQuotedTokenCount(rFmlaStr, aQuotes, cFmlaSep );
 282
 283     rStringList="";
 284     bool bIsStringList = (nTokenCnt > 0);
 285     bool bTokenAdded = false;
 286
 287     for( sal_Int32 nToken = 0, nStringIx = 0; bIsStringList && (nToken < nTokenCnt); ++nToken )
 288     {
 289         OUString aToken( ScStringUtil::GetQuotedToken(rFmlaStr, 0, aQuotes, cFmlaSep, nStringIx ) );
 290         aToken = comphelper::string::strip(aToken, ' ');
 291         if( !aToken.isEmpty() )      // ignore empty tokens, i.e. "a";;"b"
 292         {
 293             bIsStringList = ScGlobal::IsQuoted( aToken, '"' );
 294             if( bIsStringList )
 295             {
 296                 ScGlobal::EraseQuotes( aToken, '"' );
 297                 rStringList = ScGlobal::addToken(rStringList, aToken, '\n', 1, bTokenAdded);
 298                 bTokenAdded = true;
 299             }
 300         }
 301     }
 302
 303     return bIsStringList;
 304 }
 305
 306 } // namespace
 307
 308 // ----------------------------------------------------------------------------
 309
 310 ScTPValidationValue::ScTPValidationValue( Window* pParent, const SfxItemSet& rArgSet ) :
 311     SfxTabPage( pParent, ScResId( TP_VALIDATION_VALUES ), rArgSet ),
 312     maFtAllow ( this, ScResId( FT_ALLOW ) ),
 313     maLbAllow ( this, ScResId( LB_ALLOW ) ),
 314     maCbAllow ( this, ScResId( TSB_ALLOW_BLANKS ) ),
 315     maCbShow  ( this, ScResId( CB_SHOWLIST ) ),
 316     maCbSort  ( this, ScResId( CB_SORTLIST ) ),
 317     maFtValue ( this, ScResId( FT_VALUE ) ),
 318     maLbValue ( this, ScResId( LB_VALUE ) ),
 319     maFtMin   ( this, ScResId( FT_MIN ) ),
 320     maEdMin   ( this, NULL, &maFtMin, ScResId( EDT_MIN ) ),
 321     maEdList  ( this, ScResId( EDT_LIST ) ),
 322     maFtMax   ( this, ScResId( FT_MAX ) ),
 323     maEdMax   ( this, NULL, &maFtMax, ScResId( EDT_MAX ) ),
 324     maFtHint  ( this, ScResId( FT_SOURCEHINT ) ),
 325     maStrMin  ( ScResId( SCSTR_VALID_MINIMUM ) ),
 326     maStrMax  ( ScResId( SCSTR_VALID_MAXIMUM ) ),
 327     maStrValue( ScResId( SCSTR_VALID_VALUE ) ),
 328     maStrRange( ScResId( SCSTR_VALID_RANGE ) ),
 329     maStrList ( ScResId( SCSTR_VALID_LIST ) ),
 330     m_btnRef( this, ScResId( RB_VALIDITY_REF ) )
 331 {
 332     Init();
 333     FreeResource();
 334
 335     // list separator in formulas
 336     String aListSep = ::ScCompiler::GetNativeSymbol( ocSep );
 337     OSL_ENSURE( aListSep.Len() == 1, "ScTPValidationValue::ScTPValidationValue - list separator error" );
 338     mcFmlaSep = aListSep.Len() ? aListSep.GetChar( 0 ) : ';';
 339     m_btnRef.Hide(); // cell range picker
 340 }
 341
 342 ScTPValidationValue::~ScTPValidationValue()
 343 {
 344 }
 345
 346 void ScTPValidationValue::Init()
 347 {
 348     maLbAllow.SetSelectHdl( LINK( this, ScTPValidationValue, SelectHdl ) );
 349     maLbValue.SetSelectHdl( LINK( this, ScTPValidationValue, SelectHdl ) );
 350     maCbShow.SetClickHdl( LINK( this, ScTPValidationValue, CheckHdl ) );
 351
 352     // cell range picker
 353     maEdMin.SetGetFocusHdl( LINK( this, ScTPValidationValue, EditSetFocusHdl ) );
 354     maEdMin.SetLoseFocusHdl( LINK( this, ScTPValidationValue, KillFocusHdl ) );
 355     maEdMax.SetGetFocusHdl( LINK( this, ScTPValidationValue, EditSetFocusHdl ) );
 356     m_btnRef.SetLoseFocusHdl( LINK( this, ScTPValidationValue, KillFocusHdl ) );
 357     maEdMax.SetLoseFocusHdl( LINK( this, ScTPValidationValue, KillFocusHdl ) );
 358
 359     maLbAllow.SelectEntryPos( SC_VALIDDLG_ALLOW_ANY );
 360     maLbValue.SelectEntryPos( SC_VALIDDLG_DATA_EQUAL );
 361
 362     SelectHdl( NULL );
 363     CheckHdl( NULL );
 364 }
 365
 366 SfxTabPage* ScTPValidationValue::Create( Window* pParent, const SfxItemSet& rArgSet )
 367 {
 368     return( new ScTPValidationValue( pParent, rArgSet ) );
 369 }
 370
 371 sal_uInt16* ScTPValidationValue::GetRanges()
 372 {
 373     return pValueRanges;
 374 }
 375
 376 void ScTPValidationValue::Reset( const SfxItemSet& rArgSet )
 377 {
 378     const SfxPoolItem* pItem;
 379
 380     sal_uInt16 nLbPos = SC_VALIDDLG_ALLOW_ANY;
 381     if( rArgSet.GetItemState( FID_VALID_MODE, sal_True, &pItem ) == SFX_ITEM_SET )
 382         nLbPos = lclGetPosFromValMode( static_cast< ScValidationMode >(
 383             static_cast< const SfxAllEnumItem* >( pItem )->GetValue() ) );
 384     maLbAllow.SelectEntryPos( nLbPos );
 385
 386     nLbPos = SC_VALIDDLG_DATA_EQUAL;
 387     if( rArgSet.GetItemState( FID_VALID_CONDMODE, sal_True, &pItem ) == SFX_ITEM_SET )
 388         nLbPos = lclGetPosFromCondMode( static_cast< ScConditionMode >(
 389             static_cast< const SfxAllEnumItem* >( pItem )->GetValue() ) );
 390     maLbValue.SelectEntryPos( nLbPos );
 391
 392     // *** check boxes ***
 393     sal_Bool bCheck = sal_True;
 394     if( rArgSet.GetItemState( FID_VALID_BLANK, sal_True, &pItem ) == SFX_ITEM_SET )
 395         bCheck = static_cast< const SfxBoolItem* >( pItem )->GetValue();
 396     maCbAllow.Check( bCheck );
 397
 398     sal_Int32 nListType = ValidListType::UNSORTED;
 399     if( rArgSet.GetItemState( FID_VALID_LISTTYPE, sal_True, &pItem ) == SFX_ITEM_SET )
 400         nListType = static_cast< const SfxInt16Item* >( pItem )->GetValue();
 401     maCbShow.Check( nListType != ValidListType::INVISIBLE );
 402     maCbSort.Check( nListType == ValidListType::SORTEDASCENDING );
 403
 404     // *** formulas ***
 405     String aFmlaStr;
 406     if ( rArgSet.GetItemState( FID_VALID_VALUE1, sal_True, &pItem ) == SFX_ITEM_SET )
 407         aFmlaStr = static_cast< const SfxStringItem* >( pItem )->GetValue();
 408     SetFirstFormula( aFmlaStr );
 409
 410     aFmlaStr.Erase();
 411     if ( rArgSet.GetItemState( FID_VALID_VALUE2, sal_True, &pItem ) == SFX_ITEM_SET )
 412         aFmlaStr = static_cast< const SfxStringItem* >( pItem )->GetValue();
 413     SetSecondFormula( aFmlaStr );
 414
 415     SelectHdl( NULL );
 416     CheckHdl( NULL );
 417 }
 418
 419 sal_Bool ScTPValidationValue::FillItemSet( SfxItemSet& rArgSet )
 420 {
 421     sal_Int16 nListType = maCbShow.IsChecked() ?
 422         (maCbSort.IsChecked() ? ValidListType::SORTEDASCENDING : ValidListType::UNSORTED) :
 423         ValidListType::INVISIBLE;
 424
 425     rArgSet.Put( SfxAllEnumItem( FID_VALID_MODE, sal::static_int_cast<sal_uInt16>(
 426                     lclGetValModeFromPos( maLbAllow.GetSelectEntryPos() ) ) ) );
 427     rArgSet.Put( SfxAllEnumItem( FID_VALID_CONDMODE, sal::static_int_cast<sal_uInt16>(
 428                     lclGetCondModeFromPos( maLbValue.GetSelectEntryPos() ) ) ) );
 429     rArgSet.Put( SfxStringItem( FID_VALID_VALUE1, GetFirstFormula() ) );
 430     rArgSet.Put( SfxStringItem( FID_VALID_VALUE2, GetSecondFormula() ) );
 431     rArgSet.Put( SfxBoolItem( FID_VALID_BLANK, maCbAllow.IsChecked() ) );
 432     rArgSet.Put( SfxInt16Item( FID_VALID_LISTTYPE, nListType ) );
 433     return sal_True;
 434 }
 435
 436 String ScTPValidationValue::GetFirstFormula() const
 437 {
 438     OUString aFmlaStr;
 439     if( maLbAllow.GetSelectEntryPos() == SC_VALIDDLG_ALLOW_LIST )
 440         lclGetFormulaFromStringList( aFmlaStr, maEdList.GetText(), mcFmlaSep );
 441     else
 442         aFmlaStr = maEdMin.GetText();
 443     return aFmlaStr;
 444 }
 445
 446 String ScTPValidationValue::GetSecondFormula() const
 447 {
 448     return maEdMax.GetText();
 449 }
 450
 451 void ScTPValidationValue::SetFirstFormula( const OUString& rFmlaStr )
 452 {
 453     // try if formula is a string list, validation mode must already be set
 454     OUString aStringList;
 455     if( (maLbAllow.GetSelectEntryPos() == SC_VALIDDLG_ALLOW_RANGE) &&
 456         lclGetStringListFromFormula( aStringList, rFmlaStr, mcFmlaSep ) )
 457     {
 458         maEdList.SetText( aStringList );
 459         maEdMin.SetText( EMPTY_STRING );
 460         // change validation mode to string list
 461         maLbAllow.SelectEntryPos( SC_VALIDDLG_ALLOW_LIST );
 462     }
 463     else
 464     {
 465         maEdMin.SetText( rFmlaStr );
 466         maEdList.SetText( EMPTY_STRING );
 467     }
 468 }
 469
 470 void ScTPValidationValue::SetSecondFormula( const String& rFmlaStr )
 471 {
 472     maEdMax.SetText( rFmlaStr );
 473 }
 474
 475 ScValidationDlg * ScTPValidationValue::GetValidationDlg()
 476 {
 477     if( Window *pParent = GetParent() )
 478         do{
 479             if ( dynamic_cast<ScValidationDlg*>( pParent ) )
 480                 return static_cast< ScValidationDlg * >( pParent );
 481         }while ( NULL != ( pParent = pParent->GetParent() ) );
 482     return NULL;
 483 }
 484
 485 void ScTPValidationValue::SetupRefDlg()
 486 {
 487     if( ScValidationDlg *pValidationDlg = GetValidationDlg() )
 488     {
 489         if( pValidationDlg->SetupRefDlg() )
 490         {
 491             pValidationDlg->SetHandler( this );
 492             pValidationDlg->SetSetRefHdl( (ScRefHandlerHelper::PFUNCSETREFHDLTYPE)( &ScTPValidationValue::SetReferenceHdl ) );
 493             pValidationDlg->SetSetActHdl( (ScRefHandlerHelper::PCOMMONHDLTYPE)( &ScTPValidationValue::SetActiveHdl ) );
 494             pValidationDlg->SetRefInputStartPreHdl( (ScRefHandlerHelper::PINPUTSTARTDLTYPE)( &ScTPValidationValue::RefInputStartPreHdl ) );
 495             pValidationDlg->SetRefInputDonePostHdl( (ScRefHandlerHelper::PCOMMONHDLTYPE)( &ScTPValidationValue::RefInputDonePostHdl ) );
 496
 497             Window *pLabel = NULL;
 498
 499             if ( maEdMax.IsVisible() )
 500             {
 501                 m_pRefEdit = &maEdMax;
 502                 pLabel = &maFtMax;
 503             }
 504             else if ( maEdMin.IsVisible() )
 505             {
 506                 m_pRefEdit = &maEdMin;
 507                 pLabel = &maFtMin;
 508             }
 509
 510             if( m_pRefEdit && !m_pRefEdit->HasFocus() )
 511                 m_pRefEdit->GrabFocus();
 512
 513             if( m_pRefEdit )
 514                 m_pRefEdit->SetReferences( pValidationDlg, pLabel );
 515
 516             m_btnRef.SetReferences( pValidationDlg, m_pRefEdit );
 517         }
 518     }
 519 }
 520
 521 void ScTPValidationValue::RemoveRefDlg()
 522 {
 523     if( ScValidationDlg *pValidationDlg = GetValidationDlg() )
 524     {
 525         if( pValidationDlg->RemoveRefDlg() )
 526         {
 527             pValidationDlg->SetHandler( NULL );
 528             pValidationDlg->SetSetRefHdl( NULL );
 529             pValidationDlg->SetSetActHdl( NULL );
 530             pValidationDlg->SetRefInputStartPreHdl( NULL );
 531             pValidationDlg->SetRefInputDonePostHdl( NULL );
 532
 533             if( m_pRefEdit )
 534                 m_pRefEdit->SetReferences( NULL, NULL );
 535             m_pRefEdit = NULL;
 536
 537             m_btnRef.SetReferences( NULL, NULL );
 538
 539 #if ! defined( WNT ) && !defined( _MSC_VER )
 540             TidyListBoxes();
 541 #endif
 542         }
 543     }
 544 }
 545
 546 void ScTPValidationValue::TidyListBoxes()
 547 {
 548     if ( Window *pWnd = GetChild( 0 ) )
 549     {
 550         bool bFindLst = false;
 551         std::list<Window*> alstOrder;
 552
 553         do{
 554             if( pWnd->GetParent() == this )
 555             {
 556                 if ( !bFindLst )
 557                 {
 558                     try{
 559                         if( dynamic_cast<ListBox*>(pWnd)||dynamic_cast<ListBox*>(pWnd->GetWindow(WINDOW_CLIENT) ) )
 560                             bFindLst = true;
 561                     }
 562                     catch( ... )
 563                     {
 564                         if ( *(void**)pWnd == *(void**)&maLbValue )
 565                             bFindLst = true;
 566                         else if ( Window *pClient = pWnd->GetWindow( WINDOW_CLIENT ) )
 567                             if ( *(void**)pClient == *(void**)&maLbValue )
 568                                 bFindLst = true;
 569                     }
 570                 }
 571
 572                 if ( bFindLst )
 573                     alstOrder.push_back( pWnd->GetWindow( WINDOW_CLIENT ) );
 574             }
 575         }while( NULL != ( pWnd = pWnd->GetWindow( WINDOW_NEXT  ) ) );
 576
 577         pWnd = GetChild(0);
 578
 579         while( std::find( alstOrder.begin(), alstOrder.end(), pWnd ) != alstOrder.end() && NULL != ( pWnd = pWnd->GetWindow( WINDOW_NEXT) ) ) ;
 580
 581         if ( pWnd )
 582         {
 583             for ( std::list<Window*>::iterator i = alstOrder.begin(); i!=alstOrder.end(); ++i )
 584             {
 585                 Window *pParent = (*i)->GetParent();
 586                 (*i)->SetParent( pWnd );
 587                 (*i)->SetParent( pParent );
 588             }
 589         }
 590     }
 591 }
 592
 593 IMPL_LINK_NOARG(ScTPValidationValue, EditSetFocusHdl)
 594 {
 595     sal_uInt16  nPos=maLbAllow.GetSelectEntryPos();
 596
 597     if ( nPos == SC_VALIDDLG_ALLOW_RANGE )
 598     {
 599         SetupRefDlg();
 600     }
 601
 602     return 0;
 603 }
 604
 605 IMPL_LINK( ScTPValidationValue, KillFocusHdl, Window *, pWnd )
 606 {
 607     if( pWnd == m_pRefEdit || pWnd == &m_btnRef )
 608         if( ScValidationDlg *pValidationDlg = GetValidationDlg() )
 609             if ( (pValidationDlg->IsActive() || pValidationDlg->IsChildFocus() ) && !pValidationDlg->IsRefInputting() )
 610                 if( ( !m_pRefEdit || !m_pRefEdit->HasFocus()) && !m_btnRef.HasFocus() )
 611                 {
 612                     RemoveRefDlg();
 613                 }
 614
 615     return 0;
 616 }
 617
 618 // ----------------------------------------------------------------------------
 619
 620 IMPL_LINK_NOARG(ScTPValidationValue, SelectHdl)
 621 {
 622     sal_uInt16 nLbPos = maLbAllow.GetSelectEntryPos();
 623     bool bEnable = (nLbPos != SC_VALIDDLG_ALLOW_ANY);
 624     bool bRange = (nLbPos == SC_VALIDDLG_ALLOW_RANGE);
 625     bool bList = (nLbPos == SC_VALIDDLG_ALLOW_LIST);
 626
 627     maCbAllow.Enable( bEnable );   // Empty cell
 628     maFtValue.Enable( bEnable );
 629     maLbValue.Enable( bEnable );
 630     maFtMin.Enable( bEnable );
 631     maEdMin.Enable( bEnable );
 632     maEdList.Enable( bEnable );
 633     maFtMax.Enable( bEnable );
 634     maEdMax.Enable( bEnable );
 635
 636     bool bShowMax = false;
 637     if( bRange )
 638         maFtMin.SetText( maStrRange );
 639     else if( bList )
 640         maFtMin.SetText( maStrList );
 641     else
 642     {
 643         switch( maLbValue.GetSelectEntryPos() )
 644         {
 645             case SC_VALIDDLG_DATA_EQUAL:
 646             case SC_VALIDDLG_DATA_NOTEQUAL:     maFtMin.SetText( maStrValue );  break;
 647
 648             case SC_VALIDDLG_DATA_LESS:
 649             case SC_VALIDDLG_DATA_EQLESS:       maFtMin.SetText( maStrMax );    break;
 650
 651             case SC_VALIDDLG_DATA_VALIDRANGE:
 652             case SC_VALIDDLG_DATA_INVALIDRANGE:   bShowMax = true;    // fall through
 653             case SC_VALIDDLG_DATA_GREATER:
 654             case SC_VALIDDLG_DATA_EQGREATER:    maFtMin.SetText( maStrMin );    break;
 655
 656             default:
 657                 OSL_FAIL( "ScTPValidationValue::SelectHdl - unknown condition mode" );
 658         }
 659     }
 660
 661     maCbShow.Show( bRange || bList );
 662     maCbSort.Show( bRange || bList );
 663     maFtValue.Show( !bRange && !bList );
 664     maLbValue.Show( !bRange && !bList );
 665     maEdMin.Show( !bList );
 666     maEdList.Show( bList );
 667     maFtMax.Show( bShowMax );
 668     maEdMax.Show( bShowMax );
 669     maFtHint.Show( bRange );
 670     m_btnRef.Show( bRange );  // cell range picker
 671     return 0;
 672 }
 673
 674 IMPL_LINK_NOARG(ScTPValidationValue, CheckHdl)
 675 {
 676     maCbSort.Enable( maCbShow.IsChecked() );
 677     return 0;
 678 }
 679
 680
 681 //========================================================================
 682 //========================================================================
 683 // Input Help Page
 684
 685 ScTPValidationHelp::ScTPValidationHelp( Window*         pParent,
 686                                           const SfxItemSet& rArgSet )
 687
 688     :   SfxTabPage      ( pParent,
 689                           ScResId( TP_VALIDATION_INPUTHELP ),
 690                           rArgSet ),
 691         aTsbHelp        ( this, ScResId( TSB_HELP ) ),
 692         aFlContent      ( this, ScResId( FL_CONTENT ) ),
 693         aFtTitle        ( this, ScResId( FT_TITLE ) ),
 694         aEdtTitle       ( this, ScResId( EDT_TITLE ) ),
 695         aFtInputHelp    ( this, ScResId( FT_INPUTHELP ) ),
 696         aEdInputHelp    ( this, ScResId( EDT_INPUTHELP ) )
 697 {
 698     Init();
 699     FreeResource();
 700 }
 701
 702 // -----------------------------------------------------------------------
 703
 704 ScTPValidationHelp::~ScTPValidationHelp()
 705 {
 706 }
 707
 708 // -----------------------------------------------------------------------
 709
 710 void ScTPValidationHelp::Init()
 711 {
 712     aTsbHelp.EnableTriState( false );
 713 }
 714
 715 //------------------------------------------------------------------------
 716
 717 sal_uInt16* ScTPValidationHelp::GetRanges()
 718 {
 719     return pValueRanges;
 720 }
 721
 722 // -----------------------------------------------------------------------
 723
 724 SfxTabPage* ScTPValidationHelp::Create( Window* pParent,
 725                                          const SfxItemSet&  rArgSet )
 726 {
 727     return ( new ScTPValidationHelp( pParent, rArgSet ) );
 728 }
 729
 730 // -----------------------------------------------------------------------
 731
 732 void ScTPValidationHelp::Reset( const SfxItemSet& rArgSet )
 733 {
 734     const SfxPoolItem* pItem;
 735
 736     if ( rArgSet.GetItemState( FID_VALID_SHOWHELP, sal_True, &pItem ) == SFX_ITEM_SET )
 737         aTsbHelp.SetState( ((const SfxBoolItem*)pItem)->GetValue() ? STATE_CHECK : STATE_NOCHECK );
 738     else
 739         aTsbHelp.SetState( STATE_NOCHECK );
 740
 741     if ( rArgSet.GetItemState( FID_VALID_HELPTITLE, sal_True, &pItem ) == SFX_ITEM_SET )
 742         aEdtTitle.SetText( ((const SfxStringItem*)pItem)->GetValue() );
 743     else
 744         aEdtTitle.SetText( EMPTY_STRING );
 745
 746     if ( rArgSet.GetItemState( FID_VALID_HELPTEXT, sal_True, &pItem ) == SFX_ITEM_SET )
 747         aEdInputHelp.SetText( ((const SfxStringItem*)pItem)->GetValue() );
 748     else
 749         aEdInputHelp.SetText( EMPTY_STRING );
 750 }
 751
 752 // -----------------------------------------------------------------------
 753
 754 sal_Bool ScTPValidationHelp::FillItemSet( SfxItemSet& rArgSet )
 755 {
 756     rArgSet.Put( SfxBoolItem( FID_VALID_SHOWHELP, aTsbHelp.GetState() == STATE_CHECK ) );
 757     rArgSet.Put( SfxStringItem( FID_VALID_HELPTITLE, aEdtTitle.GetText() ) );
 758     rArgSet.Put( SfxStringItem( FID_VALID_HELPTEXT, aEdInputHelp.GetText() ) );
 759
 760     return sal_True;
 761 }
 762
 763 //========================================================================
 764 //========================================================================
 765 // Error Alert Page
 766
 767 ScTPValidationError::ScTPValidationError( Window*           pParent,
 768                                           const SfxItemSet& rArgSet )
 769
 770     :   SfxTabPage      ( pParent,
 771                           ScResId( TP_VALIDATION_ERROR ),
 772                           rArgSet ),
 773         aTsbShow        ( this, ScResId( TSB_SHOW ) ),
 774         aFlContent      ( this, ScResId( FL_CONTENT ) ),
 775         aFtAction       ( this, ScResId( FT_ACTION ) ),
 776         aLbAction       ( this, ScResId( LB_ACTION ) ),
 777         aBtnSearch      ( this, ScResId( BTN_SEARCH ) ),
 778         aFtTitle        ( this, ScResId( FT_TITLE ) ),
 779         aEdtTitle       ( this, ScResId( EDT_TITLE ) ),
 780         aFtError        ( this, ScResId( FT_ERROR ) ),
 781         aEdError        ( this, ScResId( EDT_ERROR ) )
 782 {
 783     Init();
 784     FreeResource();
 785 }
 786
 787 // -----------------------------------------------------------------------
 788
 789 ScTPValidationError::~ScTPValidationError()
 790 {
 791 }
 792
 793 // -----------------------------------------------------------------------
 794
 795 void ScTPValidationError::Init()
 796 {
 797     aLbAction.SetSelectHdl( LINK( this, ScTPValidationError, SelectActionHdl ) );
 798     aBtnSearch.SetClickHdl( LINK( this, ScTPValidationError, ClickSearchHdl ) );
 799
 800     aLbAction.SelectEntryPos( 0 );
 801     aTsbShow.EnableTriState( false );
 802
 803     SelectActionHdl( NULL );
 804 }
 805
 806 //------------------------------------------------------------------------
 807
 808 sal_uInt16* ScTPValidationError::GetRanges()
 809 {
 810     return pValueRanges;
 811 }
 812
 813 // -----------------------------------------------------------------------
 814
 815 SfxTabPage* ScTPValidationError::Create( Window*    pParent,
 816                                          const SfxItemSet&  rArgSet )
 817 {
 818     return ( new ScTPValidationError( pParent, rArgSet ) );
 819 }
 820
 821 // -----------------------------------------------------------------------
 822
 823 void ScTPValidationError::Reset( const SfxItemSet& rArgSet )
 824 {
 825     const SfxPoolItem* pItem;
 826
 827     if ( rArgSet.GetItemState( FID_VALID_SHOWERR, sal_True, &pItem ) == SFX_ITEM_SET )
 828         aTsbShow.SetState( ((const SfxBoolItem*)pItem)->GetValue() ? STATE_CHECK : STATE_NOCHECK );
 829     else
 830         aTsbShow.SetState( STATE_CHECK );   // check by default
 831
 832     if ( rArgSet.GetItemState( FID_VALID_ERRSTYLE, sal_True, &pItem ) == SFX_ITEM_SET )
 833         aLbAction.SelectEntryPos( ((const SfxAllEnumItem*)pItem)->GetValue() );
 834     else
 835         aLbAction.SelectEntryPos( 0 );
 836
 837     if ( rArgSet.GetItemState( FID_VALID_ERRTITLE, sal_True, &pItem ) == SFX_ITEM_SET )
 838         aEdtTitle.SetText( ((const SfxStringItem*)pItem)->GetValue() );
 839     else
 840         aEdtTitle.SetText( EMPTY_STRING );
 841
 842     if ( rArgSet.GetItemState( FID_VALID_ERRTEXT, sal_True, &pItem ) == SFX_ITEM_SET )
 843         aEdError.SetText( ((const SfxStringItem*)pItem)->GetValue() );
 844     else
 845         aEdError.SetText( EMPTY_STRING );
 846
 847     SelectActionHdl( NULL );
 848 }
 849
 850 // -----------------------------------------------------------------------
 851
 852 sal_Bool ScTPValidationError::FillItemSet( SfxItemSet& rArgSet )
 853 {
 854     rArgSet.Put( SfxBoolItem( FID_VALID_SHOWERR, aTsbShow.GetState() == STATE_CHECK ) );
 855     rArgSet.Put( SfxAllEnumItem( FID_VALID_ERRSTYLE, aLbAction.GetSelectEntryPos() ) );
 856     rArgSet.Put( SfxStringItem( FID_VALID_ERRTITLE, aEdtTitle.GetText() ) );
 857     rArgSet.Put( SfxStringItem( FID_VALID_ERRTEXT, aEdError.GetText() ) );
 858
 859     return sal_True;
 860 }
 861
 862 // -----------------------------------------------------------------------
 863
 864 IMPL_LINK_NOARG(ScTPValidationError, SelectActionHdl)
 865 {
 866     ScValidErrorStyle eStyle = (ScValidErrorStyle) aLbAction.GetSelectEntryPos();
 867     sal_Bool bMacro = ( eStyle == SC_VALERR_MACRO );
 868
 869     aBtnSearch.Enable( bMacro );
 870     aFtError.Enable( !bMacro );
 871     aEdError.Enable( !bMacro );
 872
 873     return( 0L );
 874 }
 875
 876 // -----------------------------------------------------------------------
 877
 878 IMPL_LINK_NOARG(ScTPValidationError, ClickSearchHdl)
 879 {
 880     Window* pOld = Application::GetDefDialogParent();
 881     Application::SetDefDialogParent( this );
 882
 883     // Use static SfxApplication method to bring up selector dialog for
 884     // choosing a script
 885     OUString aScriptURL = SfxApplication::ChooseScript();
 886
 887     Application::SetDefDialogParent( pOld );
 888
 889     if ( aScriptURL != NULL && !aScriptURL.isEmpty() )
 890     {
 891         aEdtTitle.SetText( aScriptURL );
 892     }
 893
 894     return( 0L );
 895 }
 896
 897 bool ScValidationDlg::EnterRefStatus()
 898 {
 899     ScTabViewShell *pTabViewShell = GetTabViewShell();
 900
 901     if( !pTabViewShell ) return false;
 902
 903     sal_uInt16 nId  = SLOTID;
 904     SfxViewFrame* pViewFrm = pTabViewShell->GetViewFrame();
 905     SfxChildWindow* pWnd = pViewFrm->GetChildWindow( nId );
 906
 907     if ( pWnd && pWnd->GetWindow()!= this ) pWnd = NULL;
 908
 909     SC_MOD()->SetRefDialog( nId, pWnd ? false : sal_True );
 910
 911     return true;
 912 }
 913
 914 bool ScValidationDlg::LeaveRefStatus()
 915 {
 916     ScTabViewShell *pTabViewShell = GetTabViewShell();
 917
 918     if( !pTabViewShell ) return false;
 919
 920     sal_uInt16 nId  = SLOTID;
 921     SfxViewFrame* pViewFrm = pTabViewShell->GetViewFrame();
 922     if ( pViewFrm->GetChildWindow( nId ) )
 923     {
 924         DoClose( nId );
 925     }
 926     return true;
 927 }
 928
 929 bool ScValidationDlg::SetupRefDlg()
 930 {
 931     if ( m_bOwnRefHdlr ) return false;
 932     if( EnterRefMode() )
 933     {
 934         SetModal( false );
 935         return  m_bOwnRefHdlr = true && EnterRefStatus();
 936     }
 937
 938     return false;
 939 }
 940
 941 bool ScValidationDlg::RemoveRefDlg( sal_Bool bRestoreModal /* = sal_True */ )
 942 {
 943     bool bVisLock = false;
 944     bool bFreeWindowLock = false;
 945
 946     ScTabViewShell *pTabVwSh = GetTabViewShell();
 947
 948     if( !pTabVwSh ) return false;
 949
 950     if ( SfxChildWindow* pWnd = pTabVwSh->GetViewFrame()->GetChildWindow( SID_VALIDITY_REFERENCE ) )
 951     {
 952         bVisLock = static_cast<ScValidityRefChildWin*>(pWnd)->LockVisible( true );
 953         bFreeWindowLock = static_cast<ScValidityRefChildWin*>(pWnd)->LockFreeWindow( true );
 954     }
 955
 956     if ( !m_bOwnRefHdlr ) return false;
 957     if( LeaveRefStatus() && LeaveRefMode() )
 958     {
 959         m_bOwnRefHdlr = false;
 960
 961         if( bRestoreModal )
 962             SetModal( sal_True );
 963     }
 964
 965     if ( SfxChildWindow* pWnd = pTabVwSh->GetViewFrame()->GetChildWindow( SID_VALIDITY_REFERENCE ) )
 966     {
 967         static_cast<ScValidityRefChildWin*>(pWnd)->LockVisible( bVisLock );
 968         static_cast<ScValidityRefChildWin*>(pWnd)->LockFreeWindow( bFreeWindowLock );
 969     }
 970
 971     return true;
 972 }
 973
 974 void ScTPValidationValue::ScRefButtonEx::Click()
 975 {
 976     if( ScTPValidationValue *pParent = dynamic_cast< ScTPValidationValue*>( GetParent() ) )
 977         pParent->OnClick( this );
 978
 979     formula::RefButton::Click();
 980 }
 981
 982 void ScTPValidationValue::OnClick( Button *pBtn )
 983 {
 984     if( pBtn == &m_btnRef )
 985         SetupRefDlg();
 986 }
 987
 988 sal_Bool ScValidationDlg::IsChildFocus()
 989 {
 990     if ( const Window *pWin = Application::GetFocusWindow() )
 991         while( NULL != ( pWin = pWin->GetParent() ) )
 992             if( pWin == this )
 993                 return sal_True;
 994
 995     return false;
 996 }
 997
 998
 999 bool    ScValidationDlg::IsAlive()
1000 {
1001     return SC_MOD()->IsAliveRefDlg( SLOTID, this );
1002 }
1003
1004 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */