jscript: Rename jsheap_t to heap_pool_t.
[wine] / dlls / riched20 / wrap.c
1 /*
2  * RichEdit - Paragraph wrapping. Don't try to understand it. You've been
3  * warned !
4  *
5  * Copyright 2004 by Krzysztof Foltman
6  *
7  * This library is free software; you can redistribute it and/or
8  * modify it under the terms of the GNU Lesser General Public
9  * License as published by the Free Software Foundation; either
10  * version 2.1 of the License, or (at your option) any later version.
11  *
12  * This library is distributed in the hope that it will be useful,
13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
15  * Lesser General Public License for more details.
16  *
17  * You should have received a copy of the GNU Lesser General Public
18  * License along with this library; if not, write to the Free Software
19  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
20  */
21
22
23 #include "editor.h"
24
25 WINE_DEFAULT_DEBUG_CHANNEL(richedit);
26
27 /*
28  * Unsolved problems:
29  *
30  * - center and right align in WordPad omits all spaces at the start, we don't
31  * - objects/images are not handled yet
32  * - no tabs
33  */
34
35 /******************************************************************************
36  * calc_run_extent
37  *
38  * Updates the size of the run (fills width, ascent and descent). The height
39  * is calculated based on whole row's ascent and descent anyway, so no need
40  * to use it here.
41  */
42 static void calc_run_extent(ME_Context *c, const ME_Paragraph *para, int startx, ME_Run *run)
43 {
44     if (run->nFlags & MERF_HIDDEN) run->nWidth = 0;
45     else
46     {
47         SIZE size = ME_GetRunSizeCommon( c, para, run, run->len, startx, &run->nAscent, &run->nDescent );
48         run->nWidth = size.cx;
49     }
50 }
51
52 /******************************************************************************
53  * split_run_extents
54  *
55  * Splits a run into two in a given place. It also updates the screen position
56  * and size (extent) of the newly generated runs.
57  */
58 static ME_DisplayItem *split_run_extents(ME_WrapContext *wc, ME_DisplayItem *item, int nVChar)
59 {
60   ME_TextEditor *editor = wc->context->editor;
61   ME_Run *run, *run2;
62   ME_Paragraph *para = &wc->pPara->member.para;
63   ME_Cursor cursor = {wc->pPara, item, nVChar};
64
65   assert(item->member.run.nCharOfs != -1);
66   if(TRACE_ON(richedit))
67   {
68     TRACE("Before check before split\n");
69     ME_CheckCharOffsets(editor);
70     TRACE("After check before split\n");
71   }
72
73   run = &item->member.run;
74
75   TRACE("Before split: %s(%d, %d)\n", debugstr_run( run ),
76         run->pt.x, run->pt.y);
77
78   ME_SplitRunSimple(editor, &cursor);
79
80   run2 = &cursor.pRun->member.run;
81
82   calc_run_extent(wc->context, para, wc->nRow ? wc->nLeftMargin : wc->nFirstMargin, run);
83
84   run2->pt.x = run->pt.x+run->nWidth;
85   run2->pt.y = run->pt.y;
86
87   if(TRACE_ON(richedit))
88   {
89     TRACE("Before check after split\n");
90     ME_CheckCharOffsets(editor);
91     TRACE("After check after split\n");
92     TRACE("After split: %s(%d, %d), %s(%d, %d)\n",
93       debugstr_run( run ), run->pt.x, run->pt.y,
94       debugstr_run( run2 ), run2->pt.x, run2->pt.y);
95   }
96
97   return cursor.pRun;
98 }
99
100 /******************************************************************************
101  * find_split_point
102  *
103  * Returns a character position to split inside the run given a run-relative
104  * pixel horizontal position. This version rounds left (ie. if the second
105  * character is at pixel position 8, then for cx=0..7 it returns 0).
106  */
107 static int find_split_point( ME_Context *c, int cx, ME_Run *run )
108 {
109     int fit = 0;
110     HGDIOBJ hOldFont;
111     SIZE sz;
112
113     if (!run->len || cx <= 0) return 0;
114
115     if (run->nFlags & MERF_TAB ||
116         (run->nFlags & (MERF_ENDCELL|MERF_ENDPARA)) == MERF_ENDCELL)
117     {
118         if (cx < run->nWidth / 2) return 0;
119         return 1;
120     }
121     if (run->nFlags & MERF_GRAPHICS)
122     {
123         SIZE sz;
124         ME_GetOLEObjectSize( c, run, &sz );
125         if (cx < sz.cx) return 0;
126         return 1;
127     }
128     hOldFont = ME_SelectStyleFont( c, run->style );
129
130     if (c->editor->cPasswordMask)
131     {
132         ME_String *strMasked = ME_MakeStringR( c->editor->cPasswordMask, run->len );
133         GetTextExtentExPointW( c->hDC, strMasked->szData, run->len, cx, &fit, NULL, &sz );
134         ME_DestroyString( strMasked );
135     }
136     else
137     {
138         GetTextExtentExPointW( c->hDC, get_text( run, 0 ), run->len, cx, &fit, NULL, &sz );
139     }
140
141     ME_UnselectStyleFont( c, run->style, hOldFont );
142
143     return fit;
144 }
145
146 static ME_DisplayItem *ME_MakeRow(int height, int baseline, int width)
147 {
148   ME_DisplayItem *item = ME_MakeDI(diStartRow);
149
150   item->member.row.nHeight = height;
151   item->member.row.nBaseline = baseline;
152   item->member.row.nWidth = width;
153   return item;
154 }
155
156 static void ME_BeginRow(ME_WrapContext *wc)
157 {
158   PARAFORMAT2 *pFmt;
159   ME_DisplayItem *para = wc->pPara;
160
161   pFmt = para->member.para.pFmt;
162   wc->pRowStart = NULL;
163   wc->bOverflown = FALSE;
164   wc->pLastSplittableRun = NULL;
165   wc->bWordWrap = wc->context->editor->bWordWrap;
166   if (para->member.para.nFlags & (MEPF_ROWSTART|MEPF_ROWEND)) {
167     wc->nAvailWidth = 0;
168     wc->bWordWrap = FALSE;
169     if (para->member.para.nFlags & MEPF_ROWEND)
170     {
171       ME_Cell *cell = &ME_FindItemBack(para, diCell)->member.cell;
172       cell->nWidth = 0;
173     }
174   } else if (para->member.para.pCell) {
175     ME_Cell *cell = &para->member.para.pCell->member.cell;
176     int width;
177
178     width = cell->nRightBoundary;
179     if (cell->prev_cell)
180       width -= cell->prev_cell->member.cell.nRightBoundary;
181     if (!cell->prev_cell)
182     {
183       int rowIndent = ME_GetTableRowEnd(para)->member.para.pFmt->dxStartIndent;
184       width -= rowIndent;
185     }
186     cell->nWidth = max(ME_twips2pointsX(wc->context, width), 0);
187
188     wc->nAvailWidth = cell->nWidth
189         - (wc->nRow ? wc->nLeftMargin : wc->nFirstMargin) - wc->nRightMargin;
190     wc->bWordWrap = TRUE;
191   } else {
192     wc->nAvailWidth = wc->context->nAvailWidth
193         - (wc->nRow ? wc->nLeftMargin : wc->nFirstMargin) - wc->nRightMargin;
194   }
195   wc->pt.x = wc->context->pt.x;
196   if (wc->context->editor->bEmulateVersion10 && /* v1.0 - 3.0 */
197       pFmt->dwMask & PFM_TABLE && pFmt->wEffects & PFE_TABLE)
198     /* Shift the text down because of the border. */
199     wc->pt.y++;
200 }
201
202 static void ME_InsertRowStart(ME_WrapContext *wc, const ME_DisplayItem *pEnd)
203 {
204   ME_DisplayItem *p, *row, *para;
205   BOOL bSkippingSpaces = TRUE;
206   int ascent = 0, descent = 0, width=0, shift = 0, align = 0;
207   PARAFORMAT2 *pFmt;
208   /* wrap text */
209   para = wc->pPara;
210   pFmt = para->member.para.pFmt;
211
212   for (p = pEnd->prev; p!=wc->pRowStart->prev; p = p->prev)
213   {
214       /* ENDPARA run shouldn't affect row height, except if it's the only run in the paragraph */
215       if (p->type==diRun && ((p==wc->pRowStart) || !(p->member.run.nFlags & MERF_ENDPARA))) { /* FIXME add more run types */
216         if (p->member.run.nAscent>ascent)
217           ascent = p->member.run.nAscent;
218         if (p->member.run.nDescent>descent)
219           descent = p->member.run.nDescent;
220         if (bSkippingSpaces)
221         {
222           /* Exclude space characters from run width.
223            * Other whitespace or delimiters are not treated this way. */
224           SIZE sz;
225           int len = p->member.run.len;
226           WCHAR *text = get_text( &p->member.run, len - 1 );
227
228           assert (len);
229           if (~p->member.run.nFlags & MERF_GRAPHICS)
230             while (len && *(text--) == ' ')
231               len--;
232           if (len)
233           {
234               if (len == p->member.run.len)
235               {
236                   width += p->member.run.nWidth;
237               } else {
238                   sz = ME_GetRunSize(wc->context, &para->member.para,
239                                      &p->member.run, len, p->member.run.pt.x);
240                   width += sz.cx;
241               }
242           }
243           bSkippingSpaces = !len;
244         } else if (!(p->member.run.nFlags & MERF_ENDPARA))
245           width += p->member.run.nWidth;
246       }
247   }
248
249   para->member.para.nWidth = max(para->member.para.nWidth, width);
250   row = ME_MakeRow(ascent+descent, ascent, width);
251   if (wc->context->editor->bEmulateVersion10 && /* v1.0 - 3.0 */
252       pFmt->dwMask & PFM_TABLE && pFmt->wEffects & PFE_TABLE)
253   {
254     /* The text was shifted down in ME_BeginRow so move the wrap context
255      * back to where it should be. */
256     wc->pt.y--;
257     /* The height of the row is increased by the borders. */
258     row->member.row.nHeight += 2;
259   }
260   row->member.row.pt = wc->pt;
261   row->member.row.nLMargin = (!wc->nRow ? wc->nFirstMargin : wc->nLeftMargin);
262   row->member.row.nRMargin = wc->nRightMargin;
263   assert(para->member.para.pFmt->dwMask & PFM_ALIGNMENT);
264   align = para->member.para.pFmt->wAlignment;
265   if (align == PFA_CENTER)
266     shift = max((wc->nAvailWidth-width)/2, 0);
267   if (align == PFA_RIGHT)
268     shift = max(wc->nAvailWidth-width, 0);
269   for (p = wc->pRowStart; p!=pEnd; p = p->next)
270   {
271     if (p->type==diRun) { /* FIXME add more run types */
272       p->member.run.pt.x += row->member.row.nLMargin+shift;
273     }
274   }
275   ME_InsertBefore(wc->pRowStart, row);
276   wc->nRow++;
277   wc->pt.y += row->member.row.nHeight;
278   ME_BeginRow(wc);
279 }
280
281 static void ME_WrapEndParagraph(ME_WrapContext *wc, ME_DisplayItem *p)
282 {
283   ME_DisplayItem *para = wc->pPara;
284   PARAFORMAT2 *pFmt = para->member.para.pFmt;
285   if (wc->pRowStart)
286     ME_InsertRowStart(wc, p);
287   if (wc->context->editor->bEmulateVersion10 && /* v1.0 - 3.0 */
288       pFmt->dwMask & PFM_TABLE && pFmt->wEffects & PFE_TABLE)
289   {
290     /* ME_BeginRow was called an extra time for the paragraph, and it shifts the
291      * text down by one pixel for the border, so fix up the wrap context. */
292     wc->pt.y--;
293   }
294
295   /*
296   p = para->next;
297   while(p) {
298     if (p->type == diParagraph || p->type == diTextEnd)
299       return;
300     if (p->type == diRun)
301     {
302       ME_Run *run = &p->member.run;
303       TRACE("%s - (%d, %d)\n", debugstr_run(run), run->pt.x, run->pt.y);
304     }
305     p = p->next;
306   }
307   */
308 }
309
310 static void ME_WrapSizeRun(ME_WrapContext *wc, ME_DisplayItem *p)
311 {
312   /* FIXME compose style (out of character and paragraph styles) here */
313
314   ME_UpdateRunFlags(wc->context->editor, &p->member.run);
315
316   calc_run_extent(wc->context, &wc->pPara->member.para,
317                   wc->nRow ? wc->nLeftMargin : wc->nFirstMargin, &p->member.run);
318 }
319
320
321 static int find_non_whitespace(const WCHAR *s, int len, int start)
322 {
323   int i;
324   for (i = start; i < len && ME_IsWSpace( s[i] ); i++)
325     ;
326
327   return i;
328 }
329
330 /* note: these two really return the first matching offset (starting from EOS)+1
331  * in other words, an offset of the first trailing white/black */
332
333 /* note: returns offset of the first trailing whitespace */
334 static int reverse_find_non_whitespace(const WCHAR *s, int start)
335 {
336   int i;
337   for (i = start; i > 0 && ME_IsWSpace( s[i - 1] ); i--)
338     ;
339
340   return i;
341 }
342
343 /* note: returns offset of the first trailing nonwhitespace */
344 static int reverse_find_whitespace(const WCHAR *s, int start)
345 {
346   int i;
347   for (i = start; i > 0 && !ME_IsWSpace( s[i - 1] ); i--)
348     ;
349
350   return i;
351 }
352
353 static ME_DisplayItem *ME_MaximizeSplit(ME_WrapContext *wc, ME_DisplayItem *p, int i)
354 {
355   ME_DisplayItem *pp, *piter = p;
356   int j;
357   if (!i)
358     return NULL;
359   j = reverse_find_non_whitespace( get_text( &p->member.run, 0 ), i);
360   if (j>0) {
361     pp = split_run_extents(wc, piter, j);
362     wc->pt.x += piter->member.run.nWidth;
363     return pp;
364   }
365   else
366   {
367     pp = piter;
368     /* omit all spaces before split point */
369     while(piter != wc->pRowStart)
370     {
371       piter = ME_FindItemBack(piter, diRun);
372       if (piter->member.run.nFlags & MERF_WHITESPACE)
373       {
374         pp = piter;
375         continue;
376       }
377       if (piter->member.run.nFlags & MERF_ENDWHITE)
378       {
379         i = reverse_find_non_whitespace( get_text( &piter->member.run, 0 ),
380                                          piter->member.run.len );
381         pp = split_run_extents(wc, piter, i);
382         wc->pt = pp->member.run.pt;
383         return pp;
384       }
385       /* this run is the end of spaces, so the run edge is a good point to split */
386       wc->pt = pp->member.run.pt;
387       wc->bOverflown = TRUE;
388       TRACE("Split point is: %s|%s\n", debugstr_run( &piter->member.run ), debugstr_run( &pp->member.run ));
389       return pp;
390     }
391     wc->pt = piter->member.run.pt;
392     return piter;
393   }
394 }
395
396 static ME_DisplayItem *ME_SplitByBacktracking(ME_WrapContext *wc, ME_DisplayItem *p, int loc)
397 {
398   ME_DisplayItem *piter = p, *pp;
399   int i, idesp, len;
400   ME_Run *run = &p->member.run;
401
402   idesp = i = find_split_point( wc->context, loc, run );
403   len = run->len;
404   assert(len>0);
405   assert(i<len);
406   if (i) {
407     /* don't split words */
408     i = reverse_find_whitespace( get_text( run, 0 ), i );
409     pp = ME_MaximizeSplit(wc, p, i);
410     if (pp)
411       return pp;
412   }
413   TRACE("Must backtrack to split at: %s\n", debugstr_run( &p->member.run ));
414   if (wc->pLastSplittableRun)
415   {
416     if (wc->pLastSplittableRun->member.run.nFlags & (MERF_GRAPHICS|MERF_TAB))
417     {
418       wc->pt = wc->pLastSplittableRun->member.run.pt;
419       return wc->pLastSplittableRun;
420     }
421     else if (wc->pLastSplittableRun->member.run.nFlags & MERF_SPLITTABLE)
422     {
423       /* the following two lines are just to check if we forgot to call UpdateRunFlags earlier,
424          they serve no other purpose */
425       ME_UpdateRunFlags(wc->context->editor, run);
426       assert((wc->pLastSplittableRun->member.run.nFlags & MERF_SPLITTABLE));
427
428       piter = wc->pLastSplittableRun;
429       run = &piter->member.run;
430       len = run->len;
431       /* don't split words */
432       i = reverse_find_whitespace( get_text( run, 0 ), len );
433       if (i == len)
434         i = reverse_find_non_whitespace( get_text( run, 0 ), len );
435       if (i) {
436         ME_DisplayItem *piter2 = split_run_extents(wc, piter, i);
437         wc->pt = piter2->member.run.pt;
438         return piter2;
439       }
440       /* splittable = must have whitespaces */
441       assert(0 == "Splittable, but no whitespaces");
442     }
443     else
444     {
445       /* restart from the first run beginning with spaces */
446       wc->pt = wc->pLastSplittableRun->member.run.pt;
447       return wc->pLastSplittableRun;
448     }
449   }
450   TRACE("Backtracking failed, trying desperate: %s\n", debugstr_run( &p->member.run ));
451   /* OK, no better idea, so assume we MAY split words if we can split at all*/
452   if (idesp)
453     return split_run_extents(wc, piter, idesp);
454   else
455   if (wc->pRowStart && piter != wc->pRowStart)
456   {
457     /* don't need to break current run, because it's possible to split
458        before this run */
459     wc->bOverflown = TRUE;
460     return piter;
461   }
462   else
463   {
464     /* split point inside first character - no choice but split after that char */
465     if (len != 1) {
466       /* the run is more than 1 char, so we may split */
467       return split_run_extents(wc, piter, 1);
468     }
469     /* the run is one char, can't split it */
470     return piter;
471   }
472 }
473
474 static ME_DisplayItem *ME_WrapHandleRun(ME_WrapContext *wc, ME_DisplayItem *p)
475 {
476   ME_DisplayItem *pp;
477   ME_Run *run;
478   int len;
479
480   assert(p->type == diRun);
481   if (!wc->pRowStart)
482     wc->pRowStart = p;
483   run = &p->member.run;
484   run->pt.x = wc->pt.x;
485   run->pt.y = wc->pt.y;
486   ME_WrapSizeRun(wc, p);
487   len = run->len;
488
489   if (wc->bOverflown) /* just skipping final whitespaces */
490   {
491     /* End paragraph run can't overflow to the next line by itself. */
492     if (run->nFlags & MERF_ENDPARA)
493       return p->next;
494
495     if (run->nFlags & MERF_WHITESPACE) {
496       wc->pt.x += run->nWidth;
497       /* skip runs consisting of only whitespaces */
498       return p->next;
499     }
500
501     if (run->nFlags & MERF_STARTWHITE) {
502       /* try to split the run at the first non-white char */
503       int black;
504       black = find_non_whitespace( get_text( run, 0 ), run->len, 0 );
505       if (black) {
506         wc->bOverflown = FALSE;
507         pp = split_run_extents(wc, p, black);
508         calc_run_extent(wc->context, &wc->pPara->member.para,
509                         wc->nRow ? wc->nLeftMargin : wc->nFirstMargin,
510                         &pp->member.run);
511         ME_InsertRowStart(wc, pp);
512         return pp;
513       }
514     }
515     /* black run: the row goes from pRowStart to the previous run */
516     ME_InsertRowStart(wc, p);
517     return p;
518   }
519   /* simply end the current row and move on to next one */
520   if (run->nFlags & MERF_ENDROW)
521   {
522     p = p->next;
523     ME_InsertRowStart(wc, p);
524     return p;
525   }
526
527   /* will current run fit? */
528   if (wc->bWordWrap &&
529       wc->pt.x + run->nWidth - wc->context->pt.x > wc->nAvailWidth)
530   {
531     int loc = wc->context->pt.x + wc->nAvailWidth - wc->pt.x;
532     /* total white run ? */
533     if (run->nFlags & MERF_WHITESPACE) {
534       /* let the overflow logic handle it */
535       wc->bOverflown = TRUE;
536       return p;
537     }
538     /* TAB: we can split before */
539     if (run->nFlags & MERF_TAB) {
540       wc->bOverflown = TRUE;
541       if (wc->pRowStart == p)
542         /* Don't split before the start of the run, or we will get an
543          * endless loop. */
544         return p->next;
545       else
546         return p;
547     }
548     /* graphics: we can split before, if run's width is smaller than row's width */
549     if ((run->nFlags & MERF_GRAPHICS) && run->nWidth <= wc->nAvailWidth) {
550       wc->bOverflown = TRUE;
551       return p;
552     }
553     /* can we separate out the last spaces ? (to use overflow logic later) */
554     if (run->nFlags & MERF_ENDWHITE)
555     {
556       /* we aren't sure if it's *really* necessary, it's a good start however */
557       int black = reverse_find_non_whitespace( get_text( run, 0 ), len );
558       split_run_extents(wc, p, black);
559       /* handle both parts again */
560       return p;
561     }
562     /* determine the split point by backtracking */
563     pp = ME_SplitByBacktracking(wc, p, loc);
564     if (pp == wc->pRowStart)
565     {
566       if (run->nFlags & MERF_STARTWHITE)
567       {
568           /* We had only spaces so far, so we must be on the first line of the
569            * paragraph (or the first line after MERF_ENDROW forced the line
570            * break within the paragraph), since no other lines of the paragraph
571            * start with spaces. */
572
573           /* The lines will only contain spaces, and the rest of the run will
574            * overflow onto the next line. */
575           wc->bOverflown = TRUE;
576           return p;
577       }
578       /* Couldn't split the first run, possible because we have a large font
579        * with a single character that caused an overflow.
580        */
581       wc->pt.x += run->nWidth;
582       return p->next;
583     }
584     if (p != pp) /* found a suitable split point */
585     {
586       wc->bOverflown = TRUE;
587       return pp;
588     }
589     /* we detected that it's best to split on start of this run */
590     if (wc->bOverflown)
591       return pp;
592     ERR("failure!\n");
593     /* not found anything - writing over margins is the only option left */
594   }
595   if ((run->nFlags & (MERF_SPLITTABLE | MERF_STARTWHITE))
596     || ((run->nFlags & (MERF_GRAPHICS|MERF_TAB)) && (p != wc->pRowStart)))
597   {
598     wc->pLastSplittableRun = p;
599   }
600   wc->pt.x += run->nWidth;
601   return p->next;
602 }
603
604 static int ME_GetParaLineSpace(ME_Context* c, ME_Paragraph* para)
605 {
606   int   sp = 0, ls = 0;
607   if (!(para->pFmt->dwMask & PFM_LINESPACING)) return 0;
608
609   /* FIXME: how to compute simply the line space in ls ??? */
610   /* FIXME: does line spacing include the line itself ??? */
611   switch (para->pFmt->bLineSpacingRule)
612   {
613   case 0:       sp = ls; break;
614   case 1:       sp = (3 * ls) / 2; break;
615   case 2:       sp = 2 * ls; break;
616   case 3:       sp = ME_twips2pointsY(c, para->pFmt->dyLineSpacing); if (sp < ls) sp = ls; break;
617   case 4:       sp = ME_twips2pointsY(c, para->pFmt->dyLineSpacing); break;
618   case 5:       sp = para->pFmt->dyLineSpacing / 20; break;
619   default: FIXME("Unsupported spacing rule value %d\n", para->pFmt->bLineSpacingRule);
620   }
621   if (c->editor->nZoomNumerator == 0)
622     return sp;
623   else
624     return sp * c->editor->nZoomNumerator / c->editor->nZoomDenominator;
625 }
626
627 static void ME_PrepareParagraphForWrapping(ME_Context *c, ME_DisplayItem *tp) {
628   ME_DisplayItem *p;
629
630   tp->member.para.nWidth = 0;
631   /* remove row start items as they will be reinserted by the
632    * paragraph wrapper anyway */
633   tp->member.para.nRows = 0;
634   for (p = tp->next; p != tp->member.para.next_para; p = p->next) {
635     if (p->type == diStartRow) {
636       ME_DisplayItem *pRow = p;
637       p = p->prev;
638       ME_Remove(pRow);
639       ME_DestroyDisplayItem(pRow);
640     }
641   }
642   /* join runs that can be joined */
643   for (p = tp->next; p != tp->member.para.next_para; p = p->next) {
644     assert(p->type != diStartRow); /* should have been deleted above */
645     if (p->type == diRun) {
646       while (p->next->type == diRun && /* FIXME */
647              ME_CanJoinRuns(&p->member.run, &p->next->member.run)) {
648         ME_JoinRuns(c->editor, p);
649       }
650     }
651   }
652 }
653
654 static void ME_WrapTextParagraph(ME_Context *c, ME_DisplayItem *tp) {
655   ME_DisplayItem *p;
656   ME_WrapContext wc;
657   int border = 0;
658   int linespace = 0;
659   PARAFORMAT2 *pFmt;
660
661   assert(tp->type == diParagraph);
662   if (!(tp->member.para.nFlags & MEPF_REWRAP)) {
663     return;
664   }
665   ME_PrepareParagraphForWrapping(c, tp);
666   pFmt = tp->member.para.pFmt;
667
668   wc.context = c;
669   wc.pPara = tp;
670 /*   wc.para_style = tp->member.para.style; */
671   wc.style = NULL;
672   if (tp->member.para.nFlags & MEPF_ROWEND) {
673     wc.nFirstMargin = wc.nLeftMargin = wc.nRightMargin = 0;
674   } else {
675     int dxStartIndent = pFmt->dxStartIndent;
676     if (tp->member.para.pCell) {
677       dxStartIndent += ME_GetTableRowEnd(tp)->member.para.pFmt->dxOffset;
678     }
679     wc.nFirstMargin = ME_twips2pointsX(c, dxStartIndent);
680     wc.nLeftMargin = wc.nFirstMargin + ME_twips2pointsX(c, pFmt->dxOffset);
681     wc.nRightMargin = ME_twips2pointsX(c, pFmt->dxRightIndent);
682   }
683   if (c->editor->bEmulateVersion10 && /* v1.0 - 3.0 */
684       pFmt->dwMask & PFM_TABLE && pFmt->wEffects & PFE_TABLE)
685   {
686     wc.nFirstMargin += ME_twips2pointsX(c, pFmt->dxOffset * 2);
687   }
688   wc.nRow = 0;
689   wc.pt.y = 0;
690   if (pFmt->dwMask & PFM_SPACEBEFORE)
691     wc.pt.y += ME_twips2pointsY(c, pFmt->dySpaceBefore);
692   if (!(pFmt->dwMask & PFM_TABLE && pFmt->wEffects & PFE_TABLE) &&
693       pFmt->dwMask & PFM_BORDER)
694   {
695     border = ME_GetParaBorderWidth(c, tp->member.para.pFmt->wBorders);
696     if (pFmt->wBorders & 1) {
697       wc.nFirstMargin += border;
698       wc.nLeftMargin += border;
699     }
700     if (pFmt->wBorders & 2)
701       wc.nRightMargin -= border;
702     if (pFmt->wBorders & 4)
703       wc.pt.y += border;
704   }
705
706   linespace = ME_GetParaLineSpace(c, &tp->member.para);
707
708   ME_BeginRow(&wc);
709   for (p = tp->next; p!=tp->member.para.next_para; ) {
710     assert(p->type != diStartRow);
711     if (p->type == diRun) {
712       p = ME_WrapHandleRun(&wc, p);
713     }
714     else p = p->next;
715     if (wc.nRow && p == wc.pRowStart)
716       wc.pt.y += linespace;
717   }
718   ME_WrapEndParagraph(&wc, p);
719   if (!(pFmt->dwMask & PFM_TABLE && pFmt->wEffects & PFE_TABLE) &&
720       (pFmt->dwMask & PFM_BORDER) && (pFmt->wBorders & 8))
721     wc.pt.y += border;
722   if (tp->member.para.pFmt->dwMask & PFM_SPACEAFTER)
723     wc.pt.y += ME_twips2pointsY(c, pFmt->dySpaceAfter);
724
725   tp->member.para.nFlags &= ~MEPF_REWRAP;
726   tp->member.para.nHeight = wc.pt.y;
727   tp->member.para.nRows = wc.nRow;
728 }
729
730 static void ME_MarkRepaintEnd(ME_DisplayItem *para,
731                               ME_DisplayItem **repaint_start,
732                               ME_DisplayItem **repaint_end)
733 {
734     if (!*repaint_start)
735       *repaint_start = para;
736     *repaint_end = para;
737 }
738
739 BOOL ME_WrapMarkedParagraphs(ME_TextEditor *editor)
740 {
741   ME_DisplayItem *item;
742   ME_Context c;
743   int totalWidth = 0;
744   ME_DisplayItem *repaint_start = NULL, *repaint_end = NULL;
745
746   ME_InitContext(&c, editor, ITextHost_TxGetDC(editor->texthost));
747   c.pt.x = 0;
748   item = editor->pBuffer->pFirst->next;
749   while(item != editor->pBuffer->pLast) {
750     BOOL bRedraw = FALSE;
751
752     assert(item->type == diParagraph);
753     if ((item->member.para.nFlags & MEPF_REWRAP)
754      || (item->member.para.pt.y != c.pt.y))
755       bRedraw = TRUE;
756     item->member.para.pt = c.pt;
757
758     ME_WrapTextParagraph(&c, item);
759
760     if (bRedraw)
761       ME_MarkRepaintEnd(item, &repaint_start, &repaint_end);
762
763     if (item->member.para.nFlags & MEPF_ROWSTART)
764     {
765       ME_DisplayItem *cell = ME_FindItemFwd(item, diCell);
766       ME_DisplayItem *endRowPara;
767       int borderWidth = 0;
768       cell->member.cell.pt = c.pt;
769       /* Offset the text by the largest top border width. */
770       while (cell->member.cell.next_cell) {
771         borderWidth = max(borderWidth, cell->member.cell.border.top.width);
772         cell = cell->member.cell.next_cell;
773       }
774       endRowPara = ME_FindItemFwd(cell, diParagraph);
775       assert(endRowPara->member.para.nFlags & MEPF_ROWEND);
776       if (borderWidth > 0)
777       {
778         borderWidth = max(ME_twips2pointsY(&c, borderWidth), 1);
779         while (cell) {
780           cell->member.cell.yTextOffset = borderWidth;
781           cell = cell->member.cell.prev_cell;
782         }
783         c.pt.y += borderWidth;
784       }
785       if (endRowPara->member.para.pFmt->dxStartIndent > 0)
786       {
787         int dxStartIndent = endRowPara->member.para.pFmt->dxStartIndent;
788         cell = ME_FindItemFwd(item, diCell);
789         cell->member.cell.pt.x += ME_twips2pointsX(&c, dxStartIndent);
790         c.pt.x = cell->member.cell.pt.x;
791       }
792     }
793     else if (item->member.para.nFlags & MEPF_ROWEND)
794     {
795       /* Set all the cells to the height of the largest cell */
796       ME_DisplayItem *startRowPara;
797       int prevHeight, nHeight, bottomBorder = 0;
798       ME_DisplayItem *cell = ME_FindItemBack(item, diCell);
799       item->member.para.nWidth = cell->member.cell.pt.x + cell->member.cell.nWidth;
800       if (!(item->member.para.next_para->member.para.nFlags & MEPF_ROWSTART))
801       {
802         /* Last row, the bottom border is added to the height. */
803         cell = cell->member.cell.prev_cell;
804         while (cell)
805         {
806           bottomBorder = max(bottomBorder, cell->member.cell.border.bottom.width);
807           cell = cell->member.cell.prev_cell;
808         }
809         bottomBorder = ME_twips2pointsY(&c, bottomBorder);
810         cell = ME_FindItemBack(item, diCell);
811       }
812       prevHeight = cell->member.cell.nHeight;
813       nHeight = cell->member.cell.prev_cell->member.cell.nHeight + bottomBorder;
814       cell->member.cell.nHeight = nHeight;
815       item->member.para.nHeight = nHeight;
816       cell = cell->member.cell.prev_cell;
817       cell->member.cell.nHeight = nHeight;
818       while (cell->member.cell.prev_cell)
819       {
820         cell = cell->member.cell.prev_cell;
821         cell->member.cell.nHeight = nHeight;
822       }
823       /* Also set the height of the start row paragraph */
824       startRowPara = ME_FindItemBack(cell, diParagraph);
825       startRowPara->member.para.nHeight = nHeight;
826       c.pt.x = startRowPara->member.para.pt.x;
827       c.pt.y = cell->member.cell.pt.y + nHeight;
828       if (prevHeight < nHeight)
829       {
830         /* The height of the cells has grown, so invalidate the bottom of
831          * the cells. */
832         ME_MarkRepaintEnd(item, &repaint_start, &repaint_end);
833         cell = ME_FindItemBack(item, diCell);
834         while (cell) {
835           ME_MarkRepaintEnd(ME_FindItemBack(cell, diParagraph), &repaint_start, &repaint_end);
836           cell = cell->member.cell.prev_cell;
837         }
838       }
839     }
840     else if (item->member.para.pCell &&
841              item->member.para.pCell != item->member.para.next_para->member.para.pCell)
842     {
843       /* The next paragraph is in the next cell in the table row. */
844       ME_Cell *cell = &item->member.para.pCell->member.cell;
845       cell->nHeight = c.pt.y + item->member.para.nHeight - cell->pt.y;
846
847       /* Propagate the largest height to the end so that it can be easily
848        * sent back to all the cells at the end of the row. */
849       if (cell->prev_cell)
850         cell->nHeight = max(cell->nHeight, cell->prev_cell->member.cell.nHeight);
851
852       c.pt.x = cell->pt.x + cell->nWidth;
853       c.pt.y = cell->pt.y;
854       cell->next_cell->member.cell.pt = c.pt;
855       if (!(item->member.para.next_para->member.para.nFlags & MEPF_ROWEND))
856         c.pt.y += cell->yTextOffset;
857     }
858     else
859     {
860       if (item->member.para.pCell) {
861         /* Next paragraph in the same cell. */
862         c.pt.x = item->member.para.pCell->member.cell.pt.x;
863       } else {
864         /* Normal paragraph */
865         c.pt.x = 0;
866       }
867       c.pt.y += item->member.para.nHeight;
868     }
869
870     totalWidth = max(totalWidth, item->member.para.nWidth);
871     item = item->member.para.next_para;
872   }
873   editor->sizeWindow.cx = c.rcView.right-c.rcView.left;
874   editor->sizeWindow.cy = c.rcView.bottom-c.rcView.top;
875
876   editor->nTotalLength = c.pt.y;
877   editor->nTotalWidth = totalWidth;
878   editor->pBuffer->pLast->member.para.pt.x = 0;
879   editor->pBuffer->pLast->member.para.pt.y = c.pt.y;
880
881   ME_DestroyContext(&c);
882
883   if (repaint_start || editor->nTotalLength < editor->nLastTotalLength)
884     ME_InvalidateParagraphRange(editor, repaint_start, repaint_end);
885   return !!repaint_start;
886 }
887
888 void ME_InvalidateParagraphRange(ME_TextEditor *editor,
889                                  ME_DisplayItem *start_para,
890                                  ME_DisplayItem *last_para)
891 {
892   ME_Context c;
893   RECT rc;
894   int ofs;
895
896   ME_InitContext(&c, editor, ITextHost_TxGetDC(editor->texthost));
897   rc = c.rcView;
898   ofs = editor->vert_si.nPos;
899
900   if (start_para) {
901     start_para = ME_GetOuterParagraph(start_para);
902     last_para = ME_GetOuterParagraph(last_para);
903     rc.top = c.rcView.top + start_para->member.para.pt.y - ofs;
904   } else {
905     rc.top = c.rcView.top + editor->nTotalLength - ofs;
906   }
907   if (editor->nTotalLength < editor->nLastTotalLength)
908     rc.bottom = c.rcView.top + editor->nLastTotalLength - ofs;
909   else
910     rc.bottom = c.rcView.top + last_para->member.para.pt.y + last_para->member.para.nHeight - ofs;
911   ITextHost_TxInvalidateRect(editor->texthost, &rc, TRUE);
912
913   ME_DestroyContext(&c);
914 }
915
916
917 void
918 ME_SendRequestResize(ME_TextEditor *editor, BOOL force)
919 {
920   if (editor->nEventMask & ENM_REQUESTRESIZE)
921   {
922     RECT rc;
923
924     ITextHost_TxGetClientRect(editor->texthost, &rc);
925
926     if (force || rc.bottom != editor->nTotalLength)
927     {
928       REQRESIZE info;
929
930       info.nmhdr.hwndFrom = NULL;
931       info.nmhdr.idFrom = 0;
932       info.nmhdr.code = EN_REQUESTRESIZE;
933       info.rc = rc;
934       info.rc.right = editor->nTotalWidth;
935       info.rc.bottom = editor->nTotalLength;
936
937       editor->nEventMask &= ~ENM_REQUESTRESIZE;
938       ITextHost_TxNotify(editor->texthost, info.nmhdr.code, &info);
939       editor->nEventMask |= ENM_REQUESTRESIZE;
940     }
941   }
942 }