?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
update dev300-m58
[ooovba.git] / sw / source / ui / docvw / srcedtw.cxx
blob759fac9391ffcd79acc3476746976c37efac2f47
1 /*************************************************************************
2 *
3 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
4 *
5 * Copyright 2008 by Sun Microsystems, Inc.
6 *
7 * OpenOffice.org - a multi-platform office productivity suite
8 *
9 * $RCSfile: srcedtw.cxx,v $
10 * $Revision: 1.21.252.1 $
11 *
12 * This file is part of OpenOffice.org.
13 *
14 * OpenOffice.org is free software: you can redistribute it and/or modify
15 * it under the terms of the GNU Lesser General Public License version 3
16 * only, as published by the Free Software Foundation.
17 *
18 * OpenOffice.org is distributed in the hope that it will be useful,
19 * but WITHOUT ANY WARRANTY; without even the implied warranty of
20 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
21 * GNU Lesser General Public License version 3 for more details
22 * (a copy is included in the LICENSE file that accompanied this code).
23 *
24 * You should have received a copy of the GNU Lesser General Public License
25 * version 3 along with OpenOffice.org. If not, see
26 * <http://www.openoffice.org/license.html>
27 * for a copy of the LGPLv3 License.
28 *
29 ************************************************************************/
30
31 // MARKER(update_precomp.py): autogen include statement, do not remove
32 #include "precompiled_sw.hxx"
33
34
35 #include <hintids.hxx>
36 #ifndef _CMDID_H
37 #include <cmdid.h>
38 #endif
39
40
41 #include <svtools/textview.hxx>
42 #ifndef _SVX_SVXIDS_HRC
43 #include <svx/svxids.hrc>
44 #endif
45 #ifndef _SCRBAR_HXX //autogen
46 #include <vcl/scrbar.hxx>
47 #endif
48 #include <sfx2/dispatch.hxx>
49 #include <sfx2/app.hxx>
50 #include <svtools/htmltokn.h>
51 #include <svtools/txtattr.hxx>
52 #include <svtools/sourceviewconfig.hxx>
53 #include <svtools/colorcfg.hxx>
54 #include <svx/flstitem.hxx>
55 #include <vcl/metric.hxx>
56 #include <svtools/ctrltool.hxx>
57 #include <tools/time.hxx>
58 #include <swmodule.hxx>
59 #ifndef _DOCSH_HXX
60 #include <docsh.hxx>
61 #endif
62 #ifndef _SRCVIEW_HXX
63 #include <srcview.hxx>
64 #endif
65 #ifndef _HELPID_H
66 #include <helpid.h>
67 #endif
68
69
70 struct SwTextPortion
71 {
72 USHORT nLine;
73 USHORT nStart, nEnd;
74 svtools::ColorConfigEntry eType;
75 };
76
77 #define MAX_SYNTAX_HIGHLIGHT 20
78 #define MAX_HIGHLIGHTTIME 200
79 #define SYNTAX_HIGHLIGHT_TIMEOUT 200
80
81 SV_DECL_VARARR(SwTextPortions, SwTextPortion,16,16)
82
83 /* -----------------15.01.97 12.07-------------------
84
85 --------------------------------------------------*/
86
87 SV_IMPL_VARARR(SwTextPortions, SwTextPortion)
88
89 /*-----------------15.01.97 12.08-------------------
90
91 --------------------------------------------------*/
92
93 static void lcl_Highlight(const String& rSource, SwTextPortions& aPortionList)
94 {
95 const sal_Unicode cOpenBracket = '<';
96 const sal_Unicode cCloseBracket= '>';
97 const sal_Unicode cSlash = '/';
98 const sal_Unicode cExclamation = '!';
99 const sal_Unicode cMinus = '-';
100 const sal_Unicode cSpace = ' ';
101 const sal_Unicode cTab = 0x09;
102 const sal_Unicode cLF = 0x0a;
103 const sal_Unicode cCR = 0x0d;
104
105
106 const USHORT nStrLen = rSource.Len();
107 USHORT nInsert = 0; // Anzahl der eingefuegten Portions
108 USHORT nActPos = 0; //Position, an der '<' gefunden wurde
109 USHORT nOffset = 0; //Offset von nActPos zur '<'
110 USHORT nPortStart = USHRT_MAX; // fuer die TextPortion
111 USHORT nPortEnd = 0; //
112 SwTextPortion aText;
113 while(nActPos < nStrLen)
114 {
115 svtools::ColorConfigEntry eFoundType = svtools::HTMLUNKNOWN;
116 if(rSource.GetChar(nActPos) == cOpenBracket && nActPos < nStrLen - 2 )
117 {
118 // 'leere' Portion einfuegen
119 if(nPortEnd < nActPos - 1 )
120 {
121 aText.nLine = 0;
122 // am Anfang nicht verschieben
123 aText.nStart = nPortEnd;
124 if(nInsert)
125 aText.nStart += 1;
126 aText.nEnd = nActPos - 1;
127 aText.eType = svtools::HTMLUNKNOWN;
128 aPortionList.Insert(aText, nInsert++);
129 }
130 sal_Unicode cFollowFirst = rSource.GetChar((xub_StrLen)(nActPos + 1));
131 sal_Unicode cFollowNext = rSource.GetChar((xub_StrLen)(nActPos + 2));
132 if(cExclamation == cFollowFirst)
133 {
134 // "<!" SGML oder Kommentar
135 if(cMinus == cFollowNext &&
136 nActPos < nStrLen - 3 && cMinus == rSource.GetChar((xub_StrLen)(nActPos + 3)))
137 {
138 eFoundType = svtools::HTMLCOMMENT;
139 }
140 else
141 eFoundType = svtools::HTMLSGML;
142 nPortStart = nActPos;
143 nPortEnd = nActPos + 1;
144 }
145 else if(cSlash == cFollowFirst)
146 {
147 // "</" Slash ignorieren
148 nPortStart = nActPos;
149 nActPos++;
150 nOffset++;
151 }
152 if(svtools::HTMLUNKNOWN == eFoundType)
153 {
154 //jetzt koennte hier ein keyword folgen
155 USHORT nSrchPos = nActPos;
156 while(++nSrchPos < nStrLen - 1)
157 {
158 sal_Unicode cNext = rSource.GetChar(nSrchPos);
159 if( cNext == cSpace ||
160 cNext == cTab ||
161 cNext == cLF ||
162 cNext == cCR)
163 break;
164 else if(cNext == cCloseBracket)
165 {
166 break;
167 }
168 }
169 if(nSrchPos > nActPos + 1)
170 {
171 //irgend ein String wurde gefunden
172 String sToken = rSource.Copy(nActPos + 1, nSrchPos - nActPos - 1 );
173 sToken.ToUpperAscii();
174 int nToken = ::GetHTMLToken(sToken);
175 if(nToken)
176 {
177 //Token gefunden
178 eFoundType = svtools::HTMLKEYWORD;
179 nPortEnd = nSrchPos;
180 nPortStart = nActPos;
181 }
182 else
183 {
184 //was war das denn?
185 #if OSL_DEBUG_LEVEL > 1
186 DBG_ERROR("Token nicht erkannt!");
187 DBG_ERROR(ByteString(sToken, gsl_getSystemTextEncoding()).GetBuffer());
188 #endif
189 }
190
191 }
192 }
193 // jetzt muss noch '>' gesucht werden
194 if(svtools::HTMLUNKNOWN != eFoundType)
195 {
196 BOOL bFound = FALSE;
197 for(USHORT i = nPortEnd; i < nStrLen; i++)
198 if(cCloseBracket == rSource.GetChar(i))
199 {
200 bFound = TRUE;
201 nPortEnd = i;
202 break;
203 }
204 if(!bFound && (eFoundType == svtools::HTMLCOMMENT))
205 {
206 // Kommentar ohne Ende in dieser Zeile
207 bFound = TRUE;
208 nPortEnd = nStrLen - 1;
209 }
210
211 if(bFound ||(eFoundType == svtools::HTMLCOMMENT))
212 {
213 SwTextPortion aTextPortion;
214 aTextPortion.nLine = 0;
215 aTextPortion.nStart = nPortStart + 1;
216 aTextPortion.nEnd = nPortEnd;
217 aTextPortion.eType = eFoundType;
218 aPortionList.Insert(aTextPortion, nInsert++);
219 eFoundType = svtools::HTMLUNKNOWN;
220 }
221
222 }
223 }
224 nActPos++;
225 }
226 if(nInsert && nPortEnd < nActPos - 1)
227 {
228 aText.nLine = 0;
229 aText.nStart = nPortEnd + 1;
230 aText.nEnd = nActPos - 1;
231 aText.eType = svtools::HTMLUNKNOWN;
232 aPortionList.Insert(aText, nInsert++);
233 }
234 }
235
236 /*--------------------------------------------------------------------
237 Beschreibung:
238 --------------------------------------------------------------------*/
239
240
241 SwSrcEditWindow::SwSrcEditWindow( Window* pParent, SwSrcView* pParentView ) :
242 Window( pParent, WB_BORDER|WB_CLIPCHILDREN ),
243
244 pTextEngine(0),
245
246 pOutWin(0),
247 pHScrollbar(0),
248 pVScrollbar(0),
249
250 pSrcView(pParentView),
251 pSourceViewConfig(new svt::SourceViewConfig),
252
253 nCurTextWidth(0),
254 nStartLine(USHRT_MAX),
255 eSourceEncoding(gsl_getSystemTextEncoding()),
256 bDoSyntaxHighlight(TRUE),
257 bHighlighting(FALSE)
258 {
259 SetHelpId(HID_SOURCE_EDITWIN);
260 CreateTextEngine();
261 StartListening(*pSourceViewConfig);
262 }
263 /*--------------------------------------------------------------------
264 Beschreibung:
265 --------------------------------------------------------------------*/
266 SwSrcEditWindow::~SwSrcEditWindow()
267 {
268 EndListening(*pSourceViewConfig);
269 delete pSourceViewConfig;
270 aSyntaxIdleTimer.Stop();
271 if ( pTextEngine )
272 {
273 EndListening( *pTextEngine );
274 pTextEngine->RemoveView( pTextView );
275
276 delete pHScrollbar;
277 delete pVScrollbar;
278
279 delete pTextView;
280 delete pTextEngine;
281 }
282 delete pOutWin;
283 }
284
285 /*--------------------------------------------------------------------
286 Beschreibung:
287 --------------------------------------------------------------------*/
288
289 void SwSrcEditWindow::DataChanged( const DataChangedEvent& rDCEvt )
290 {
291 Window::DataChanged( rDCEvt );
292
293 switch ( rDCEvt.GetType() )
294 {
295 case DATACHANGED_SETTINGS:
296 // ScrollBars neu anordnen bzw. Resize ausloesen, da sich
297 // ScrollBar-Groesse geaendert haben kann. Dazu muss dann im
298 // Resize-Handler aber auch die Groesse der ScrollBars aus
299 // den Settings abgefragt werden.
300 if( rDCEvt.GetFlags() & SETTINGS_STYLE )
301 Resize();
302 break;
303 }
304 }
305
306 void SwSrcEditWindow::Resize()
307 {
308 // ScrollBars, etc. passiert in Adjust...
309 if ( pTextView )
310 {
311 long nVisY = pTextView->GetStartDocPos().Y();
312 pTextView->ShowCursor();
313 Size aOutSz( GetOutputSizePixel() );
314 long nMaxVisAreaStart = pTextView->GetTextEngine()->GetTextHeight() - aOutSz.Height();
315 if ( nMaxVisAreaStart < 0 )
316 nMaxVisAreaStart = 0;
317 if ( pTextView->GetStartDocPos().Y() > nMaxVisAreaStart )
318 {
319 Point aStartDocPos( pTextView->GetStartDocPos() );
320 aStartDocPos.Y() = nMaxVisAreaStart;
321 pTextView->SetStartDocPos( aStartDocPos );
322 pTextView->ShowCursor();
323 }
324 long nScrollStd = GetSettings().GetStyleSettings().GetScrollBarSize();
325 Size aScrollSz(aOutSz.Width() - nScrollStd, nScrollStd );
326 Point aScrollPos(0, aOutSz.Height() - nScrollStd);
327
328 pHScrollbar->SetPosSizePixel( aScrollPos, aScrollSz);
329
330 aScrollSz.Width() = aScrollSz.Height();
331 aScrollSz.Height() = aOutSz.Height();
332 aScrollPos = Point(aOutSz.Width() - nScrollStd, 0);
333
334 pVScrollbar->SetPosSizePixel( aScrollPos, aScrollSz);
335 aOutSz.Width() -= nScrollStd;
336 aOutSz.Height() -= nScrollStd;
337 pOutWin->SetOutputSizePixel(aOutSz);
338 InitScrollBars();
339
340 // Zeile im ersten Resize setzen
341 if(USHRT_MAX != nStartLine)
342 {
343 if(nStartLine < pTextEngine->GetParagraphCount())
344 {
345 TextSelection aSel(TextPaM( nStartLine, 0 ), TextPaM( nStartLine, 0x0 ));
346 pTextView->SetSelection(aSel);
347 pTextView->ShowCursor();
348 }
349 nStartLine = USHRT_MAX;
350 }
351
352 if ( nVisY != pTextView->GetStartDocPos().Y() )
353 Invalidate();
354 }
355
356 }
357
358 /*--------------------------------------------------------------------
359 Beschreibung:
360 --------------------------------------------------------------------*/
361
362 void TextViewOutWin::DataChanged( const DataChangedEvent& rDCEvt )
363 {
364 Window::DataChanged( rDCEvt );
365
366 switch( rDCEvt.GetType() )
367 {
368 case DATACHANGED_SETTINGS:
369 // den Settings abgefragt werden.
370 if( rDCEvt.GetFlags() & SETTINGS_STYLE )
371 {
372 const Color &rCol = GetSettings().GetStyleSettings().GetWindowColor();
373 SetBackground( rCol );
374 Font aFont( pTextView->GetTextEngine()->GetFont() );
375 aFont.SetFillColor( rCol );
376 pTextView->GetTextEngine()->SetFont( aFont );
377 }
378 break;
379 }
380 }
381
382 void TextViewOutWin::MouseMove( const MouseEvent &rEvt )
383 {
384 if ( pTextView )
385 pTextView->MouseMove( rEvt );
386 }
387
388 /*--------------------------------------------------------------------
389 Beschreibung:
390 --------------------------------------------------------------------*/
391
392
393 void TextViewOutWin::MouseButtonUp( const MouseEvent &rEvt )
394 {
395 if ( pTextView )
396 {
397 pTextView->MouseButtonUp( rEvt );
398 ((SwSrcEditWindow*)GetParent())->GetSrcView()->GetViewFrame()->
399 GetBindings().Invalidate( SID_TABLE_CELL );
400 }
401 }
402
403 /*--------------------------------------------------------------------
404 Beschreibung:
405 --------------------------------------------------------------------*/
406
407
408 void TextViewOutWin::MouseButtonDown( const MouseEvent &rEvt )
409 {
410 GrabFocus();
411 if ( pTextView )
412 pTextView->MouseButtonDown( rEvt );
413 }
414
415 /*--------------------------------------------------------------------
416 Beschreibung:
417 --------------------------------------------------------------------*/
418
419
420 void TextViewOutWin::Command( const CommandEvent& rCEvt )
421 {
422 switch(rCEvt.GetCommand())
423 {
424 case COMMAND_CONTEXTMENU:
425 ((SwSrcEditWindow*)GetParent())->GetSrcView()->GetViewFrame()->
426 GetDispatcher()->ExecutePopup();
427 break;
428 case COMMAND_WHEEL:
429 case COMMAND_STARTAUTOSCROLL:
430 case COMMAND_AUTOSCROLL:
431 {
432 const CommandWheelData* pWData = rCEvt.GetWheelData();
433 if( !pWData || COMMAND_WHEEL_ZOOM != pWData->GetMode() )
434 {
435 ((SwSrcEditWindow*)GetParent())->HandleWheelCommand( rCEvt );
436 }
437 }
438 break;
439
440 default:
441 if ( pTextView )
442 pTextView->Command( rCEvt );
443 else
444 Window::Command(rCEvt);
445 }
446 }
447
448
449 /*--------------------------------------------------------------------
450 Beschreibung:
451 --------------------------------------------------------------------*/
452
453
454 void TextViewOutWin::KeyInput( const KeyEvent& rKEvt )
455 {
456 BOOL bDone = FALSE;
457 SwSrcEditWindow* pSrcEditWin = (SwSrcEditWindow*)GetParent();
458 BOOL bChange = !pSrcEditWin->IsReadonly() || !TextEngine::DoesKeyChangeText( rKEvt );
459 if(bChange)
460 bDone = pTextView->KeyInput( rKEvt );
461
462 if ( !bDone )
463 {
464 if ( !SfxViewShell::Current()->KeyInput( rKEvt ) )
465 Window::KeyInput( rKEvt );
466 }
467 else
468 {
469 SfxBindings& rBindings = ((SwSrcEditWindow*)GetParent())->GetSrcView()->GetViewFrame()->GetBindings();
470 rBindings.Invalidate( SID_TABLE_CELL );
471 if ( rKEvt.GetKeyCode().GetGroup() == KEYGROUP_CURSOR )
472 rBindings.Update( SID_BASICIDE_STAT_POS );
473 if (pSrcEditWin->GetTextEngine()->IsModified() )
474 {
475 rBindings.Invalidate( SID_SAVEDOC );
476 rBindings.Invalidate( SID_DOC_MODIFIED );
477 }
478 if( rKEvt.GetKeyCode().GetCode() == KEY_INSERT )
479 rBindings.Invalidate( SID_ATTR_INSERT );
480 }
481 SwDocShell* pDocShell = pSrcEditWin->GetSrcView()->GetDocShell();
482 if(pSrcEditWin->GetTextEngine()->IsModified())
483 {
484 pDocShell->SetModified();
485 }
486 }
487
488 /*--------------------------------------------------------------------
489 Beschreibung:
490 --------------------------------------------------------------------*/
491
492
493 void TextViewOutWin::Paint( const Rectangle& rRect )
494 {
495 pTextView->Paint( rRect );
496 }
497
498 /*--------------------------------------------------------------------
499 Beschreibung:
500 --------------------------------------------------------------------*/
501
502
503 void SwSrcEditWindow::CreateTextEngine()
504 {
505 const Color &rCol = GetSettings().GetStyleSettings().GetWindowColor();
506 pOutWin = new TextViewOutWin(this, 0);
507 pOutWin->SetBackground(Wallpaper(rCol));
508 pOutWin->SetPointer(Pointer(POINTER_TEXT));
509 pOutWin->Show();
510
511 //Scrollbars anlegen
512 pHScrollbar = new ScrollBar(this, WB_3DLOOK |WB_HSCROLL|WB_DRAG);
513 pHScrollbar->EnableRTL( false ); // #107300# --- RTL --- no mirroring for scrollbars
514 pHScrollbar->SetScrollHdl(LINK(this, SwSrcEditWindow, ScrollHdl));
515 pHScrollbar->Show();
516
517 pVScrollbar = new ScrollBar(this, WB_3DLOOK |WB_VSCROLL|WB_DRAG);
518 pVScrollbar->EnableRTL( false ); // #107300# --- RTL --- no mirroring for scrollbars
519 pVScrollbar->SetScrollHdl(LINK(this, SwSrcEditWindow, ScrollHdl));
520 pHScrollbar->EnableDrag();
521 pVScrollbar->Show();
522
523 pTextEngine = new ExtTextEngine;
524 pTextView = new ExtTextView( pTextEngine, pOutWin );
525 pTextView->SetAutoIndentMode(TRUE);
526 pOutWin->SetTextView(pTextView);
527
528 pTextEngine->SetUpdateMode( FALSE );
529 pTextEngine->InsertView( pTextView );
530
531 Font aFont;
532 aFont.SetTransparent( FALSE );
533 aFont.SetFillColor( rCol );
534 SetPointFont( aFont );
535 aFont = GetFont();
536 aFont.SetFillColor( rCol );
537 pOutWin->SetFont( aFont );
538 pTextEngine->SetFont( aFont );
539
540 aSyntaxIdleTimer.SetTimeout( SYNTAX_HIGHLIGHT_TIMEOUT );
541 aSyntaxIdleTimer.SetTimeoutHdl( LINK( this, SwSrcEditWindow, SyntaxTimerHdl ) );
542
543 pTextEngine->EnableUndo( TRUE );
544 pTextEngine->SetUpdateMode( TRUE );
545
546 pTextView->ShowCursor( TRUE, TRUE );
547 InitScrollBars();
548 StartListening( *pTextEngine );
549
550 SfxBindings& rBind = GetSrcView()->GetViewFrame()->GetBindings();
551 rBind.Invalidate( SID_TABLE_CELL );
552 // rBind.Invalidate( SID_ATTR_CHAR_FONTHEIGHT );
553 }
554
555 /*--------------------------------------------------------------------
556 Beschreibung:
557 --------------------------------------------------------------------*/
558
559 /*--------------------------------------------------------------------
560 Beschreibung:
561 --------------------------------------------------------------------*/
562
563
564 void SwSrcEditWindow::SetScrollBarRanges()
565 {
566 // Extra-Methode, nicht InitScrollBars, da auch fuer TextEngine-Events.
567
568 pHScrollbar->SetRange( Range( 0, nCurTextWidth-1 ) );
569 pVScrollbar->SetRange( Range(0, pTextEngine->GetTextHeight()-1) );
570 }
571
572 /*--------------------------------------------------------------------
573 Beschreibung:
574 --------------------------------------------------------------------*/
575
576
577 void SwSrcEditWindow::InitScrollBars()
578 {
579 SetScrollBarRanges();
580
581 Size aOutSz( pOutWin->GetOutputSizePixel() );
582 pVScrollbar->SetVisibleSize( aOutSz.Height() );
583 pVScrollbar->SetPageSize( aOutSz.Height() * 8 / 10 );
584 pVScrollbar->SetLineSize( pOutWin->GetTextHeight() );
585 pVScrollbar->SetThumbPos( pTextView->GetStartDocPos().Y() );
586 pHScrollbar->SetVisibleSize( aOutSz.Width() );
587 pHScrollbar->SetPageSize( aOutSz.Width() * 8 / 10 );
588 pHScrollbar->SetLineSize( pOutWin->GetTextWidth( 'x' ) );
589 pHScrollbar->SetThumbPos( pTextView->GetStartDocPos().X() );
590
591 }
592
593 /*--------------------------------------------------------------------
594 Beschreibung:
595 --------------------------------------------------------------------*/
596
597
598 IMPL_LINK(SwSrcEditWindow, ScrollHdl, ScrollBar*, pScroll)
599 {
600 if(pScroll == pVScrollbar)
601 {
602 long nDiff = pTextView->GetStartDocPos().Y() - pScroll->GetThumbPos();
603 GetTextView()->Scroll( 0, nDiff );
604 pTextView->ShowCursor( FALSE, TRUE );
605 pScroll->SetThumbPos( pTextView->GetStartDocPos().Y() );
606 }
607 else
608 {
609 long nDiff = pTextView->GetStartDocPos().X() - pScroll->GetThumbPos();
610 GetTextView()->Scroll( nDiff, 0 );
611 pTextView->ShowCursor( FALSE, TRUE );
612 pScroll->SetThumbPos( pTextView->GetStartDocPos().X() );
613 }
614 GetSrcView()->GetViewFrame()->GetBindings().Invalidate( SID_TABLE_CELL );
615 return 0;
616 }
617
618 /*-----------------15.01.97 09.22-------------------
619
620 --------------------------------------------------*/
621
622 IMPL_LINK( SwSrcEditWindow, SyntaxTimerHdl, Timer *, pTimer )
623 {
624 Time aSyntaxCheckStart;
625 DBG_ASSERT( pTextView, "Noch keine View, aber Syntax-Highlight ?!" );
626 // pTextEngine->SetUpdateMode( FALSE );
627
628 bHighlighting = TRUE;
629 USHORT nLine;
630 USHORT nCount = 0;
631 // zuerst wird der Bereich um dem Cursor bearbeitet
632 TextSelection aSel = pTextView->GetSelection();
633 USHORT nCur = (USHORT)aSel.GetStart().GetPara();
634 if(nCur > 40)
635 nCur -= 40;
636 else
637 nCur = 0;
638 if(aSyntaxLineTable.Count())
639 for(USHORT i = 0; i < 80 && nCount < 40; i++, nCur++)
640 {
641 void * p = aSyntaxLineTable.Get(nCur);
642 if(p)
643 {
644 DoSyntaxHighlight( nCur );
645 aSyntaxLineTable.Remove( nCur );
646 nCount++;
647 if(!aSyntaxLineTable.Count())
648 break;
649 if((Time().GetTime() - aSyntaxCheckStart.GetTime()) > MAX_HIGHLIGHTTIME )
650 {
651 pTimer->SetTimeout( 2 * SYNTAX_HIGHLIGHT_TIMEOUT );
652 break;
653 }
654 }
655 }
656
657 // wenn dann noch etwas frei ist, wird von Beginn an weitergearbeitet
658 void* p = aSyntaxLineTable.First();
659 while ( p && nCount < MAX_SYNTAX_HIGHLIGHT)
660 {
661 nLine = (USHORT)aSyntaxLineTable.GetCurKey();
662 DoSyntaxHighlight( nLine );
663 USHORT nCurKey = (USHORT)aSyntaxLineTable.GetCurKey();
664 p = aSyntaxLineTable.Next();
665 aSyntaxLineTable.Remove(nCurKey);
666 nCount ++;
667 if(Time().GetTime() - aSyntaxCheckStart.GetTime() > MAX_HIGHLIGHTTIME)
668 {
669 pTimer->SetTimeout( 2 * SYNTAX_HIGHLIGHT_TIMEOUT );
670 break;
671 }
672 }
673 // os: #43050# hier wird ein TextView-Problem umpopelt:
674 // waehrend des Highlightings funktionierte das Scrolling nicht
675 /* MT: Shouldn't be a oproblem any more, using IdeFormatter in Insert/RemoveAttrib now.
676
677 TextView* pTmp = pTextEngine->GetActiveView();
678 pTextEngine->SetActiveView(0);
679 // pTextEngine->SetUpdateMode( TRUE );
680 pTextEngine->SetActiveView(pTmp);
681 pTextView->ShowCursor(FALSE, FALSE);
682 */
683
684 if(aSyntaxLineTable.Count() && !pTimer->IsActive())
685 pTimer->Start();
686 // SyntaxTimerHdl wird gerufen, wenn Text-Aenderung
687 // => gute Gelegenheit, Textbreite zu ermitteln!
688 long nPrevTextWidth = nCurTextWidth;
689 nCurTextWidth = pTextEngine->CalcTextWidth() + 25; // kleine Toleranz
690 if ( nCurTextWidth != nPrevTextWidth )
691 SetScrollBarRanges();
692 bHighlighting = FALSE;
693
694 return 0;
695 }
696 /*-----------------15.01.97 10.01-------------------
697
698 --------------------------------------------------*/
699
700 void SwSrcEditWindow::DoSyntaxHighlight( USHORT nPara )
701 {
702 // Durch das DelayedSyntaxHighlight kann es passieren,
703 // dass die Zeile nicht mehr existiert!
704 if ( nPara < pTextEngine->GetParagraphCount() )
705 {
706 BOOL bTempModified = IsModified();
707 pTextEngine->RemoveAttribs( nPara, (BOOL)TRUE );
708 String aSource( pTextEngine->GetText( nPara ) );
709 pTextEngine->SetUpdateMode( FALSE );
710 ImpDoHighlight( aSource, nPara );
711 // os: #43050# hier wird ein TextView-Problem umpopelt:
712 // waehrend des Highlightings funktionierte das Scrolling nicht
713 TextView* pTmp = pTextEngine->GetActiveView();
714 pTmp->SetAutoScroll(FALSE);
715 pTextEngine->SetActiveView(0);
716 pTextEngine->SetUpdateMode( TRUE );
717 pTextEngine->SetActiveView(pTmp);
718 // Bug 72887 show the cursor
719 pTmp->SetAutoScroll(TRUE);
720 pTmp->ShowCursor( FALSE/*pTmp->IsAutoScroll()*/ );
721
722 if(!bTempModified)
723 ClearModifyFlag();
724 }
725 }
726
727 /*-----------------15.01.97 09.49-------------------
728
729 --------------------------------------------------*/
730
731 void SwSrcEditWindow::DoDelayedSyntaxHighlight( USHORT nPara )
732 {
733 if ( !bHighlighting && bDoSyntaxHighlight )
734 {
735 aSyntaxLineTable.Insert( nPara, (void*)(USHORT)1 );
736 aSyntaxIdleTimer.Start();
737 }
738 }
739
740 /*-----------------15.01.97 11.32-------------------
741
742 --------------------------------------------------*/
743
744 void SwSrcEditWindow::ImpDoHighlight( const String& rSource, USHORT nLineOff )
745 {
746 SwTextPortions aPortionList;
747 lcl_Highlight(rSource, aPortionList);
748
749 USHORT nCount = aPortionList.Count();
750 if ( !nCount )
751 return;
752
753 SwTextPortion& rLast = aPortionList[nCount-1];
754 if ( rLast.nStart > rLast.nEnd ) // Nur bis Bug von MD behoeben
755 {
756 nCount--;
757 aPortionList.Remove( nCount);
758 if ( !nCount )
759 return;
760 }
761
762 // Evtl. Optimieren:
763 // Wenn haufig gleiche Farbe, dazwischen Blank ohne Farbe,
764 // ggf. zusammenfassen, oder zumindest das Blank,
765 // damit weniger Attribute
766 BOOL bOptimizeHighlight = TRUE; // war in der BasicIDE static
767 if ( bOptimizeHighlight )
768 {
769 // Es muessen nur die Blanks und Tabs mit attributiert werden.
770 // Wenn zwei gleiche Attribute hintereinander eingestellt werden,
771 // optimiert das die TextEngine.
772 USHORT nLastEnd = 0;
773
774 #ifdef DBG_UTIL
775 USHORT nLine = aPortionList[0].nLine;
776 #endif
777 for ( USHORT i = 0; i < nCount; i++ )
778 {
779 SwTextPortion& r = aPortionList[i];
780 DBG_ASSERT( r.nLine == nLine, "doch mehrere Zeilen ?" );
781 if ( r.nStart > r.nEnd ) // Nur bis Bug von MD behoeben
782 continue;
783
784 if ( r.nStart > nLastEnd )
785 {
786 // Kann ich mich drauf verlassen, dass alle ausser
787 // Blank und Tab gehighlightet wird ?!
788 r.nStart = nLastEnd;
789 }
790 nLastEnd = r.nEnd+1;
791 if ( ( i == (nCount-1) ) && ( r.nEnd < rSource.Len() ) )
792 r.nEnd = rSource.Len();
793 }
794 }
795
796 for ( USHORT i = 0; i < aPortionList.Count(); i++ )
797 {
798 SwTextPortion& r = aPortionList[i];
799 if ( r.nStart > r.nEnd ) // Nur bis Bug von MD behoeben
800 continue;
801 if(r.eType != svtools::HTMLSGML &&
802 r.eType != svtools::HTMLCOMMENT &&
803 r.eType != svtools::HTMLKEYWORD &&
804 r.eType != svtools::HTMLUNKNOWN)
805 r.eType = svtools::HTMLUNKNOWN;
806 Color aColor((ColorData)SW_MOD()->GetColorConfig().GetColorValue((svtools::ColorConfigEntry)r.eType).nColor);
807 USHORT nLine = nLineOff+r.nLine; //
808 pTextEngine->SetAttrib( TextAttribFontColor( aColor ), nLine, r.nStart, r.nEnd+1, TRUE );
809 }
810 }
811
812 /*-----------------30.06.97 09:12-------------------
813
814 --------------------------------------------------*/
815
816 void SwSrcEditWindow::Notify( SfxBroadcaster& rBC, const SfxHint& rHint )
817 {
818 if ( rHint.ISA( TextHint ) )
819 {
820 const TextHint& rTextHint = (const TextHint&)rHint;
821 if( rTextHint.GetId() == TEXT_HINT_VIEWSCROLLED )
822 {
823 pHScrollbar->SetThumbPos( pTextView->GetStartDocPos().X() );
824 pVScrollbar->SetThumbPos( pTextView->GetStartDocPos().Y() );
825 }
826 else if( rTextHint.GetId() == TEXT_HINT_TEXTHEIGHTCHANGED )
827 {
828 if ( (long)pTextEngine->GetTextHeight() < pOutWin->GetOutputSizePixel().Height() )
829 pTextView->Scroll( 0, pTextView->GetStartDocPos().Y() );
830 pVScrollbar->SetThumbPos( pTextView->GetStartDocPos().Y() );
831 SetScrollBarRanges();
832 }
833 else if( ( rTextHint.GetId() == TEXT_HINT_PARAINSERTED ) ||
834 ( rTextHint.GetId() == TEXT_HINT_PARACONTENTCHANGED ) )
835 {
836 DoDelayedSyntaxHighlight( (USHORT)rTextHint.GetValue() );
837 }
838 }
839 else if(&rBC == pSourceViewConfig)
840 SetFont();
841 }
842
843 /*-----------------30.06.97 13:22-------------------
844
845 --------------------------------------------------*/
846
847 void SwSrcEditWindow::Invalidate(USHORT )
848 {
849 pOutWin->Invalidate();
850 Window::Invalidate();
851
852 }
853
854 void SwSrcEditWindow::Command( const CommandEvent& rCEvt )
855 {
856 switch(rCEvt.GetCommand())
857 {
858 case COMMAND_WHEEL:
859 case COMMAND_STARTAUTOSCROLL:
860 case COMMAND_AUTOSCROLL:
861 {
862 const CommandWheelData* pWData = rCEvt.GetWheelData();
863 if( !pWData || COMMAND_WHEEL_ZOOM != pWData->GetMode() )
864 HandleScrollCommand( rCEvt, pHScrollbar, pVScrollbar );
865 }
866 break;
867 default:
868 Window::Command(rCEvt);
869 }
870 }
871
872 void SwSrcEditWindow::HandleWheelCommand( const CommandEvent& rCEvt )
873 {
874 pTextView->Command(rCEvt);
875 HandleScrollCommand( rCEvt, pHScrollbar, pVScrollbar );
876 }
877
878 void SwSrcEditWindow::GetFocus()
879 {
880 pOutWin->GrabFocus();
881 }
882
883 /*void SwSrcEditWindow::LoseFocus()
884 {
885 Window::LoseFocus();
886 // pOutWin->LoseFocus();
887 // rView.LostFocus();
888 } */
889 /* -----------------------------29.08.2002 13:21------------------------------
890
891 ---------------------------------------------------------------------------*/
892 BOOL lcl_GetLanguagesForEncoding(rtl_TextEncoding eEnc, LanguageType aLanguages[])
893 {
894 switch(eEnc)
895 {
896 case RTL_TEXTENCODING_UTF7 :
897 case RTL_TEXTENCODING_UTF8 :
898 // don#t fill - all LANGUAGE_SYSTEM means unicode font has to be used
899 break;
900
901
902 case RTL_TEXTENCODING_ISO_8859_3:
903 case RTL_TEXTENCODING_ISO_8859_1 :
904 case RTL_TEXTENCODING_MS_1252 :
905 case RTL_TEXTENCODING_APPLE_ROMAN :
906 case RTL_TEXTENCODING_IBM_850 :
907 case RTL_TEXTENCODING_ISO_8859_14 :
908 case RTL_TEXTENCODING_ISO_8859_15 :
909 //fill with western languages
910 aLanguages[0] = LANGUAGE_GERMAN;
911 aLanguages[1] = LANGUAGE_FRENCH;
912 aLanguages[2] = LANGUAGE_ITALIAN;
913 aLanguages[3] = LANGUAGE_SPANISH;
914 break;
915
916 case RTL_TEXTENCODING_IBM_865 :
917 //scandinavian
918 aLanguages[0] = LANGUAGE_FINNISH;
919 aLanguages[1] = LANGUAGE_NORWEGIAN;
920 aLanguages[2] = LANGUAGE_SWEDISH;
921 aLanguages[3] = LANGUAGE_DANISH;
922 break;
923
924 case RTL_TEXTENCODING_ISO_8859_10 :
925 case RTL_TEXTENCODING_ISO_8859_13 :
926 case RTL_TEXTENCODING_ISO_8859_2 :
927 case RTL_TEXTENCODING_IBM_852 :
928 case RTL_TEXTENCODING_MS_1250 :
929 case RTL_TEXTENCODING_APPLE_CENTEURO :
930 aLanguages[0] = LANGUAGE_POLISH;
931 aLanguages[1] = LANGUAGE_CZECH;
932 aLanguages[2] = LANGUAGE_HUNGARIAN;
933 aLanguages[3] = LANGUAGE_SLOVAK;
934 break;
935
936 case RTL_TEXTENCODING_ISO_8859_4 :
937 case RTL_TEXTENCODING_IBM_775 :
938 case RTL_TEXTENCODING_MS_1257 :
939 aLanguages[0] = LANGUAGE_LATVIAN ;
940 aLanguages[1] = LANGUAGE_LITHUANIAN;
941 aLanguages[2] = LANGUAGE_ESTONIAN ;
942 break;
943
944 case RTL_TEXTENCODING_IBM_863 : aLanguages[0] = LANGUAGE_FRENCH_CANADIAN; break;
945 case RTL_TEXTENCODING_APPLE_FARSI : aLanguages[0] = LANGUAGE_FARSI; break;
946 case RTL_TEXTENCODING_APPLE_ROMANIAN:aLanguages[0] = LANGUAGE_ROMANIAN; break;
947
948 case RTL_TEXTENCODING_IBM_861 :
949 case RTL_TEXTENCODING_APPLE_ICELAND :
950 aLanguages[0] = LANGUAGE_ICELANDIC;
951 break;
952
953 case RTL_TEXTENCODING_APPLE_CROATIAN:aLanguages[0] = LANGUAGE_CROATIAN; break;
954
955 case RTL_TEXTENCODING_IBM_437 :
956 case RTL_TEXTENCODING_ASCII_US : aLanguages[0] = LANGUAGE_ENGLISH; break;
957
958 case RTL_TEXTENCODING_IBM_862 :
959 case RTL_TEXTENCODING_MS_1255 :
960 case RTL_TEXTENCODING_APPLE_HEBREW :
961 case RTL_TEXTENCODING_ISO_8859_8 :
962 aLanguages[0] = LANGUAGE_HEBREW;
963 break;
964
965 case RTL_TEXTENCODING_IBM_857 :
966 case RTL_TEXTENCODING_MS_1254 :
967 case RTL_TEXTENCODING_APPLE_TURKISH:
968 case RTL_TEXTENCODING_ISO_8859_9 :
969 aLanguages[0] = LANGUAGE_TURKISH;
970 break;
971
972 case RTL_TEXTENCODING_IBM_860 :
973 aLanguages[0] = LANGUAGE_PORTUGUESE;
974 break;
975
976 case RTL_TEXTENCODING_IBM_869 :
977 case RTL_TEXTENCODING_MS_1253 :
978 case RTL_TEXTENCODING_APPLE_GREEK :
979 case RTL_TEXTENCODING_ISO_8859_7 :
980 case RTL_TEXTENCODING_IBM_737 :
981 aLanguages[0] = LANGUAGE_GREEK;
982 break;
983
984 case RTL_TEXTENCODING_KOI8_R :
985 case RTL_TEXTENCODING_ISO_8859_5 :
986 case RTL_TEXTENCODING_IBM_855 :
987 case RTL_TEXTENCODING_MS_1251 :
988 case RTL_TEXTENCODING_IBM_866 :
989 case RTL_TEXTENCODING_APPLE_CYRILLIC :
990 aLanguages[0] = LANGUAGE_RUSSIAN;
991 break;
992
993 case RTL_TEXTENCODING_APPLE_UKRAINIAN:
994 case RTL_TEXTENCODING_KOI8_U:
995 aLanguages[0] = LANGUAGE_UKRAINIAN;
996 break;
997
998 case RTL_TEXTENCODING_IBM_864 :
999 case RTL_TEXTENCODING_MS_1256 :
1000 case RTL_TEXTENCODING_ISO_8859_6 :
1001 case RTL_TEXTENCODING_APPLE_ARABIC :
1002 aLanguages[0] = LANGUAGE_ARABIC_SAUDI_ARABIA;
1003 break;
1004
1005 case RTL_TEXTENCODING_APPLE_CHINTRAD :
1006 case RTL_TEXTENCODING_MS_950 :
1007 case RTL_TEXTENCODING_GBT_12345 :
1008 case RTL_TEXTENCODING_BIG5 :
1009 case RTL_TEXTENCODING_EUC_TW :
1010 case RTL_TEXTENCODING_BIG5_HKSCS :
1011 aLanguages[0] = LANGUAGE_CHINESE_TRADITIONAL;
1012 break;
1013
1014 case RTL_TEXTENCODING_EUC_JP :
1015 case RTL_TEXTENCODING_ISO_2022_JP :
1016 case RTL_TEXTENCODING_JIS_X_0201 :
1017 case RTL_TEXTENCODING_JIS_X_0208 :
1018 case RTL_TEXTENCODING_JIS_X_0212 :
1019 case RTL_TEXTENCODING_APPLE_JAPANESE :
1020 case RTL_TEXTENCODING_MS_932 :
1021 case RTL_TEXTENCODING_SHIFT_JIS :
1022 aLanguages[0] = LANGUAGE_JAPANESE;
1023 break;
1024
1025 case RTL_TEXTENCODING_GB_2312 :
1026 case RTL_TEXTENCODING_MS_936 :
1027 case RTL_TEXTENCODING_GBK :
1028 case RTL_TEXTENCODING_GB_18030 :
1029 case RTL_TEXTENCODING_APPLE_CHINSIMP :
1030 case RTL_TEXTENCODING_EUC_CN :
1031 case RTL_TEXTENCODING_ISO_2022_CN :
1032 aLanguages[0] = LANGUAGE_CHINESE_SIMPLIFIED;
1033 break;
1034
1035 case RTL_TEXTENCODING_APPLE_KOREAN :
1036 case RTL_TEXTENCODING_MS_949 :
1037 case RTL_TEXTENCODING_EUC_KR :
1038 case RTL_TEXTENCODING_ISO_2022_KR :
1039 case RTL_TEXTENCODING_MS_1361 :
1040 aLanguages[0] = LANGUAGE_KOREAN;
1041 break;
1042
1043 case RTL_TEXTENCODING_APPLE_THAI :
1044 case RTL_TEXTENCODING_MS_874 :
1045 case RTL_TEXTENCODING_TIS_620 :
1046 aLanguages[0] = LANGUAGE_THAI;
1047 break;
1048 // case RTL_TEXTENCODING_SYMBOL :
1049 // case RTL_TEXTENCODING_DONTKNOW: :
1050 default: aLanguages[0] = Application::GetSettings().GetUILanguage();
1051 }
1052 return aLanguages[0] != LANGUAGE_SYSTEM;
1053 }
1054 void SwSrcEditWindow::SetFont()
1055 {
1056 String sFontName = pSourceViewConfig->GetFontName();
1057 if(!sFontName.Len())
1058 {
1059 LanguageType aLanguages[5] =
1060 {
1061 LANGUAGE_SYSTEM, LANGUAGE_SYSTEM, LANGUAGE_SYSTEM, LANGUAGE_SYSTEM, LANGUAGE_SYSTEM
1062 };
1063 Font aFont;
1064 if(lcl_GetLanguagesForEncoding(eSourceEncoding, aLanguages))
1065 {
1066 //TODO: check for multiple languages
1067 aFont = OutputDevice::GetDefaultFont(DEFAULTFONT_FIXED, aLanguages[0], 0, this);
1068 }
1069 else
1070 aFont = OutputDevice::GetDefaultFont(DEFAULTFONT_SANS_UNICODE,
1071 Application::GetSettings().GetLanguage(), 0, this);
1072 sFontName = aFont.GetName();
1073 }
1074 const SvxFontListItem* pFontListItem =
1075 (const SvxFontListItem* )pSrcView->GetDocShell()->GetItem( SID_ATTR_CHAR_FONTLIST );
1076 const FontList* pList = pFontListItem->GetFontList();
1077 FontInfo aInfo = pList->Get(sFontName,WEIGHT_NORMAL, ITALIC_NONE);
1078
1079 const Font& rFont = GetTextEngine()->GetFont();
1080 Font aFont(aInfo);
1081 Size aSize(rFont.GetSize());
1082 //font height is stored in point and set in twip
1083 aSize.Height() = pSourceViewConfig->GetFontHeight() * 20;
1084 aFont.SetSize(pOutWin->LogicToPixel(aSize, MAP_TWIP));
1085 GetTextEngine()->SetFont( aFont );
1086 pOutWin->SetFont(aFont);
1087 }
1088 /* -----------------------------29.08.2002 13:47------------------------------
1089
1090 ---------------------------------------------------------------------------*/
1091 void SwSrcEditWindow::SetTextEncoding(rtl_TextEncoding eEncoding)
1092 {
1093 eSourceEncoding = eEncoding;
1094 SetFont();
1095 }
1096
vba interoperability for OOo