xref: /aoo42x/main/sc/source/ui/formdlg/dwfunctr.cxx (revision b3f79822) 
1 /**************************************************************
2  *
3  * Licensed to the Apache Software Foundation (ASF) under one
4  * or more contributor license agreements.  See the NOTICE file
5  * distributed with this work for additional information
6  * regarding copyright ownership.  The ASF licenses this file
7  * to you under the Apache License, Version 2.0 (the
8  * "License"); you may not use this file except in compliance
9  * with the License.  You may obtain a copy of the License at
10  *
11  *   http://www.apache.org/licenses/LICENSE-2.0
12  *
13  * Unless required by applicable law or agreed to in writing,
14  * software distributed under the License is distributed on an
15  * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
16  * KIND, either express or implied.  See the License for the
17  * specific language governing permissions and limitations
18  * under the License.
19  *
20  *************************************************************/
21 
22 
23 
24 // MARKER(update_precomp.py): autogen include statement, do not remove
25 #include "precompiled_sc.hxx"
26 
27 
28 
29 // INCLUDE ---------------------------------------------------------------
30 
31 #include <editeng/editview.hxx>
32 #include <sfx2/bindings.hxx>
33 #include <sfx2/dispatch.hxx>
34 #include <sfx2/objsh.hxx>
35 #include <sfx2/viewsh.hxx>
36 
37 #include "sc.hrc"
38 #include "global.hxx"		// ScAddress
39 #include "scresid.hxx"
40 #include "reffact.hxx"
41 #include "document.hxx"
42 #include "cell.hxx"
43 #include "scmod.hxx"
44 #include "inputhdl.hxx"
45 #include "tabvwsh.hxx"
46 #include "appoptio.hxx"
47 #include "compiler.hxx"
48 
49 #include "dwfunctr.hrc"
50 #include "dwfunctr.hxx"
51 
52 // -----------------------------------------------------------------------
53 
54 #define ARG_SEPERATOR String("; ")
55 SFX_IMPL_DOCKINGWINDOW( ScFunctionChildWindow, FID_FUNCTION_BOX )
56 
57 /*************************************************************************
58 #*	Member:		ScFunctionChildWindow						Datum:06.10.97
59 #*------------------------------------------------------------------------
60 #*
61 #*  Klasse:		ScFunctionChildWindow
62 #*
63 #*  Funktion:	Konstruktor der Klasse ScFunctionChildWindow
64 #*				Ableitung vom SfxChildWindow als "Behaelter" fuer
65 #*				Funktions- Fenster in Clac
66 #*
67 #*  Input:		---
68 #*
69 #*	Output:		---
70 #*
71 #************************************************************************/
72 
73 __EXPORT ScFunctionChildWindow::ScFunctionChildWindow( Window* pParentP,
74 									sal_uInt16 nId,
75 									SfxBindings* pBindings,
76 									SfxChildWinInfo* pInfo ) :
77     SfxChildWindow( pParentP, nId )
78 {
79 	ScFunctionDockWin* pWin = new ScFunctionDockWin( pBindings, this,
80                                         pParentP, ScResId( FID_FUNCTION_BOX ) );
81 	pWindow = pWin;
82 
83 	eChildAlignment = SFX_ALIGN_RIGHT;
84 
85 	pWin->Initialize( pInfo );
86 }
87 
88 /*************************************************************************
89 #*	Member:		ScFunctionDockWin							Datum:06.10.97
90 #*------------------------------------------------------------------------
91 #*
92 #*  Klasse:		ScFunctionDockWin
93 #*
94 #*  Funktion:	Konstruktor der Klasse ScFunctionDockWin
95 #*
96 #*  Input:		Sfx- Verknuepfungen, Fenster, Resource
97 #*
98 #*	Output:		---
99 #*
100 #************************************************************************/
101 
102 ScFunctionDockWin::ScFunctionDockWin( SfxBindings* pBindingsP,
103 				SfxChildWindow *pCW, Window* pParent, const ResId& rResId ) :
104 
105     SfxDockingWindow( pBindingsP, pCW, pParent, rResId ),
106 	aPrivatSplit	( this, ResId( FT_SPLIT, *rResId.GetResMgr()  ),SC_SPLIT_VERT),
107 	aCatBox			( this, ResId( CB_CAT, *rResId.GetResMgr()  ) ),
108 	aFuncList		( this, ResId( LB_FUNC, *rResId.GetResMgr()  ) ),
109 	aDDFuncList		( this, ResId( DDLB_FUNC, *rResId.GetResMgr()  ) ),
110 	aInsertButton	( this, ResId( IMB_INSERT, *rResId.GetResMgr()  ) ),
111 	aFiFuncDesc		( this, ResId( FI_FUNCDESC, *rResId.GetResMgr()  ) ),
112 	aOldSize		(0,0)
113 {
114 	FreeResource();
115 	InitLRUList();
116 	SetStyle(GetStyle()|WB_CLIPCHILDREN);
117 
118 	aTimer.SetTimeout(200);
119 	aTimer.SetTimeoutHdl(LINK( this, ScFunctionDockWin, TimerHdl));
120 
121 	eSfxNewAlignment=GetAlignment();
122 	eSfxOldAlignment=eSfxNewAlignment;
123 	aFiFuncDesc.SetUpdateMode(sal_True);
124 	pAllFuncList=&aFuncList;
125 	aDDFuncList.Disable();
126 	aDDFuncList.Hide();
127 	nArgs=0;
128 	nDockMode=0;
129 	bSizeFlag=sal_False;
130 	aCatBox.SetDropDownLineCount(9);
131 	Font aFont=aFiFuncDesc.GetFont();
132 	aFont.SetColor(Color(COL_BLACK));
133 	aFiFuncDesc.SetFont(aFont);
134 	aFiFuncDesc.SetBackground( GetBackground() );		//! never transparent?
135 //?	SetBackground();
136 
137 	Link aLink=LINK( this, ScFunctionDockWin, SelHdl);
138 	aCatBox.SetSelectHdl(aLink);
139 	aFuncList.SetSelectHdl(aLink);
140 	aDDFuncList.SetSelectHdl(aLink);
141 
142 	Link a2Link=LINK( this, ScFunctionDockWin, SetSelectionHdl);
143 	aFuncList.SetDoubleClickHdl(a2Link);
144 	aDDFuncList.SetSelectHdl(aLink);
145 	aInsertButton.SetClickHdl(a2Link);
146 
147 	Link a3Link=LINK( this, ScFunctionDockWin, SetSplitHdl);
148 	aPrivatSplit.SetCtrModifiedHdl(a3Link);
149 	StartListening( *pBindingsP, sal_True );
150 
151 	Point aTopLeft=aCatBox.GetPosPixel();
152 	//String aString=aCatBox.GetEntry( 0)+String("www");
153 	String aString=String::CreateFromAscii(RTL_CONSTASCII_STRINGPARAM("ww"));
154 	Size aTxtSize( aFiFuncDesc.GetTextWidth(aString), aFiFuncDesc.GetTextHeight() );
155 	nMinWidth=aTxtSize.Width()+aTopLeft.X()
156 			+2*aFuncList.GetPosPixel().X();
157 	nMinHeight=19*aTxtSize.Height();
158 	aCatBox.SelectEntryPos(0);
159 
160 	Range aYRange(3*aTxtSize.Height()+aFuncList.GetPosPixel().Y(),
161 				GetOutputSizePixel().Height()-2*aTxtSize.Height());
162 	aPrivatSplit.SetYRange(aYRange);
163 	SelHdl(&aCatBox);
164 	bInit=sal_True;
165 }
166 
167 /*************************************************************************
168 #*	Member:		ScFunctionDockWin							Datum:06.10.97
169 #*------------------------------------------------------------------------
170 #*
171 #*  Klasse:		ScFunctionDockWin
172 #*
173 #*  Funktion:	Destruktor der Klasse ScFunctionDockWin
174 #*
175 #*  Input:		---
176 #*
177 #*	Output:		---
178 #*
179 #************************************************************************/
180 
181 __EXPORT ScFunctionDockWin::~ScFunctionDockWin()
182 {
183 	EndListening( GetBindings() );
184 }
185 
186 /*************************************************************************
187 #*	Member:		UpdateFunctionList							Datum:06.10.97
188 #*------------------------------------------------------------------------
189 #*
190 #*  Klasse:		ScFunctionDockWin
191 #*
192 #*  Funktion:	Aktualisiert die Liste der Funktionen ab-
193 #*				haengig von der eingestellten Kategorie.
194 #*
195 #*  Input:		---
196 #*
197 #*	Output:		---
198 #*
199 #************************************************************************/
200 
201 void ScFunctionDockWin::InitLRUList()
202 {
203 	const ScAppOptions& rAppOpt = SC_MOD()->GetAppOptions();
204 	sal_uInt16 nLRUFuncCount = Min( rAppOpt.GetLRUFuncListCount(), (sal_uInt16)LRU_MAX );
205 	sal_uInt16*	pLRUListIds = rAppOpt.GetLRUFuncList();
206 
207 	sal_uInt16 i;
208 	for ( i=0; i<LRU_MAX; i++ )
209 		aLRUList[i] = NULL;
210 
211 	if ( pLRUListIds )
212 	{
213 		ScFunctionMgr* pFuncMgr = ScGlobal::GetStarCalcFunctionMgr();
214 		for ( i=0; i<nLRUFuncCount; i++ )
215 			aLRUList[i] = pFuncMgr->Get( pLRUListIds[i] );
216 	}
217 
218 	sal_uInt16	nSelPos	  = aCatBox.GetSelectEntryPos();
219 
220 	if(nSelPos == 0)
221 		UpdateFunctionList();
222 }
223 
224 /*************************************************************************
225 #*	Member:		UpdateFunctionList							Datum:10.12.99
226 #*------------------------------------------------------------------------
227 #*
228 #*  Klasse:		ScFunctionDockWin
229 #*
230 #*  Funktion:	Aktualisiert die Liste der zuletzt verwendeten Funktionen.
231 #*
232 #*  Input:		---
233 #*
234 #*	Output:		---
235 #*
236 #************************************************************************/
237 
238 void ScFunctionDockWin::UpdateLRUList()
239 {
240 	if (pFuncDesc && pFuncDesc->nFIndex!=0)
241 	{
242 		ScModule* pScMod = SC_MOD();
243 		pScMod->InsertEntryToLRUList(pFuncDesc->nFIndex);
244 	}
245 }
246 
247 
248 /*************************************************************************
249 #*	Member:		SetSize										Datum:06.10.97
250 #*------------------------------------------------------------------------
251 #*
252 #*  Klasse:		ScFunctionDockWin
253 #*
254 #*  Funktion:	Groesse fuer die einzelnen Controls einzustellen.
255 #*
256 #*  Input:		---
257 #*
258 #*	Output:		---
259 #*
260 #************************************************************************/
261 
262 void ScFunctionDockWin::SetSize()
263 {
264 	sal_uInt16 nSelEntry=0;
265 	SfxChildAlignment  aChildAlign=eSfxOldAlignment;//GetAlignment();
266 	short nNewDockMode;
267 	switch(aChildAlign)
268 	{
269 		case SFX_ALIGN_HIGHESTTOP:
270 		case SFX_ALIGN_TOP:
271 		case SFX_ALIGN_LOWESTTOP:
272 		case SFX_ALIGN_LOWESTBOTTOM:
273 		case SFX_ALIGN_BOTTOM:
274 		case SFX_ALIGN_TOOLBOXTOP:
275 		case SFX_ALIGN_TOOLBOXBOTTOM:
276 
277 
278 						nNewDockMode=1;
279 						if(nDockMode!=nNewDockMode)
280 						{
281 							nDockMode=nNewDockMode;
282 							nSelEntry=aFuncList.GetSelectEntryPos();
283 							aFuncList.Clear();
284 							aFiFuncDesc.SetPosPixel(aFuncList.GetPosPixel());
285 							aDDFuncList.Enable();
286 							aDDFuncList.Show();
287 							aPrivatSplit.Disable();
288 							aPrivatSplit.Hide();
289 							aFuncList.Disable();
290 							aFuncList.Hide();
291 							pAllFuncList=&aDDFuncList;
292 							SelHdl(&aCatBox);
293 							aDDFuncList.SelectEntryPos(nSelEntry);
294 						}
295 						break;
296 
297 		default:		nNewDockMode=0;
298 						if(nDockMode!=nNewDockMode)
299 						{
300 							nDockMode=nNewDockMode;
301 							nSelEntry=aDDFuncList.GetSelectEntryPos();
302 							aDDFuncList.Clear();
303 							aDDFuncList.Disable();
304 							aDDFuncList.Hide();
305 							aPrivatSplit.Enable();
306 							aPrivatSplit.Show();
307 							aFuncList.Enable();
308 							aFuncList.Show();
309 							pAllFuncList=&aFuncList;
310 							SelHdl(&aCatBox);
311 							aFuncList.SelectEntryPos(nSelEntry);
312 						}
313 						break;
314 	}
315 
316 	if(nDockMode==0)
317 	{
318 		SetLeftRightSize();
319 	}
320 	else
321 	{
322 		SetTopBottonSize();
323 	}
324 }
325 /*************************************************************************
326 #*	Member:		SetLeftRightSize							Datum:15.10.97
327 #*------------------------------------------------------------------------
328 #*
329 #*  Klasse:		ScFunctionDockWin
330 #*
331 #*  Funktion:	Groesse fuer die einzelnen Controls einstellen,
332 #*				wenn Links oder Rechts angedockt wird.
333 #*
334 #*  Input:		---
335 #*
336 #*	Output:		---
337 #*
338 #************************************************************************/
339 
340 void ScFunctionDockWin::SetLeftRightSize()
341 {
342 	if(bSizeFlag==sal_False)
343 	{
344 		bSizeFlag=sal_True;
345 
346 		Size aDiffSize=GetSizePixel();
347 		Size aNewSize=GetOutputSizePixel();
348 		aDiffSize.Width()-=aNewSize.Width();
349 		aDiffSize.Height()-=aNewSize.Height();
350 
351 		//@ SetUpdateMode( sal_False);
352 
353 		String aString = String::CreateFromAscii(RTL_CONSTASCII_STRINGPARAM("ww"));
354 
355 		Size aTxtSize( aFuncList.GetTextWidth(aString), aFuncList.GetTextHeight() );
356 
357 		Range aYRange(3*aTxtSize.Height()+aFuncList.GetPosPixel().Y(),
358 					GetOutputSizePixel().Height()-2*aTxtSize.Height());
359 		aPrivatSplit.SetYRange(aYRange);
360 
361 
362 		if(aOldSize.Width()!=aNewSize.Width())
363 			SetMyWidthLeRi(aNewSize);
364 
365 		if(aOldSize.Height()!=aNewSize.Height())
366 			SetMyHeightLeRi(aNewSize);
367 
368 		aOldSize=aNewSize;
369 		aNewSize.Width()+=aDiffSize.Width();
370 		aNewSize.Height()+=aDiffSize.Height();
371 		//SetSizePixel(aNewSize);
372 		//@ SetUpdateMode( sal_True);
373 		bSizeFlag=sal_False;
374 	}
375 
376 }
377 /*************************************************************************
378 #*	Member:		SetTopBottonSize							Datum:15.10.97
379 #*------------------------------------------------------------------------
380 #*
381 #*  Klasse:		ScFunctionDockWin
382 #*
383 #*  Funktion:	Groesse fuer die einzelnen Controls einzustellen.
384 #*				wenn oben oder unten angedockt wird.
385 #*
386 #*  Input:		---
387 #*
388 #*	Output:		---
389 #*
390 #************************************************************************/
391 
392 void ScFunctionDockWin::SetTopBottonSize()
393 {
394 	if(bSizeFlag==sal_False)
395 	{
396 		bSizeFlag=sal_True;
397 		Size aDiffSize=GetSizePixel();
398 		Size aNewSize=GetOutputSizePixel();
399 		aDiffSize.Width()-=aNewSize.Width();
400 		aDiffSize.Height()-=aNewSize.Height();
401 
402 		SetMyWidthToBo(aNewSize);
403 		SetMyHeightToBo(aNewSize);
404 
405 		aNewSize.Width()+=aDiffSize.Width();
406 		aNewSize.Height()+=aDiffSize.Height();
407 		//SetSizePixel(aNewSize);
408 		//@ SetUpdateMode( sal_True);
409 		bSizeFlag=sal_False;
410 	}
411 }
412 
413 /*************************************************************************
414 #*	Member:		SetMyWidthLeRi								Datum:15.10.97
415 #*------------------------------------------------------------------------
416 #*
417 #*  Klasse:		ScFunctionDockWin
418 #*
419 #*  Funktion:	Breite fuer die einzelnen Controls und
420 #*				das Fenster einstellen,wenn Li oder Re
421 #*
422 #*  Input:		neue Fenstergroesse
423 #*
424 #*	Output:		---
425 #*
426 #************************************************************************/
427 
428 void ScFunctionDockWin::SetMyWidthLeRi(Size &aNewSize)
429 {
430 	if((sal_uLong)aNewSize.Width()<nMinWidth)	aNewSize.Width()=nMinWidth;
431 
432 	Size aCDSize=aCatBox.GetSizePixel();
433 	Size aFLSize=aFuncList.GetSizePixel();
434 	Size aSplitterSize=aPrivatSplit.GetSizePixel();
435 	Size aFDSize=aFiFuncDesc.GetSizePixel();
436 
437 	Point aCDTopLeft=aCatBox.GetPosPixel();
438 	Point aFLTopLeft=aFuncList.GetPosPixel();
439 	Point aSplitterTopLeft=aPrivatSplit.GetPosPixel();
440 	Point aFDTopLeft=aFiFuncDesc.GetPosPixel();
441 
442 	aCDSize.Width()=aNewSize.Width()-aCDTopLeft.X()-aFLTopLeft.X();
443 	aFLSize.Width()=aNewSize.Width()-2*aFLTopLeft.X();
444 	aFDSize.Width()=aFLSize.Width();
445 	aSplitterSize.Width()=aFLSize.Width();
446 
447 	aCatBox.SetSizePixel(aCDSize);
448 	aFuncList.SetSizePixel(aFLSize);
449 	aPrivatSplit.SetSizePixel(aSplitterSize);
450 	aFiFuncDesc.SetSizePixel(aFDSize);
451 }
452 
453 /*************************************************************************
454 #*	Member:		SetHeight									Datum:06.10.97
455 #*------------------------------------------------------------------------
456 #*
457 #*  Klasse:		ScFunctionDockWin
458 #*
459 #*  Funktion:	Hoehe fuer die einzelnen Controls und
460 #*				das Fenster einstellen bei Li oder Re
461 #*
462 #*  Input:		neue Fenstergroesse
463 #*
464 #*	Output:		---
465 #*
466 #************************************************************************/
467 
468 void ScFunctionDockWin::SetMyHeightLeRi(Size &aNewSize)
469 {
470 	if((sal_uLong)aNewSize.Height()<nMinHeight) aNewSize.Height()=nMinHeight;
471 
472 	Size aFLSize=aFuncList.GetSizePixel();
473 	Size aSplitterSize=aPrivatSplit.GetSizePixel();
474 	Size aFDSize=aFiFuncDesc.GetSizePixel();
475 
476 	Point aFLTopLeft=aFuncList.GetPosPixel();
477 	Point aSplitterTopLeft=aPrivatSplit.GetPosPixel();
478 	Point aFDTopLeft=aFiFuncDesc.GetPosPixel();
479 
480 	long nTxtHeight = aFuncList.GetTextHeight();
481 
482 	short nY=(short)(3*nTxtHeight+
483 		aFuncList.GetPosPixel().Y()+aSplitterSize.Height());
484 
485 	aFDTopLeft.Y()=aNewSize.Height()-aFDSize.Height()-4;
486 	if(nY>aFDTopLeft.Y())
487 	{
488 		aFDSize.Height()-=nY-aFDTopLeft.Y();
489 		aFDTopLeft.Y()=nY;
490 	}
491 	aSplitterTopLeft.Y()=aFDTopLeft.Y()-aSplitterSize.Height()-1;
492 	aFLSize.Height()=aSplitterTopLeft.Y()-aFLTopLeft.Y()-1;
493 
494 	aFuncList.SetSizePixel(aFLSize);
495 	aPrivatSplit.SetPosPixel(aSplitterTopLeft);
496 	aFiFuncDesc.SetPosPixel(aFDTopLeft);
497 	aFiFuncDesc.SetSizePixel(aFDSize);
498 
499 }
500 
501 /*************************************************************************
502 #*	Member:		SetMyWidthToBo								Datum:16.10.97
503 #*------------------------------------------------------------------------
504 #*
505 #*  Klasse:		ScFunctionDockWin
506 #*
507 #*  Funktion:	Breite fuer die einzelnen Controls und
508 #*				das Fenster einstellen, wenn oben oder
509 #*				unten angedockt werden soll.
510 #*
511 #*  Input:		neue Fenstergroesse
512 #*
513 #*	Output:		---
514 #*
515 #************************************************************************/
516 
517 void ScFunctionDockWin::SetMyWidthToBo(Size &aNewSize)
518 {
519 	if((sal_uLong)aNewSize.Width()<nMinWidth)	aNewSize.Width()=nMinWidth;
520 
521 	Size aCDSize=aCatBox.GetSizePixel();
522 	Size aDdFLSize=aDDFuncList.GetSizePixel();
523 	Size aFDSize=aFiFuncDesc.GetSizePixel();
524 
525 	Point aCDTopLeft=aCatBox.GetPosPixel();
526 	Point aDdFLTopLeft=aDDFuncList.GetPosPixel();
527 	Point aFDTopLeft=aFiFuncDesc.GetPosPixel();
528 
529 	aCDSize.Width()=aDdFLTopLeft.X()-aFDTopLeft.X()-aCDTopLeft.X();
530 	aDdFLTopLeft.X()=aCDSize.Width()+aCDTopLeft.X()+aFDTopLeft.X();
531 
532 	aDdFLSize.Width()=aNewSize.Width()-aDdFLTopLeft.X()-aFDTopLeft.X();
533 
534 	aFDSize.Width()=aNewSize.Width()-2*aFDTopLeft.X();
535 
536 	aDDFuncList.SetPosPixel(aDdFLTopLeft);
537 	aDDFuncList.SetSizePixel(aDdFLSize);
538 	aCatBox.SetSizePixel(aCDSize);
539 	aFiFuncDesc.SetSizePixel(aFDSize);
540 }
541 
542 /*************************************************************************
543 #*	Member:		SetHeight									Datum:16.10.97
544 #*------------------------------------------------------------------------
545 #*
546 #*  Klasse:		ScFunctionDockWin
547 #*
548 #*  Funktion:	Hoehe fuer die einzelnen Controls und
549 #*				das Fenster einstellen, wenn oben oder
550 #*				unten angedockt werden soll.
551 #*
552 #*  Input:		neue Fenstergroesse
553 #*
554 #*	Output:		---
555 #*
556 #************************************************************************/
557 
558 void ScFunctionDockWin::SetMyHeightToBo(Size &aNewSize)
559 {
560 	if((sal_uLong)aNewSize.Height()<nMinHeight) aNewSize.Height()=nMinHeight;
561 
562 	Size aFDSize=aFiFuncDesc.GetSizePixel();
563 
564 	Point aFDTopLeft=aFiFuncDesc.GetPosPixel();
565 	Point aCBTopLeft=aCatBox.GetPosPixel();
566 	aFDSize.Height()=aNewSize.Height()-aFDTopLeft.Y()-aCBTopLeft.Y();
567 	aFiFuncDesc.SetSizePixel(aFDSize);
568 
569 }
570 
571 /*************************************************************************
572 #*	Member:		SetDescription								Datum:13.10.97
573 #*------------------------------------------------------------------------
574 #*
575 #*  Klasse:		ScFunctionDockWin
576 #*
577 #*  Funktion:	Erklaerungstext fuer die Funktion einstellen.
578 #*
579 #*  Input:		---
580 #*
581 #*	Output:		---
582 #*
583 #************************************************************************/
584 
585 void ScFunctionDockWin::SetDescription()
586 {
587 	aFiFuncDesc.SetText( EMPTY_STRING );
588 	const ScFuncDesc* pDesc =
589 			 (const ScFuncDesc*)pAllFuncList->GetEntryData(
590 					pAllFuncList->GetSelectEntryPos() );
591 	if (pDesc)
592 	{
593         pDesc->initArgumentInfo();      // full argument info is needed
594 
595 		String	aString=pAllFuncList->GetSelectEntry();
596 		if(nDockMode==0)
597 		{
598 			aString.AppendAscii(RTL_CONSTASCII_STRINGPARAM( ":\n\n" ));
599 		}
600 		else
601 		{
602 			aString.AppendAscii(RTL_CONSTASCII_STRINGPARAM( ":   " ));
603 		}
604 
605         aString+=pDesc->GetParamList();
606 
607 		if(nDockMode==0)
608 		{
609 			aString.AppendAscii(RTL_CONSTASCII_STRINGPARAM( "\n\n" ));
610 		}
611 		else
612 		{
613 			aString += '\n';
614 		}
615 
616 		aString+=*(pDesc->pFuncDesc);
617 
618 		aFiFuncDesc.SetText(aString);
619 		aFiFuncDesc.StateChanged(STATE_CHANGE_TEXT);
620 		aFiFuncDesc.Invalidate();
621 		aFiFuncDesc.Update();
622 
623 	}
624  }
625 
626 /*************************************************************************
627 #*	Member:		Resizing									Datum:06.10.97
628 #*------------------------------------------------------------------------
629 #*
630 #*  Klasse:		ScFunctionDockWin
631 #*
632 #*  Funktion:	Ueberladene Funktion um die Groesse der
633 #*				einzelnen Controls einzustellen.
634 #*
635 #*  Input:		neue Groesse
636 #*
637 #*	Output:		---
638 #*
639 #************************************************************************/
640 
641 void __EXPORT ScFunctionDockWin::Resizing( Size& rNewSize )
642 {
643 	if((sal_uLong)rNewSize.Width()<nMinWidth) rNewSize.Width()=nMinWidth;
644 	if((sal_uLong)rNewSize.Height()<nMinHeight) rNewSize.Height()=nMinHeight;
645 
646 }
647 
648 /*************************************************************************
649 #*	Member:		Close										Datum:07.10.97
650 #*------------------------------------------------------------------------
651 #*
652 #*  Klasse:		ScFunctionDockWin
653 #*
654 #*  Funktion:	Schliessen des Fensters
655 #*
656 #*  Input:		---
657 #*
658 #*	Output:		TRUE
659 #*
660 #************************************************************************/
661 
662 sal_Bool __EXPORT ScFunctionDockWin::Close()
663 {
664 	SfxBoolItem aItem( FID_FUNCTION_BOX, sal_False );
665 
666 	GetBindings().GetDispatcher()->Execute( FID_FUNCTION_BOX,
667 								SFX_CALLMODE_ASYNCHRON | SFX_CALLMODE_RECORD,
668 								&aItem, 0L );
669 
670 	SfxDockingWindow::Close();
671 
672 	return( sal_True );
673 }
674 
675 
676 /*************************************************************************
677 #*	Member:		CheckAlignment								Datum:16.10.97
678 #*------------------------------------------------------------------------
679 #*
680 #*  Klasse:		ScFunctionDockWin
681 #*
682 #*  Funktion:	Ueberprueft den Andockmodus und stellt die
683 #*				Groessen dementsprechend ein.
684 #*
685 #*  Input:		Das neue Alignment
686 #*
687 #*	Output:		Das uebergebene Alignment
688 #*
689 #************************************************************************/
690 SfxChildAlignment __EXPORT ScFunctionDockWin::CheckAlignment(SfxChildAlignment /* abla */,
691 								SfxChildAlignment aChildAlign)
692 {
693 	String aString = String::CreateFromAscii(RTL_CONSTASCII_STRINGPARAM("ww"));
694 	Size aTxtSize( aFiFuncDesc.GetTextWidth(aString), aFiFuncDesc.GetTextHeight() );
695 	if(!bInit)
696 	{
697 		eSfxOldAlignment=eSfxNewAlignment;
698 		eSfxNewAlignment=aChildAlign;
699 	}
700 	else
701 	{
702 		bInit=sal_False;
703 		eSfxOldAlignment=aChildAlign;
704 		eSfxNewAlignment=aChildAlign;
705 	}
706 
707 	switch(eSfxOldAlignment)
708 	{
709 		case SFX_ALIGN_HIGHESTTOP:
710 		case SFX_ALIGN_TOP:
711 		case SFX_ALIGN_LOWESTTOP:
712 		case SFX_ALIGN_LOWESTBOTTOM:
713 		case SFX_ALIGN_BOTTOM:
714 		case SFX_ALIGN_TOOLBOXTOP:
715 		case SFX_ALIGN_TOOLBOXBOTTOM:
716 
717 						nMinWidth= 0;/*aDDFuncList.GetPosPixel().X()+
718 									10*aTxtSize.Width()+
719 									aFuncList.GetPosPixel().X();*/
720 						nMinHeight=0;
721 
722 						break;
723 
724 		case SFX_ALIGN_NOALIGNMENT:
725 
726 						aString = aCatBox.GetEntry(0);
727 						aString.AppendAscii(RTL_CONSTASCII_STRINGPARAM("www"));
728 						aTxtSize = Size( aFiFuncDesc.GetTextWidth(aString),
729 											aFiFuncDesc.GetTextHeight() );
730 
731 		default:		Point aTopLeft=aCatBox.GetPosPixel();
732 						nMinWidth=aTxtSize.Width()+aTopLeft.X()
733 								+2*aFuncList.GetPosPixel().X();
734 						nMinHeight=19*aTxtSize.Height();
735 							//aCatBox.SelectEntryPos(0);
736 
737 						break;
738 	}
739 
740 	return aChildAlign;
741 }
742 /*************************************************************************
743 #*	Member:		Close										Datum:07.10.97
744 #*------------------------------------------------------------------------
745 #*
746 #*  Klasse:		ScFunctionDockWin
747 #*
748 #*  Funktion:	Aenderungen erkennen
749 #*
750 #*  Input:		---
751 #*
752 #*	Output:		TRUE
753 #*
754 #************************************************************************/
755 void ScFunctionDockWin::Notify( SfxBroadcaster&, const SfxHint& /* rHint */ )
756 {
757 //    const SfxPoolItemHint *pPoolItemHint = PTR_CAST(SfxPoolItemHint, &rHint);
758 	/*
759 	if ( pPoolItemHint
760 		 && ( pPoolItemHint->GetObject()->ISA( SvxColorTableItem ) ) )
761 	{
762 		// Die Liste der Farben hat sich geaendert
763 		pColorTable = ( (SvxColorTableItem*) pPoolItemHint->GetObject() )->GetColorTable();
764 		FillValueSet();
765 	}
766 	*/
767 }
768 
769 
770 /*************************************************************************
771 #*	Member:		Resize									Datum:06.10.97
772 #*------------------------------------------------------------------------
773 #*
774 #*  Klasse:		ScFunctionDockWin
775 #*
776 #*  Funktion:	Ueberladene Funktion um die Groesse der
777 #*				einzelnen Controls einzustellen.
778 #*
779 #*  Input:		neue Groesse
780 #*
781 #*	Output:		---
782 #*
783 #************************************************************************/
784 
785 void __EXPORT ScFunctionDockWin::Resize()
786 {
787 	if ( !IsFloatingMode() ||
788 		 !GetFloatingWindow()->IsRollUp() )
789 	{
790 		Size aQSize=GetOutputSizePixel();
791 		Resizing( aQSize);
792 		SetSize();
793 	}
794 	SfxDockingWindow::Resize();
795 }
796 
797 /*************************************************************************
798 #*	Member:		UpdateFunctionList							Datum:06.10.97
799 #*------------------------------------------------------------------------
800 #*
801 #*  Klasse:		ScFunctionDockWin
802 #*
803 #*  Funktion:	Aktualisiert die Liste der Funktionen ab-
804 #*				haengig von der eingestellten Kategorie.
805 #*
806 #*  Input:		---
807 #*
808 #*	Output:		---
809 #*
810 #************************************************************************/
811 
812 void ScFunctionDockWin::UpdateFunctionList()
813 {
814 	sal_uInt16	nSelPos	  = aCatBox.GetSelectEntryPos();
815 	sal_uInt16	nCategory = ( LISTBOX_ENTRY_NOTFOUND != nSelPos )
816 							? (nSelPos-1) : 0;
817 
818 	pAllFuncList->Clear();
819 	pAllFuncList->SetUpdateMode( sal_False );
820 
821 	if ( nSelPos > 0 )
822 	{
823 		ScFunctionMgr* pFuncMgr = ScGlobal::GetStarCalcFunctionMgr();
824 
825 		const ScFuncDesc* pDesc = pFuncMgr->First( nCategory );
826 		while ( pDesc )
827 		{
828 			pAllFuncList->SetEntryData(
829 				pAllFuncList->InsertEntry( *(pDesc->pFuncName) ),
830 				(void*)pDesc );
831 			pDesc = pFuncMgr->Next();
832 		}
833 	}
834 	else // LRU-Liste
835 	{
836 		for ( sal_uInt16 i=0; i<LRU_MAX && aLRUList[i]; i++ )
837 		{
838 			const ScFuncDesc* pDesc = aLRUList[i];
839 			pAllFuncList->SetEntryData(
840 					pAllFuncList->InsertEntry( *(pDesc->pFuncName) ),
841 					(void*)pDesc );
842 		}
843 	}
844 
845 
846 	//------------------------------------------------------
847 	pAllFuncList->SetUpdateMode( sal_True );
848 
849 	if ( pAllFuncList->GetEntryCount() > 0 )
850 	{
851 		pAllFuncList->Enable();
852 		pAllFuncList->SelectEntryPos( 0 );
853 	}
854 	else
855 	{
856 		pAllFuncList->Disable();
857 	}
858 }
859 
860 /*************************************************************************
861 #*	Member:		DoEnter										Datum:06.10.97
862 #*------------------------------------------------------------------------
863 #*
864 #*  Klasse:		ScFunctionDockWin
865 #*
866 #*  Funktion:	Eingabe ins Dokument uebernehmen. Wird aufgerufen
867 #*				nach betaetigen der Uebernehmen- Schaltflaeche
868 #*				oder einem Doppelklick in die Funktionsliste.
869 #*
870 #*  Input:		---
871 #*
872 #*	Output:		---
873 #*
874 #************************************************************************/
875 
876 void ScFunctionDockWin::DoEnter(sal_Bool /* bOk */) //@@ ???
877 {
878 	String aFirstArgStr;
879 	String aParaStr;
880 	String aArgStr;
881 	String aString=pAllFuncList->GetSelectEntry();
882 	SfxViewShell* pCurSh = SfxViewShell::Current();
883 	nArgs=0;
884 
885 	if(aString.Len()>0)
886 	{
887 
888 		ScModule* pScMod = SC_MOD();
889 		ScTabViewShell* pViewSh = PTR_CAST( ScTabViewShell, pCurSh);
890 		ScInputHandler* pHdl = pScMod->GetInputHdl( pViewSh );
891 		if(!pScMod->IsEditMode())
892 		{
893 			pScMod->SetInputMode(SC_INPUT_TABLE);
894 			aString = '=';
895 			aString += pAllFuncList->GetSelectEntry();
896 			if (pHdl)
897 				pHdl->ClearText();
898 		}
899 		const ScFuncDesc* pDesc =
900 			 (const ScFuncDesc*)pAllFuncList->GetEntryData(
901 					pAllFuncList->GetSelectEntryPos() );
902 		if (pDesc)
903 		{
904 			pFuncDesc=pDesc;
905 			UpdateLRUList();
906 			nArgs = pDesc->nArgCount;
907 			if(nArgs>0)
908 			{
909                 // NOTE: Theoretically the first parameter could have the
910                 // suppress flag as well, but practically it doesn't.
911 				aFirstArgStr = *(pDesc->ppDefArgNames[0]);
912 				aFirstArgStr.EraseLeadingAndTrailingChars();
913                 aFirstArgStr.SearchAndReplaceAll(' ', '_');
914 				aArgStr = aFirstArgStr;
915 				if ( nArgs != VAR_ARGS )
916 				{	// no VarArgs or Fix plus VarArgs, but not VarArgs only
917 					String aArgSep = String::CreateFromAscii(RTL_CONSTASCII_STRINGPARAM( "; " ));
918 					sal_uInt16 nFix = ( nArgs < VAR_ARGS ? nArgs : nArgs - VAR_ARGS + 1 );
919 					for ( sal_uInt16 nArg = 1;
920 							nArg < nFix && !pDesc->pDefArgFlags[nArg].bOptional; nArg++ )
921 					{
922                         if (!pDesc->pDefArgFlags[nArg].bSuppress)
923                         {
924                             aArgStr += aArgSep;
925                             String sTmp(*(pDesc->ppDefArgNames[nArg]));
926                             sTmp.EraseLeadingAndTrailingChars();
927                             sTmp.SearchAndReplaceAll(' ', '_');
928                             aArgStr += sTmp;
929                         }
930 					}
931 				}
932 			}
933 		}
934 		if (pHdl)
935 		{
936 			if(pHdl->GetEditString().Len()==0)
937 			{
938 				aString = '=';
939 				aString += pAllFuncList->GetSelectEntry();
940 			}
941 			EditView *pEdView=pHdl->GetActiveView();
942 			if(pEdView!=NULL) // @ Wegen Absturz bei Namen festlegen
943 			{
944 				if(nArgs>0)
945 				{
946 					pHdl->InsertFunction(aString);
947 					pEdView->InsertText(aArgStr,sal_True);
948 					ESelection	aESel=pEdView->GetSelection();
949 					aESel.nEndPos=aESel.nStartPos+aFirstArgStr.Len();
950 					pEdView->SetSelection(aESel);
951 					pHdl->DataChanged();
952 				}
953 				else
954 				{
955 					aString.AppendAscii(RTL_CONSTASCII_STRINGPARAM( "()" ));
956 					pEdView->InsertText(aString,sal_False);
957 					pHdl->DataChanged();
958 				}
959 			}
960 		}
961 		InitLRUList();
962 	}
963 	if ( pCurSh )
964 	{
965 		Window* pShellWnd = pCurSh->GetWindow();
966 
967 		if ( pShellWnd )
968 			pShellWnd->GrabFocus();
969 	}
970 
971 
972 }
973 
974 
975 
976 /*************************************************************************
977 #*	Handle:		SelHdl										Datum:06.10.97
978 #*------------------------------------------------------------------------
979 #*
980 #*  Klasse:		ScFunctionDockWin
981 #*
982 #*  Funktion:	Bei einer Aenderung der Kategorie wird die
983 #*				die Liste der Funktionen aktualisiert.
984 #*
985 #*  Input:		---
986 #*
987 #*	Output:		---
988 #*
989 #************************************************************************/
990 
991 IMPL_LINK( ScFunctionDockWin, SelHdl, ListBox*, pLb )
992 {
993 	if ( pLb == &aCatBox)
994 	{
995 		UpdateFunctionList();
996 		SetDescription();
997 	}
998 
999 	if ( pLb == &aFuncList||pLb == &aDDFuncList)
1000 	{
1001 		SetDescription();
1002 	}
1003 
1004 
1005 	//SetSize();
1006 	return 0;
1007 }
1008 
1009 /*************************************************************************
1010 #*	Handle:		SelHdl										Datum:06.10.97
1011 #*------------------------------------------------------------------------
1012 #*
1013 #*  Klasse:		ScFunctionDockWin
1014 #*
1015 #*  Funktion:	Bei einer Aenderung der Kategorie wird die
1016 #*				die Liste der Funktionen aktualisiert.
1017 #*
1018 #*  Input:		---
1019 #*
1020 #*	Output:		---
1021 #*
1022 #************************************************************************/
1023 
1024 IMPL_LINK( ScFunctionDockWin, SetSelectionHdl, void*, pCtrl )
1025 {
1026 	if ((ImageButton *)pCtrl == &aInsertButton ||
1027 		(ListBox *)pCtrl == &aFuncList)
1028 	{
1029 		DoEnter(sal_True);			// Uebernimmt die Eingabe
1030 	}
1031 	//...
1032 
1033 	return 0;
1034 }
1035 
1036 /*************************************************************************
1037 #*	Handle:		SetSplitHdl									Datum:13.10.97
1038 #*------------------------------------------------------------------------
1039 #*
1040 #*  Klasse:		ScFunctionDockWin
1041 #*
1042 #*  Funktion:	Bei einer Aenderung des Split- Controls werden die
1043 #*				einzelnen Controls an die neue Groesse angepasst.
1044 #*
1045 #*  Input:		Zeiger auf Control
1046 #*
1047 #*	Output:		---
1048 #*
1049 #************************************************************************/
1050 
1051 IMPL_LINK( ScFunctionDockWin, SetSplitHdl, ScPrivatSplit*, pCtrl )
1052 {
1053 	if (pCtrl == &aPrivatSplit)
1054 	{
1055 		short nDeltaY=aPrivatSplit.GetDeltaY();
1056 		Size aFLSize=aFuncList.GetSizePixel();
1057 		Size aFDSize=aFiFuncDesc.GetSizePixel();
1058 		Point aFDTopLeft=aFiFuncDesc.GetPosPixel();
1059 
1060 		aFLSize.Height()+=nDeltaY;
1061 		aFDSize.Height()-=nDeltaY;
1062 		aFDTopLeft.Y()+=nDeltaY;
1063 		aFuncList.SetSizePixel(aFLSize);
1064 		aFiFuncDesc.SetPosPixel(aFDTopLeft);
1065 		aFiFuncDesc.SetSizePixel(aFDSize);
1066 		/*
1067 		aFuncList.Invalidate();
1068 		aFuncList.Update();
1069 		aFiFuncDesc.Invalidate();
1070 		aFiFuncDesc.Update();
1071 		*/
1072 	}
1073 	//...
1074 
1075 	return 0;
1076 }
1077 
1078 void ScFunctionDockWin::ToggleFloatingMode()
1079 {
1080 	aSplitterInitPos = Point();
1081 	SfxDockingWindow::ToggleFloatingMode();
1082 
1083 	eSfxNewAlignment=GetAlignment();
1084 	eSfxOldAlignment=eSfxNewAlignment;
1085 
1086 	aOldSize.Height()=0;
1087 	aOldSize.Width()=0;
1088 	aTimer.Start();
1089 }
1090 
1091 IMPL_LINK( ScFunctionDockWin, TimerHdl, Timer*, EMPTYARG )
1092 {
1093 	CheckAlignment(eSfxOldAlignment,eSfxNewAlignment);
1094 	SetSize();
1095 	return 0;
1096 }
1097 
1098 void ScFunctionDockWin::Initialize(SfxChildWinInfo *pInfo)
1099 {
1100 	String aStr;
1101 	if(pInfo!=NULL)
1102 	{
1103 		if ( pInfo->aExtraString.Len() )
1104 		{
1105 			xub_StrLen nPos = pInfo->aExtraString.Search(
1106 				String::CreateFromAscii(RTL_CONSTASCII_STRINGPARAM("ScFuncList:")));
1107 
1108 			// Versuche, den Alignment-String "ALIGN:(...)" einzulesen; wenn
1109 			// er nicht vorhanden ist, liegt eine "altere Version vor
1110 			if ( nPos != STRING_NOTFOUND )
1111 			{
1112 				xub_StrLen n1 = pInfo->aExtraString.Search('(', nPos);
1113 				if ( n1 != STRING_NOTFOUND )
1114 				{
1115 					xub_StrLen n2 = pInfo->aExtraString.Search(')', n1);
1116 					if ( n2 != STRING_NOTFOUND )
1117 					{
1118 						// Alignment-String herausschneiden
1119 						aStr = pInfo->aExtraString.Copy(nPos, n2 - nPos + 1);
1120 						pInfo->aExtraString.Erase(nPos, n2 - nPos + 1);
1121 						aStr.Erase(0, n1-nPos+1);
1122 					}
1123 				}
1124 			}
1125 		}
1126 	}
1127 	SfxDockingWindow::Initialize(pInfo);
1128 
1129 	if ( aStr.Len())
1130 	{
1131 		aSplitterInitPos=aPrivatSplit.GetPosPixel();
1132 		aSplitterInitPos.Y()=(sal_uInt16) aStr.ToInt32();
1133 		xub_StrLen n1 = aStr.Search(';');
1134 		aStr.Erase(0, n1+1);
1135         sal_uInt16 nSelPos=sal::static_int_cast<sal_uInt16>( aStr.ToInt32() );
1136 		aCatBox.SelectEntryPos(nSelPos);
1137 		SelHdl(&aCatBox);
1138 
1139 		//	if the window has already been shown (from SfxDockingWindow::Initialize if docked),
1140 		//	set the splitter position now, otherwise it is set in StateChanged with type INITSHOW
1141 
1142 		UseSplitterInitPos();
1143 	}
1144 }
1145 
1146 //-------------------------------------------------------------------------
1147 
1148 void ScFunctionDockWin::FillInfo(SfxChildWinInfo& rInfo) const
1149 {
1150 	SfxDockingWindow::FillInfo(rInfo);
1151 	Point aPoint=aPrivatSplit.GetPosPixel();
1152 	rInfo.aExtraString.AppendAscii(RTL_CONSTASCII_STRINGPARAM( "ScFuncList:(" ));
1153 	rInfo.aExtraString += String::CreateFromInt32(aPoint.Y());
1154 	rInfo.aExtraString += ';';
1155 	rInfo.aExtraString += String::CreateFromInt32(aCatBox.GetSelectEntryPos());
1156 	rInfo.aExtraString += ')';
1157 }
1158 
1159 void ScFunctionDockWin::UseSplitterInitPos()
1160 {
1161 	if ( IsVisible() && aPrivatSplit.IsEnabled() && aSplitterInitPos != Point() )
1162 	{
1163 		aPrivatSplit.MoveSplitTo(aSplitterInitPos);
1164 		aSplitterInitPos = Point();		// use only once
1165 	}
1166 }
1167 
1168 void ScFunctionDockWin::StateChanged( StateChangedType nStateChange )
1169 {
1170 	SfxDockingWindow::StateChanged( nStateChange );
1171 
1172 	if (nStateChange == STATE_CHANGE_INITSHOW)
1173 	{
1174 		UseSplitterInitPos();			//	set initial splitter position if necessary
1175 	}
1176 }
1177 
1178 
1179