sc/source/ui/formdlg/dwfunctr.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 <editeng/editview.hxx>
  22 #include <sfx2/bindings.hxx>
  23 #include <sfx2/dispatch.hxx>
  24 #include <sfx2/objsh.hxx>
  25 #include <sfx2/viewsh.hxx>
  26
  27 #include "sc.hrc"
  28 #include "global.hxx"
  29 #include "scresid.hxx"
  30 #include "reffact.hxx"
  31 #include "document.hxx"
  32 #include "formulacell.hxx"
  33 #include "scmod.hxx"
  34 #include "inputhdl.hxx"
  35 #include "tabvwsh.hxx"
  36 #include "appoptio.hxx"
  37 #include "compiler.hxx"
  38
  39 #include "dwfunctr.hrc"
  40 #include "dwfunctr.hxx"
  41
  42 /*************************************************************************
  43 #*  Member:     ScFunctionWin
  44 #*------------------------------------------------------------------------
  45 #*
  46 #*  Klasse:     ScFunctionWin
  47 #*
  48 #*  Funktion:   Konstruktor der Klasse ScFunctionWin
  49 #*
  50 #*  Input:      Sfx- Verknuepfungen, Fenster, Resource
  51 #*
  52 #*  Output:     ---
  53 #*
  54 #************************************************************************/
  55
  56 ScFunctionWin::ScFunctionWin( SfxBindings* pBindingsP, vcl::Window* pParent, const ResId& rResId ) :
  57     vcl::Window(pParent, rResId),
  58     rBindings   ( *pBindingsP ),
  59     aIdle       ( "sc formdlg ScFunctionWin" ),
  60     aPrivatSplit    ( VclPtr<ScPrivatSplit>::Create( this, ResId( FT_SPLIT, *rResId.GetResMgr() ) ) ),
  61     aCatBox         ( VclPtr<ListBox>::Create( this, ResId( CB_CAT, *rResId.GetResMgr() ) ) ),
  62     aFuncList       ( VclPtr<ListBox>::Create( this, ResId( LB_FUNC, *rResId.GetResMgr() ) ) ),
  63     aDDFuncList     ( VclPtr<ListBox>::Create( this, ResId( DDLB_FUNC, *rResId.GetResMgr() ) ) ),
  64     aInsertButton   ( VclPtr<ImageButton>::Create( this, ResId( IMB_INSERT, *rResId.GetResMgr() ) ) ),
  65     aFiFuncDesc     ( VclPtr<FixedText>::Create( this, ResId( FI_FUNCDESC, *rResId.GetResMgr() ) ) ),
  66     aOldSize        (0,0),
  67     pFuncDesc       (nullptr)
  68 {
  69     FreeResource();
  70     InitLRUList();
  71     SetStyle(GetStyle()|WB_CLIPCHILDREN);
  72
  73     aIdle.SetPriority(SchedulerPriority::LOWER);
  74     aIdle.SetIdleHdl(LINK( this, ScFunctionWin, TimerHdl));
  75
  76     aFiFuncDesc->SetUpdateMode(true);
  77     pAllFuncList=aFuncList;
  78     aDDFuncList->Disable();
  79     aDDFuncList->Hide();
  80     nArgs=0;
  81     bSizeFlag=false;
  82     aCatBox->SetDropDownLineCount(9);
  83     vcl::Font aFont=aFiFuncDesc->GetFont();
  84     aFont.SetColor(Color(COL_BLACK));
  85     aFiFuncDesc->SetFont(aFont);
  86     aFiFuncDesc->SetBackground( GetBackground() );       //! never transparent?
  87
  88     Link<ListBox&,void> aLink=LINK( this, ScFunctionWin, SelHdl);
  89     aCatBox->SetSelectHdl(aLink);
  90     aFuncList->SetSelectHdl(aLink);
  91     aDDFuncList->SetSelectHdl(aLink);
  92
  93     aFuncList->SetDoubleClickHdl(LINK( this, ScFunctionWin, SetSelectionHdl));
  94     aDDFuncList->SetSelectHdl(aLink);
  95     aInsertButton->SetClickHdl(LINK( this, ScFunctionWin, SetSelectionClickHdl));
  96
  97     Link<ScPrivatSplit&,void> a3Link=LINK( this, ScFunctionWin, SetSplitHdl);
  98     aPrivatSplit->SetCtrModifiedHdl(a3Link);
  99     StartListening( rBindings, true );
 100
 101     Point aTopLeft=aCatBox->GetPosPixel();
 102     OUString aString("ww");
 103     Size aTxtSize( aFiFuncDesc->GetTextWidth(aString), aFiFuncDesc->GetTextHeight() );
 104     nMinWidth=aTxtSize.Width()+aTopLeft.X()
 105             +2*aFuncList->GetPosPixel().X();
 106     nMinHeight=19*aTxtSize.Height();
 107     aCatBox->SelectEntryPos(0);
 108
 109     Range aYRange(3*aTxtSize.Height()+aFuncList->GetPosPixel().Y(),
 110                 GetOutputSizePixel().Height()-2*aTxtSize.Height());
 111     aPrivatSplit->SetYRange(aYRange);
 112     SelHdl(*aCatBox.get());
 113 }
 114
 115 /*************************************************************************
 116 #*  Member:     ScFunctionWin
 117 #*------------------------------------------------------------------------
 118 #*
 119 #*  Klasse:     ScFunctionWin
 120 #*
 121 #*  Funktion:   Destruktor der Klasse ScFunctionWin
 122 #*
 123 #*  Input:      ---
 124 #*
 125 #*  Output:     ---
 126 #*
 127 #************************************************************************/
 128
 129 ScFunctionWin::~ScFunctionWin()
 130 {
 131     disposeOnce();
 132 }
 133
 134 void ScFunctionWin::dispose()
 135 {
 136     EndListening( rBindings );
 137     aPrivatSplit.disposeAndClear();
 138     aCatBox.disposeAndClear();
 139     aFuncList.disposeAndClear();
 140     aDDFuncList.disposeAndClear();
 141     aInsertButton.disposeAndClear();
 142     aFiFuncDesc.disposeAndClear();
 143     pAllFuncList.clear();
 144     vcl::Window::dispose();
 145 }
 146
 147 /*************************************************************************
 148 #*  Member:     UpdateFunctionList
 149 #*------------------------------------------------------------------------
 150 #*
 151 #*  Klasse:     ScFunctionWin
 152 #*
 153 #*  Funktion:   Aktualisiert die Liste der Funktionen ab-
 154 #*              haengig von der eingestellten Kategorie.
 155 #*
 156 #*  Input:      ---
 157 #*
 158 #*  Output:     ---
 159 #*
 160 #************************************************************************/
 161
 162 void ScFunctionWin::InitLRUList()
 163 {
 164     ScFunctionMgr* pFuncMgr = ScGlobal::GetStarCalcFunctionMgr();
 165     pFuncMgr->fillLastRecentlyUsedFunctions(aLRUList);
 166
 167     sal_Int32  nSelPos   = aCatBox->GetSelectEntryPos();
 168
 169     if(nSelPos == 0)
 170         UpdateFunctionList();
 171 }
 172
 173 /*************************************************************************
 174 #*  Member:     UpdateFunctionList
 175 #*------------------------------------------------------------------------
 176 #*
 177 #*  Klasse:     ScFunctionWin
 178 #*
 179 #*  Funktion:   Aktualisiert die Liste der zuletzt verwendeten Funktionen.
 180 #*
 181 #*  Input:      ---
 182 #*
 183 #*  Output:     ---
 184 #*
 185 #************************************************************************/
 186
 187 void ScFunctionWin::UpdateLRUList()
 188 {
 189     if (pFuncDesc && pFuncDesc->nFIndex!=0)
 190     {
 191         ScModule* pScMod = SC_MOD();
 192         pScMod->InsertEntryToLRUList(pFuncDesc->nFIndex);
 193     }
 194 }
 195
 196 /*************************************************************************
 197 #*  Member:     SetSize
 198 #*------------------------------------------------------------------------
 199 #*
 200 #*  Klasse:     ScFunctionWin
 201 #*
 202 #*  Funktion:   Groesse fuer die einzelnen Controls einzustellen.
 203 #*
 204 #*  Input:      ---
 205 #*
 206 #*  Output:     ---
 207 #*
 208 #************************************************************************/
 209
 210 void ScFunctionWin::SetSize()
 211 {
 212     SetLeftRightSize();
 213 }
 214
 215 /*************************************************************************
 216 #*  Member:     SetLeftRightSize
 217 #*------------------------------------------------------------------------
 218 #*
 219 #*  Klasse:     ScFunctionWin
 220 #*
 221 #*  Funktion:   Groesse fuer die einzelnen Controls einstellen,
 222 #*              wenn Links oder Rechts angedockt wird.
 223 #*
 224 #*  Input:      ---
 225 #*
 226 #*  Output:     ---
 227 #*
 228 #************************************************************************/
 229
 230 void ScFunctionWin::SetLeftRightSize()
 231 {
 232     if(!bSizeFlag)
 233     {
 234         bSizeFlag = true;
 235
 236         Size aDiffSize=GetSizePixel();
 237         Size aNewSize=GetOutputSizePixel();
 238         aDiffSize.Width()-=aNewSize.Width();
 239         aDiffSize.Height()-=aNewSize.Height();
 240
 241         OUString aString("ww");
 242         Size aTxtSize( aFuncList->GetTextWidth(aString), aFuncList->GetTextHeight() );
 243
 244         Range aYRange(3*aTxtSize.Height()+aFuncList->GetPosPixel().Y(),
 245                     GetOutputSizePixel().Height()-2*aTxtSize.Height());
 246         aPrivatSplit->SetYRange(aYRange);
 247
 248         if(aOldSize.Width()!=aNewSize.Width())
 249             SetMyWidthLeRi(aNewSize);
 250
 251         if(aOldSize.Height()!=aNewSize.Height())
 252             SetMyHeightLeRi(aNewSize);
 253
 254         aOldSize=aNewSize;
 255         aNewSize.Width()+=aDiffSize.Width();
 256         aNewSize.Height()+=aDiffSize.Height();
 257         bSizeFlag=false;
 258     }
 259
 260 }
 261
 262 /*************************************************************************
 263 #*  Member:     SetMyWidthLeRi
 264 #*------------------------------------------------------------------------
 265 #*
 266 #*  Klasse:     ScFunctionWin
 267 #*
 268 #*  Funktion:   Breite fuer die einzelnen Controls und
 269 #*              das Fenster einstellen,wenn Li oder Re
 270 #*
 271 #*  Input:      neue Fenstergroesse
 272 #*
 273 #*  Output:     ---
 274 #*
 275 #************************************************************************/
 276
 277 void ScFunctionWin::SetMyWidthLeRi(Size &aNewSize)
 278 {
 279     if((sal_uLong)aNewSize.Width()<nMinWidth)   aNewSize.Width()=nMinWidth;
 280
 281     Size aCDSize=aCatBox->GetSizePixel();
 282     Size aFLSize=aFuncList->GetSizePixel();
 283     Size aSplitterSize=aPrivatSplit->GetSizePixel();
 284     Size aFDSize=aFiFuncDesc->GetSizePixel();
 285
 286     Point aCDTopLeft=aCatBox->GetPosPixel();
 287     Point aFLTopLeft=aFuncList->GetPosPixel();
 288
 289     aCDSize.Width()=aNewSize.Width()-aCDTopLeft.X()-aFLTopLeft.X();
 290     aFLSize.Width()=aNewSize.Width()-2*aFLTopLeft.X();
 291     aFDSize.Width()=aFLSize.Width();
 292     aSplitterSize.Width()=aFLSize.Width();
 293
 294     aCatBox->SetSizePixel(aCDSize);
 295     aFuncList->SetSizePixel(aFLSize);
 296     aPrivatSplit->SetSizePixel(aSplitterSize);
 297     aFiFuncDesc->SetSizePixel(aFDSize);
 298 }
 299
 300 /*************************************************************************
 301 #*  Member:     SetHeight
 302 #*------------------------------------------------------------------------
 303 #*
 304 #*  Klasse:     ScFunctionWin
 305 #*
 306 #*  Funktion:   Hoehe fuer die einzelnen Controls und
 307 #*              das Fenster einstellen bei Li oder Re
 308 #*
 309 #*  Input:      neue Fenstergroesse
 310 #*
 311 #*  Output:     ---
 312 #*
 313 #************************************************************************/
 314
 315 void ScFunctionWin::SetMyHeightLeRi(Size &aNewSize)
 316 {
 317     if((sal_uLong)aNewSize.Height()<nMinHeight) aNewSize.Height()=nMinHeight;
 318
 319     Size aFLSize=aFuncList->GetSizePixel();
 320     Size aSplitterSize=aPrivatSplit->GetSizePixel();
 321     Size aFDSize=aFiFuncDesc->GetSizePixel();
 322
 323     Point aFLTopLeft=aFuncList->GetPosPixel();
 324     Point aSplitterTopLeft=aPrivatSplit->GetPosPixel();
 325     Point aFDTopLeft=aFiFuncDesc->GetPosPixel();
 326
 327     long nTxtHeight = aFuncList->GetTextHeight();
 328
 329     short nY=(short)(3*nTxtHeight+
 330         aFuncList->GetPosPixel().Y()+aSplitterSize.Height());
 331
 332     aFDTopLeft.Y()=aNewSize.Height()-aFDSize.Height()-4;
 333     if(nY>aFDTopLeft.Y())
 334     {
 335         aFDSize.Height()-=nY-aFDTopLeft.Y();
 336         aFDTopLeft.Y()=nY;
 337     }
 338     aSplitterTopLeft.Y()=aFDTopLeft.Y()-aSplitterSize.Height()-1;
 339     aFLSize.Height()=aSplitterTopLeft.Y()-aFLTopLeft.Y()-1;
 340
 341     aFuncList->SetSizePixel(aFLSize);
 342     aPrivatSplit->SetPosPixel(aSplitterTopLeft);
 343     aFiFuncDesc->SetPosPixel(aFDTopLeft);
 344     aFiFuncDesc->SetSizePixel(aFDSize);
 345
 346 }
 347
 348 /*************************************************************************
 349 #*  Member:     SetDescription
 350 #*------------------------------------------------------------------------
 351 #*
 352 #*  Klasse:     ScFunctionWin
 353 #*
 354 #*  Funktion:   Erklaerungstext fuer die Funktion einstellen.
 355 #*
 356 #*  Input:      ---
 357 #*
 358 #*  Output:     ---
 359 #*
 360 #************************************************************************/
 361
 362 void ScFunctionWin::SetDescription()
 363 {
 364     aFiFuncDesc->SetText( EMPTY_OUSTRING );
 365     const ScFuncDesc* pDesc =
 366              static_cast<const ScFuncDesc*>(pAllFuncList->GetEntryData(
 367                     pAllFuncList->GetSelectEntryPos() ));
 368     if (pDesc)
 369     {
 370         pDesc->initArgumentInfo();      // full argument info is needed
 371
 372         OUStringBuffer aBuf(pAllFuncList->GetSelectEntry());
 373         aBuf.append(":\n\n");
 374         aBuf.append(pDesc->GetParamList());
 375         aBuf.append("\n\n");
 376         aBuf.append(*pDesc->pFuncDesc);
 377
 378         aFiFuncDesc->SetText(aBuf.makeStringAndClear());
 379         aFiFuncDesc->StateChanged(StateChangedType::Text);
 380         aFiFuncDesc->Invalidate();
 381         aFiFuncDesc->Update();
 382
 383     }
 384  }
 385
 386 /*************************************************************************
 387 #*  Member:     Close
 388 #*------------------------------------------------------------------------
 389 #*
 390 #*  Klasse:     ScFunctionWin
 391 #*
 392 #*  Funktion:   Aenderungen erkennen
 393 #*
 394 #*  Input:      ---
 395 #*
 396 #*  Output:     TRUE
 397 #*
 398 #************************************************************************/
 399 void ScFunctionWin::Notify( SfxBroadcaster&, const SfxHint& /* rHint */ )
 400 {
 401 }
 402
 403 /// override to set new size of the controls
 404 void ScFunctionWin::Resize()
 405 {
 406     SetSize();
 407     vcl::Window::Resize();
 408 }
 409
 410 /*************************************************************************
 411 #*  Member:     UpdateFunctionList
 412 #*------------------------------------------------------------------------
 413 #*
 414 #*  Klasse:     ScFunctionWin
 415 #*
 416 #*  Funktion:   Aktualisiert die Liste der Funktionen ab-
 417 #*              haengig von der eingestellten Kategorie.
 418 #*
 419 #*  Input:      ---
 420 #*
 421 #*  Output:     ---
 422 #*
 423 #************************************************************************/
 424
 425 void ScFunctionWin::UpdateFunctionList()
 426 {
 427     sal_Int32  nSelPos   = aCatBox->GetSelectEntryPos();
 428     sal_Int32  nCategory = ( LISTBOX_ENTRY_NOTFOUND != nSelPos )
 429                             ? (nSelPos-1) : 0;
 430
 431     pAllFuncList->Clear();
 432     pAllFuncList->SetUpdateMode( false );
 433
 434     if ( nSelPos > 0 )
 435     {
 436         ScFunctionMgr* pFuncMgr = ScGlobal::GetStarCalcFunctionMgr();
 437
 438         const ScFuncDesc* pDesc = pFuncMgr->First( nCategory );
 439         while ( pDesc )
 440         {
 441             pAllFuncList->SetEntryData(
 442                 pAllFuncList->InsertEntry( *(pDesc->pFuncName) ),
 443                 const_cast<ScFuncDesc *>(pDesc) );
 444             pDesc = pFuncMgr->Next();
 445         }
 446     }
 447     else // LRU-Liste
 448     {
 449         for (::std::vector<const formula::IFunctionDescription*>::iterator iter=aLRUList.begin();
 450                 iter != aLRUList.end(); ++iter)
 451         {
 452             const formula::IFunctionDescription* pDesc = *iter;
 453             if (pDesc)
 454                 pAllFuncList->SetEntryData( pAllFuncList->InsertEntry( pDesc->getFunctionName()), const_cast<formula::IFunctionDescription *>(pDesc));
 455         }
 456     }
 457
 458     pAllFuncList->SetUpdateMode( true );
 459
 460     if ( pAllFuncList->GetEntryCount() > 0 )
 461     {
 462         pAllFuncList->Enable();
 463         pAllFuncList->SelectEntryPos( 0 );
 464     }
 465     else
 466     {
 467         pAllFuncList->Disable();
 468     }
 469 }
 470
 471 /*************************************************************************
 472 #*  Member:     DoEnter
 473 #*------------------------------------------------------------------------
 474 #*
 475 #*  Klasse:     ScFunctionWin
 476 #*
 477 #*  Funktion:   Eingabe ins Dokument uebernehmen. Wird aufgerufen
 478 #*              nach betaetigen der Uebernehmen- Schaltflaeche
 479 #*              oder einem Doppelklick in die Funktionsliste.
 480 #*
 481 #*  Input:      ---
 482 #*
 483 #*  Output:     ---
 484 #*
 485 #************************************************************************/
 486
 487 void ScFunctionWin::DoEnter()
 488 {
 489     OUString aFirstArgStr;
 490     OUString aArgStr;
 491     OUString aString=pAllFuncList->GetSelectEntry();
 492     SfxViewShell* pCurSh = SfxViewShell::Current();
 493     nArgs=0;
 494
 495     if(!aString.isEmpty())
 496     {
 497
 498         ScModule* pScMod = SC_MOD();
 499         ScTabViewShell* pViewSh = dynamic_cast<ScTabViewShell*>( pCurSh );
 500         ScInputHandler* pHdl = pScMod->GetInputHdl( pViewSh );
 501         if(!pScMod->IsEditMode())
 502         {
 503             pScMod->SetInputMode(SC_INPUT_TABLE);
 504             // the above call can result in us being disposed
 505             if (OutputDevice::isDisposed())
 506                 return;
 507             aString = "=";
 508             aString += pAllFuncList->GetSelectEntry();
 509             if (pHdl)
 510                 pHdl->ClearText();
 511         }
 512         const ScFuncDesc* pDesc =
 513              static_cast<const ScFuncDesc*>(pAllFuncList->GetEntryData(
 514                     pAllFuncList->GetSelectEntryPos() ));
 515         if (pDesc)
 516         {
 517             pFuncDesc=pDesc;
 518             UpdateLRUList();
 519             nArgs = pDesc->nArgCount;
 520             if(nArgs>0)
 521             {
 522                 // NOTE: Theoretically the first parameter could have the
 523                 // suppress flag as well, but practically it doesn't.
 524                 aFirstArgStr = pDesc->maDefArgNames[0];
 525                 aFirstArgStr = comphelper::string::strip(aFirstArgStr, ' ');
 526                 aFirstArgStr = aFirstArgStr.replaceAll(" ", "_");
 527                 aArgStr = aFirstArgStr;
 528                 if ( nArgs != VAR_ARGS && nArgs != PAIRED_VAR_ARGS )
 529                 {   // no VarArgs or Fix plus VarArgs, but not VarArgs only
 530                     OUString aArgSep("; ");
 531                     sal_uInt16 nFix;
 532                     if (nArgs >= PAIRED_VAR_ARGS)
 533                         nFix = nArgs - PAIRED_VAR_ARGS + 2;
 534                     else if (nArgs >= VAR_ARGS)
 535                         nFix = nArgs - VAR_ARGS + 1;
 536                     else
 537                         nFix = nArgs;
 538                     for ( sal_uInt16 nArg = 1;
 539                             nArg < nFix && !pDesc->pDefArgFlags[nArg].bOptional; nArg++ )
 540                     {
 541                         if (!pDesc->pDefArgFlags[nArg].bSuppress)
 542                         {
 543                             aArgStr += aArgSep;
 544                             OUString sTmp = pDesc->maDefArgNames[nArg];
 545                             sTmp = comphelper::string::strip(sTmp, ' ');
 546                             sTmp = sTmp.replaceAll(" ", "_");
 547                             aArgStr += sTmp;
 548                         }
 549                     }
 550                 }
 551             }
 552         }
 553         if (pHdl)
 554         {
 555             if (pHdl->GetEditString().isEmpty())
 556             {
 557                 aString = "=";
 558                 aString += pAllFuncList->GetSelectEntry();
 559             }
 560             EditView *pEdView=pHdl->GetActiveView();
 561             if(pEdView!=nullptr) // @ Wegen Absturz bei Namen festlegen
 562             {
 563                 if(nArgs>0)
 564                 {
 565                     pHdl->InsertFunction(aString);
 566                     pEdView->InsertText(aArgStr,true);
 567                     ESelection  aESel=pEdView->GetSelection();
 568                     aESel.nEndPos = aESel.nStartPos + aFirstArgStr.getLength();
 569                     pEdView->SetSelection(aESel);
 570                     pHdl->DataChanged();
 571                 }
 572                 else
 573                 {
 574                     aString += "()";
 575                     pEdView->InsertText(aString);
 576                     pHdl->DataChanged();
 577                 }
 578             }
 579         }
 580         InitLRUList();
 581     }
 582     if ( pCurSh )
 583     {
 584         vcl::Window* pShellWnd = pCurSh->GetWindow();
 585
 586         if ( pShellWnd )
 587             pShellWnd->GrabFocus();
 588     }
 589
 590 }
 591
 592 /*************************************************************************
 593 #*  Handle:     SelHdl
 594 #*------------------------------------------------------------------------
 595 #*
 596 #*  Klasse:     ScFunctionWin
 597 #*
 598 #*  Funktion:   Bei einer Aenderung der Kategorie wird die
 599 #*              die Liste der Funktionen aktualisiert.
 600 #*
 601 #*  Input:      ---
 602 #*
 603 #*  Output:     ---
 604 #*
 605 #************************************************************************/
 606
 607 IMPL_LINK_TYPED( ScFunctionWin, SelHdl, ListBox&, rLb, void )
 608 {
 609     if ( &rLb == aCatBox.get() )
 610     {
 611         UpdateFunctionList();
 612         SetDescription();
 613     }
 614
 615     if ( &rLb == aFuncList.get() || &rLb == aDDFuncList.get() )
 616     {
 617         SetDescription();
 618     }
 619 }
 620
 621 /*************************************************************************
 622 #*  Handle:     SelHdl
 623 #*------------------------------------------------------------------------
 624 #*
 625 #*  Klasse:     ScFunctionWin
 626 #*
 627 #*  Funktion:   Bei einer Aenderung der Kategorie wird die
 628 #*              die Liste der Funktionen aktualisiert.
 629 #*
 630 #*  Input:      ---
 631 #*
 632 #*  Output:     ---
 633 #*
 634 #************************************************************************/
 635
 636 IMPL_LINK_NOARG_TYPED( ScFunctionWin, SetSelectionClickHdl, Button*, void )
 637 {
 638     DoEnter();          // Uebernimmt die Eingabe
 639 }
 640 IMPL_LINK_NOARG_TYPED( ScFunctionWin, SetSelectionHdl, ListBox&, void )
 641 {
 642     DoEnter();          // Uebernimmt die Eingabe
 643 }
 644
 645 /*************************************************************************
 646 #*  Handle:     SetSplitHdl
 647 #*------------------------------------------------------------------------
 648 #*
 649 #*  Klasse:     ScFunctionWin
 650 #*
 651 #*  Funktion:   Bei einer Aenderung des Split- Controls werden die
 652 #*              einzelnen Controls an die neue Groesse angepasst.
 653 #*
 654 #*  Input:      Zeiger auf Control
 655 #*
 656 #*  Output:     ---
 657 #*
 658 #************************************************************************/
 659
 660 IMPL_LINK_TYPED( ScFunctionWin, SetSplitHdl, ScPrivatSplit&, rCtrl, void )
 661 {
 662     if (&rCtrl == aPrivatSplit.get())
 663     {
 664         short nDeltaY=aPrivatSplit->GetDeltaY();
 665         Size aFLSize=aFuncList->GetSizePixel();
 666         Size aFDSize=aFiFuncDesc->GetSizePixel();
 667         Point aFDTopLeft=aFiFuncDesc->GetPosPixel();
 668
 669         aFLSize.Height()+=nDeltaY;
 670         aFDSize.Height()-=nDeltaY;
 671         aFDTopLeft.Y()+=nDeltaY;
 672         aFuncList->SetSizePixel(aFLSize);
 673         aFiFuncDesc->SetPosPixel(aFDTopLeft);
 674         aFiFuncDesc->SetSizePixel(aFDSize);
 675     }
 676 }
 677
 678 IMPL_LINK_NOARG_TYPED(ScFunctionWin, TimerHdl, Idle *, void)
 679 {
 680     OUString aString("ww");
 681     Size aTxtSize( aFiFuncDesc->GetTextWidth(aString), aFiFuncDesc->GetTextHeight() );
 682     Point aTopLeft=aCatBox->GetPosPixel();
 683     nMinWidth=aTxtSize.Width()+aTopLeft.X() +2*aFuncList->GetPosPixel().X();
 684     nMinHeight=19*aTxtSize.Height();
 685     SetSize();
 686 }
 687
 688 void ScFunctionWin::UseSplitterInitPos()
 689 {
 690     if ( IsVisible() && aPrivatSplit->IsEnabled() && aSplitterInitPos != Point() )
 691     {
 692         aPrivatSplit->MoveSplitTo(aSplitterInitPos);
 693         aSplitterInitPos = Point();     // use only once
 694     }
 695 }
 696
 697 void ScFunctionWin::StateChanged( StateChangedType nStateChange )
 698 {
 699     vcl::Window::StateChanged( nStateChange );
 700
 701     if (nStateChange == StateChangedType::InitShow)
 702     {
 703         UseSplitterInitPos();           //  set initial splitter position if necessary
 704     }
 705 }
 706
 707 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */