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(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_run( &p->member.run ), 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.len, debugstr_run( &p->member.run ),
 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.len);
 131         ofs += p->member.run.len;
 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.len;
 230     }
 231   }
 232
 233   p->member.run.len += pNext->member.run.len;
 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_SplitRunSimple
 247  *
 248  * Does the most basic job of splitting a run into two - it does not
 249  * update the positions and extents.
 250  */
 251 ME_DisplayItem *ME_SplitRunSimple(ME_TextEditor *editor, ME_Cursor *cursor)
 252 {
 253   ME_DisplayItem *run = cursor->pRun;
 254   ME_DisplayItem *new_run;
 255   int i;
 256   int nOffset = cursor->nOffset;
 257
 258   assert(!(run->member.run.nFlags & MERF_NONTEXT));
 259
 260   new_run = ME_MakeRun(run->member.run.style,
 261                        run->member.run.nFlags & MERF_SPLITMASK);
 262   new_run->member.run.nCharOfs = run->member.run.nCharOfs + nOffset;
 263   new_run->member.run.len = run->member.run.len - nOffset;
 264   new_run->member.run.para = run->member.run.para;
 265   run->member.run.len = nOffset;
 266   cursor->pRun = new_run;
 267   cursor->nOffset = 0;
 268
 269   ME_InsertBefore(run->next, new_run);
 270
 271   ME_UpdateRunFlags(editor, &run->member.run);
 272   ME_UpdateRunFlags(editor, &new_run->member.run);
 273   for (i = 0; i < editor->nCursors; i++) {
 274     if (editor->pCursors[i].pRun == run &&
 275         editor->pCursors[i].nOffset >= nOffset) {
 276       editor->pCursors[i].pRun = new_run;
 277       editor->pCursors[i].nOffset -= nOffset;
 278     }
 279   }
 280   cursor->pPara->member.para.nFlags |= MEPF_REWRAP;
 281   return run;
 282 }
 283
 284 /******************************************************************************
 285  * ME_MakeRun
 286  *
 287  * A helper function to create run structures quickly.
 288  */
 289 ME_DisplayItem *ME_MakeRun(ME_Style *s, int nFlags)
 290 {
 291   ME_DisplayItem *item = ME_MakeDI(diRun);
 292   item->member.run.style = s;
 293   item->member.run.ole_obj = NULL;
 294   item->member.run.nFlags = nFlags;
 295   item->member.run.nCharOfs = -1;
 296   item->member.run.len = 0;
 297   item->member.run.para = NULL;
 298   ME_AddRefStyle(s);
 299   return item;
 300 }
 301
 302 /******************************************************************************
 303  * ME_InsertRunAtCursor
 304  *
 305  * Inserts a new run with given style, flags and content at a given position,
 306  * which is passed as a cursor structure (which consists of a run and
 307  * a run-relative character offset).
 308  */
 309 ME_DisplayItem *
 310 ME_InsertRunAtCursor(ME_TextEditor *editor, ME_Cursor *cursor, ME_Style *style,
 311                      const WCHAR *str, int len, int flags)
 312 {
 313   ME_DisplayItem *pDI;
 314
 315   if (cursor->nOffset)
 316     ME_SplitRunSimple(editor, cursor);
 317
 318   add_undo_delete_run( editor, cursor->pPara->member.para.nCharOfs +
 319                        cursor->pRun->member.run.nCharOfs, len );
 320
 321   pDI = ME_MakeRun(style, flags);
 322   pDI->member.run.nCharOfs = cursor->pRun->member.run.nCharOfs;
 323   pDI->member.run.len = len;
 324   pDI->member.run.para = cursor->pRun->member.run.para;
 325   ME_InsertString( pDI->member.run.para->text, pDI->member.run.nCharOfs, str, len );
 326   ME_InsertBefore(cursor->pRun, pDI);
 327   TRACE("Shift length:%d\n", len);
 328   ME_PropagateCharOffset(cursor->pRun, len);
 329   cursor->pPara->member.para.nFlags |= MEPF_REWRAP;
 330   return pDI;
 331 }
 332
 333 static BOOL run_is_splittable( const ME_Run *run )
 334 {
 335     WCHAR *str = get_text( run, 0 ), *p;
 336     int i;
 337     BOOL found_ink = FALSE;
 338
 339     for (i = 0, p = str; i < run->len; i++, p++)
 340     {
 341         if (ME_IsWSpace( *p ))
 342         {
 343             if (found_ink) return TRUE;
 344         }
 345         else
 346             found_ink = TRUE;
 347     }
 348     return FALSE;
 349 }
 350
 351 static BOOL run_is_entirely_ws( const ME_Run *run )
 352 {
 353     WCHAR *str = get_text( run, 0 ), *p;
 354     int i;
 355
 356     for (i = 0, p = str; i < run->len; i++, p++)
 357         if (!ME_IsWSpace( *p )) return FALSE;
 358
 359     return TRUE;
 360 }
 361
 362 /******************************************************************************
 363  * ME_UpdateRunFlags
 364  *
 365  * Determine some of run attributes given its content (style, text content).
 366  * Some flags cannot be determined by this function (MERF_GRAPHICS,
 367  * MERF_ENDPARA)
 368  */
 369 void ME_UpdateRunFlags(ME_TextEditor *editor, ME_Run *run)
 370 {
 371   assert(run->nCharOfs >= 0);
 372
 373   if (RUN_IS_HIDDEN(run) || run->nFlags & MERF_TABLESTART)
 374     run->nFlags |= MERF_HIDDEN;
 375   else
 376     run->nFlags &= ~MERF_HIDDEN;
 377
 378   if (run_is_splittable( run ))
 379     run->nFlags |= MERF_SPLITTABLE;
 380   else
 381     run->nFlags &= ~MERF_SPLITTABLE;
 382
 383   if (!(run->nFlags & MERF_NOTEXT))
 384   {
 385     if (run_is_entirely_ws( run ))
 386       run->nFlags |= MERF_WHITESPACE | MERF_STARTWHITE | MERF_ENDWHITE;
 387     else
 388     {
 389       run->nFlags &= ~MERF_WHITESPACE;
 390
 391       if (ME_IsWSpace( *get_text( run, 0 ) ))
 392         run->nFlags |= MERF_STARTWHITE;
 393       else
 394         run->nFlags &= ~MERF_STARTWHITE;
 395
 396       if (ME_IsWSpace( *get_text( run, run->len - 1 ) ))
 397         run->nFlags |= MERF_ENDWHITE;
 398       else
 399         run->nFlags &= ~MERF_ENDWHITE;
 400     }
 401   }
 402   else
 403     run->nFlags &= ~(MERF_WHITESPACE | MERF_STARTWHITE | MERF_ENDWHITE);
 404 }
 405
 406 /******************************************************************************
 407  * ME_CharFromPointContext
 408  *
 409  * Returns a character position inside the run given a run-relative
 410  * pixel horizontal position.
 411  *
 412  * If closest is FALSE return the actual character
 413  * If closest is TRUE will round to the closest leading edge.
 414  * ie. if the second character is at pixel position 8 and third at 16 then for:
 415  * closest = FALSE cx = 0..7 return 0, cx = 8..15 return 1
 416  * closest = TRUE  cx = 0..3 return 0, cx = 4..11 return 1.
 417  */
 418 int ME_CharFromPointContext(ME_Context *c, int cx, ME_Run *run, BOOL closest)
 419 {
 420   ME_String *mask_text = NULL;
 421   WCHAR *str;
 422   int fit = 0;
 423   HGDIOBJ hOldFont;
 424   SIZE sz, sz2, sz3;
 425   if (!run->len || cx <= 0)
 426     return 0;
 427
 428   if (run->nFlags & (MERF_TAB | MERF_ENDCELL))
 429   {
 430     if (!closest || cx < run->nWidth / 2) return 0;
 431     return 1;
 432   }
 433
 434   if (run->nFlags & MERF_GRAPHICS)
 435   {
 436     SIZE sz;
 437     ME_GetOLEObjectSize(c, run, &sz);
 438     if (!closest || cx < sz.cx / 2) return 0;
 439     return 1;
 440   }
 441
 442   if (c->editor->cPasswordMask)
 443   {
 444     mask_text = ME_MakeStringR( c->editor->cPasswordMask, run->len );
 445     str = mask_text->szData;
 446   }
 447   else
 448     str = get_text( run, 0 );
 449
 450   hOldFont = ME_SelectStyleFont(c, run->style);
 451   GetTextExtentExPointW(c->hDC, str, run->len,
 452                         cx, &fit, NULL, &sz);
 453   if (closest && fit != run->len)
 454   {
 455     GetTextExtentPoint32W(c->hDC, str, fit, &sz2);
 456     GetTextExtentPoint32W(c->hDC, str, fit + 1, &sz3);
 457     if (cx >= (sz2.cx+sz3.cx)/2)
 458       fit = fit + 1;
 459   }
 460
 461   ME_DestroyString( mask_text );
 462
 463   ME_UnselectStyleFont(c, run->style, hOldFont);
 464   return fit;
 465 }
 466
 467 int ME_CharFromPoint(ME_TextEditor *editor, int cx, ME_Run *run, BOOL closest)
 468 {
 469     ME_Context c;
 470     int ret;
 471
 472     ME_InitContext( &c, editor, ITextHost_TxGetDC( editor->texthost ) );
 473     ret = ME_CharFromPointContext( &c, cx, run, closest );
 474     ME_DestroyContext(&c);
 475     return ret;
 476 }
 477
 478 /******************************************************************************
 479  * ME_GetTextExtent
 480  *
 481  * Finds a width and a height of the text using a specified style
 482  */
 483 static void ME_GetTextExtent(ME_Context *c, LPCWSTR szText, int nChars, ME_Style *s, SIZE *size)
 484 {
 485   HGDIOBJ hOldFont;
 486   if (c->hDC) {
 487     hOldFont = ME_SelectStyleFont(c, s);
 488     GetTextExtentPoint32W(c->hDC, szText, nChars, size);
 489     ME_UnselectStyleFont(c, s, hOldFont);
 490   } else {
 491     size->cx = 0;
 492     size->cy = 0;
 493   }
 494 }
 495
 496 /******************************************************************************
 497  * ME_PointFromCharContext
 498  *
 499  * Returns a run-relative pixel position given a run-relative character
 500  * position (character offset)
 501  */
 502 int ME_PointFromCharContext(ME_Context *c, ME_Run *pRun, int nOffset)
 503 {
 504   SIZE size;
 505   ME_String *mask_text = NULL;
 506   WCHAR *str;
 507
 508   if (pRun->nFlags & MERF_GRAPHICS)
 509   {
 510     if (nOffset)
 511       ME_GetOLEObjectSize(c, pRun, &size);
 512     return nOffset != 0;
 513   } else if (pRun->nFlags & MERF_ENDPARA) {
 514     nOffset = 0;
 515   }
 516
 517   if (c->editor->cPasswordMask)
 518   {
 519     mask_text = ME_MakeStringR(c->editor->cPasswordMask, pRun->len);
 520     str = mask_text->szData;
 521   }
 522   else
 523       str = get_text( pRun, 0 );
 524
 525   ME_GetTextExtent(c, str, nOffset, pRun->style, &size);
 526   ME_DestroyString( mask_text );
 527   return size.cx;
 528 }
 529
 530 /******************************************************************************
 531  * ME_PointFromChar
 532  *
 533  * Calls ME_PointFromCharContext after first creating a context.
 534  */
 535 int ME_PointFromChar(ME_TextEditor *editor, ME_Run *pRun, int nOffset)
 536 {
 537     ME_Context c;
 538     int ret;
 539
 540     ME_InitContext(&c, editor, ITextHost_TxGetDC(editor->texthost));
 541     ret = ME_PointFromCharContext( &c, pRun, nOffset );
 542     ME_DestroyContext(&c);
 543
 544     return ret;
 545 }
 546
 547 /******************************************************************************
 548  * ME_GetRunSizeCommon
 549  *
 550  * Finds width, height, ascent and descent of a run, up to given character
 551  * (nLen).
 552  */
 553 SIZE ME_GetRunSizeCommon(ME_Context *c, const ME_Paragraph *para, ME_Run *run, int nLen,
 554                          int startx, int *pAscent, int *pDescent)
 555 {
 556   SIZE size;
 557   int nMaxLen = run->len;
 558
 559   if (nLen>nMaxLen)
 560     nLen = nMaxLen;
 561
 562   /* FIXME the following call also ensures that TEXTMETRIC structure is filled
 563    * this is wasteful for MERF_NONTEXT runs, but that shouldn't matter
 564    * in practice
 565    */
 566
 567   if (c->editor->cPasswordMask)
 568   {
 569     ME_String *szMasked = ME_MakeStringR(c->editor->cPasswordMask,nLen);
 570     ME_GetTextExtent(c, szMasked->szData, nLen,run->style, &size);
 571     ME_DestroyString(szMasked);
 572   }
 573   else
 574   {
 575     ME_GetTextExtent(c, get_text( run, 0 ), nLen, run->style, &size);
 576   }
 577   *pAscent = run->style->tm.tmAscent;
 578   *pDescent = run->style->tm.tmDescent;
 579   size.cy = *pAscent + *pDescent;
 580
 581   if (run->nFlags & MERF_TAB)
 582   {
 583     int pos = 0, i = 0, ppos, shift = 0;
 584     PARAFORMAT2 *pFmt = para->pFmt;
 585
 586     if (c->editor->bEmulateVersion10 && /* v1.0 - 3.0 */
 587         pFmt->dwMask & PFM_TABLE && pFmt->wEffects & PFE_TABLE)
 588       /* The horizontal gap shifts the tab positions to leave the gap. */
 589       shift = pFmt->dxOffset * 2;
 590     do {
 591       if (i < pFmt->cTabCount)
 592       {
 593         /* Only one side of the horizontal gap is needed at the end of
 594          * the table row. */
 595         if (i == pFmt->cTabCount -1)
 596           shift = shift >> 1;
 597         pos = shift + (pFmt->rgxTabs[i]&0x00FFFFFF);
 598         i++;
 599       }
 600       else
 601       {
 602         pos += lDefaultTab - (pos % lDefaultTab);
 603       }
 604       ppos = ME_twips2pointsX(c, pos);
 605       if (ppos > startx + run->pt.x) {
 606         size.cx = ppos - startx - run->pt.x;
 607         break;
 608       }
 609     } while(1);
 610     size.cy = *pAscent + *pDescent;
 611     return size;
 612   }
 613   if (run->nFlags & MERF_GRAPHICS)
 614   {
 615     ME_GetOLEObjectSize(c, run, &size);
 616     if (size.cy > *pAscent)
 617       *pAscent = size.cy;
 618     /* descent is unchanged */
 619     return size;
 620   }
 621   return size;
 622 }
 623
 624 /******************************************************************************
 625  * ME_GetRunSize
 626  *
 627  * Finds width and height (but not ascent and descent) of a part of the run
 628  * up to given character.
 629  */
 630 SIZE ME_GetRunSize(ME_Context *c, const ME_Paragraph *para,
 631                    ME_Run *run, int nLen, int startx)
 632 {
 633   int asc, desc;
 634   return ME_GetRunSizeCommon(c, para, run, nLen, startx, &asc, &desc);
 635 }
 636
 637 /******************************************************************************
 638  * ME_SetSelectionCharFormat
 639  *
 640  * Applies a style change, either to a current selection, or to insert cursor
 641  * (ie. the style next typed characters will use).
 642  */
 643 void ME_SetSelectionCharFormat(ME_TextEditor *editor, CHARFORMAT2W *pFmt)
 644 {
 645   if (!ME_IsSelection(editor))
 646   {
 647     ME_Style *s;
 648     if (!editor->pBuffer->pCharStyle)
 649       editor->pBuffer->pCharStyle = ME_GetInsertStyle(editor, 0);
 650     s = ME_ApplyStyle(editor->pBuffer->pCharStyle, pFmt);
 651     ME_ReleaseStyle(editor->pBuffer->pCharStyle);
 652     editor->pBuffer->pCharStyle = s;
 653   } else {
 654     ME_Cursor *from, *to;
 655     ME_GetSelection(editor, &from, &to);
 656     ME_SetCharFormat(editor, from, to, pFmt);
 657   }
 658 }
 659
 660 /******************************************************************************
 661  * ME_SetCharFormat
 662  *
 663  * Applies a style change to the specified part of the text
 664  *
 665  * The start and end cursors specify the part of the text.  These cursors will
 666  * be updated to stay valid, but this function may invalidate other
 667  * non-selection cursors. The end cursor may be NULL to specify all the text
 668  * following the start cursor.
 669  *
 670  * If no text is selected, then nothing is done.
 671  */
 672 void ME_SetCharFormat(ME_TextEditor *editor, ME_Cursor *start, ME_Cursor *end, CHARFORMAT2W *pFmt)
 673 {
 674   ME_DisplayItem *para;
 675   ME_DisplayItem *run;
 676   ME_DisplayItem *end_run = NULL;
 677
 678   if (end && start->pRun == end->pRun && start->nOffset == end->nOffset)
 679     return;
 680
 681   if (start->nOffset)
 682   {
 683     /* SplitRunSimple may or may not update the cursors, depending on whether they
 684      * are selection cursors, but we need to make sure they are valid. */
 685     int split_offset = start->nOffset;
 686     ME_DisplayItem *split_run = ME_SplitRunSimple(editor, start);
 687     if (end && end->pRun == split_run)
 688     {
 689       end->pRun = start->pRun;
 690       end->nOffset -= split_offset;
 691     }
 692   }
 693
 694   if (end && end->nOffset)
 695     ME_SplitRunSimple(editor, end);
 696   end_run = end ? end->pRun : NULL;
 697
 698   run = start->pRun;
 699   para = start->pPara;
 700   para->member.para.nFlags |= MEPF_REWRAP;
 701
 702   while(run != end_run)
 703   {
 704     ME_Style *new_style = ME_ApplyStyle(run->member.run.style, pFmt);
 705     /* ME_DumpStyle(new_style); */
 706
 707     add_undo_set_char_fmt( editor, para->member.para.nCharOfs + run->member.run.nCharOfs,
 708                            run->member.run.len, &run->member.run.style->fmt );
 709     ME_ReleaseStyle(run->member.run.style);
 710     run->member.run.style = new_style;
 711     run = ME_FindItemFwd(run, diRunOrParagraph);
 712     if (run && run->type == diParagraph)
 713     {
 714       para = run;
 715       run = ME_FindItemFwd(run, diRun);
 716       if (run != end_run)
 717         para->member.para.nFlags |= MEPF_REWRAP;
 718     }
 719   }
 720 }
 721
 722 /******************************************************************************
 723  * ME_SetDefaultCharFormat
 724  *
 725  * Applies a style change to the default character style.
 726  */
 727 void ME_SetDefaultCharFormat(ME_TextEditor *editor, CHARFORMAT2W *mod)
 728 {
 729   ME_Style *style;
 730
 731   assert(mod->cbSize == sizeof(CHARFORMAT2W));
 732   style = ME_ApplyStyle(editor->pBuffer->pDefaultStyle, mod);
 733   editor->pBuffer->pDefaultStyle->fmt = style->fmt;
 734   editor->pBuffer->pDefaultStyle->tm = style->tm;
 735   ME_ReleaseStyle(style);
 736   ME_MarkAllForWrapping(editor);
 737   /*  pcf = editor->pBuffer->pDefaultStyle->fmt; */
 738 }
 739
 740 static void ME_GetRunCharFormat(ME_TextEditor *editor, ME_DisplayItem *run, CHARFORMAT2W *pFmt)
 741 {
 742   ME_CopyCharFormat(pFmt, &run->member.run.style->fmt);
 743   if ((pFmt->dwMask & CFM_UNDERLINETYPE) && (pFmt->bUnderlineType == CFU_CF1UNDERLINE))
 744   {
 745     pFmt->dwMask |= CFM_UNDERLINE;
 746     pFmt->dwEffects |= CFE_UNDERLINE;
 747   }
 748   if ((pFmt->dwMask & CFM_UNDERLINETYPE) && (pFmt->bUnderlineType == CFU_UNDERLINENONE))
 749   {
 750     pFmt->dwMask |= CFM_UNDERLINE;
 751     pFmt->dwEffects &= ~CFE_UNDERLINE;
 752   }
 753 }
 754
 755 /******************************************************************************
 756  * ME_GetDefaultCharFormat
 757  *
 758  * Retrieves the current default character style (the one applied where no
 759  * other style was applied) .
 760  */
 761 void ME_GetDefaultCharFormat(ME_TextEditor *editor, CHARFORMAT2W *pFmt)
 762 {
 763   ME_CopyCharFormat(pFmt, &editor->pBuffer->pDefaultStyle->fmt);
 764 }
 765
 766 /******************************************************************************
 767  * ME_GetSelectionCharFormat
 768  *
 769  * If selection exists, it returns all style elements that are set consistently
 770  * in the whole selection. If not, it just returns the current style.
 771  */
 772 void ME_GetSelectionCharFormat(ME_TextEditor *editor, CHARFORMAT2W *pFmt)
 773 {
 774   ME_Cursor *from, *to;
 775   if (!ME_IsSelection(editor) && editor->pBuffer->pCharStyle)
 776   {
 777     ME_CopyCharFormat(pFmt, &editor->pBuffer->pCharStyle->fmt);
 778     return;
 779   }
 780   ME_GetSelection(editor, &from, &to);
 781   ME_GetCharFormat(editor, from, to, pFmt);
 782 }
 783
 784 /******************************************************************************
 785  * ME_GetCharFormat
 786  *
 787  * Returns the style consisting of those attributes which are consistently set
 788  * in the whole character range.
 789  */
 790 void ME_GetCharFormat(ME_TextEditor *editor, const ME_Cursor *from,
 791                       const ME_Cursor *to, CHARFORMAT2W *pFmt)
 792 {
 793   ME_DisplayItem *run, *run_end;
 794   CHARFORMAT2W tmp;
 795
 796   run = from->pRun;
 797   /* special case - if selection is empty, take previous char's formatting */
 798   if (from->pRun == to->pRun && from->nOffset == to->nOffset)
 799   {
 800     if (!from->nOffset)
 801     {
 802       ME_DisplayItem *tmp_run = ME_FindItemBack(run, diRunOrParagraph);
 803       if (tmp_run->type == diRun) {
 804         ME_GetRunCharFormat(editor, tmp_run, pFmt);
 805         return;
 806       }
 807     }
 808     ME_GetRunCharFormat(editor, run, pFmt);
 809     return;
 810   }
 811
 812   run_end = to->pRun;
 813   if (!to->nOffset)
 814     run_end = ME_FindItemBack(run_end, diRun);
 815
 816   ME_GetRunCharFormat(editor, run, pFmt);
 817
 818   if (run == run_end) return;
 819
 820   do {
 821     /* FIXME add more style feature comparisons */
 822     DWORD dwAttribs = CFM_SIZE | CFM_FACE | CFM_COLOR | CFM_UNDERLINETYPE;
 823     DWORD dwEffects = CFM_BOLD | CFM_ITALIC | CFM_UNDERLINE | CFM_STRIKEOUT | CFM_PROTECTED | CFM_LINK | CFM_SUPERSCRIPT;
 824
 825     run = ME_FindItemFwd(run, diRun);
 826
 827     ZeroMemory(&tmp, sizeof(tmp));
 828     tmp.cbSize = sizeof(tmp);
 829     ME_GetRunCharFormat(editor, run, &tmp);
 830
 831     assert((tmp.dwMask & dwAttribs) == dwAttribs);
 832     /* reset flags that differ */
 833
 834     if (pFmt->yHeight != tmp.yHeight)
 835       pFmt->dwMask &= ~CFM_SIZE;
 836     if (pFmt->dwMask & CFM_FACE)
 837     {
 838       if (!(tmp.dwMask & CFM_FACE))
 839         pFmt->dwMask &= ~CFM_FACE;
 840       else if (lstrcmpW(pFmt->szFaceName, tmp.szFaceName) ||
 841           pFmt->bPitchAndFamily != tmp.bPitchAndFamily)
 842         pFmt->dwMask &= ~CFM_FACE;
 843     }
 844     if (pFmt->yHeight != tmp.yHeight)
 845       pFmt->dwMask &= ~CFM_SIZE;
 846     if (pFmt->bUnderlineType != tmp.bUnderlineType)
 847       pFmt->dwMask &= ~CFM_UNDERLINETYPE;
 848     if (pFmt->dwMask & CFM_COLOR)
 849     {
 850       if (!((pFmt->dwEffects&CFE_AUTOCOLOR) & (tmp.dwEffects&CFE_AUTOCOLOR)))
 851       {
 852         if (pFmt->crTextColor != tmp.crTextColor)
 853           pFmt->dwMask &= ~CFM_COLOR;
 854       }
 855     }
 856
 857     pFmt->dwMask &= ~((pFmt->dwEffects ^ tmp.dwEffects) & dwEffects);
 858     pFmt->dwEffects = tmp.dwEffects;
 859
 860   } while(run != run_end);
 861 }