formula/source/ui/dlg/funcutl.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 <vcl/builder.hxx>
  21 #include <vcl/svapp.hxx>
  22 #include <vcl/scrbar.hxx>
  23
  24 #include "formula/funcutl.hxx"
  25 #include "formula/IControlReferenceHandler.hxx"
  26 #include "ControlHelper.hxx"
  27 #include "ModuleHelper.hxx"
  28 #include "ForResId.hrc"
  29
  30
  31 namespace formula
  32 {
  33 //============================================================================
  34 // class ValWnd
  35 //----------------------------------------------------------------------------
  36
  37 ValWnd::ValWnd( Window* pParent, const ResId& rId ) : Window( pParent, rId )
  38 {
  39     Font aFnt( GetFont() );
  40     aFnt.SetTransparent( sal_True );
  41     aFnt.SetWeight( WEIGHT_LIGHT );
  42     if ( pParent->IsBackground() )
  43     {
  44         Wallpaper aBack = pParent->GetBackground();
  45         SetFillColor( aBack.GetColor() );
  46         SetBackground( aBack );
  47         aFnt.SetFillColor( aBack.GetColor() );
  48     }
  49     else
  50     {
  51         SetFillColor();
  52         SetBackground();
  53     }
  54     SetFont( aFnt );
  55     SetLineColor();
  56
  57     Size aSzWnd  = GetOutputSizePixel();
  58     long nHeight = GetTextHeight();
  59     long nDiff   = aSzWnd.Height()-nHeight;
  60
  61     aRectOut = Rectangle( Point( 1, ( nDiff<2 ) ? 1 : nDiff/2),
  62                           Size ( aSzWnd.Width()-2, nHeight ) );
  63     SetClipRegion( Region( aRectOut ) );
  64 }
  65
  66 //----------------------------------------------------------------------------
  67
  68 void ValWnd::Paint( const Rectangle& )
  69 {
  70     DrawText( aRectOut.TopLeft(), aStrValue );
  71 }
  72
  73 //----------------------------------------------------------------------------
  74
  75 void ValWnd::SetValue( const String& rStrVal )
  76 {
  77     if ( aStrValue != rStrVal )
  78     {
  79         aStrValue = rStrVal;
  80         DrawRect( aRectOut );   // alten Text loeschen
  81         Paint( aRectOut );      // and neu malen
  82     }
  83 }
  84
  85 //============================================================================
  86 // class ArgEdit
  87 //----------------------------------------------------------------------------
  88
  89 ArgEdit::ArgEdit( Window* pParent, const ResId& rResId )
  90     :   RefEdit( pParent, NULL, NULL, rResId ),
  91         pEdPrev ( NULL ),
  92         pEdNext ( NULL ),
  93         pSlider ( NULL ),
  94         nArgs   ( 0 )
  95 {
  96 }
  97
  98 //----------------------------------------------------------------------------
  99
 100 void ArgEdit::Init( ArgEdit* pPrevEdit, ArgEdit* pNextEdit,
 101                     ScrollBar& rArgSlider, sal_uInt16 nArgCount )
 102 {
 103     pEdPrev = pPrevEdit;
 104     pEdNext = pNextEdit;
 105     pSlider = &rArgSlider;
 106     nArgs   = nArgCount;
 107 }
 108
 109 //----------------------------------------------------------------------------
 110
 111 // Cursor control for Edit Fields in Argument Dialog
 112
 113 void ArgEdit::KeyInput( const KeyEvent& rKEvt )
 114 {
 115     KeyCode     aCode   = rKEvt.GetKeyCode();
 116     sal_Bool        bUp     = (aCode.GetCode() == KEY_UP);
 117     sal_Bool        bDown   = (aCode.GetCode() == KEY_DOWN);
 118
 119     if (   pSlider
 120         && ( !aCode.IsShift() && !aCode.IsMod1() && !aCode.IsMod2() )
 121         && ( bUp || bDown ) )
 122     {
 123         if ( nArgs > 1 )
 124         {
 125             ArgEdit* pEd = NULL;
 126             long nThumb = pSlider->GetThumbPos();
 127             sal_Bool bDoScroll = sal_False;
 128             sal_Bool bChangeFocus = sal_False;
 129
 130             if ( bDown )
 131             {
 132                 if ( nArgs > 4 )
 133                 {
 134                     if ( !pEdNext )
 135                     {
 136                         nThumb++;
 137                         bDoScroll = ( nThumb+3 < (long)nArgs );
 138                     }
 139                     else
 140                     {
 141                         pEd = pEdNext;
 142                         bChangeFocus = sal_True;
 143                     }
 144                 }
 145                 else if ( pEdNext )
 146                 {
 147                     pEd = pEdNext;
 148                     bChangeFocus = sal_True;
 149                 }
 150             }
 151             else // if ( bUp )
 152             {
 153                 if ( nArgs > 4 )
 154                 {
 155                     if ( !pEdPrev )
 156                     {
 157                         nThumb--;
 158                         bDoScroll = ( nThumb >= 0 );
 159                     }
 160                     else
 161                     {
 162                         pEd = pEdPrev;
 163                         bChangeFocus = sal_True;
 164                     }
 165                 }
 166                 else if ( pEdPrev )
 167                 {
 168                     pEd = pEdPrev;
 169                     bChangeFocus = sal_True;
 170                 }
 171             }
 172
 173             if ( bDoScroll )
 174             {
 175                 pSlider->SetThumbPos( nThumb );
 176                 ((Link&)pSlider->GetEndScrollHdl()).Call( pSlider );
 177             }
 178             else if ( bChangeFocus )
 179             {
 180                 pEd->GrabFocus();
 181             }
 182         }
 183     }
 184     else
 185         RefEdit::KeyInput( rKEvt );
 186 }
 187
 188
 189
 190
 191 /*************************************************************************
 192 #*  Member:     ArgInput                                    Date:13.01.97
 193 #*------------------------------------------------------------------------
 194 #*
 195 #*  Class:      ArgInput
 196 #*
 197 #*  Function:   ArgInput class constructor
 198 #*
 199 #*  Input:      ---
 200 #*
 201 #*  Output:     ---
 202 #*
 203 #************************************************************************/
 204
 205 ArgInput::ArgInput()
 206 {
 207     pFtArg=NULL;
 208     pBtnFx=NULL;
 209     pEdArg=NULL;
 210     pRefBtn=NULL;
 211 }
 212
 213 /*************************************************************************
 214 #*  Member:     InitArgInput                                Date:13.01.97
 215 #*------------------------------------------------------------------------
 216 #*
 217 #*  Class:      ArgInput
 218 #*
 219 #*  Function:   Initializes the class' Pointer
 220 #*
 221 #*  Input:      ---
 222 #*
 223 #*  Output:     ---
 224 #*
 225 #************************************************************************/
 226
 227 void ArgInput::InitArgInput(FixedText*      pftArg,
 228                             ImageButton*    pbtnFx,
 229                             ArgEdit*        pedArg,
 230                             RefButton*  prefBtn)
 231 {
 232     pFtArg =pftArg;
 233     pBtnFx =pbtnFx;
 234     pEdArg =pedArg;
 235     pRefBtn=prefBtn;
 236
 237     if(pBtnFx!=NULL)
 238     {
 239         pBtnFx->SetClickHdl   ( LINK( this, ArgInput, FxBtnClickHdl ) );
 240         pBtnFx->SetGetFocusHdl( LINK( this, ArgInput, FxBtnFocusHdl ) );
 241     }
 242     if(pRefBtn!=NULL)
 243     {
 244         pRefBtn->SetClickHdl   ( LINK( this, ArgInput, RefBtnClickHdl ) );
 245         pRefBtn->SetGetFocusHdl( LINK( this, ArgInput, RefBtnFocusHdl ) );
 246     }
 247     if(pEdArg!=NULL)
 248     {
 249         pEdArg->SetGetFocusHdl ( LINK( this, ArgInput, EdFocusHdl ) );
 250         pEdArg->SetModifyHdl   ( LINK( this, ArgInput, EdModifyHdl ) );
 251     }
 252
 253 }
 254
 255 /*************************************************************************
 256 #*  Member:     SetArgName                                  Date:13.01.97
 257 #*------------------------------------------------------------------------
 258 #*
 259 #*  Class:      ArgInput
 260 #*
 261 #*  Function:   Sets the Name for the Argument
 262 #*
 263 #*  Input:      String
 264 #*
 265 #*  Output:     ---
 266 #*
 267 #************************************************************************/
 268 void ArgInput::SetArgName(const String &aArg)
 269 {
 270     if(pFtArg !=NULL) pFtArg->SetText(aArg );
 271 }
 272
 273 /*************************************************************************
 274 #*  Member:     GetArgName                                  Date:06.02.97
 275 #*------------------------------------------------------------------------
 276 #*
 277 #*  Class:      ArgInput
 278 #*
 279 #*  Function:   Returns the Name for the Argument
 280 #*
 281 #*  Input:      String
 282 #*
 283 #*  Output:     ---
 284 #*
 285 #************************************************************************/
 286 String ArgInput::GetArgName()
 287 {
 288     String aPrivArgName;
 289     if(pFtArg !=NULL)
 290         aPrivArgName=pFtArg->GetText();
 291
 292     return aPrivArgName;
 293 }
 294
 295 /*************************************************************************
 296 #*  Member:     SetArgName                                  Date:13.01.97
 297 #*------------------------------------------------------------------------
 298 #*
 299 #*  Class:      ArgInput
 300 #*
 301 #*  Function:   Sets the Name for the Argument
 302 #*
 303 #*  Input:      String
 304 #*
 305 #*  Output:     ---
 306 #*
 307 #************************************************************************/
 308 void ArgInput::SetArgNameFont   (const Font &aFont)
 309 {
 310     if(pFtArg !=NULL) pFtArg->SetFont(aFont);
 311 }
 312
 313 /*************************************************************************
 314 #*  Member:     SetArgSelection                             Date:13.01.97
 315 #*------------------------------------------------------------------------
 316 #*
 317 #*  Class:      ArgInput
 318 #*
 319 #*  Function:   Sets up the Selection for the EditBox.
 320 #*
 321 #*  Input:      String
 322 #*
 323 #*  Output:     ---
 324 #*
 325 #************************************************************************/
 326 void ArgInput::SetArgSelection  (const Selection& rSel )
 327 {
 328     if(pEdArg !=NULL) pEdArg ->SetSelection(rSel );
 329 }
 330
 331
 332 /*************************************************************************
 333 #*  Member:     SetArgVal                                   Date:13.01.97
 334 #*------------------------------------------------------------------------
 335 #*
 336 #*  Class:      ArgInput
 337 #*
 338 #*  Function:   Sets the Value for the Argument
 339 #*
 340 #*  Input:      String
 341 #*
 342 #*  Output:     ---
 343 #*
 344 #************************************************************************/
 345 void ArgInput::SetArgVal(const String &aVal)
 346 {
 347     if(pEdArg !=NULL)
 348     {
 349         pEdArg ->SetRefString(aVal );
 350     }
 351 }
 352
 353 /*************************************************************************
 354 #*  Member:     SetArgName                                  Date:13.01.97
 355 #*------------------------------------------------------------------------
 356 #*
 357 #*  Class:      ArgInput
 358 #*
 359 #*  Function:   Returns the Value for the Argument
 360 #*
 361 #*  Input:      ---
 362 #*
 363 #*  Output:     String
 364 #*
 365 #************************************************************************/
 366 String ArgInput::GetArgVal()
 367 {
 368     String aResult;
 369     if(pEdArg!=NULL)
 370     {
 371         aResult=pEdArg->GetText();
 372     }
 373     return aResult;
 374 }
 375
 376 /*************************************************************************
 377 #*  Member:     SetArgName                                  Date:13.01.97
 378 #*------------------------------------------------------------------------
 379 #*
 380 #*  Class:      ArgInput
 381 #*
 382 #*  Function:   Hides the Controls
 383 #*
 384 #*  Input:      ---
 385 #*
 386 #*  Output:     ---
 387 #*
 388 #************************************************************************/
 389 void ArgInput::Hide()
 390 {
 391     if ( pFtArg && pBtnFx && pEdArg && pRefBtn)
 392     {
 393         pFtArg->Hide();
 394         pBtnFx->Hide();
 395         pEdArg->Hide();
 396         pRefBtn->Hide();
 397     }
 398 }
 399
 400 /*************************************************************************
 401 #*  Member:     SetArgName                                  Date:13.01.97
 402 #*------------------------------------------------------------------------
 403 #*
 404 #*  Class:      ArgInput
 405 #*
 406 #*  Function:   Casts the Controls again.
 407 #*
 408 #*  Input:      ---
 409 #*
 410 #*  Output:     ---
 411 #*
 412 #************************************************************************/
 413 void ArgInput::Show()
 414 {
 415     if ( pFtArg && pBtnFx && pEdArg && pRefBtn)
 416     {
 417         pFtArg->Show();
 418         pBtnFx->Show();
 419         pEdArg->Show();
 420         pRefBtn->Show();
 421     }
 422 }
 423
 424 /*************************************************************************
 425 #*  Member:     FxClick                                     Date:13.01.97
 426 #*------------------------------------------------------------------------
 427 #*
 428 #*  Class:      ArgInput
 429 #*
 430 #*  Function:   Forwards the Event.
 431 #*
 432 #*  Input:      ---
 433 #*
 434 #*  Output:     ---
 435 #*
 436 #************************************************************************/
 437 void ArgInput::FxClick()
 438 {
 439     aFxClickLink.Call(this);
 440 }
 441
 442 /*************************************************************************
 443 #*  Member:     RefClick                                    Date:13.01.97
 444 #*------------------------------------------------------------------------
 445 #*
 446 #*  Class:      ArgInput
 447 #*
 448 #*  Function:   Forwards the Event.
 449 #*
 450 #*  Input:      ---
 451 #*
 452 #*  Output:     ---
 453 #*
 454 #************************************************************************/
 455 void ArgInput::RefClick()
 456 {
 457     aRefClickLink.Call(this);
 458 }
 459
 460 /*************************************************************************
 461 #*  Member:     FxFocus                                     Date:13.01.97
 462 #*------------------------------------------------------------------------
 463 #*
 464 #*  Class:      ArgInput
 465 #*
 466 #*  Function:   Forwards the Event.
 467 #*
 468 #*  Input:      ---
 469 #*
 470 #*  Output:     ---
 471 #*
 472 #************************************************************************/
 473 void ArgInput::FxFocus()
 474 {
 475     aFxFocusLink.Call(this);
 476 }
 477
 478 /*************************************************************************
 479 #*  Member:     RefFocus                                    Date:13.01.97
 480 #*------------------------------------------------------------------------
 481 #*
 482 #*  Class:      ArgInput
 483 #*
 484 #*  Function:   Forwards the Event.
 485 #*
 486 #*  Input:      ---
 487 #*
 488 #*  Output:     ---
 489 #*
 490 #************************************************************************/
 491 void ArgInput::RefFocus()
 492 {
 493     aRefFocusLink.Call(this);
 494 }
 495
 496 /*************************************************************************
 497 #*  Member:     EdFocus                                     Date:13.01.97
 498 #*------------------------------------------------------------------------
 499 #*
 500 #*  Class:      ArgInput
 501 #*
 502 #*  Function:   Forwards the Event.
 503 #*
 504 #*  Input:      ---
 505 #*
 506 #*  Output:     ---
 507 #*
 508 #************************************************************************/
 509 void ArgInput::EdFocus()
 510 {
 511     aEdFocusLink.Call(this);
 512 }
 513
 514 /*************************************************************************
 515 #*  Member:     EdModify                                    Date:13.01.97
 516 #*------------------------------------------------------------------------
 517 #*
 518 #*  Class:      ArgInput
 519 #*
 520 #*  Function:   Forwards the Event.
 521 #*
 522 #*  Input:      ---
 523 #*
 524 #*  Output:     ---
 525 #*
 526 #************************************************************************/
 527 void ArgInput::EdModify()
 528 {
 529     aEdModifyLink.Call(this);
 530 }
 531
 532 /*************************************************************************
 533 #*  Handle:     FxBtnHdl                                    Date:13.01.97
 534 #*------------------------------------------------------------------------
 535 #*
 536 #*  Class:      ArgInput
 537 #*
 538 #*  Function:   Handle for Fx-Button Click-Event.
 539 #*
 540 #*  Input:      ---
 541 #*
 542 #*  Output:     ---
 543 #*
 544 #************************************************************************/
 545 IMPL_LINK( ArgInput, FxBtnClickHdl, ImageButton*, pBtn )
 546 {
 547     if(pBtn==pBtnFx) FxClick();
 548
 549     return 0;
 550 }
 551
 552 /*************************************************************************
 553 #*  Handle:     RefBtnClickHdl                              Date:13.01.97
 554 #*------------------------------------------------------------------------
 555 #*
 556 #*  Class:      ArgInput
 557 #*
 558 #*  Function:   Handle for Fx-Button Click-Event.
 559 #*
 560 #*  Input:      ---
 561 #*
 562 #*  Output:     ---
 563 #*
 564 #************************************************************************/
 565 IMPL_LINK( ArgInput, RefBtnClickHdl,RefButton*, pBtn )
 566 {
 567     if(pRefBtn==pBtn) RefClick();
 568
 569     return 0;
 570 }
 571
 572 /*************************************************************************
 573 #*  Handle:     FxBtnFocusHdl                               Date:13.01.97
 574 #*------------------------------------------------------------------------
 575 #*
 576 #*  Class:      ArgInput
 577 #*
 578 #*  Function:   Handle for Fx-Button Focus-Event.
 579 #*
 580 #*  Input:      ---
 581 #*
 582 #*  Output:     ---
 583 #*
 584 #************************************************************************/
 585 IMPL_LINK( ArgInput, FxBtnFocusHdl, ImageButton*, pBtn )
 586 {
 587     if(pBtn==pBtnFx) FxFocus();
 588
 589     return 0;
 590 }
 591
 592 /*************************************************************************
 593 #*  Handle:     RefBtnFocusHdl                              Date:13.01.97
 594 #*------------------------------------------------------------------------
 595 #*
 596 #*  Class:      ArgInput
 597 #*
 598 #*  Function:   Handle for Fx-Button Focus-Event.
 599 #*
 600 #*  Input:      ---
 601 #*
 602 #*  Output:     ---
 603 #*
 604 #************************************************************************/
 605 IMPL_LINK( ArgInput, RefBtnFocusHdl,RefButton*, pBtn )
 606 {
 607     if(pRefBtn==pBtn) RefFocus();
 608
 609     return 0;
 610 }
 611
 612 /*************************************************************************
 613 #*  Handle:     EdFocusHdl                                  Date:13.01.97
 614 #*------------------------------------------------------------------------
 615 #*
 616 #*  Class:      ArgInput
 617 #*
 618 #*  Function:   Handle for Fx-Button Focus-Event.
 619 #*
 620 #*  Input:      ---
 621 #*
 622 #*  Output:     ---
 623 #*
 624 #************************************************************************/
 625 IMPL_LINK( ArgInput, EdFocusHdl, ArgEdit*, pEd )
 626 {
 627     if(pEd==pEdArg) EdFocus();
 628
 629     return 0;
 630 }
 631
 632 /*************************************************************************
 633 #*  Handle:     RefBtnClickHdl                              Date:13.01.97
 634 #*------------------------------------------------------------------------
 635 #*
 636 #*  Class:      ArgInput
 637 #*
 638 #*  Function:   Handle for Fx-Button Focus-Event.
 639 #*
 640 #*  Input:      ---
 641 #*
 642 #*  Output:     ---
 643 #*
 644 #************************************************************************/
 645 IMPL_LINK( ArgInput, EdModifyHdl,ArgEdit*, pEd )
 646 {
 647     if(pEd==pEdArg) EdModify();
 648
 649     return 0;
 650 }
 651
 652 /*************************************************************************
 653 #*  Member:     EditBox                                 Date:20.01.97
 654 #*------------------------------------------------------------------------
 655 #*
 656 #*  Class:      EditBox
 657 #*
 658 #*  Function:   Constructor from Class ArgInput
 659 #*
 660 #*  Input:      Parent, Resource
 661 #*
 662 #*  Output:     ---
 663 #*
 664 #************************************************************************/
 665 EditBox::EditBox( Window* pParent, const ResId& rResId )
 666         :Control(pParent,rResId),
 667         bMouseFlag(sal_False)
 668 {
 669     WinBits nStyle=GetStyle();
 670     SetStyle( nStyle| WB_DIALOGCONTROL);
 671
 672     pMEdit=new MultiLineEdit(this,WB_LEFT | WB_VSCROLL | (nStyle & WB_TABSTOP) |
 673                     WB_NOBORDER | WB_NOHIDESELECTION | WB_IGNORETAB);
 674     pMEdit->Show();
 675     aOldSel=pMEdit->GetSelection();
 676     Resize();
 677     WinBits nWinStyle=GetStyle() | WB_DIALOGCONTROL;
 678     SetStyle(nWinStyle);
 679
 680     //  #105582# the HelpId from the resource must be set for the MultiLineEdit,
 681     //  not for the control that contains it.
 682     pMEdit->SetHelpId( GetHelpId() );
 683     SetHelpId( "" );
 684 }
 685
 686 EditBox::~EditBox()
 687 {
 688     MultiLineEdit* pTheEdit=pMEdit;
 689     pMEdit->Disable();
 690     pMEdit=NULL;
 691     delete pTheEdit;
 692 }
 693 /*************************************************************************
 694 #*  Member:     EditBox                                 Date:20.01.97
 695 #*------------------------------------------------------------------------
 696 #*
 697 #*  Class:      EditBox
 698 #*
 699 #*  Function:   When the seleccion is changed this function will be called
 700 #*
 701 #*  Input:      ---
 702 #*
 703 #*  Output:     ---
 704 #*
 705 #************************************************************************/
 706 void EditBox::SelectionChanged()
 707 {
 708     aSelChangedLink.Call(this);
 709 }
 710
 711 /*************************************************************************
 712 #*  Member:     EditBox                                 Date:20.05.98
 713 #*------------------------------------------------------------------------
 714 #*
 715 #*  Class:      EditBox
 716 #*
 717 #*  Function:   When the size is changed, MultiLineEdit must
 718 #*              be adapted..
 719 #*
 720 #*  Input:      ---
 721 #*
 722 #*  Output:     ---
 723 #*
 724 #************************************************************************/
 725 void EditBox::Resize()
 726 {
 727     Size aSize=GetOutputSizePixel();
 728     if(pMEdit!=NULL) pMEdit->SetOutputSizePixel(aSize);
 729 }
 730
 731 /*************************************************************************
 732 #*  Member:     GetFocus                                    Date:26.05.98
 733 #*------------------------------------------------------------------------
 734 #*
 735 #*  Class:      EditBox
 736 #*
 737 #*  Function:   When the Control is activated,
 738 #*              the Selection is repealed and the Cursor set
 739 #*              at the end.
 740 #*
 741 #*  Input:      ---
 742 #*
 743 #*  Output:     ---
 744 #*
 745 #************************************************************************/
 746 void EditBox::GetFocus()
 747 {
 748     if(pMEdit!=NULL)
 749     {
 750         pMEdit->GrabFocus();
 751     }
 752 }
 753
 754
 755
 756 /*************************************************************************
 757 #*  Member:     EditBox                                 Date:20.01.97
 758 #*------------------------------------------------------------------------
 759 #*
 760 #*  Class:      EditBox
 761 #*
 762 #*  Function:   When an Event is cleared, this Routine is
 763 #*              first called and a PostUserEvent is sent.
 764 #*
 765 #*  Input:      Notify-Event
 766 #*
 767 #*  Output:     ---
 768 #*
 769 #************************************************************************/
 770 long EditBox::PreNotify( NotifyEvent& rNEvt )
 771 {
 772     long nResult=sal_True;
 773
 774     if(pMEdit==NULL) return nResult;
 775
 776     sal_uInt16 nSwitch=rNEvt.GetType();
 777     if(nSwitch==EVENT_KEYINPUT)// || nSwitch==EVENT_KEYUP)
 778     {
 779         const KeyCode& aKeyCode=rNEvt.GetKeyEvent()->GetKeyCode();
 780         sal_uInt16 nKey=aKeyCode.GetCode();
 781         if( (nKey==KEY_RETURN && !aKeyCode.IsShift()) || nKey==KEY_TAB )
 782         {
 783             nResult=GetParent()->Notify(rNEvt);
 784         }
 785         else
 786         {
 787             nResult=Control::PreNotify(rNEvt);
 788             Application::PostUserEvent( LINK( this, EditBox, ChangedHdl ) );
 789         }
 790
 791     }
 792     else
 793     {
 794         nResult=Control::PreNotify(rNEvt);
 795
 796         if(nSwitch==EVENT_MOUSEBUTTONDOWN || nSwitch==EVENT_MOUSEBUTTONUP)
 797         {
 798             bMouseFlag=sal_True;
 799             Application::PostUserEvent( LINK( this, EditBox, ChangedHdl ) );
 800         }
 801     }
 802     return nResult;
 803 }
 804
 805 /*************************************************************************
 806 #*  Member:     EditBox                                 Date:21.01.97
 807 #*------------------------------------------------------------------------
 808 #*
 809 #*  Class:      EditBox
 810 #*
 811 #*  Function:   When an Event cleared wurde, this routine is
 812 #*              first called.
 813 #*
 814 #*  Input:      Key-Event
 815 #*
 816 #*  Output:     ---
 817 #*
 818 #************************************************************************/
 819 IMPL_LINK_NOARG(EditBox, ChangedHdl)
 820 {
 821     if(pMEdit!=NULL)
 822     {
 823         Selection aNewSel=pMEdit->GetSelection();
 824
 825         if(aNewSel.Min()!=aOldSel.Min() || aNewSel.Max()!=aOldSel.Max())
 826         {
 827             SelectionChanged();
 828             aOldSel=aNewSel;
 829         }
 830     }
 831     return 0;
 832 }
 833
 834 void EditBox::UpdateOldSel()
 835 {
 836     //  if selection is set for editing a function, store it as aOldSel,
 837     //  so SelectionChanged isn't called in the next ChangedHdl call
 838
 839     if (pMEdit)
 840         aOldSel = pMEdit->GetSelection();
 841 }
 842 //----------------------------------------------------------------------------
 843
 844 //============================================================================
 845 //  class RefEdit
 846 //----------------------------------------------------------------------------
 847
 848 #define SC_ENABLE_TIME 100
 849
 850 RefEdit::RefEdit( Window* _pParent,IControlReferenceHandler* pParent,
 851     Window* pShrinkModeLabel, const ResId& rResId )
 852     : Edit( _pParent, rResId )
 853     , pAnyRefDlg( pParent )
 854     , pLabelWidget(pShrinkModeLabel)
 855 {
 856     aTimer.SetTimeoutHdl( LINK( this, RefEdit, UpdateHdl ) );
 857     aTimer.SetTimeout( SC_ENABLE_TIME );
 858 }
 859
 860 RefEdit::RefEdit( Window* _pParent, Window* pShrinkModeLabel, WinBits nStyle )
 861     : Edit( _pParent, nStyle )
 862     , pAnyRefDlg( NULL )
 863     , pLabelWidget(pShrinkModeLabel)
 864 {
 865     aTimer.SetTimeoutHdl( LINK( this, RefEdit, UpdateHdl ) );
 866     aTimer.SetTimeout( SC_ENABLE_TIME );
 867 }
 868
 869 extern "C" SAL_DLLPUBLIC_EXPORT Window* SAL_CALL makeRefEdit(Window *pParent, VclBuilder::stringmap &)
 870 {
 871     return new RefEdit(pParent, NULL, WB_BORDER);
 872 }
 873
 874 RefEdit::~RefEdit()
 875 {
 876     aTimer.SetTimeoutHdl( Link() );
 877     aTimer.Stop();
 878 }
 879
 880 void RefEdit::SetRefString( const XubString& rStr )
 881 {
 882     Edit::SetText( rStr );
 883 }
 884
 885 void RefEdit::SetRefValid(bool bValid)
 886 {
 887     if (bValid)
 888     {
 889         SetControlForeground();
 890         SetControlBackground();
 891     }
 892     else
 893     {
 894         SetControlForeground(COL_WHITE);
 895         SetControlBackground(0xff6563);
 896     }
 897 }
 898
 899 void RefEdit::SetText( const XubString& rStr )
 900 {
 901     Edit::SetText( rStr );
 902     UpdateHdl( &aTimer );
 903 }
 904
 905 void RefEdit::StartUpdateData()
 906 {
 907     aTimer.Start();
 908 }
 909
 910 void RefEdit::SetReferences( IControlReferenceHandler* pDlg, Window* pLabel )
 911 {
 912     pAnyRefDlg = pDlg;
 913     pLabelWidget = pLabel;
 914
 915     if( pDlg )
 916     {
 917         aTimer.SetTimeoutHdl( LINK( this, RefEdit, UpdateHdl ) );
 918         aTimer.SetTimeout( SC_ENABLE_TIME );
 919     }
 920     else
 921     {
 922         aTimer.SetTimeoutHdl( Link() );
 923         aTimer.Stop();
 924     }
 925 }
 926
 927 void RefEdit::Modify()
 928 {
 929     Edit::Modify();
 930     if( pAnyRefDlg )
 931         pAnyRefDlg->HideReference();
 932 }
 933
 934 void RefEdit::KeyInput( const KeyEvent& rKEvt )
 935 {
 936     const KeyCode& rKeyCode = rKEvt.GetKeyCode();
 937     if( pAnyRefDlg && !rKeyCode.GetModifier() && (rKeyCode.GetCode() == KEY_F2) )
 938         pAnyRefDlg->ReleaseFocus( this );
 939     else
 940         Edit::KeyInput( rKEvt );
 941 }
 942
 943 void RefEdit::GetFocus()
 944 {
 945     Edit::GetFocus();
 946     StartUpdateData();
 947 }
 948
 949 void RefEdit::LoseFocus()
 950 {
 951     Edit::LoseFocus();
 952     if( pAnyRefDlg )
 953         pAnyRefDlg->HideReference();
 954 }
 955
 956 IMPL_LINK_NOARG(RefEdit, UpdateHdl)
 957 {
 958     if( pAnyRefDlg )
 959         pAnyRefDlg->ShowReference( GetText() );
 960     return 0;
 961 }
 962
 963
 964 //============================================================================
 965 //  class RefButton
 966 //----------------------------------------------------------------------------
 967 RefButton::RefButton( Window* _pParent, const ResId& rResId) :
 968     ImageButton( _pParent, rResId ),
 969     aImgRefStart( ModuleRes( RID_BMP_REFBTN1 ) ),
 970     aImgRefDone( ModuleRes( RID_BMP_REFBTN2 ) ),
 971     aShrinkQuickHelp( ModuleRes( RID_STR_SHRINK ).toString() ),
 972     aExpandQuickHelp( ModuleRes( RID_STR_EXPAND ).toString() ),
 973     pAnyRefDlg( NULL ),
 974     pRefEdit( NULL )
 975 {
 976     SetStartImage();
 977 }
 978
 979 RefButton::RefButton( Window* _pParent, WinBits nStyle ) :
 980     ImageButton( _pParent, nStyle ),
 981     aImgRefStart( ModuleRes( RID_BMP_REFBTN1 ) ),
 982     aImgRefDone( ModuleRes( RID_BMP_REFBTN2 ) ),
 983     aShrinkQuickHelp( ModuleRes( RID_STR_SHRINK ).toString() ),
 984     aExpandQuickHelp( ModuleRes( RID_STR_EXPAND ).toString() ),
 985     pAnyRefDlg( NULL ),
 986     pRefEdit( NULL )
 987 {
 988     SetStartImage();
 989 }
 990
 991 extern "C" SAL_DLLPUBLIC_EXPORT Window* SAL_CALL makeRefButton(Window *pParent, VclBuilder::stringmap &)
 992 {
 993     return new RefButton(pParent, 0);
 994 }
 995
 996 RefButton::RefButton( Window* _pParent, const ResId& rResId, RefEdit* pEdit, IControlReferenceHandler* _pDlg ) :
 997     ImageButton( _pParent, rResId ),
 998     aImgRefStart( ModuleRes( RID_BMP_REFBTN1 ) ),
 999     aImgRefDone( ModuleRes( RID_BMP_REFBTN2 ) ),
1000     aShrinkQuickHelp( ModuleRes( RID_STR_SHRINK ).toString() ),
1001     aExpandQuickHelp( ModuleRes( RID_STR_EXPAND ).toString() ),
1002     pAnyRefDlg( _pDlg ),
1003     pRefEdit( pEdit )
1004 {
1005     SetStartImage();
1006 }
1007
1008 void RefButton::SetStartImage()
1009 {
1010     SetModeImage( aImgRefStart );
1011     SetQuickHelpText( aShrinkQuickHelp );
1012 }
1013
1014 void RefButton::SetEndImage()
1015 {
1016     SetModeImage( aImgRefDone );
1017     SetQuickHelpText( aExpandQuickHelp );
1018 }
1019
1020 void RefButton::SetReferences( IControlReferenceHandler* pDlg, RefEdit* pEdit )
1021 {
1022     pAnyRefDlg = pDlg;
1023     pRefEdit = pEdit;
1024 }
1025
1026 //----------------------------------------------------------------------------
1027
1028 void RefButton::Click()
1029 {
1030     if( pAnyRefDlg )
1031         pAnyRefDlg->ToggleCollapsed( pRefEdit, this );
1032 }
1033
1034 void RefButton::KeyInput( const KeyEvent& rKEvt )
1035 {
1036     const KeyCode& rKeyCode = rKEvt.GetKeyCode();
1037     if( pAnyRefDlg && !rKeyCode.GetModifier() && (rKeyCode.GetCode() == KEY_F2) )
1038         pAnyRefDlg->ReleaseFocus( pRefEdit );
1039     else
1040         ImageButton::KeyInput( rKEvt );
1041 }
1042
1043 void RefButton::GetFocus()
1044 {
1045     ImageButton::GetFocus();
1046     if( pRefEdit )
1047         pRefEdit->StartUpdateData();
1048 }
1049
1050 void RefButton::LoseFocus()
1051 {
1052     ImageButton::LoseFocus();
1053     if( pRefEdit )
1054         pRefEdit->Modify();
1055 }
1056
1057
1058 } // formula
1059
1060 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */