formula/source/ui/dlg/parawin.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 #include <comphelper/string.hxx>
  21 #include <svl/zforlist.hxx>
  22 #include <svl/stritem.hxx>
  23 #include <vcl/settings.hxx>
  24
  25 #include "parawin.hxx"
  26 #include "helpids.hrc"
  27 #include "formula/formdata.hxx"
  28 #include "formula/IFunctionDescription.hxx"
  29 #include "ModuleHelper.hxx"
  30 #include "ForResId.hrc"
  31
  32 #define VAR_ARGS 30
  33 #define PAIRED_VAR_ARGS (VAR_ARGS + VAR_ARGS)
  34 namespace formula
  35 {
  36
  37
  38 ParaWin::ParaWin(vcl::Window* pParent,IControlReferenceHandler* _pDlg):
  39     TabPage         (pParent, "ParameterPage", "formula/ui/parameter.ui"),
  40     pFuncDesc       ( NULL ),
  41     pMyParent       (_pDlg),
  42     m_sOptional     ( ModuleRes( STR_OPTIONAL ) ),
  43     m_sRequired     ( ModuleRes( STR_REQUIRED ) ),
  44     bRefMode        (false)
  45 {
  46     get(m_pFtEditDesc, "editdesc");
  47     get(m_pFtArgName, "parname");
  48     get(m_pFtArgDesc, "pardesc");
  49
  50     //Space for two lines of text
  51     m_pFtArgDesc->SetText("X\nX\n");
  52     long nHeight = m_pFtArgDesc->GetOptimalSize().Height();
  53     m_pFtEditDesc->set_height_request(nHeight);
  54     m_pFtArgDesc->set_height_request(nHeight);
  55     m_pFtArgDesc->SetText("");
  56
  57     get(m_pBtnFx1, "FX1");
  58     m_pBtnFx1->SetModeImage(Image(ModuleRes( BMP_FX )));
  59     get(m_pBtnFx2, "FX2");
  60     m_pBtnFx2->SetModeImage(Image(ModuleRes( BMP_FX )));
  61     get(m_pBtnFx3, "FX3");
  62     m_pBtnFx3->SetModeImage(Image(ModuleRes( BMP_FX )));
  63     get(m_pBtnFx4, "FX4");
  64     m_pBtnFx4->SetModeImage(Image(ModuleRes( BMP_FX )));
  65
  66     get(m_pFtArg1, "FT_ARG1");
  67     get(m_pFtArg2, "FT_ARG2");
  68     get(m_pFtArg3, "FT_ARG3");
  69     get(m_pFtArg4, "FT_ARG4");
  70
  71     get(m_pEdArg1, "ED_ARG1");
  72     get(m_pEdArg2, "ED_ARG2");
  73     get(m_pEdArg3, "ED_ARG3");
  74     get(m_pEdArg4, "ED_ARG4");
  75
  76     get(m_pRefBtn1, "RB_ARG1");
  77     get(m_pRefBtn2, "RB_ARG2");
  78     get(m_pRefBtn3, "RB_ARG3");
  79     get(m_pRefBtn4, "RB_ARG4");
  80
  81     get(m_pSlider, "scrollbar");
  82
  83     //lock down initial preferences
  84     vcl::Window *pGrid = get<vcl::Window>("paramgrid");
  85     pGrid->set_height_request(pGrid->get_preferred_size().Height());
  86     Size aSize(get_preferred_size());
  87     set_width_request(aSize.Width());
  88     set_height_request(aSize.Height());
  89
  90     aDefaultString=m_pFtEditDesc->GetText();
  91     nEdFocus=NOT_FOUND;
  92     nActiveLine=0;
  93
  94     m_pSlider->SetEndScrollHdl( LINK( this, ParaWin, ScrollHdl ) );
  95     m_pSlider->SetScrollHdl( LINK( this, ParaWin, ScrollHdl ) );
  96
  97     InitArgInput( 0, *m_pFtArg1, *m_pBtnFx1, *m_pEdArg1, *m_pRefBtn1);
  98     InitArgInput( 1, *m_pFtArg2, *m_pBtnFx2, *m_pEdArg2, *m_pRefBtn2);
  99     InitArgInput( 2, *m_pFtArg3, *m_pBtnFx3, *m_pEdArg3, *m_pRefBtn3);
 100     InitArgInput( 3, *m_pFtArg4, *m_pBtnFx4, *m_pEdArg4, *m_pRefBtn4);
 101     ClearAll();
 102 }
 103
 104 void ParaWin::UpdateArgDesc( sal_uInt16 nArg )
 105 {
 106     if (nArg==NOT_FOUND) return;
 107
 108     if ( nArgs > 4 )
 109         nArg = sal::static_int_cast<sal_uInt16>( nArg + GetSliderPos() );
 110
 111     if ( (nArgs > 0) && (nArg<nArgs) )
 112     {
 113         OUString  aArgDesc;
 114         OUString  aArgName;
 115
 116         SetArgumentDesc( OUString() );
 117         SetArgumentText( OUString() );
 118
 119         if ( nArgs < VAR_ARGS )
 120         {
 121             sal_uInt16 nRealArg = (aVisibleArgMapping.size() < nArg) ? aVisibleArgMapping[nArg] : nArg;
 122             aArgDesc  = pFuncDesc->getParameterDescription(nRealArg);
 123             aArgName  = pFuncDesc->getParameterName(nRealArg);
 124             aArgName += " ";
 125             aArgName += (pFuncDesc->isParameterOptional(nRealArg)) ? m_sOptional : m_sRequired ;
 126         }
 127         else if ( nArgs < PAIRED_VAR_ARGS )
 128         {
 129             sal_uInt16 nFix = nArgs - VAR_ARGS;
 130             sal_uInt16 nPos = ( nArg < nFix ? nArg : nFix );
 131             sal_uInt16 nRealArg = (nPos < aVisibleArgMapping.size() ?
 132                     aVisibleArgMapping[nPos] : aVisibleArgMapping.back());
 133             aArgDesc  = pFuncDesc->getParameterDescription(nRealArg);
 134             aArgName  = pFuncDesc->getParameterName(nRealArg);
 135             if ( nArg >= nFix )
 136                 aArgName += OUString::number( nArg-nFix+1 );
 137             aArgName += " ";
 138
 139             aArgName += (nArg > nFix || pFuncDesc->isParameterOptional(nRealArg)) ? m_sOptional : m_sRequired ;
 140         }
 141         else
 142         {
 143             sal_uInt16 nFix = nArgs - PAIRED_VAR_ARGS;
 144             sal_uInt16 nPos;
 145             if ( nArg < nFix )
 146                 nPos = nArg;
 147             else
 148                 nPos = nFix + ( (nArg-nFix) % 2);
 149             sal_uInt16 nRealArg = (nPos < aVisibleArgMapping.size() ?
 150                     aVisibleArgMapping[nPos] : aVisibleArgMapping.back());
 151             aArgDesc  = pFuncDesc->getParameterDescription(nRealArg);
 152             aArgName  = pFuncDesc->getParameterName(nRealArg);
 153             if ( nArg >= nFix )
 154                 aArgName += OUString::number( (nArg-nFix)/2 + 1 );
 155             aArgName += " ";
 156
 157             aArgName += (nArg > (nFix+1) || pFuncDesc->isParameterOptional(nRealArg)) ? m_sOptional : m_sRequired ;
 158         }
 159
 160         SetArgumentDesc(aArgDesc);
 161         SetArgumentText(aArgName);
 162     }
 163 }
 164
 165 void ParaWin::UpdateArgInput( sal_uInt16 nOffset, sal_uInt16 i )
 166 {
 167     sal_uInt16 nArg = nOffset + i;
 168     if ( nArgs < VAR_ARGS)
 169     {
 170         if(nArg<nArgs)
 171         {
 172             sal_uInt16 nRealArg = aVisibleArgMapping[nArg];
 173             SetArgNameFont  (i,(pFuncDesc->isParameterOptional(nRealArg))
 174                                             ? aFntLight : aFntBold );
 175             SetArgName      (i,pFuncDesc->getParameterName(nRealArg));
 176         }
 177     }
 178     else if ( nArgs < PAIRED_VAR_ARGS)
 179     {
 180         sal_uInt16 nFix = nArgs - VAR_ARGS;
 181         sal_uInt16 nPos = ( nArg < nFix ? nArg : nFix );
 182         sal_uInt16 nRealArg = (nPos < aVisibleArgMapping.size() ?
 183                 aVisibleArgMapping[nPos] : aVisibleArgMapping.back());
 184         SetArgNameFont( i,
 185                 (nArg > nFix || pFuncDesc->isParameterOptional(nRealArg)) ?
 186                 aFntLight : aFntBold );
 187         if ( nArg >= nFix )
 188         {
 189             OUString aArgName( pFuncDesc->getParameterName(nRealArg) );
 190             aArgName += OUString::number(nArg-nFix+1);
 191             SetArgName( i, aArgName );
 192         }
 193         else
 194             SetArgName( i, pFuncDesc->getParameterName(nRealArg) );
 195     }
 196     else
 197     {
 198         sal_uInt16 nFix = nArgs - PAIRED_VAR_ARGS;
 199         sal_uInt16 nPos;
 200         if ( nArg < nFix )
 201             nPos = nArg;
 202         else
 203             nPos = nFix + ( (nArg-nFix) % 2);
 204         sal_uInt16 nRealArg = (nPos < aVisibleArgMapping.size() ?
 205                 aVisibleArgMapping[nPos] : aVisibleArgMapping.back());
 206         SetArgNameFont( i,
 207                 (nArg > (nFix+1) || pFuncDesc->isParameterOptional(nRealArg)) ?
 208                 aFntLight : aFntBold );
 209         if ( nArg >= nFix )
 210         {
 211             OUString aArgName( pFuncDesc->getParameterName(nRealArg) );
 212             aArgName += OUString::number( (nArg-nFix)/2 + 1 );
 213             SetArgName( i, aArgName );
 214         }
 215         else
 216             SetArgName( i, pFuncDesc->getParameterName(nRealArg) );
 217     }
 218     if(nArg<nArgs) SetArgVal(i,aParaArray[nArg]);
 219
 220 }
 221
 222 ParaWin::~ParaWin()
 223 {
 224     disposeOnce();
 225 }
 226
 227 void ParaWin::dispose()
 228 {
 229     // #i66422# if the focus changes during destruction of the controls,
 230     // don't call the focus handlers
 231     Link<> aEmptyLink;
 232     m_pBtnFx1->SetGetFocusHdl( aEmptyLink );
 233     m_pBtnFx2->SetGetFocusHdl( aEmptyLink );
 234     m_pBtnFx3->SetGetFocusHdl( aEmptyLink );
 235     m_pBtnFx4->SetGetFocusHdl( aEmptyLink );
 236     m_pFtEditDesc.clear();
 237     m_pFtArgName.clear();
 238     m_pFtArgDesc.clear();
 239     m_pBtnFx1.clear();
 240     m_pFtArg1.clear();
 241     m_pEdArg1.clear();
 242     m_pRefBtn1.clear();
 243     m_pBtnFx2.clear();
 244     m_pFtArg2.clear();
 245     m_pEdArg2.clear();
 246     m_pRefBtn2.clear();
 247     m_pBtnFx3.clear();
 248     m_pFtArg3.clear();
 249     m_pEdArg3.clear();
 250     m_pRefBtn3.clear();
 251     m_pBtnFx4.clear();
 252     m_pFtArg4.clear();
 253     m_pEdArg4.clear();
 254     m_pRefBtn4.clear();
 255     m_pSlider.clear();
 256     TabPage::dispose();
 257 }
 258
 259
 260 void ParaWin::SetActiveLine(sal_uInt16 no)
 261 {
 262     if(no<nArgs)
 263     {
 264         long nOffset = GetSliderPos();
 265         nActiveLine=no;
 266         long nNewEdPos=(long)nActiveLine-nOffset;
 267         if(nNewEdPos<0 || nNewEdPos>3)
 268         {
 269             nOffset+=nNewEdPos;
 270             SetSliderPos((sal_uInt16) nOffset);
 271             nOffset=GetSliderPos();
 272         }
 273         nEdFocus=no-(sal_uInt16)nOffset;
 274         UpdateArgDesc( nEdFocus );
 275     }
 276 }
 277
 278 RefEdit* ParaWin::GetActiveEdit()
 279 {
 280     if(nArgs>0 && nEdFocus!=NOT_FOUND)
 281     {
 282         return aArgInput[nEdFocus].GetArgEdPtr();
 283     }
 284     else
 285     {
 286         return NULL;
 287     }
 288 }
 289
 290
 291 OUString ParaWin::GetArgument(sal_uInt16 no)
 292 {
 293     OUString aStr;
 294     if(no<aParaArray.size())
 295     {
 296         aStr=aParaArray[no];
 297         if(no==nActiveLine && aStr.isEmpty())
 298             aStr += " ";
 299     }
 300     return aStr;
 301 }
 302
 303 OUString  ParaWin::GetActiveArgName()
 304 {
 305     OUString aStr;
 306     if(nArgs>0 && nEdFocus!=NOT_FOUND)
 307     {
 308         aStr=aArgInput[nEdFocus].GetArgName();
 309     }
 310     return aStr;
 311 }
 312
 313
 314 void ParaWin::SetArgument(sal_uInt16 no, const OUString& aString)
 315 {
 316     if (no < aParaArray.size())
 317         aParaArray[no] = comphelper::string::stripStart(aString, ' ');
 318 }
 319
 320 void ParaWin::DelParaArray()
 321 {
 322     ::std::vector<OUString>().swap(aParaArray);
 323 }
 324
 325 void ParaWin::SetArgumentFonts(const vcl::Font&aBoldFont,const vcl::Font&aLightFont)
 326 {
 327     aFntBold=aBoldFont;
 328     aFntLight=aLightFont;
 329 }
 330
 331 void ParaWin::SetFunctionDesc(const IFunctionDescription* pFDesc)
 332 {
 333     pFuncDesc=pFDesc;
 334
 335     SetArgumentDesc( OUString() );
 336     SetArgumentText( OUString() );
 337     SetEditDesc( OUString() );
 338     nArgs = 0;
 339     if ( pFuncDesc!=NULL)
 340     {
 341         if ( !pFuncDesc->getDescription().isEmpty() )
 342         {
 343             SetEditDesc(pFuncDesc->getDescription());
 344         }
 345         else
 346         {
 347             SetEditDesc(aDefaultString);
 348         }
 349         nArgs = pFuncDesc->getSuppressedArgumentCount();
 350         pFuncDesc->fillVisibleArgumentMapping(aVisibleArgMapping);
 351         m_pSlider->Hide();
 352         OString sHelpId = pFuncDesc->getHelpId();
 353         SetHelpId( sHelpId );
 354         m_pEdArg1->SetHelpId( sHelpId );
 355         m_pEdArg2->SetHelpId( sHelpId );
 356         m_pEdArg3->SetHelpId( sHelpId );
 357         m_pEdArg4->SetHelpId( sHelpId );
 358
 359         //  Unique-IDs muessen gleich bleiben fuer Automatisierung
 360         SetUniqueId( HID_FORMULA_FAP_PAGE );
 361         m_pEdArg1->SetUniqueId( HID_FORMULA_FAP_EDIT1 );
 362         m_pEdArg2->SetUniqueId( HID_FORMULA_FAP_EDIT2 );
 363         m_pEdArg3->SetUniqueId( HID_FORMULA_FAP_EDIT3 );
 364         m_pEdArg4->SetUniqueId( HID_FORMULA_FAP_EDIT4 );
 365         SetActiveLine(0);
 366     }
 367     else
 368     {
 369         nActiveLine=0;
 370     }
 371
 372 }
 373
 374 void ParaWin::SetArgumentText(const OUString& aText)
 375 {
 376     m_pFtArgName->SetText(aText);
 377 }
 378
 379 void ParaWin::SetArgumentDesc(const OUString& aText)
 380 {
 381     m_pFtArgDesc->SetText(aText);
 382 }
 383
 384 void ParaWin::SetEditDesc(const OUString& aText)
 385 {
 386     m_pFtEditDesc->SetText(aText);
 387 }
 388
 389 void ParaWin::SetArgName(sal_uInt16 no,const OUString& aText)
 390 {
 391     aArgInput[no].SetArgName(aText);
 392     aArgInput[no].UpdateAccessibleNames();
 393 }
 394
 395 void ParaWin::SetArgNameFont(sal_uInt16 no,const vcl::Font& aFont)
 396 {
 397     aArgInput[no].SetArgNameFont(aFont);
 398 }
 399
 400 void ParaWin::SetArgVal(sal_uInt16 no,const OUString& aText)
 401 {
 402     aArgInput[no].SetArgVal(aText);
 403 }
 404
 405 void ParaWin::HideParaLine(sal_uInt16 no)
 406 {
 407     aArgInput[no].Hide();
 408 }
 409
 410 void ParaWin::ShowParaLine(sal_uInt16 no)
 411 {
 412     aArgInput[no].Show();
 413 }
 414
 415 void ParaWin::SetEdFocus(sal_uInt16 no)
 416 {
 417     UpdateArgDesc(no);
 418     if(no<4 && no<aParaArray.size())
 419         aArgInput[no].GetArgEdPtr()->GrabFocus();
 420 }
 421
 422
 423 void ParaWin::InitArgInput( sal_uInt16 nPos, FixedText& rFtArg, PushButton& rBtnFx,
 424                         ArgEdit& rEdArg, RefButton& rRefBtn)
 425 {
 426
 427     rRefBtn.SetReferences(pMyParent, &rEdArg);
 428     rEdArg.SetReferences(pMyParent, &rFtArg);
 429
 430     aArgInput[nPos].InitArgInput (&rFtArg,&rBtnFx,&rEdArg,&rRefBtn);
 431
 432     aArgInput[nPos].Hide();
 433
 434     aArgInput[nPos].SetFxClickHdl   ( LINK( this, ParaWin, GetFxHdl ) );
 435     aArgInput[nPos].SetFxFocusHdl   ( LINK( this, ParaWin, GetFxFocusHdl ) );
 436     aArgInput[nPos].SetEdFocusHdl   ( LINK( this, ParaWin, GetEdFocusHdl ) );
 437     aArgInput[nPos].SetEdModifyHdl  ( LINK( this, ParaWin, ModifyHdl ) );
 438     aArgInput[nPos].UpdateAccessibleNames();
 439 }
 440
 441 void ParaWin::ClearAll()
 442 {
 443     SetFunctionDesc(NULL);
 444     SetArgumentOffset(0);
 445 }
 446
 447 void ParaWin::SetArgumentOffset(sal_uInt16 nOffset)
 448 {
 449     DelParaArray();
 450     m_pSlider->SetThumbPos(0);
 451
 452     aParaArray.resize(nArgs);
 453
 454     if ( nArgs > 0 )
 455     {
 456         for ( int i=0; i<4 && i<nArgs; i++ )
 457         {
 458             OUString aString;
 459             aArgInput[i].SetArgVal(aString);
 460             aArgInput[i].GetArgEdPtr()->Init(
 461                 (i==0)               ? (ArgEdit *)NULL : aArgInput[i-1].GetArgEdPtr(),
 462                 (i==3 || i==nArgs-1) ? (ArgEdit *)NULL : aArgInput[i+1].GetArgEdPtr(),
 463                                        *m_pSlider, nArgs );
 464         }
 465     }
 466
 467     if ( nArgs < 5 )
 468     {
 469         m_pSlider->Hide();
 470     }
 471     else
 472     {
 473         m_pSlider->SetPageSize( 4 );
 474         m_pSlider->SetVisibleSize( 4 );
 475         m_pSlider->SetLineSize( 1 );
 476         m_pSlider->SetRange( Range( 0, nArgs ) );
 477         m_pSlider->SetThumbPos( nOffset );
 478         m_pSlider->Show();
 479     }
 480
 481     UpdateParas();
 482 }
 483
 484 void ParaWin::UpdateParas()
 485 {
 486     sal_uInt16 i;
 487     sal_uInt16 nOffset = GetSliderPos();
 488
 489     if ( nArgs > 0 )
 490     {
 491         for ( i=0; (i<nArgs) && (i<4); i++ )
 492         {
 493             UpdateArgInput( nOffset, i );
 494             ShowParaLine(i);
 495         }
 496     }
 497
 498     for ( i=nArgs; i<4; i++ ) HideParaLine(i);
 499 }
 500
 501
 502 sal_uInt16 ParaWin::GetSliderPos()
 503 {
 504     return (sal_uInt16) m_pSlider->GetThumbPos();
 505 }
 506
 507 void ParaWin::SetSliderPos(sal_uInt16 nSliderPos)
 508 {
 509     sal_uInt16 nOffset = GetSliderPos();
 510
 511     if(m_pSlider->IsVisible() && nOffset!=nSliderPos)
 512     {
 513         m_pSlider->SetThumbPos(nSliderPos);
 514         for ( sal_uInt16 i=0; i<4; i++ )
 515         {
 516             UpdateArgInput( nSliderPos, i );
 517         }
 518     }
 519 }
 520
 521 void ParaWin::SliderMoved()
 522 {
 523     sal_uInt16 nOffset = GetSliderPos();
 524
 525     for ( sal_uInt16 i=0; i<4; i++ )
 526     {
 527         UpdateArgInput( nOffset, i );
 528     }
 529     if(nEdFocus!=NOT_FOUND)
 530     {
 531         UpdateArgDesc( nEdFocus );
 532         aArgInput[nEdFocus].SetArgSelection(Selection(0,SELECTION_MAX ));
 533         nActiveLine=nEdFocus+nOffset;
 534         ArgumentModified();
 535         aArgInput[nEdFocus].UpdateAccessibleNames();
 536     }
 537     aScrollLink.Call(this);
 538 }
 539
 540 void ParaWin::ArgumentModified()
 541 {
 542     aArgModifiedLink.Call(this);
 543 }
 544
 545 void ParaWin::FxClick()
 546 {
 547     aFxLink.Call(this);
 548 }
 549
 550
 551 IMPL_LINK( ParaWin, GetFxHdl, ArgInput*, pPtr )
 552 {
 553     sal_uInt16 nOffset = GetSliderPos();
 554     nEdFocus=NOT_FOUND;
 555     for (sal_uInt16 nPos=0; nPos < SAL_N_ELEMENTS(aArgInput); ++nPos)
 556     {
 557         if(pPtr == &aArgInput[nPos])
 558         {
 559             nEdFocus=nPos;
 560             break;
 561         }
 562     }
 563
 564     if(nEdFocus!=NOT_FOUND)
 565     {
 566         aArgInput[nEdFocus].SetArgSelection(Selection(0,SELECTION_MAX ));
 567         nActiveLine=nEdFocus+nOffset;
 568         FxClick();
 569     }
 570     return 0;
 571 }
 572
 573 IMPL_LINK( ParaWin, GetFxFocusHdl, ArgInput*, pPtr )
 574 {
 575     sal_uInt16 nOffset = GetSliderPos();
 576     nEdFocus=NOT_FOUND;
 577     for (sal_uInt16 nPos=0; nPos < SAL_N_ELEMENTS(aArgInput); ++nPos)
 578     {
 579         if(pPtr == &aArgInput[nPos])
 580         {
 581             nEdFocus=nPos;
 582             break;
 583         }
 584     }
 585
 586     if(nEdFocus!=NOT_FOUND)
 587     {
 588         aArgInput[nEdFocus].SetArgSelection(Selection(0,SELECTION_MAX ));
 589         UpdateArgDesc( nEdFocus );
 590         nActiveLine=nEdFocus+nOffset;
 591     }
 592     return 0;
 593 }
 594
 595
 596
 597 IMPL_LINK( ParaWin, GetEdFocusHdl, ArgInput*, pPtr )
 598 {
 599     sal_uInt16 nOffset = GetSliderPos();
 600     nEdFocus=NOT_FOUND;
 601     for (sal_uInt16 nPos=0; nPos < SAL_N_ELEMENTS(aArgInput); ++nPos)
 602     {
 603         if(pPtr == &aArgInput[nPos])
 604         {
 605             nEdFocus=nPos;
 606             break;
 607         }
 608     }
 609
 610     if(nEdFocus!=NOT_FOUND)
 611     {
 612         aArgInput[nEdFocus].SetArgSelection(Selection(0,SELECTION_MAX ));
 613         UpdateArgDesc( nEdFocus );
 614         nActiveLine=nEdFocus+nOffset;
 615         ArgumentModified();
 616         aArgInput[nEdFocus].UpdateAccessibleNames();
 617     }
 618
 619     return 0;
 620 }
 621
 622
 623 IMPL_LINK_NOARG(ParaWin, ScrollHdl)
 624 {
 625     SliderMoved();
 626
 627     return 0;
 628 }
 629
 630 IMPL_LINK( ParaWin, ModifyHdl, ArgInput*, pPtr )
 631 {
 632     sal_uInt16 nOffset = GetSliderPos();
 633     nEdFocus=NOT_FOUND;
 634     for (sal_uInt16 nPos=0; nPos < SAL_N_ELEMENTS(aArgInput); ++nPos)
 635     {
 636         if(pPtr == &aArgInput[nPos])
 637         {
 638             nEdFocus=nPos;
 639             break;
 640         }
 641     }
 642     if(nEdFocus!=NOT_FOUND)
 643     {
 644         aParaArray[nEdFocus+nOffset] = aArgInput[nEdFocus].GetArgVal();
 645         UpdateArgDesc( nEdFocus);
 646         nActiveLine=nEdFocus+nOffset;
 647     }
 648
 649     ArgumentModified();
 650     return 0;
 651 }
 652
 653
 654
 655 } // formula
 656
 657 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */