git.oblomov.eu Git - wine/blob - 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(ME_Run *run1, 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         if (p->member.run.nFlags & MERF_ENDPARA)
 131           ofs += (editor->bEmulateVersion10 ? 2 : 1);
 132         else
 133           ofs += ME_StrLen(p->member.run.strText);
 134         break;
 135       default:
 136         assert(0);
 137     }
 138   } while(1);
 139 }
 140
 141 /******************************************************************************
 142  * ME_CharOfsFromRunOfs
 143  *
 144  * Converts a character position relative to the start of the run, to a
 145  * character position relative to the start of the document.
 146  * Kind of a "local to global" offset conversion.
 147  */
 148 int ME_CharOfsFromRunOfs(ME_TextEditor *editor, ME_DisplayItem *pRun, int nOfs)
 149 {
 150   ME_DisplayItem *pPara;
 151
 152   assert(pRun->type == diRun);
 153   assert(pRun->member.run.nCharOfs != -1);
 154
 155   pPara = ME_FindItemBack(pRun, diParagraph);
 156   assert(pPara);
 157   assert(pPara->type==diParagraph);
 158   return pPara->member.para.nCharOfs + pRun->member.run.nCharOfs
 159     + ME_VPosToPos(pRun->member.run.strText, nOfs);
 160 }
 161
 162 /******************************************************************************
 163  * ME_CursorFromCharOfs
 164  *
 165  * Converts a character offset (relative to the start of the document) to
 166  * a cursor structure (which contains a run and a position relative to that
 167  * run).
 168  */
 169 void ME_CursorFromCharOfs(ME_TextEditor *editor, int nCharOfs, ME_Cursor *pCursor)
 170 {
 171   ME_RunOfsFromCharOfs(editor, nCharOfs, &pCursor->pRun, &pCursor->nOffset);
 172 }
 173
 174 /******************************************************************************
 175  * ME_RunOfsFromCharOfs
 176  *
 177  * Find a run and relative character offset given an absolute character offset
 178  * (absolute offset being an offset relative to the start of the document).
 179  * Kind of a "global to local" offset conversion.
 180  */
 181 void ME_RunOfsFromCharOfs(ME_TextEditor *editor, int nCharOfs, ME_DisplayItem **ppRun, int *pOfs)
 182 {
 183   ME_DisplayItem *pPara;
 184   int nParaOfs;
 185
 186   pPara = editor->pBuffer->pFirst->member.para.next_para;
 187   assert(pPara);
 188   assert(ppRun);
 189   assert(pOfs);
 190   while (pPara->type == diParagraph)
 191   {
 192     nParaOfs = pPara->member.para.nCharOfs;
 193     assert(nCharOfs >= nParaOfs);
 194
 195     if (nCharOfs < pPara->member.para.next_para->member.para.nCharOfs)
 196     {
 197       int eollen = 1;
 198       *ppRun = ME_FindItemFwd(pPara, diRun);
 199       assert(*ppRun);
 200       while (!((*ppRun)->member.run.nFlags & MERF_ENDPARA))
 201       {
 202         ME_DisplayItem *pNext = ME_FindItemFwd(*ppRun, diRun);
 203         assert(pNext);
 204         assert(pNext->type == diRun);
 205         if (nCharOfs < nParaOfs + pNext->member.run.nCharOfs) {
 206           *pOfs = ME_PosToVPos((*ppRun)->member.run.strText,
 207             nCharOfs - nParaOfs - (*ppRun)->member.run.nCharOfs);
 208           return;
 209         }
 210         *ppRun = pNext;
 211       }
 212       /* the handling of bEmulateVersion10 may be a source of many bugs, I'm afraid */
 213       eollen = (editor->bEmulateVersion10 ? 2 : 1);
 214       if (nCharOfs >= nParaOfs + (*ppRun)->member.run.nCharOfs &&
 215         nCharOfs < nParaOfs + (*ppRun)->member.run.nCharOfs + eollen) {
 216         *pOfs = 0;
 217         return;
 218       }
 219     }
 220     pPara = pPara->member.para.next_para;
 221   }
 222   *ppRun = ME_FindItemBack(editor->pBuffer->pLast, diRun);
 223   *pOfs = 0;
 224   assert((*ppRun)->member.run.nFlags & MERF_ENDPARA);
 225 }
 226
 227 /******************************************************************************
 228  * ME_JoinRuns
 229  *
 230  * Merges two adjacent runs, the one given as a parameter and the next one.
 231  */
 232 void ME_JoinRuns(ME_TextEditor *editor, ME_DisplayItem *p)
 233 {
 234   ME_DisplayItem *pNext = p->next;
 235   int i;
 236   assert(p->type == diRun && pNext->type == diRun);
 237   assert(p->member.run.nCharOfs != -1);
 238   ME_GetParagraph(p)->member.para.nFlags |= MEPF_REWRAP;
 239
 240   /* if we were at the end of screen line, and the next run is in the new
 241          * line, then it's not the end of the line anymore */
 242         if (editor->bCaretAtEnd && editor->pCursors[0].pRun == pNext)
 243     editor->bCaretAtEnd = FALSE;
 244         /* Update all cursors so that they don't contain the soon deleted run */
 245   for (i=0; i<editor->nCursors; i++) {
 246     if (editor->pCursors[i].pRun == pNext) {
 247       editor->pCursors[i].pRun = p;
 248       editor->pCursors[i].nOffset += ME_StrVLen(p->member.run.strText);
 249     }
 250   }
 251
 252   ME_AppendString(p->member.run.strText, pNext->member.run.strText);
 253   ME_Remove(pNext);
 254   ME_DestroyDisplayItem(pNext);
 255   ME_UpdateRunFlags(editor, &p->member.run);
 256   if(TRACE_ON(richedit))
 257   {
 258     TRACE("Before check after join\n");
 259     ME_CheckCharOffsets(editor);
 260     TRACE("After check after join\n");
 261   }
 262 }
 263
 264 /******************************************************************************
 265  * ME_SplitRun
 266  *
 267  * Splits a run into two in a given place. It also updates the screen position
 268  * and size (extent) of the newly generated runs.
 269  */
 270 ME_DisplayItem *ME_SplitRun(ME_Context *c, ME_DisplayItem *item, int nVChar)
 271 {
 272   ME_TextEditor *editor = c->editor;
 273   ME_DisplayItem *item2 = NULL;
 274   ME_Run *run, *run2;
 275   ME_Paragraph *para = &ME_GetParagraph(item)->member.para;
 276
 277   assert(item->member.run.nCharOfs != -1);
 278   if(TRACE_ON(richedit))
 279   {
 280     TRACE("Before check before split\n");
 281     ME_CheckCharOffsets(editor);
 282     TRACE("After check before split\n");
 283   }
 284
 285   run = &item->member.run;
 286
 287   TRACE("Before split: %s(%d, %d)\n", debugstr_w(run->strText->szData),
 288         run->pt.x, run->pt.y);
 289
 290   item2 = ME_SplitRunSimple(editor, item, nVChar);
 291
 292   run2 = &item2->member.run;
 293
 294   ME_CalcRunExtent(c, para, run);
 295   ME_CalcRunExtent(c, para, run2);
 296
 297   run2->pt.x = run->pt.x+run->nWidth;
 298   run2->pt.y = run->pt.y;
 299
 300   if(TRACE_ON(richedit))
 301   {
 302     TRACE("Before check after split\n");
 303     ME_CheckCharOffsets(editor);
 304     TRACE("After check after split\n");
 305     TRACE("After split: %s(%d, %d), %s(%d, %d)\n",
 306       debugstr_w(run->strText->szData), run->pt.x, run->pt.y,
 307       debugstr_w(run2->strText->szData), run2->pt.x, run2->pt.y);
 308   }
 309
 310   return item2;
 311 }
 312
 313 /******************************************************************************
 314  * ME_SplitRunSimple
 315  *
 316  * Does the most basic job of splitting a run into two - it does not
 317  * update the positions and extents.
 318  */
 319 ME_DisplayItem *ME_SplitRunSimple(ME_TextEditor *editor, ME_DisplayItem *item, int nVChar)
 320 {
 321   ME_Run *run = &item->member.run;
 322   ME_DisplayItem *item2;
 323   ME_Run *run2;
 324   int i;
 325   assert(nVChar > 0 && nVChar < ME_StrVLen(run->strText));
 326   assert(item->type == diRun);
 327   assert(!(item->member.run.nFlags & MERF_NONTEXT));
 328   assert(item->member.run.nCharOfs != -1);
 329
 330   item2 = ME_MakeRun(run->style,
 331       ME_VSplitString(run->strText, nVChar), run->nFlags&MERF_SPLITMASK);
 332
 333   item2->member.run.nCharOfs = item->member.run.nCharOfs+
 334     ME_VPosToPos(item->member.run.strText, nVChar);
 335
 336   run2 = &item2->member.run;
 337   ME_InsertBefore(item->next, item2);
 338
 339   ME_UpdateRunFlags(editor, run);
 340   ME_UpdateRunFlags(editor, run2);
 341   for (i=0; i<editor->nCursors; i++) {
 342     if (editor->pCursors[i].pRun == item &&
 343         editor->pCursors[i].nOffset >= nVChar) {
 344       assert(item2->type == diRun);
 345       editor->pCursors[i].pRun = item2;
 346       editor->pCursors[i].nOffset -= nVChar;
 347     }
 348   }
 349   ME_GetParagraph(item)->member.para.nFlags |= MEPF_REWRAP;
 350   return item2;
 351 }
 352
 353 /******************************************************************************
 354  * ME_MakeRun
 355  *
 356  * A helper function to create run structures quickly.
 357  */
 358 ME_DisplayItem *ME_MakeRun(ME_Style *s, ME_String *strData, int nFlags)
 359 {
 360   ME_DisplayItem *item = ME_MakeDI(diRun);
 361   item->member.run.style = s;
 362   item->member.run.strText = strData;
 363   item->member.run.nFlags = nFlags;
 364   item->member.run.nCharOfs = -1;
 365   ME_AddRefStyle(s);
 366   return item;
 367 }
 368
 369 /******************************************************************************
 370  * ME_InsertRun
 371  *
 372  * Inserts a run at a given character position (offset).
 373  */
 374 ME_DisplayItem *ME_InsertRun(ME_TextEditor *editor, int nCharOfs, ME_DisplayItem *pItem)
 375 {
 376   ME_Cursor tmp;
 377   ME_DisplayItem *pDI;
 378
 379   assert(pItem->type == diRun || pItem->type == diUndoInsertRun);
 380
 381   ME_CursorFromCharOfs(editor, nCharOfs, &tmp);
 382   pDI = ME_InsertRunAtCursor(editor, &tmp, pItem->member.run.style,
 383                              pItem->member.run.strText->szData,
 384                              pItem->member.run.strText->nLen,
 385                              pItem->member.run.nFlags);
 386
 387   return pDI;
 388 }
 389
 390 /******************************************************************************
 391  * ME_InsertRunAtCursor
 392  *
 393  * Inserts a new run with given style, flags and content at a given position,
 394  * which is passed as a cursor structure (which consists of a run and
 395  * a run-relative character offset).
 396  */
 397 ME_DisplayItem *
 398 ME_InsertRunAtCursor(ME_TextEditor *editor, ME_Cursor *cursor, ME_Style *style,
 399                      const WCHAR *str, int len, int flags)
 400 {
 401   ME_DisplayItem *pDI;
 402   ME_UndoItem *pUI;
 403
 404   if (cursor->nOffset) {
 405         /* We're inserting at the middle of the existing run, which means that
 406                  * that run must be split. It isn't always necessary, but */
 407     cursor->pRun = ME_SplitRunSimple(editor, cursor->pRun, cursor->nOffset);
 408     cursor->nOffset = 0;
 409   }
 410
 411   pUI = ME_AddUndoItem(editor, diUndoDeleteRun, NULL);
 412   if (pUI) {
 413     pUI->nStart = (ME_GetParagraph(cursor->pRun)->member.para.nCharOfs
 414                    + cursor->pRun->member.run.nCharOfs);
 415     pUI->nLen = len;
 416   }
 417
 418   pDI = ME_MakeRun(style, ME_MakeStringN(str, len), flags);
 419   pDI->member.run.nCharOfs = cursor->pRun->member.run.nCharOfs;
 420   ME_InsertBefore(cursor->pRun, pDI);
 421   TRACE("Shift length:%d\n", len);
 422   ME_PropagateCharOffset(cursor->pRun, len);
 423   ME_GetParagraph(cursor->pRun)->member.para.nFlags |= MEPF_REWRAP;
 424   return pDI;
 425 }
 426
 427 /******************************************************************************
 428  * ME_UpdateRunFlags
 429  *
 430  * Determine some of run attributes given its content (style, text content).
 431  * Some flags cannot be determined by this function (MERF_GRAPHICS,
 432  * MERF_ENDPARA)
 433  */
 434 void ME_UpdateRunFlags(ME_TextEditor *editor, ME_Run *run)
 435 {
 436   assert(run->nCharOfs != -1);
 437
 438   if (RUN_IS_HIDDEN(run))
 439     run->nFlags |= MERF_HIDDEN;
 440   else
 441     run->nFlags &= ~MERF_HIDDEN;
 442
 443   if (ME_IsSplitable(run->strText))
 444     run->nFlags |= MERF_SPLITTABLE;
 445   else
 446     run->nFlags &= ~MERF_SPLITTABLE;
 447
 448   if (!(run->nFlags & MERF_NOTEXT)) {
 449     if (ME_IsWhitespaces(run->strText))
 450       run->nFlags |= MERF_WHITESPACE | MERF_STARTWHITE | MERF_ENDWHITE;
 451     else
 452     {
 453       run->nFlags &= ~MERF_WHITESPACE;
 454
 455       if (ME_IsWSpace(ME_GetCharFwd(run->strText,0)))
 456         run->nFlags |= MERF_STARTWHITE;
 457       else
 458         run->nFlags &= ~MERF_STARTWHITE;
 459
 460       if (ME_IsWSpace(ME_GetCharBack(run->strText,0)))
 461         run->nFlags |= MERF_ENDWHITE;
 462       else
 463         run->nFlags &= ~MERF_ENDWHITE;
 464     }
 465   }
 466   else
 467     run->nFlags &= ~(MERF_WHITESPACE | MERF_STARTWHITE | MERF_ENDWHITE);
 468 }
 469
 470 /******************************************************************************
 471  * ME_GetGraphicsSize
 472  *
 473  * Sets run extent for graphics runs. This functionality is just a placeholder
 474  * for future OLE object support, and will be removed.
 475  */
 476 void ME_GetGraphicsSize(ME_TextEditor *editor, ME_Run *run, SIZE *pSize)
 477 {
 478   assert(run->nFlags & MERF_GRAPHICS);
 479   pSize->cx = 64;
 480   pSize->cy = 64;
 481 }
 482
 483 /******************************************************************************
 484  * ME_CharFromPoint
 485  *
 486  * Returns a character position inside the run given a run-relative
 487  * pixel horizontal position. This version rounds left (ie. if the second
 488  * character is at pixel position 8, then for cx=0..7 it returns 0).
 489  */
 490 int ME_CharFromPoint(ME_TextEditor *editor, int cx, ME_Run *run)
 491 {
 492   int fit = 0;
 493   HGDIOBJ hOldFont;
 494   HDC hDC;
 495   SIZE sz;
 496   if (!run->strText->nLen)
 497     return 0;
 498
 499   if (run->nFlags & (MERF_TAB | MERF_CELL))
 500   {
 501     if (cx < run->nWidth/2)
 502       return 0;
 503     return 1;
 504   }
 505   if (run->nFlags & MERF_GRAPHICS)
 506   {
 507     SIZE sz;
 508     ME_GetGraphicsSize(editor, run, &sz);
 509     if (cx < sz.cx)
 510       return 0;
 511     return 1;
 512   }
 513   hDC = GetDC(editor->hWnd);
 514   hOldFont = ME_SelectStyleFont(editor, hDC, run->style);
 515
 516   if (editor->cPasswordMask)
 517   {
 518     ME_String *strMasked = ME_MakeStringR(editor->cPasswordMask,ME_StrVLen(run->strText));
 519     GetTextExtentExPointW(hDC, strMasked->szData, run->strText->nLen,
 520       cx, &fit, NULL, &sz);
 521     ME_DestroyString(strMasked);
 522   }
 523   else
 524   {
 525     GetTextExtentExPointW(hDC, run->strText->szData, run->strText->nLen,
 526       cx, &fit, NULL, &sz);
 527   }
 528
 529   ME_UnselectStyleFont(editor, hDC, run->style, hOldFont);
 530   ReleaseDC(editor->hWnd, hDC);
 531   return fit;
 532 }
 533
 534 /******************************************************************************
 535  * ME_CharFromPointCursor
 536  *
 537  * Returns a character position inside the run given a run-relative
 538  * pixel horizontal position. This version rounds to the nearest character edge
 539  * (ie. if the second character is at pixel position 8, then for cx=0..3
 540  * it returns 0, and for cx=4..7 it returns 1).
 541  *
 542  * It is used for mouse click handling, for better usability (and compatibility
 543  * with the native control).
 544  */
 545 int ME_CharFromPointCursor(ME_TextEditor *editor, int cx, ME_Run *run)
 546 {
 547   ME_String *strRunText;
 548   /* This could point to either the run's real text, or it's masked form in a password control */
 549
 550   int fit = 0, fit1 = 0;
 551   HGDIOBJ hOldFont;
 552   HDC hDC;
 553   SIZE sz, sz2, sz3;
 554   if (!run->strText->nLen)
 555     return 0;
 556
 557   if (run->nFlags & (MERF_TAB | MERF_CELL))
 558   {
 559     if (cx < run->nWidth/2)
 560       return 0;
 561     return 1;
 562   }
 563   if (run->nFlags & MERF_GRAPHICS)
 564   {
 565     SIZE sz;
 566     ME_GetGraphicsSize(editor, run, &sz);
 567     if (cx < sz.cx/2)
 568       return 0;
 569     return 1;
 570   }
 571
 572   if (editor->cPasswordMask)
 573     strRunText = ME_MakeStringR(editor->cPasswordMask,ME_StrVLen(run->strText));
 574   else
 575     strRunText = run->strText;
 576
 577   hDC = GetDC(editor->hWnd);
 578   hOldFont = ME_SelectStyleFont(editor, hDC, run->style);
 579   GetTextExtentExPointW(hDC, strRunText->szData, strRunText->nLen,
 580     cx, &fit, NULL, &sz);
 581   if (fit != strRunText->nLen)
 582   {
 583     int chars = 1;
 584
 585     GetTextExtentPoint32W(hDC, strRunText->szData, fit, &sz2);
 586     fit1 = ME_StrRelPos(strRunText, fit, &chars);
 587     GetTextExtentPoint32W(hDC, strRunText->szData, fit1, &sz3);
 588     if (cx >= (sz2.cx+sz3.cx)/2)
 589       fit = fit1;
 590   }
 591
 592   if (editor->cPasswordMask)
 593     ME_DestroyString(strRunText);
 594
 595   ME_UnselectStyleFont(editor, hDC, run->style, hOldFont);
 596   ReleaseDC(editor->hWnd, hDC);
 597   return fit;
 598 }
 599
 600 /******************************************************************************
 601  * ME_PointFromChar
 602  *
 603  * Returns a run-relative pixel position given a run-relative character
 604  * position (character offset)
 605  */
 606 int ME_PointFromChar(ME_TextEditor *editor, ME_Run *pRun, int nOffset)
 607 {
 608   SIZE size;
 609   HDC hDC = GetDC(editor->hWnd);
 610   HGDIOBJ hOldFont;
 611   ME_String *strRunText;
 612   /* This could point to either the run's real text, or it's masked form in a password control */
 613
 614   if (pRun->nFlags & MERF_GRAPHICS)
 615   {
 616     if (!nOffset) return 0;
 617     ME_GetGraphicsSize(editor, pRun, &size);
 618     return 1;
 619   }
 620
 621    if (editor->cPasswordMask)
 622     strRunText = ME_MakeStringR(editor->cPasswordMask,ME_StrVLen(pRun->strText));
 623   else
 624     strRunText = pRun->strText;
 625
 626   hOldFont = ME_SelectStyleFont(editor, hDC, pRun->style);
 627   GetTextExtentPoint32W(hDC, strRunText->szData, nOffset, &size);
 628   ME_UnselectStyleFont(editor, hDC, pRun->style, hOldFont);
 629   ReleaseDC(editor->hWnd, hDC);
 630   if (editor->cPasswordMask)
 631     ME_DestroyString(strRunText);
 632   return size.cx;
 633 }
 634
 635 /******************************************************************************
 636  * ME_GetTextExtent
 637  *
 638  * Finds a width and a height of the text using a specified style
 639  */
 640 static void ME_GetTextExtent(ME_Context *c, LPCWSTR szText, int nChars, ME_Style *s, SIZE *size)
 641 {
 642   HDC hDC = c->hDC;
 643   HGDIOBJ hOldFont;
 644   hOldFont = ME_SelectStyleFont(c->editor, hDC, s);
 645   GetTextExtentPoint32W(hDC, szText, nChars, size);
 646   ME_UnselectStyleFont(c->editor, hDC, s, hOldFont);
 647 }
 648
 649 /******************************************************************************
 650  * ME_GetRunSizeCommon
 651  *
 652  * Finds width, height, ascent and descent of a run, up to given character
 653  * (nLen).
 654  */
 655 static SIZE ME_GetRunSizeCommon(ME_Context *c, ME_Paragraph *para, ME_Run *run, int nLen,
 656                                 int *pAscent, int *pDescent)
 657 {
 658   SIZE size;
 659   int nMaxLen = ME_StrVLen(run->strText);
 660
 661   if (nLen>nMaxLen)
 662     nLen = nMaxLen;
 663
 664   /* FIXME the following call also ensures that TEXTMETRIC structure is filled
 665    * this is wasteful for MERF_NONTEXT runs, but that shouldn't matter
 666    * in practice
 667    */
 668
 669   if (c->editor->cPasswordMask)
 670   {
 671     ME_String *szMasked = ME_MakeStringR(c->editor->cPasswordMask,nLen);
 672     ME_GetTextExtent(c, szMasked->szData, nLen,run->style, &size);
 673     ME_DestroyString(szMasked);
 674   }
 675   else
 676   {
 677     ME_GetTextExtent(c, run->strText->szData, nLen, run->style, &size);
 678   }
 679   *pAscent = run->style->tm.tmAscent;
 680   *pDescent = run->style->tm.tmDescent;
 681   size.cy = *pAscent + *pDescent;
 682
 683   if (run->nFlags & MERF_TAB)
 684   {
 685     int pos = 0, i = 0, ppos;
 686     int lpsx = GetDeviceCaps(c->hDC, LOGPIXELSX);
 687     PARAFORMAT2 *pFmt = para->pFmt;
 688     do {
 689       if (i < pFmt->cTabCount)
 690       {
 691         pos = pFmt->rgxTabs[i]&0x00FFFFFF;
 692         i++;
 693       }
 694       else
 695       {
 696         pos += 720-(pos%720);
 697       }
 698       ppos = pos*lpsx/1440;
 699       if (ppos>run->pt.x) {
 700         size.cx = ppos - run->pt.x;
 701         break;
 702       }
 703     } while(1);
 704     size.cy = *pAscent + *pDescent;
 705     return size;
 706   }
 707   if (run->nFlags & MERF_GRAPHICS)
 708   {
 709     ME_GetGraphicsSize(c->editor, run, &size);
 710     if (size.cy > *pAscent)
 711       *pAscent = size.cy;
 712     /* descent is unchanged */
 713     return size;
 714   }
 715   if (run->nFlags & MERF_CELL)
 716   {
 717     int lpsx = GetDeviceCaps(c->hDC, LOGPIXELSX);
 718
 719     size.cx = run->pCell->nRightBoundary * lpsx / 1440 - run->pt.x;
 720     return size;
 721   }
 722   return size;
 723 }
 724
 725 /******************************************************************************
 726  * ME_GetRunSize
 727  *
 728  * Finds width and height (but not ascent and descent) of a part of the run
 729  * up to given character.
 730  */
 731 SIZE ME_GetRunSize(ME_Context *c, ME_Paragraph *para, ME_Run *run, int nLen)
 732 {
 733   int asc, desc;
 734   return ME_GetRunSizeCommon(c, para, run, nLen, &asc, &desc);
 735 }
 736
 737 /******************************************************************************
 738  * ME_CalcRunExtent
 739  *
 740  * Updates the size of the run (fills width, ascent and descent). The height
 741  * is calculated based on whole row's ascent and descent anyway, so no need
 742  * to use it here.
 743  */
 744 void ME_CalcRunExtent(ME_Context *c, ME_Paragraph *para, ME_Run *run)
 745 {
 746   if (run->nFlags & MERF_HIDDEN)
 747     run->nWidth = 0;
 748   else
 749   {
 750     int nEnd = ME_StrVLen(run->strText);
 751     SIZE size = ME_GetRunSizeCommon(c, para, run, nEnd, &run->nAscent, &run->nDescent);
 752     run->nWidth = size.cx;
 753     if (!size.cx)
 754       WARN("size.cx == 0\n");
 755   }
 756 }
 757
 758 /******************************************************************************
 759  * ME_MustBeWrapped
 760  *
 761  * This should ensure that the given paragraph is wrapped so that its screen
 762  * row structure may be used. But it doesn't, yet.
 763  */
 764 void ME_MustBeWrapped(ME_Context *c, ME_DisplayItem *para)
 765 {
 766   assert(para->type == diParagraph);
 767   /* FIXME */
 768 }
 769
 770 /******************************************************************************
 771  * ME_SetSelectionCharFormat
 772  *
 773  * Applies a style change, either to a current selection, or to insert cursor
 774  * (ie. the style next typed characters will use).
 775  */
 776 void ME_SetSelectionCharFormat(ME_TextEditor *editor, CHARFORMAT2W *pFmt)
 777 {
 778   int nFrom, nTo;
 779   ME_GetSelection(editor, &nFrom, &nTo);
 780   if (nFrom == nTo)
 781   {
 782     ME_Style *s;
 783     if (!editor->pBuffer->pCharStyle)
 784       editor->pBuffer->pCharStyle = ME_GetInsertStyle(editor, 0);
 785     s = ME_ApplyStyle(editor->pBuffer->pCharStyle, pFmt);
 786     ME_ReleaseStyle(editor->pBuffer->pCharStyle);
 787     editor->pBuffer->pCharStyle = s;
 788   }
 789   else
 790     ME_SetCharFormat(editor, nFrom, nTo-nFrom, pFmt);
 791 }
 792
 793 /******************************************************************************
 794  * ME_SetCharFormat
 795  *
 796  * Applies a style change to the specified part of the text
 797  */
 798 void ME_SetCharFormat(ME_TextEditor *editor, int nOfs, int nChars, CHARFORMAT2W *pFmt)
 799 {
 800   ME_Cursor tmp, tmp2;
 801   ME_DisplayItem *para;
 802
 803   ME_CursorFromCharOfs(editor, nOfs, &tmp);
 804   if (tmp.nOffset)
 805     tmp.pRun = ME_SplitRunSimple(editor, tmp.pRun, tmp.nOffset);
 806
 807   ME_CursorFromCharOfs(editor, nOfs+nChars, &tmp2);
 808   if (tmp2.nOffset)
 809     tmp2.pRun = ME_SplitRunSimple(editor, tmp2.pRun, tmp2.nOffset);
 810
 811   para = ME_GetParagraph(tmp.pRun);
 812   para->member.para.nFlags |= MEPF_REWRAP;
 813
 814   while(tmp.pRun != tmp2.pRun)
 815   {
 816     ME_UndoItem *undo = NULL;
 817     ME_Style *new_style = ME_ApplyStyle(tmp.pRun->member.run.style, pFmt);
 818     /* ME_DumpStyle(new_style); */
 819     undo = ME_AddUndoItem(editor, diUndoSetCharFormat, NULL);
 820     if (undo) {
 821       undo->nStart = tmp.pRun->member.run.nCharOfs+para->member.para.nCharOfs;
 822       undo->nLen = tmp.pRun->member.run.strText->nLen;
 823       undo->di.member.ustyle = tmp.pRun->member.run.style;
 824       /* we'd have to addref undo..ustyle and release tmp...style
 825          but they'd cancel each other out so we can do nothing instead */
 826     }
 827     else
 828       ME_ReleaseStyle(tmp.pRun->member.run.style);
 829     tmp.pRun->member.run.style = new_style;
 830     tmp.pRun = ME_FindItemFwd(tmp.pRun, diRunOrParagraph);
 831     if (tmp.pRun->type == diParagraph)
 832     {
 833       para = tmp.pRun;
 834       tmp.pRun = ME_FindItemFwd(tmp.pRun, diRun);
 835       if (tmp.pRun != tmp2.pRun)
 836         para->member.para.nFlags |= MEPF_REWRAP;
 837     }
 838     assert(tmp.pRun);
 839   }
 840 }
 841
 842 /******************************************************************************
 843  * ME_SetDefaultCharFormat
 844  *
 845  * Applies a style change to the default character style.
 846  */
 847 void ME_SetDefaultCharFormat(ME_TextEditor *editor, CHARFORMAT2W *mod)
 848 {
 849   ME_Style *style;
 850   ME_UndoItem *undo;
 851
 852   assert(mod->cbSize == sizeof(CHARFORMAT2W));
 853   undo = ME_AddUndoItem(editor, diUndoSetDefaultCharFormat, NULL);
 854   if (undo) {
 855     undo->nStart = -1;
 856     undo->nLen = -1;
 857     undo->di.member.ustyle = editor->pBuffer->pDefaultStyle;
 858     ME_AddRefStyle(undo->di.member.ustyle);
 859   }
 860   style = ME_ApplyStyle(editor->pBuffer->pDefaultStyle, mod);
 861   editor->pBuffer->pDefaultStyle->fmt = style->fmt;
 862   editor->pBuffer->pDefaultStyle->tm = style->tm;
 863   ME_ReleaseStyle(style);
 864   ME_MarkAllForWrapping(editor);
 865   /*  pcf = editor->pBuffer->pDefaultStyle->fmt; */
 866 }
 867
 868 static void ME_GetRunCharFormat(ME_TextEditor *editor, ME_DisplayItem *run, CHARFORMAT2W *pFmt)
 869 {
 870   ME_CopyCharFormat(pFmt, &run->member.run.style->fmt);
 871 }
 872
 873 /******************************************************************************
 874  * ME_GetDefaultCharFormat
 875  *
 876  * Retrieves the current default character style (the one applied where no
 877  * other style was applied) .
 878  */
 879 void ME_GetDefaultCharFormat(ME_TextEditor *editor, CHARFORMAT2W *pFmt)
 880 {
 881   int nFrom, nTo;
 882   ME_GetSelection(editor, &nFrom, &nTo);
 883   ME_CopyCharFormat(pFmt, &editor->pBuffer->pDefaultStyle->fmt);
 884 }
 885
 886 /******************************************************************************
 887  * ME_GetSelectionCharFormat
 888  *
 889  * If selection exists, it returns all style elements that are set consistently
 890  * in the whole selection. If not, it just returns the current style.
 891  */
 892 void ME_GetSelectionCharFormat(ME_TextEditor *editor, CHARFORMAT2W *pFmt)
 893 {
 894   int nFrom, nTo;
 895   ME_GetSelection(editor, &nFrom, &nTo);
 896   if (nFrom == nTo && editor->pBuffer->pCharStyle)
 897   {
 898     ME_CopyCharFormat(pFmt, &editor->pBuffer->pCharStyle->fmt);
 899     return;
 900   }
 901   ME_GetCharFormat(editor, nFrom, nTo, pFmt);
 902 }
 903
 904 /******************************************************************************
 905  * ME_GetCharFormat
 906  *
 907  * Returns the style consisting of those attributes which are consistently set
 908  * in the whole character range.
 909  */
 910 void ME_GetCharFormat(ME_TextEditor *editor, int nFrom, int nTo, CHARFORMAT2W *pFmt)
 911 {
 912   ME_DisplayItem *run, *run_end;
 913   int nOffset, nOffset2;
 914   CHARFORMAT2W tmp;
 915
 916   ME_RunOfsFromCharOfs(editor, nFrom, &run, &nOffset);
 917   if (nFrom == nTo) /* special case - if selection is empty, take previous char's formatting */
 918   {
 919     if (!nOffset)
 920     {
 921       ME_DisplayItem *tmp_run = ME_FindItemBack(run, diRunOrParagraph);
 922       if (tmp_run->type == diRun) {
 923         ME_GetRunCharFormat(editor, tmp_run, pFmt);
 924         return;
 925       }
 926     }
 927     ME_GetRunCharFormat(editor, run, pFmt);
 928     return;
 929   }
 930
 931   if (nTo>nFrom) /* selection consists of chars from nFrom up to nTo-1 */
 932     nTo--;
 933   ME_RunOfsFromCharOfs(editor, nTo, &run_end, &nOffset2);
 934
 935   ME_GetRunCharFormat(editor, run, pFmt);
 936
 937   if (run == run_end) return;
 938
 939   do {
 940     /* FIXME add more style feature comparisons */
 941     int nAttribs = CFM_SIZE | CFM_FACE | CFM_COLOR;
 942     int nEffects = CFM_BOLD | CFM_ITALIC | CFM_UNDERLINE;
 943
 944     run = ME_FindItemFwd(run, diRun);
 945
 946     ZeroMemory(&tmp, sizeof(tmp));
 947     tmp.cbSize = sizeof(tmp);
 948     ME_GetRunCharFormat(editor, run, &tmp);
 949
 950     assert((tmp.dwMask & nAttribs) == nAttribs);
 951     assert((tmp.dwMask & nEffects) == nEffects);
 952     /* reset flags that differ */
 953
 954     if (pFmt->yHeight != tmp.yHeight)
 955       pFmt->dwMask &= ~CFM_SIZE;
 956     if (pFmt->dwMask & CFM_FACE)
 957     {
 958       if (!(tmp.dwMask & CFM_FACE))
 959         pFmt->dwMask &= ~CFM_FACE;
 960       else if (lstrcmpW(pFmt->szFaceName, tmp.szFaceName))
 961         pFmt->dwMask &= ~CFM_FACE;
 962     }
 963     if (pFmt->yHeight != tmp.yHeight)
 964       pFmt->dwMask &= ~CFM_SIZE;
 965     if (pFmt->dwMask & CFM_COLOR)
 966     {
 967       if (!((pFmt->dwEffects&CFE_AUTOCOLOR) & (tmp.dwEffects&CFE_AUTOCOLOR)))
 968       {
 969         if (pFmt->crTextColor != tmp.crTextColor)
 970           pFmt->dwMask &= ~CFM_COLOR;
 971       }
 972     }
 973
 974     pFmt->dwMask &= ~((pFmt->dwEffects ^ tmp.dwEffects) & nEffects);
 975
 976   } while(run != run_end);
 977 }