dbghelp: Extend dwarf stack unwinding by reading information out of .debug_frame...
[wine] / dlls / riched20 / run.c
1 /*
2  * RichEdit - operations on runs (diRun, rectangular pieces of paragraphs).
3  * Splitting/joining runs. Adjusting offsets after deleting/adding content.
4  * Character/pixel conversions.
5  *
6  * Copyright 2004 by Krzysztof Foltman
7  * Copyright 2006 by Phil Krylov
8  *
9  * This library is free software; you can redistribute it and/or
10  * modify it under the terms of the GNU Lesser General Public
11  * License as published by the Free Software Foundation; either
12  * version 2.1 of the License, or (at your option) any later version.
13  *
14  * This library is distributed in the hope that it will be useful,
15  * but WITHOUT ANY WARRANTY; without even the implied warranty of
16  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
17  * Lesser General Public License for more details.
18  *
19  * You should have received a copy of the GNU Lesser General Public
20  * License along with this library; if not, write to the Free Software
21  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
22  */
23
24 #include "editor.h"
25
26 WINE_DEFAULT_DEBUG_CHANNEL(richedit);
27 WINE_DECLARE_DEBUG_CHANNEL(richedit_check);
28 WINE_DECLARE_DEBUG_CHANNEL(richedit_lists);
29
30 /******************************************************************************
31  * ME_CanJoinRuns
32  *
33  * Returns 1 if two runs can be safely merged into one, 0 otherwise.
34  */ 
35 int ME_CanJoinRuns(const ME_Run *run1, const ME_Run *run2)
36 {
37   if ((run1->nFlags | run2->nFlags) & MERF_NOJOIN)
38     return 0;
39   if (run1->style != run2->style)
40     return 0;
41   if ((run1->nFlags & MERF_STYLEFLAGS) != (run2->nFlags & MERF_STYLEFLAGS))
42     return 0;
43   return 1;
44 }
45
46 void ME_SkipAndPropagateCharOffset(ME_DisplayItem *p, int shift)
47 {
48   p = ME_FindItemFwd(p, diRunOrParagraphOrEnd);
49   assert(p);
50   ME_PropagateCharOffset(p, shift);
51 }
52
53 /******************************************************************************
54  * ME_PropagateCharOffsets
55  *
56  * Shifts (increases or decreases) character offset (relative to beginning of 
57  * the document) of the part of the text starting from given place.  
58  */ 
59 void ME_PropagateCharOffset(ME_DisplayItem *p, int shift)
60 {
61         /* Runs in one paragraph contain character offset relative to their owning
62          * paragraph. If we start the shifting from the run, we need to shift
63          * all the relative offsets until the end of the paragraph
64          */                 
65   if (p->type == diRun) /* propagate in all runs in this para */
66   {
67     TRACE("PropagateCharOffset(%s, %d)\n", debugstr_w(p->member.run.strText->szData), shift);
68     do {
69       p->member.run.nCharOfs += shift;
70       assert(p->member.run.nCharOfs >= 0);
71       p = ME_FindItemFwd(p, diRunOrParagraphOrEnd);
72     } while(p->type == diRun);
73   }
74         /* Runs in next paragraphs don't need their offsets updated, because they, 
75          * again, those offsets are relative to their respective paragraphs.
76          * Instead of that, we're updating paragraphs' character offsets.         
77          */                 
78   if (p->type == diParagraph) /* propagate in all next paras */
79   {
80     do {
81       p->member.para.nCharOfs += shift;
82       assert(p->member.para.nCharOfs >= 0);
83       p = p->member.para.next_para;
84     } while(p->type == diParagraph);
85   }
86   /* diTextEnd also has character offset in it, which makes finding text length
87    * easier. But it needs to be up to date first.
88    */
89   if (p->type == diTextEnd)
90   {
91     p->member.para.nCharOfs += shift;
92     assert(p->member.para.nCharOfs >= 0);
93   }
94 }
95
96 /******************************************************************************
97  * ME_CheckCharOffsets
98  * 
99  * Checks if editor lists' validity and optionally dumps the document structure
100  */      
101 void ME_CheckCharOffsets(ME_TextEditor *editor)
102 {
103   ME_DisplayItem *p = editor->pBuffer->pFirst;
104   int ofs = 0, ofsp = 0;
105   if(TRACE_ON(richedit_lists))
106   {
107     TRACE_(richedit_lists)("---\n");
108     ME_DumpDocument(editor->pBuffer);
109   }
110   do {
111     p = ME_FindItemFwd(p, diRunOrParagraphOrEnd);
112     switch(p->type) {
113       case diTextEnd:
114         TRACE_(richedit_check)("tend, real ofsp = %d, counted = %d\n", p->member.para.nCharOfs, ofsp+ofs);
115         assert(ofsp+ofs == p->member.para.nCharOfs);
116         return;
117       case diParagraph:
118         TRACE_(richedit_check)("para, real ofsp = %d, counted = %d\n", p->member.para.nCharOfs, ofsp+ofs);
119         assert(ofsp+ofs == p->member.para.nCharOfs);
120         ofsp = p->member.para.nCharOfs;
121         ofs = 0;
122         break;
123       case diRun:
124         TRACE_(richedit_check)("run, real ofs = %d (+ofsp = %d), counted = %d, len = %d, txt = \"%s\", flags=%08x, fx&mask = %08x\n",
125           p->member.run.nCharOfs, p->member.run.nCharOfs+ofsp, ofsp+ofs,
126           p->member.run.strText->nLen, debugstr_w(p->member.run.strText->szData),
127           p->member.run.nFlags,
128           p->member.run.style->fmt.dwMask & p->member.run.style->fmt.dwEffects);
129         assert(ofs == p->member.run.nCharOfs);
130         assert(p->member.run.strText->nLen);
131         ofs += p->member.run.strText->nLen;
132         break;
133       case diCell:
134         TRACE_(richedit_check)("cell\n");
135         break;
136       default:
137         assert(0);
138     }
139   } while(1);
140 }
141
142 /******************************************************************************
143  * ME_CharOfsFromRunOfs
144  *
145  * Converts a character position relative to the start of the run, to a
146  * character position relative to the start of the document.
147  * Kind of a "local to global" offset conversion.
148  */
149 int ME_CharOfsFromRunOfs(ME_TextEditor *editor, const ME_DisplayItem *pPara,
150                          const ME_DisplayItem *pRun, int nOfs)
151 {
152   assert(pRun && pRun->type == diRun);
153   assert(pPara && pPara->type == diParagraph);
154   return pPara->member.para.nCharOfs + pRun->member.run.nCharOfs + nOfs;
155 }
156
157 /******************************************************************************
158  * ME_CursorFromCharOfs
159  *
160  * Converts a character offset (relative to the start of the document) to
161  * a cursor structure (which contains a run and a position relative to that
162  * run).
163  */
164 void ME_CursorFromCharOfs(ME_TextEditor *editor, int nCharOfs, ME_Cursor *pCursor)
165 {
166   ME_RunOfsFromCharOfs(editor, nCharOfs, &pCursor->pPara,
167                        &pCursor->pRun, &pCursor->nOffset);
168 }
169
170 /******************************************************************************
171  * ME_RunOfsFromCharOfs
172  *
173  * Find a run and relative character offset given an absolute character offset
174  * (absolute offset being an offset relative to the start of the document).
175  * Kind of a "global to local" offset conversion.
176  */
177 void ME_RunOfsFromCharOfs(ME_TextEditor *editor,
178                           int nCharOfs,
179                           ME_DisplayItem **ppPara,
180                           ME_DisplayItem **ppRun,
181                           int *pOfs)
182 {
183   ME_DisplayItem *item, *next_item;
184
185   nCharOfs = max(nCharOfs, 0);
186   nCharOfs = min(nCharOfs, ME_GetTextLength(editor));
187
188   /* Find the paragraph at the offset. */
189   next_item = editor->pBuffer->pFirst->member.para.next_para;
190   do {
191     item = next_item;
192     next_item = item->member.para.next_para;
193   } while (next_item->member.para.nCharOfs <= nCharOfs);
194   assert(item->type == diParagraph);
195   nCharOfs -= item->member.para.nCharOfs;
196   if (ppPara) *ppPara = item;
197
198   /* Find the run at the offset. */
199   next_item = ME_FindItemFwd(item, diRun);
200   do {
201     item = next_item;
202     next_item = ME_FindItemFwd(item, diRunOrParagraphOrEnd);
203   } while (next_item->type == diRun &&
204            next_item->member.run.nCharOfs <= nCharOfs);
205   assert(item->type == diRun);
206   nCharOfs -= item->member.run.nCharOfs;
207
208   if (ppRun) *ppRun = item;
209   if (pOfs) *pOfs = nCharOfs;
210 }
211
212 /******************************************************************************
213  * ME_JoinRuns
214  * 
215  * Merges two adjacent runs, the one given as a parameter and the next one.
216  */    
217 void ME_JoinRuns(ME_TextEditor *editor, ME_DisplayItem *p)
218 {
219   ME_DisplayItem *pNext = p->next;
220   int i;
221   assert(p->type == diRun && pNext->type == diRun);
222   assert(p->member.run.nCharOfs != -1);
223   ME_GetParagraph(p)->member.para.nFlags |= MEPF_REWRAP;
224
225   /* Update all cursors so that they don't contain the soon deleted run */
226   for (i=0; i<editor->nCursors; i++) {
227     if (editor->pCursors[i].pRun == pNext) {
228       editor->pCursors[i].pRun = p;
229       editor->pCursors[i].nOffset += p->member.run.strText->nLen;
230     }
231   }
232
233   ME_AppendString(p->member.run.strText, pNext->member.run.strText);
234   ME_Remove(pNext);
235   ME_DestroyDisplayItem(pNext);
236   ME_UpdateRunFlags(editor, &p->member.run);
237   if(TRACE_ON(richedit))
238   {
239     TRACE("Before check after join\n");
240     ME_CheckCharOffsets(editor);
241     TRACE("After check after join\n");
242   }
243 }
244
245 /******************************************************************************
246  * ME_SplitRun
247  *
248  * Splits a run into two in a given place. It also updates the screen position
249  * and size (extent) of the newly generated runs.
250  */
251 ME_DisplayItem *ME_SplitRun(ME_WrapContext *wc, ME_DisplayItem *item, int nVChar)
252 {
253   ME_TextEditor *editor = wc->context->editor;
254   ME_DisplayItem *item2 = NULL;
255   ME_Run *run, *run2;
256   ME_Paragraph *para = &ME_GetParagraph(item)->member.para;
257
258   assert(item->member.run.nCharOfs != -1);
259   if(TRACE_ON(richedit))
260   {
261     TRACE("Before check before split\n");
262     ME_CheckCharOffsets(editor);
263     TRACE("After check before split\n");
264   }
265
266   run = &item->member.run;
267
268   TRACE("Before split: %s(%d, %d)\n", debugstr_w(run->strText->szData),
269         run->pt.x, run->pt.y);
270
271   item2 = ME_SplitRunSimple(editor, item, nVChar);
272
273   run2 = &item2->member.run;
274
275   ME_CalcRunExtent(wc->context, para, wc->nRow ? wc->nLeftMargin : wc->nFirstMargin, run);
276   ME_CalcRunExtent(wc->context, para, wc->nRow ? wc->nLeftMargin : wc->nFirstMargin, run2);
277
278   run2->pt.x = run->pt.x+run->nWidth;
279   run2->pt.y = run->pt.y;
280
281   if(TRACE_ON(richedit))
282   {
283     TRACE("Before check after split\n");
284     ME_CheckCharOffsets(editor);
285     TRACE("After check after split\n");
286     TRACE("After split: %s(%d, %d), %s(%d, %d)\n",
287       debugstr_w(run->strText->szData), run->pt.x, run->pt.y,
288       debugstr_w(run2->strText->szData), run2->pt.x, run2->pt.y);
289   }
290
291   return item2;
292 }
293
294 /******************************************************************************
295  * ME_SplitRunSimple
296  * 
297  * Does the most basic job of splitting a run into two - it does not
298  * update the positions and extents.    
299  */    
300 ME_DisplayItem *ME_SplitRunSimple(ME_TextEditor *editor, ME_DisplayItem *item, int nVChar)
301 {
302   ME_Run *run = &item->member.run;
303   ME_DisplayItem *item2;
304   ME_Run *run2;
305   int i;
306   assert(nVChar > 0 && nVChar < run->strText->nLen);
307   assert(item->type == diRun);
308   assert(!(item->member.run.nFlags & MERF_NONTEXT));
309   assert(item->member.run.nCharOfs != -1);
310
311   item2 = ME_MakeRun(run->style,
312       ME_VSplitString(run->strText, nVChar), run->nFlags&MERF_SPLITMASK);
313
314   item2->member.run.nCharOfs = item->member.run.nCharOfs + nVChar;
315
316   run2 = &item2->member.run;
317   ME_InsertBefore(item->next, item2);
318
319   ME_UpdateRunFlags(editor, run);
320   ME_UpdateRunFlags(editor, run2);
321   for (i=0; i<editor->nCursors; i++) {
322     if (editor->pCursors[i].pRun == item &&
323         editor->pCursors[i].nOffset >= nVChar) {
324       assert(item2->type == diRun);
325       editor->pCursors[i].pRun = item2;
326       editor->pCursors[i].nOffset -= nVChar;
327     }
328   }
329   ME_GetParagraph(item)->member.para.nFlags |= MEPF_REWRAP;
330   return item2;
331 }
332
333 /******************************************************************************
334  * ME_MakeRun
335  * 
336  * A helper function to create run structures quickly.
337  */   
338 ME_DisplayItem *ME_MakeRun(ME_Style *s, ME_String *strData, int nFlags)
339 {
340   ME_DisplayItem *item = ME_MakeDI(diRun);
341   item->member.run.style = s;
342   item->member.run.ole_obj = NULL;
343   item->member.run.strText = strData;
344   item->member.run.nFlags = nFlags;
345   item->member.run.nCharOfs = -1;
346   ME_AddRefStyle(s);
347   return item;
348 }
349
350 /******************************************************************************
351  * ME_InsertRunAtCursor
352  *
353  * Inserts a new run with given style, flags and content at a given position,
354  * which is passed as a cursor structure (which consists of a run and 
355  * a run-relative character offset).
356  */
357 ME_DisplayItem *
358 ME_InsertRunAtCursor(ME_TextEditor *editor, ME_Cursor *cursor, ME_Style *style,
359                      const WCHAR *str, int len, int flags)
360 {
361   ME_DisplayItem *pDI;
362   ME_UndoItem *pUI;
363
364   if (cursor->nOffset) {
365         /* We're inserting at the middle of the existing run, which means that
366                  * that run must be split. It isn't always necessary, but */
367     cursor->pRun = ME_SplitRunSimple(editor, cursor->pRun, cursor->nOffset);
368     cursor->nOffset = 0;
369   }
370
371   pUI = ME_AddUndoItem(editor, diUndoDeleteRun, NULL);
372   if (pUI) {
373     pUI->nStart = cursor->pPara->member.para.nCharOfs
374                   + cursor->pRun->member.run.nCharOfs;
375     pUI->nLen = len;
376   }
377
378   pDI = ME_MakeRun(style, ME_MakeStringN(str, len), flags);
379   pDI->member.run.nCharOfs = cursor->pRun->member.run.nCharOfs;
380   ME_InsertBefore(cursor->pRun, pDI);
381   TRACE("Shift length:%d\n", len);
382   ME_PropagateCharOffset(cursor->pRun, len);
383   cursor->pPara->member.para.nFlags |= MEPF_REWRAP;
384   return pDI;
385 }
386
387 /******************************************************************************
388  * ME_UpdateRunFlags
389  *
390  * Determine some of run attributes given its content (style, text content).
391  * Some flags cannot be determined by this function (MERF_GRAPHICS,
392  * MERF_ENDPARA)
393  */
394 void ME_UpdateRunFlags(ME_TextEditor *editor, ME_Run *run)
395 {
396   ME_String *strText = run->strText;
397   assert(run->nCharOfs >= 0);
398
399   if (RUN_IS_HIDDEN(run) || run->nFlags & MERF_TABLESTART)
400     run->nFlags |= MERF_HIDDEN;
401   else
402     run->nFlags &= ~MERF_HIDDEN;
403
404   if (ME_IsSplitable(strText))
405     run->nFlags |= MERF_SPLITTABLE;
406   else
407     run->nFlags &= ~MERF_SPLITTABLE;
408
409   if (!(run->nFlags & MERF_NOTEXT)) {
410     if (ME_IsWhitespaces(strText))
411       run->nFlags |= MERF_WHITESPACE | MERF_STARTWHITE | MERF_ENDWHITE;
412     else
413     {
414       run->nFlags &= ~MERF_WHITESPACE;
415
416       if (ME_IsWSpace(strText->szData[0]))
417         run->nFlags |= MERF_STARTWHITE;
418       else
419         run->nFlags &= ~MERF_STARTWHITE;
420
421       if (ME_IsWSpace(strText->szData[strText->nLen - 1]))
422         run->nFlags |= MERF_ENDWHITE;
423       else
424         run->nFlags &= ~MERF_ENDWHITE;
425     }
426   }
427   else
428     run->nFlags &= ~(MERF_WHITESPACE | MERF_STARTWHITE | MERF_ENDWHITE);
429 }
430
431 /******************************************************************************
432  * ME_CharFromPoint
433  * 
434  * Returns a character position inside the run given a run-relative
435  * pixel horizontal position. This version rounds left (ie. if the second
436  * character is at pixel position 8, then for cx=0..7 it returns 0).  
437  */     
438 int ME_CharFromPoint(ME_Context *c, int cx, ME_Run *run)
439 {
440   int fit = 0;
441   HGDIOBJ hOldFont;
442   SIZE sz;
443   if (!run->strText->nLen)
444     return 0;
445
446   if (run->nFlags & MERF_TAB ||
447       (run->nFlags & (MERF_ENDCELL|MERF_ENDPARA)) == MERF_ENDCELL)
448   {
449     if (cx < run->nWidth/2) 
450       return 0;
451     return 1;
452   }
453   if (run->nFlags & MERF_GRAPHICS)
454   {
455     SIZE sz;
456     ME_GetOLEObjectSize(c, run, &sz);
457     if (cx < sz.cx)
458       return 0;
459     return 1;
460   }
461   hOldFont = ME_SelectStyleFont(c, run->style);
462   
463   if (c->editor->cPasswordMask)
464   {
465     ME_String *strMasked = ME_MakeStringR(c->editor->cPasswordMask, run->strText->nLen);
466     GetTextExtentExPointW(c->hDC, strMasked->szData, run->strText->nLen,
467       cx, &fit, NULL, &sz);
468     ME_DestroyString(strMasked);
469   }
470   else
471   {
472     GetTextExtentExPointW(c->hDC, run->strText->szData, run->strText->nLen,
473       cx, &fit, NULL, &sz);
474   }
475   
476   ME_UnselectStyleFont(c, run->style, hOldFont);
477
478   return fit;
479 }
480
481 /******************************************************************************
482  * ME_CharFromPointCursor
483  *
484  * Returns a character position inside the run given a run-relative
485  * pixel horizontal position. This version rounds to the nearest character edge
486  * (ie. if the second character is at pixel position 8, then for cx=0..3
487  * it returns 0, and for cx=4..7 it returns 1).
488  *
489  * It is used for mouse click handling, for better usability (and compatibility
490  * with the native control).
491  */
492 int ME_CharFromPointCursor(ME_TextEditor *editor, int cx, ME_Run *run)
493 {
494   ME_String *strRunText;
495   /* This could point to either the run's real text, or it's masked form in a password control */
496
497   int fit = 0;
498   ME_Context c;
499   HGDIOBJ hOldFont;
500   SIZE sz, sz2, sz3;
501   if (!run->strText->nLen)
502     return 0;
503
504   if (run->nFlags & (MERF_TAB | MERF_ENDCELL))
505   {
506     if (cx < run->nWidth/2)
507       return 0;
508     return 1;
509   }
510   ME_InitContext(&c, editor, ITextHost_TxGetDC(editor->texthost));
511   if (run->nFlags & MERF_GRAPHICS)
512   {
513     SIZE sz;
514     ME_GetOLEObjectSize(&c, run, &sz);
515     ME_DestroyContext(&c);
516     if (cx < sz.cx/2)
517       return 0;
518     return 1;
519   }
520
521   if (editor->cPasswordMask)
522     strRunText = ME_MakeStringR(editor->cPasswordMask, run->strText->nLen);
523   else
524     strRunText = run->strText;
525
526   hOldFont = ME_SelectStyleFont(&c, run->style);
527   GetTextExtentExPointW(c.hDC, strRunText->szData, strRunText->nLen,
528                         cx, &fit, NULL, &sz);
529   if (fit != strRunText->nLen)
530   {
531     GetTextExtentPoint32W(c.hDC, strRunText->szData, fit, &sz2);
532     GetTextExtentPoint32W(c.hDC, strRunText->szData, fit + 1, &sz3);
533     if (cx >= (sz2.cx+sz3.cx)/2)
534       fit = fit + 1;
535   }
536
537   if (editor->cPasswordMask)
538     ME_DestroyString(strRunText);
539
540   ME_UnselectStyleFont(&c, run->style, hOldFont);
541   ME_DestroyContext(&c);
542   return fit;
543 }
544
545 /******************************************************************************
546  * ME_GetTextExtent
547  *
548  * Finds a width and a height of the text using a specified style
549  */
550 static void ME_GetTextExtent(ME_Context *c, LPCWSTR szText, int nChars, ME_Style *s, SIZE *size)
551 {
552   HGDIOBJ hOldFont;
553   if (c->hDC) {
554     hOldFont = ME_SelectStyleFont(c, s);
555     GetTextExtentPoint32W(c->hDC, szText, nChars, size);
556     ME_UnselectStyleFont(c, s, hOldFont);
557   } else {
558     size->cx = 0;
559     size->cy = 0;
560   }
561 }
562
563 /******************************************************************************
564  * ME_PointFromChar
565  *
566  * Returns a run-relative pixel position given a run-relative character
567  * position (character offset)
568  */
569 int ME_PointFromChar(ME_TextEditor *editor, ME_Run *pRun, int nOffset)
570 {
571   SIZE size;
572   ME_Context c;
573   ME_String *strRunText;
574   /* This could point to either the run's real text, or it's masked form in a password control */
575
576   ME_InitContext(&c, editor, ITextHost_TxGetDC(editor->texthost));
577   if (pRun->nFlags & MERF_GRAPHICS)
578   {
579     if (nOffset)
580       ME_GetOLEObjectSize(&c, pRun, &size);
581     ME_DestroyContext(&c);
582     return nOffset != 0;
583   } else if (pRun->nFlags & MERF_ENDPARA) {
584     nOffset = 0;
585   }
586
587   if (editor->cPasswordMask)
588     strRunText = ME_MakeStringR(editor->cPasswordMask, pRun->strText->nLen);
589   else
590     strRunText = pRun->strText;
591
592   ME_GetTextExtent(&c,  strRunText->szData, nOffset, pRun->style, &size);
593   ME_DestroyContext(&c);
594   if (editor->cPasswordMask)
595     ME_DestroyString(strRunText);
596   return size.cx;
597 }
598
599 /******************************************************************************
600  * ME_GetRunSizeCommon
601  * 
602  * Finds width, height, ascent and descent of a run, up to given character
603  * (nLen).
604  */
605 static SIZE ME_GetRunSizeCommon(ME_Context *c, const ME_Paragraph *para, ME_Run *run, int nLen,
606                                 int startx, int *pAscent, int *pDescent)
607 {
608   SIZE size;
609   int nMaxLen = run->strText->nLen;
610
611   if (nLen>nMaxLen)
612     nLen = nMaxLen;
613
614   /* FIXME the following call also ensures that TEXTMETRIC structure is filled
615    * this is wasteful for MERF_NONTEXT runs, but that shouldn't matter
616    * in practice
617    */
618   
619   if (c->editor->cPasswordMask)
620   {
621     ME_String *szMasked = ME_MakeStringR(c->editor->cPasswordMask,nLen);
622     ME_GetTextExtent(c, szMasked->szData, nLen,run->style, &size); 
623     ME_DestroyString(szMasked);
624   }
625   else
626   {
627     ME_GetTextExtent(c, run->strText->szData, nLen, run->style, &size);
628   }
629   *pAscent = run->style->tm.tmAscent;
630   *pDescent = run->style->tm.tmDescent;
631   size.cy = *pAscent + *pDescent;
632
633   if (run->nFlags & MERF_TAB)
634   {
635     int pos = 0, i = 0, ppos, shift = 0;
636     PARAFORMAT2 *pFmt = para->pFmt;
637
638     if (c->editor->bEmulateVersion10 && /* v1.0 - 3.0 */
639         pFmt->dwMask & PFM_TABLE && pFmt->wEffects & PFE_TABLE)
640       /* The horizontal gap shifts the tab positions to leave the gap. */
641       shift = pFmt->dxOffset * 2;
642     do {
643       if (i < pFmt->cTabCount)
644       {
645         /* Only one side of the horizontal gap is needed at the end of
646          * the table row. */
647         if (i == pFmt->cTabCount -1)
648           shift = shift >> 1;
649         pos = shift + (pFmt->rgxTabs[i]&0x00FFFFFF);
650         i++;
651       }
652       else
653       {
654         pos += lDefaultTab - (pos % lDefaultTab);
655       }
656       ppos = ME_twips2pointsX(c, pos);
657       if (ppos > startx + run->pt.x) {
658         size.cx = ppos - startx - run->pt.x;
659         break;
660       }
661     } while(1);
662     size.cy = *pAscent + *pDescent;
663     return size;
664   }
665   if (run->nFlags & MERF_GRAPHICS)
666   {
667     ME_GetOLEObjectSize(c, run, &size);
668     if (size.cy > *pAscent)
669       *pAscent = size.cy;
670     /* descent is unchanged */
671     return size;
672   }
673   return size;
674 }
675
676 /******************************************************************************
677  * ME_GetRunSize
678  * 
679  * Finds width and height (but not ascent and descent) of a part of the run
680  * up to given character.    
681  */     
682 SIZE ME_GetRunSize(ME_Context *c, const ME_Paragraph *para,
683                    ME_Run *run, int nLen, int startx)
684 {
685   int asc, desc;
686   return ME_GetRunSizeCommon(c, para, run, nLen, startx, &asc, &desc);
687 }
688
689 /******************************************************************************
690  * ME_CalcRunExtent
691  * 
692  * Updates the size of the run (fills width, ascent and descent). The height
693  * is calculated based on whole row's ascent and descent anyway, so no need
694  * to use it here.        
695  */     
696 void ME_CalcRunExtent(ME_Context *c, const ME_Paragraph *para, int startx, ME_Run *run)
697 {
698   if (run->nFlags & MERF_HIDDEN)
699     run->nWidth = 0;
700   else
701   {
702     int nEnd = run->strText->nLen;
703     SIZE size = ME_GetRunSizeCommon(c, para, run, nEnd, startx,
704                                     &run->nAscent, &run->nDescent);
705     run->nWidth = size.cx;
706     if (!size.cx)
707       WARN("size.cx == 0\n");
708   }
709 }
710
711 /******************************************************************************
712  * ME_SetSelectionCharFormat
713  *
714  * Applies a style change, either to a current selection, or to insert cursor
715  * (ie. the style next typed characters will use).
716  */
717 void ME_SetSelectionCharFormat(ME_TextEditor *editor, CHARFORMAT2W *pFmt)
718 {
719   if (!ME_IsSelection(editor))
720   {
721     ME_Style *s;
722     if (!editor->pBuffer->pCharStyle)
723       editor->pBuffer->pCharStyle = ME_GetInsertStyle(editor, 0);
724     s = ME_ApplyStyle(editor->pBuffer->pCharStyle, pFmt);
725     ME_ReleaseStyle(editor->pBuffer->pCharStyle);
726     editor->pBuffer->pCharStyle = s;
727   } else {
728     ME_Cursor *from, *to;
729     ME_GetSelection(editor, &from, &to);
730     ME_SetCharFormat(editor, from, to, pFmt);
731   }
732 }
733
734 /******************************************************************************
735  * ME_SetCharFormat
736  *
737  * Applies a style change to the specified part of the text
738  *
739  * The start and end cursors specify the part of the text.  These cursors will
740  * be updated to stay valid, but this function may invalidate other
741  * non-selection cursors. The end cursor may be NULL to specify all the text
742  * following the start cursor.
743  *
744  * If no text is selected, then nothing is done.
745  */
746 void ME_SetCharFormat(ME_TextEditor *editor, ME_Cursor *start, ME_Cursor *end, CHARFORMAT2W *pFmt)
747 {
748   ME_DisplayItem *para;
749   ME_DisplayItem *run;
750   ME_DisplayItem *end_run = NULL;
751
752   if (end && start->pRun == end->pRun && start->nOffset == end->nOffset)
753     return;
754
755   if (start->nOffset)
756   {
757     /* SplitRunSimple may or may not update the cursors, depending on whether they
758      * are selection cursors, but we need to make sure they are valid. */
759     ME_DisplayItem *split_run = start->pRun;
760     int split_offset = start->nOffset;
761     start->pRun = ME_SplitRunSimple(editor, split_run, split_offset);
762     start->nOffset = 0;
763     if (end && end->pRun == split_run)
764     {
765       end->pRun = start->pRun;
766       end->nOffset -= split_offset;
767     }
768   }
769
770   if (end && end->nOffset)
771   {
772     end_run = end->pRun = ME_SplitRunSimple(editor, end->pRun, end->nOffset);
773     end->nOffset = 0;
774   } else if (end) {
775     end_run = end->pRun;
776   }
777
778   run = start->pRun;
779   para = start->pPara;
780   para->member.para.nFlags |= MEPF_REWRAP;
781
782   while(run != end_run)
783   {
784     ME_UndoItem *undo = NULL;
785     ME_Style *new_style = ME_ApplyStyle(run->member.run.style, pFmt);
786     /* ME_DumpStyle(new_style); */
787     undo = ME_AddUndoItem(editor, diUndoSetCharFormat, NULL);
788     if (undo) {
789       undo->nStart = run->member.run.nCharOfs+para->member.para.nCharOfs;
790       undo->nLen = run->member.run.strText->nLen;
791       undo->di.member.ustyle = run->member.run.style;
792       /* we'd have to addref undo...ustyle and release tmp...style
793          but they'd cancel each other out so we can do nothing instead */
794     }
795     else
796       ME_ReleaseStyle(run->member.run.style);
797     run->member.run.style = new_style;
798     run = ME_FindItemFwd(run, diRunOrParagraph);
799     if (run && run->type == diParagraph)
800     {
801       para = run;
802       run = ME_FindItemFwd(run, diRun);
803       if (run != end_run)
804         para->member.para.nFlags |= MEPF_REWRAP;
805     }
806   }
807 }
808
809 /******************************************************************************
810  * ME_SetDefaultCharFormat
811  * 
812  * Applies a style change to the default character style.
813  */     
814 void ME_SetDefaultCharFormat(ME_TextEditor *editor, CHARFORMAT2W *mod)
815 {
816   ME_Style *style;
817
818   assert(mod->cbSize == sizeof(CHARFORMAT2W));
819   style = ME_ApplyStyle(editor->pBuffer->pDefaultStyle, mod);
820   editor->pBuffer->pDefaultStyle->fmt = style->fmt;
821   editor->pBuffer->pDefaultStyle->tm = style->tm;
822   ME_ReleaseStyle(style);
823   ME_MarkAllForWrapping(editor);
824   /*  pcf = editor->pBuffer->pDefaultStyle->fmt; */
825 }
826
827 static void ME_GetRunCharFormat(ME_TextEditor *editor, ME_DisplayItem *run, CHARFORMAT2W *pFmt)
828 {
829   ME_CopyCharFormat(pFmt, &run->member.run.style->fmt);
830   if ((pFmt->dwMask & CFM_UNDERLINETYPE) && (pFmt->bUnderlineType == CFU_CF1UNDERLINE))
831   {
832     pFmt->dwMask |= CFM_UNDERLINE;
833     pFmt->dwEffects |= CFE_UNDERLINE;
834   }
835   if ((pFmt->dwMask & CFM_UNDERLINETYPE) && (pFmt->bUnderlineType == CFU_UNDERLINENONE))
836   {
837     pFmt->dwMask |= CFM_UNDERLINE;
838     pFmt->dwEffects &= ~CFE_UNDERLINE;
839   }
840 }
841
842 /******************************************************************************
843  * ME_GetDefaultCharFormat
844  * 
845  * Retrieves the current default character style (the one applied where no
846  * other style was applied) .
847  */     
848 void ME_GetDefaultCharFormat(ME_TextEditor *editor, CHARFORMAT2W *pFmt)
849 {
850   ME_CopyCharFormat(pFmt, &editor->pBuffer->pDefaultStyle->fmt);
851 }
852
853 /******************************************************************************
854  * ME_GetSelectionCharFormat
855  *
856  * If selection exists, it returns all style elements that are set consistently
857  * in the whole selection. If not, it just returns the current style.
858  */
859 void ME_GetSelectionCharFormat(ME_TextEditor *editor, CHARFORMAT2W *pFmt)
860 {
861   ME_Cursor *from, *to;
862   if (!ME_IsSelection(editor) && editor->pBuffer->pCharStyle)
863   {
864     ME_CopyCharFormat(pFmt, &editor->pBuffer->pCharStyle->fmt);
865     return;
866   }
867   ME_GetSelection(editor, &from, &to);
868   ME_GetCharFormat(editor, from, to, pFmt);
869 }
870
871 /******************************************************************************
872  * ME_GetCharFormat
873  *
874  * Returns the style consisting of those attributes which are consistently set
875  * in the whole character range.
876  */
877 void ME_GetCharFormat(ME_TextEditor *editor, const ME_Cursor *from,
878                       const ME_Cursor *to, CHARFORMAT2W *pFmt)
879 {
880   ME_DisplayItem *run, *run_end;
881   CHARFORMAT2W tmp;
882
883   run = from->pRun;
884   /* special case - if selection is empty, take previous char's formatting */
885   if (from->pRun == to->pRun && from->nOffset == to->nOffset)
886   {
887     if (!from->nOffset)
888     {
889       ME_DisplayItem *tmp_run = ME_FindItemBack(run, diRunOrParagraph);
890       if (tmp_run->type == diRun) {
891         ME_GetRunCharFormat(editor, tmp_run, pFmt);
892         return;
893       }
894     }
895     ME_GetRunCharFormat(editor, run, pFmt);
896     return;
897   }
898
899   run_end = to->pRun;
900   if (!to->nOffset)
901     run_end = ME_FindItemBack(run_end, diRun);
902
903   ME_GetRunCharFormat(editor, run, pFmt);
904
905   if (run == run_end) return;
906
907   do {
908     /* FIXME add more style feature comparisons */
909     int nAttribs = CFM_SIZE | CFM_FACE | CFM_COLOR | CFM_UNDERLINETYPE;
910     int nEffects = CFM_BOLD | CFM_ITALIC | CFM_UNDERLINE | CFM_STRIKEOUT | CFM_PROTECTED | CFM_LINK | CFM_SUPERSCRIPT;
911
912     run = ME_FindItemFwd(run, diRun);
913
914     ZeroMemory(&tmp, sizeof(tmp));
915     tmp.cbSize = sizeof(tmp);
916     ME_GetRunCharFormat(editor, run, &tmp);
917
918     assert((tmp.dwMask & nAttribs) == nAttribs);
919     /* reset flags that differ */
920
921     if (pFmt->yHeight != tmp.yHeight)
922       pFmt->dwMask &= ~CFM_SIZE;
923     if (pFmt->dwMask & CFM_FACE)
924     {
925       if (!(tmp.dwMask & CFM_FACE))
926         pFmt->dwMask &= ~CFM_FACE;
927       else if (lstrcmpW(pFmt->szFaceName, tmp.szFaceName) ||
928           pFmt->bPitchAndFamily != tmp.bPitchAndFamily)
929         pFmt->dwMask &= ~CFM_FACE;
930     }
931     if (pFmt->yHeight != tmp.yHeight)
932       pFmt->dwMask &= ~CFM_SIZE;
933     if (pFmt->bUnderlineType != tmp.bUnderlineType)
934       pFmt->dwMask &= ~CFM_UNDERLINETYPE;
935     if (pFmt->dwMask & CFM_COLOR)
936     {
937       if (!((pFmt->dwEffects&CFE_AUTOCOLOR) & (tmp.dwEffects&CFE_AUTOCOLOR)))
938       {
939         if (pFmt->crTextColor != tmp.crTextColor)
940           pFmt->dwMask &= ~CFM_COLOR;
941       }
942     }
943
944     pFmt->dwMask &= ~((pFmt->dwEffects ^ tmp.dwEffects) & nEffects);
945     pFmt->dwEffects = tmp.dwEffects;
946
947   } while(run != run_end);
948 }