git.oblomov.eu Git - wine/blob - dlls/user/text.c

   1 /*
   2  * USER text functions
   3  *
   4  * Copyright 1993, 1994 Alexandre Julliard
   5  *
   6  * Contains
   7  *   1.  DrawText functions
   8  *   2.  GrayString functions
   9  *   3.  TabbedText functions
  10  */
  11
  12 #include <string.h>
  13
  14 #include "windef.h"
  15 #include "wingdi.h"
  16 #include "wine/winuser16.h"
  17 #include "wine/unicode.h"
  18 #include "winbase.h"
  19 #include "winerror.h"
  20 #include "winnls.h"
  21 #include "user.h"
  22 #include "debugtools.h"
  23
  24 DEFAULT_DEBUG_CHANNEL(text);
  25
  26 #define countof(a) (sizeof(a)/sizeof(a[0]))
  27
  28 /*********************************************************************
  29  *
  30  *            DrawText functions
  31  */
  32
  33 #define TAB     9
  34 #define LF     10
  35 #define CR     13
  36 #define SPACE  32
  37 #define PREFIX 38
  38
  39 #define ELLIPSIS "..."
  40 #define FORWARD_SLASH '/'
  41 #define BACK_SLASH '\\'
  42
  43 static const WCHAR SPACEW[] = {' ', 0};
  44 static const WCHAR oW[] = {'o', 0};
  45 static const WCHAR ELLIPSISW[] = {'.','.','.', 0};
  46 static const WCHAR FORWARD_SLASHW[] = {'/', 0};
  47 static const WCHAR BACK_SLASHW[] = {'\\', 0};
  48
  49 static int tabstop;
  50 static int tabwidth;
  51 static int spacewidth;
  52 static int prefix_offset;
  53
  54
  55 /*********************************************************************
  56  *  Return next line of text from a string.
  57  *
  58  * hdc - handle to DC.
  59  * str - string to parse into lines.
  60  * count - length of str.
  61  * dest - destination in which to return line.
  62  * len - dest buffer size in chars on input, copied length into dest on output.
  63  * width - maximum width of line in pixels.
  64  * format - format type passed to DrawText.
  65  *
  66  * Returns pointer to next char in str after end of the line
  67  * or NULL if end of str reached.
  68  *
  69  * FIXME:
  70  * GetTextExtentPoint is used to get the width of each character,
  71  * rather than GetCharABCWidth...  So the whitespace between
  72  * characters is ignored, and the reported len is too great.
  73  */
  74 static const WCHAR *TEXT_NextLineW( HDC hdc, const WCHAR *str, int *count,
  75                                   WCHAR *dest, int *len, int width, WORD format)
  76 {
  77     int i = 0, j = 0, k;
  78     int plen = 0;
  79     int numspaces;
  80     SIZE size;
  81     int lasttab = 0;
  82     int wb_i = 0, wb_j = 0, wb_count = 0;
  83     int maxl = *len;
  84
  85     while (*count && j < maxl)
  86     {
  87         switch (str[i])
  88         {
  89         case CR:
  90         case LF:
  91             if (!(format & DT_SINGLELINE))
  92             {
  93                 if ((*count > 1) && (str[i] == CR) && (str[i+1] == LF))
  94                 {
  95                     (*count)--;
  96                     i++;
  97                 }
  98                 i++;
  99                 *len = j;
 100                 (*count)--;
 101                 return (&str[i]);
 102             }
 103             dest[j++] = str[i++];
 104             if (!(format & DT_NOCLIP) || !(format & DT_NOPREFIX) ||
 105                 (format & DT_WORDBREAK))
 106             {
 107                 if (!GetTextExtentPointW(hdc, &dest[j-1], 1, &size))
 108                     return NULL;
 109                 plen += size.cx;
 110             }
 111             break;
 112
 113         case PREFIX:
 114             if (!(format & DT_NOPREFIX) && *count > 1)
 115                 {
 116                 if (str[++i] == PREFIX)
 117                     (*count)--;
 118                 else {
 119                     prefix_offset = j;
 120                     break;
 121                 }
 122             }
 123             dest[j++] = str[i++];
 124             if (!(format & DT_NOCLIP) || !(format & DT_NOPREFIX) ||
 125                 (format & DT_WORDBREAK))
 126             {
 127                 if (!GetTextExtentPointW(hdc, &dest[j-1], 1, &size))
 128                     return NULL;
 129                 plen += size.cx;
 130             }
 131             break;
 132
 133         case TAB:
 134             if (format & DT_EXPANDTABS)
 135             {
 136                 wb_i = ++i;
 137                 wb_j = j;
 138                 wb_count = *count;
 139
 140                 if (!GetTextExtentPointW(hdc, &dest[lasttab], j - lasttab, &size))
 141                     return NULL;
 142
 143                 numspaces = (tabwidth - size.cx) / spacewidth;
 144                 for (k = 0; k < numspaces; k++)
 145                     dest[j++] = SPACE;
 146                 plen += tabwidth - size.cx;
 147                 lasttab = wb_j + numspaces;
 148             }
 149             else
 150             {
 151                 dest[j++] = str[i++];
 152                 if (!(format & DT_NOCLIP) || !(format & DT_NOPREFIX) ||
 153                     (format & DT_WORDBREAK))
 154                 {
 155                     if (!GetTextExtentPointW(hdc, &dest[j-1], 1, &size))
 156                         return NULL;
 157                     plen += size.cx;
 158                 }
 159             }
 160             break;
 161
 162         case SPACE:
 163             dest[j++] = str[i++];
 164             if (!(format & DT_NOCLIP) || !(format & DT_NOPREFIX) ||
 165                 (format & DT_WORDBREAK))
 166             {
 167                 wb_i = i;
 168                 wb_j = j - 1;
 169                 wb_count = *count;
 170                 if (!GetTextExtentPointW(hdc, &dest[j-1], 1, &size))
 171                     return NULL;
 172                 plen += size.cx;
 173             }
 174             break;
 175
 176         default:
 177             dest[j++] = str[i++];
 178             if (!(format & DT_NOCLIP) || !(format & DT_NOPREFIX) ||
 179                 (format & DT_WORDBREAK))
 180             {
 181                 if (!GetTextExtentPointW(hdc, &dest[j-1], 1, &size))
 182                     return NULL;
 183                 plen += size.cx;
 184             }
 185         }
 186
 187         (*count)--;
 188         if (!(format & DT_NOCLIP) || (format & DT_WORDBREAK))
 189         {
 190             if (plen > width)
 191             {
 192                 if (format & DT_WORDBREAK)
 193                 {
 194                     if (wb_j)
 195                     {
 196                         *len = wb_j;
 197                         *count = wb_count - 1;
 198                         return (&str[wb_i]);
 199                     }
 200                 }
 201                 else
 202                 {
 203                     *len = j;
 204                     return (&str[i]);
 205                 }
 206             }
 207         }
 208     }
 209
 210     *len = j;
 211     return NULL;
 212 }
 213
 214
 215 /***********************************************************************
 216  *                      TEXT_DrawUnderscore
 217  *
 218  *  Draw the underline under the prefixed character
 219  *
 220  * Parameters
 221  *   hdc        [in] The handle of the DC for drawing
 222  *   x          [in] The x location of the line segment (logical coordinates)
 223  *   y          [in] The y location of where the underscore should appear
 224  *                   (logical coordinates)
 225  *   str        [in] The text of the line segment
 226  *   offset     [in] The offset of the underscored character within str
 227  */
 228
 229 static void TEXT_DrawUnderscore (HDC hdc, int x, int y, const WCHAR *str, int offset)
 230 {
 231     int prefix_x;
 232     int prefix_end;
 233     SIZE size;
 234     HPEN hpen;
 235     HPEN oldPen;
 236
 237     GetTextExtentPointW (hdc, str, offset, &size);
 238     prefix_x = x + size.cx;
 239     GetTextExtentPointW (hdc, str, offset+1, &size);
 240     prefix_end = x + size.cx - 1;
 241     /* The above method may eventually be slightly wrong due to kerning etc. */
 242
 243     hpen = CreatePen (PS_SOLID, 1, GetTextColor (hdc));
 244     oldPen = SelectObject (hdc, hpen);
 245     MoveToEx (hdc, prefix_x, y, NULL);
 246     LineTo (hdc, prefix_end, y);
 247     SelectObject (hdc, oldPen);
 248     DeleteObject (hpen);
 249 }
 250
 251 /***********************************************************************
 252  *           DrawTextExW    (USER32.@)
 253  */
 254 #define MAX_STATIC_BUFFER 1024
 255 INT WINAPI DrawTextExW( HDC hdc, LPWSTR str, INT i_count,
 256                         LPRECT rect, UINT flags, LPDRAWTEXTPARAMS dtp )
 257 {
 258     SIZE size;
 259     const WCHAR *strPtr;
 260     static WCHAR line[MAX_STATIC_BUFFER];
 261     int len, lh, count=i_count;
 262     TEXTMETRICW tm;
 263     int lmargin = 0, rmargin = 0;
 264     int x = rect->left, y = rect->top;
 265     int width = rect->right - rect->left;
 266     int max_width = 0;
 267
 268     TRACE("%s, %d , [(%d,%d),(%d,%d)]\n", debugstr_wn (str, count), count,
 269           rect->left, rect->top, rect->right, rect->bottom);
 270
 271    if (dtp) TRACE("Params: iTabLength=%d, iLeftMargin=%d, iRightMargin=%d\n",
 272           dtp->iTabLength, dtp->iLeftMargin, dtp->iRightMargin);
 273
 274     if (!str) return 0;
 275     if (count == -1) count = strlenW(str);
 276     if (count == 0) return 0;
 277     strPtr = str;
 278
 279     GetTextMetricsW(hdc, &tm);
 280     if (flags & DT_EXTERNALLEADING)
 281         lh = tm.tmHeight + tm.tmExternalLeading;
 282     else
 283         lh = tm.tmHeight;
 284
 285     if (dtp)
 286     {
 287         lmargin = dtp->iLeftMargin * tm.tmAveCharWidth;
 288         rmargin = dtp->iRightMargin * tm.tmAveCharWidth;
 289         if (!(flags & (DT_CENTER | DT_RIGHT)))
 290             x += lmargin;
 291         dtp->uiLengthDrawn = 0;     /* This param RECEIVES number of chars processed */
 292     }
 293
 294     tabstop = ((flags & DT_TABSTOP) && dtp) ? dtp->iTabLength : 8;
 295
 296     if (flags & DT_EXPANDTABS)
 297     {
 298         GetTextExtentPointW(hdc, SPACEW, 1, &size);
 299         spacewidth = size.cx;
 300         GetTextExtentPointW(hdc, oW, 1, &size);
 301         tabwidth = size.cx * tabstop;
 302     }
 303
 304     if (flags & DT_CALCRECT) flags |= DT_NOCLIP;
 305
 306     do
 307     {
 308         prefix_offset = -1;
 309         len = MAX_STATIC_BUFFER;
 310         strPtr = TEXT_NextLineW(hdc, strPtr, &count, line, &len, width, flags);
 311
 312         if (!GetTextExtentPointW(hdc, line, len, &size)) return 0;
 313         if (flags & DT_CENTER) x = (rect->left + rect->right -
 314                                     size.cx) / 2;
 315         else if (flags & DT_RIGHT) x = rect->right - size.cx;
 316
 317         if (flags & DT_SINGLELINE)
 318         {
 319             if (flags & DT_VCENTER) y = rect->top +
 320                 (rect->bottom - rect->top) / 2 - size.cy / 2;
 321             else if (flags & DT_BOTTOM) y = rect->bottom - size.cy;
 322         }
 323
 324         if ((flags & DT_SINGLELINE) && size.cx > width &&
 325             (flags & (DT_PATH_ELLIPSIS | DT_END_ELLIPSIS | DT_WORD_ELLIPSIS)))
 326         {
 327                 WCHAR swapStr[countof(line)];
 328                 WCHAR* fnameDelim = NULL;
 329                 int totalLen = i_count >= 0 ? i_count : strlenW(str);
 330                     int fnameLen = totalLen;
 331                 int old_prefix_offset = prefix_offset;
 332
 333                     /* allow room for '...' */
 334                     count = min(totalLen+3, countof(line)-3);
 335
 336                     if (flags & DT_WORD_ELLIPSIS)
 337                         flags |= DT_WORDBREAK;
 338
 339                     if (flags & DT_PATH_ELLIPSIS)
 340                     {
 341                         WCHAR* lastBkSlash = NULL;
 342                         WCHAR* lastFwdSlash = NULL;
 343                         strncpyW(line, str, totalLen);
 344                         line[totalLen] = '\0';
 345                         lastBkSlash = strrchrW(line, BACK_SLASHW[0]);
 346                         lastFwdSlash = strrchrW(line, FORWARD_SLASHW[0]);
 347                         fnameDelim = lastBkSlash > lastFwdSlash ? lastBkSlash : lastFwdSlash;
 348
 349                         if (fnameDelim)
 350                             fnameLen = &line[totalLen] - fnameDelim;
 351                         else
 352                             fnameDelim = (WCHAR*)str;
 353
 354                         strcpyW(swapStr, ELLIPSISW);
 355                         strncpyW(swapStr+strlenW(swapStr), fnameDelim, fnameLen);
 356                         swapStr[fnameLen+3] = '\0';
 357                         strncpyW(swapStr+strlenW(swapStr), str, totalLen - fnameLen);
 358                         swapStr[totalLen+3] = '\0';
 359                     }
 360                     else  /* DT_END_ELLIPSIS | DT_WORD_ELLIPSIS */
 361                     {
 362                         strcpyW(swapStr, ELLIPSISW);
 363                         strncpyW(swapStr+strlenW(swapStr), str, totalLen);
 364                     }
 365
 366                     len = MAX_STATIC_BUFFER;
 367                     TEXT_NextLineW(hdc, swapStr, &count, line, &len, width, flags);
 368                     prefix_offset = old_prefix_offset;
 369
 370                     /* if only the ELLIPSIS will fit, just let it be clipped */
 371                     len = max(3, len);
 372                     GetTextExtentPointW(hdc, line, len, &size);
 373
 374                     /* FIXME:
 375                      * NextLine uses GetTextExtentPoint for each character,
 376                      * rather than GetCharABCWidth...  So the whitespace between
 377                      * characters is ignored in the width measurement, and the
 378                      * reported len is too great.  To compensate, we must get
 379                      * the width of the entire line and adjust len accordingly.
 380                     */
 381                     while ((size.cx > width) && (len > 3))
 382                     {
 383                         line[--len] = '\0';
 384                         GetTextExtentPointW(hdc, line, len, &size);
 385                     }
 386
 387                     if (fnameLen < len-3) /* some of the path will fit */
 388                     {
 389                         /* put the ELLIPSIS between the path and filename */
 390                         strncpyW(swapStr, &line[fnameLen+3], len-3-fnameLen);
 391                         swapStr[len-3-fnameLen] = '\0';
 392                         strcatW(swapStr, ELLIPSISW);
 393                         strncpyW(swapStr+strlenW(swapStr), &line[3], fnameLen);
 394                     }
 395                     else
 396                     {
 397                         /* move the ELLIPSIS to the end */
 398                         strncpyW(swapStr, &line[3], len-3);
 399                         swapStr[len-3] = '\0';
 400                         strcpyW(swapStr+strlenW(swapStr), ELLIPSISW);
 401                     }
 402
 403                     strncpyW(line, swapStr, len);
 404                     line[len] = '\0';
 405                     strPtr = NULL;
 406
 407                /* Note that really we ought to refigure the location of
 408                 * the underline for the prefix; it might be currently set for
 409                 * something we have just ellipsified out.
 410                 * NB We had better do it before modifying the string and
 411                 * loosing the ampersands
 412                 */
 413
 414                if (flags & DT_MODIFYSTRING)
 415                     strcpyW(str, swapStr);
 416         }
 417         if (!(flags & DT_CALCRECT))
 418         {
 419            if (!ExtTextOutW( hdc, x, y,
 420                              ((flags & DT_NOCLIP) ? 0 : ETO_CLIPPED) |
 421                              ((flags & DT_RTLREADING) ? ETO_RTLREADING : 0),
 422                     rect, line, len, NULL ))  return 0;
 423             if (prefix_offset != -1)
 424                 TEXT_DrawUnderscore (hdc, x, y + tm.tmAscent + 1, line, prefix_offset);
 425         }
 426         else if (size.cx > max_width)
 427             max_width = size.cx;
 428
 429         y += lh;
 430         if (strPtr)
 431         {
 432             if (!(flags & DT_NOCLIP))
 433             {
 434                 if (y > rect->bottom - lh)
 435                     break;
 436             }
 437         }
 438         if (dtp)
 439             dtp->uiLengthDrawn += len;
 440     }
 441     while (strPtr);
 442
 443     if (flags & DT_CALCRECT)
 444     {
 445         rect->right = rect->left + max_width;
 446         rect->bottom = y;
 447         if (dtp)
 448             rect->right += lmargin + rmargin;
 449     }
 450     return y - rect->top;
 451 }
 452
 453 /***********************************************************************
 454  *           DrawTextExA    (USER32.@)
 455  */
 456 INT WINAPI DrawTextExA( HDC hdc, LPSTR str, INT count,
 457                         LPRECT rect, UINT flags, LPDRAWTEXTPARAMS dtp )
 458 {
 459    WCHAR *wstr;
 460    INT ret = 0;
 461    DWORD wcount;
 462
 463    if (count == -1) count = strlen(str);
 464    if (!count) return 0;
 465    wcount = MultiByteToWideChar( CP_ACP, 0, str, count, NULL, 0 );
 466    wstr = HeapAlloc(GetProcessHeap(), 0, wcount * sizeof(WCHAR));
 467    if (wstr)
 468    {
 469        MultiByteToWideChar( CP_ACP, 0, str, count, wstr, wcount );
 470        ret = DrawTextExW( hdc, wstr, wcount, rect, flags, NULL );
 471        if (flags & DT_MODIFYSTRING)
 472             WideCharToMultiByte( CP_ACP, 0, wstr, -1, str, count, NULL, NULL );
 473        HeapFree(GetProcessHeap(), 0, wstr);
 474    }
 475    return ret;
 476 }
 477
 478 /***********************************************************************
 479  *           DrawTextW    (USER32.@)
 480  */
 481 INT WINAPI DrawTextW( HDC hdc, LPCWSTR str, INT count, LPRECT rect, UINT flags )
 482 {
 483     DRAWTEXTPARAMS dtp;
 484
 485     memset (&dtp, 0, sizeof(dtp));
 486     if (flags & DT_TABSTOP)
 487     {
 488         dtp.iTabLength = (flags >> 8) && 0xff;
 489         flags &= 0xffff00ff;
 490     }
 491     return DrawTextExW(hdc, (LPWSTR)str, count, rect, flags, &dtp);
 492 }
 493
 494 /***********************************************************************
 495  *           DrawTextA    (USER32.@)
 496  */
 497 INT WINAPI DrawTextA( HDC hdc, LPCSTR str, INT count, LPRECT rect, UINT flags )
 498 {
 499     DRAWTEXTPARAMS dtp;
 500
 501     memset (&dtp, 0, sizeof(dtp));
 502     if (flags & DT_TABSTOP)
 503     {
 504         dtp.iTabLength = (flags >> 8) && 0xff;
 505         flags &= 0xffff00ff;
 506     }
 507     return DrawTextExA( hdc, (LPSTR)str, count, rect, flags, &dtp );
 508 }
 509
 510 /***********************************************************************
 511  *           DrawText    (USER.85)
 512  */
 513 INT16 WINAPI DrawText16( HDC16 hdc, LPCSTR str, INT16 count, LPRECT16 rect, UINT16 flags )
 514 {
 515     INT16 ret;
 516
 517     if (rect)
 518     {
 519         RECT rect32;
 520         CONV_RECT16TO32( rect, &rect32 );
 521         ret = DrawTextA( hdc, str, count, &rect32, flags );
 522         CONV_RECT32TO16( &rect32, rect );
 523     }
 524     else ret = DrawTextA( hdc, str, count, NULL, flags);
 525     return ret;
 526 }
 527
 528
 529 /***********************************************************************
 530  *
 531  *           GrayString functions
 532  */
 533
 534 /* ### start build ### */
 535 extern WORD CALLBACK TEXT_CallTo16_word_wlw(GRAYSTRINGPROC16,WORD,LONG,WORD);
 536 /* ### stop build ### */
 537
 538 struct gray_string_info
 539 {
 540     GRAYSTRINGPROC16 proc;
 541     LPARAM           param;
 542 };
 543
 544 /* callback for 16-bit gray string proc */
 545 static BOOL CALLBACK gray_string_callback( HDC hdc, LPARAM param, INT len )
 546 {
 547     const struct gray_string_info *info = (struct gray_string_info *)param;
 548     return TEXT_CallTo16_word_wlw( info->proc, hdc, info->param, len );
 549 }
 550
 551 /***********************************************************************
 552  *           TEXT_GrayString
 553  *
 554  * FIXME: The call to 16-bit code only works because the wine GDI is a 16-bit
 555  * heap and we can guarantee that the handles fit in an INT16. We have to
 556  * rethink the strategy once the migration to NT handles is complete.
 557  * We are going to get a lot of code-duplication once this migration is
 558  * completed...
 559  *
 560  */
 561 static BOOL TEXT_GrayString(HDC hdc, HBRUSH hb, GRAYSTRINGPROC fn, LPARAM lp, INT len,
 562                             INT x, INT y, INT cx, INT cy, BOOL unicode, BOOL _32bit)
 563 {
 564     HBITMAP hbm, hbmsave;
 565     HBRUSH hbsave;
 566     HFONT hfsave;
 567     HDC memdc;
 568     int slen = len;
 569     BOOL retval = TRUE;
 570     COLORREF fg, bg;
 571
 572     if(!hdc) return FALSE;
 573     if (!(memdc = CreateCompatibleDC(hdc))) return FALSE;
 574
 575     if(len == 0)
 576     {
 577         if(unicode)
 578             slen = lstrlenW((LPCWSTR)lp);
 579         else if(_32bit)
 580             slen = strlen((LPCSTR)lp);
 581         else
 582             slen = strlen(MapSL(lp));
 583     }
 584
 585     if((cx == 0 || cy == 0) && slen != -1)
 586     {
 587         SIZE s;
 588         if(unicode)
 589             GetTextExtentPoint32W(hdc, (LPCWSTR)lp, slen, &s);
 590         else if(_32bit)
 591             GetTextExtentPoint32A(hdc, (LPCSTR)lp, slen, &s);
 592         else
 593             GetTextExtentPoint32A(hdc, MapSL(lp), slen, &s);
 594         if(cx == 0) cx = s.cx;
 595         if(cy == 0) cy = s.cy;
 596     }
 597
 598     hbm = CreateBitmap(cx, cy, 1, 1, NULL);
 599     hbmsave = (HBITMAP)SelectObject(memdc, hbm);
 600     hbsave = SelectObject( memdc, GetStockObject(BLACK_BRUSH) );
 601     PatBlt( memdc, 0, 0, cx, cy, PATCOPY );
 602     SelectObject( memdc, hbsave );
 603     SetTextColor(memdc, RGB(255, 255, 255));
 604     SetBkColor(memdc, RGB(0, 0, 0));
 605     hfsave = (HFONT)SelectObject(memdc, GetCurrentObject(hdc, OBJ_FONT));
 606
 607     if(fn)
 608     {
 609         if(_32bit)
 610             retval = fn(memdc, lp, slen);
 611         else
 612             retval = (BOOL)((BOOL16)((GRAYSTRINGPROC16)fn)((HDC16)memdc, lp, (INT16)slen));
 613     }
 614     else
 615     {
 616         if(unicode)
 617             TextOutW(memdc, 0, 0, (LPCWSTR)lp, slen);
 618         else if(_32bit)
 619             TextOutA(memdc, 0, 0, (LPCSTR)lp, slen);
 620         else
 621             TextOutA(memdc, 0, 0, MapSL(lp), slen);
 622     }
 623
 624     SelectObject(memdc, hfsave);
 625
 626 /*
 627  * Windows doc says that the bitmap isn't grayed when len == -1 and
 628  * the callback function returns FALSE. However, testing this on
 629  * win95 showed otherwise...
 630 */
 631 #ifdef GRAYSTRING_USING_DOCUMENTED_BEHAVIOUR
 632     if(retval || len != -1)
 633 #endif
 634     {
 635         hbsave = (HBRUSH)SelectObject(memdc, CACHE_GetPattern55AABrush());
 636         PatBlt(memdc, 0, 0, cx, cy, 0x000A0329);
 637         SelectObject(memdc, hbsave);
 638     }
 639
 640     if(hb) hbsave = (HBRUSH)SelectObject(hdc, hb);
 641     fg = SetTextColor(hdc, RGB(0, 0, 0));
 642     bg = SetBkColor(hdc, RGB(255, 255, 255));
 643     BitBlt(hdc, x, y, cx, cy, memdc, 0, 0, 0x00E20746);
 644     SetTextColor(hdc, fg);
 645     SetBkColor(hdc, bg);
 646     if(hb) SelectObject(hdc, hbsave);
 647
 648     SelectObject(memdc, hbmsave);
 649     DeleteObject(hbm);
 650     DeleteDC(memdc);
 651     return retval;
 652 }
 653
 654
 655 /***********************************************************************
 656  *           GrayString   (USER.185)
 657  */
 658 BOOL16 WINAPI GrayString16( HDC16 hdc, HBRUSH16 hbr, GRAYSTRINGPROC16 gsprc,
 659                             LPARAM lParam, INT16 cch, INT16 x, INT16 y,
 660                             INT16 cx, INT16 cy )
 661 {
 662     struct gray_string_info info;
 663
 664     if (!gsprc) return TEXT_GrayString(hdc, hbr, NULL, lParam, cch, x, y, cx, cy, FALSE, FALSE);
 665     info.proc  = gsprc;
 666     info.param = lParam;
 667     return TEXT_GrayString( hdc, hbr, gray_string_callback, (LPARAM)&info,
 668                             cch, x, y, cx, cy, FALSE, FALSE);
 669 }
 670
 671
 672 /***********************************************************************
 673  *           GrayStringA   (USER32.@)
 674  */
 675 BOOL WINAPI GrayStringA( HDC hdc, HBRUSH hbr, GRAYSTRINGPROC gsprc,
 676                          LPARAM lParam, INT cch, INT x, INT y,
 677                          INT cx, INT cy )
 678 {
 679     return TEXT_GrayString(hdc, hbr, gsprc, lParam, cch, x, y, cx, cy,
 680                            FALSE, TRUE);
 681 }
 682
 683
 684 /***********************************************************************
 685  *           GrayStringW   (USER32.@)
 686  */
 687 BOOL WINAPI GrayStringW( HDC hdc, HBRUSH hbr, GRAYSTRINGPROC gsprc,
 688                          LPARAM lParam, INT cch, INT x, INT y,
 689                          INT cx, INT cy )
 690 {
 691     return TEXT_GrayString(hdc, hbr, gsprc, lParam, cch, x, y, cx, cy,
 692                            TRUE, TRUE);
 693 }
 694
 695 /***********************************************************************
 696  *
 697  *           TabbedText functions
 698  */
 699
 700 /***********************************************************************
 701  *           TEXT_TabbedTextOut
 702  *
 703  * Helper function for TabbedTextOut() and GetTabbedTextExtent().
 704  * Note: this doesn't work too well for text-alignment modes other
 705  *       than TA_LEFT|TA_TOP. But we want bug-for-bug compatibility :-)
 706  */
 707 static LONG TEXT_TabbedTextOut( HDC hdc, INT x, INT y, LPCSTR lpstr,
 708                                 INT count, INT cTabStops, const INT16 *lpTabPos16,
 709                                 const INT *lpTabPos32, INT nTabOrg,
 710                                 BOOL fDisplayText )
 711 {
 712     INT defWidth;
 713     SIZE extent;
 714     int i, tabPos = x;
 715     int start = x;
 716
 717     extent.cx = 0;
 718     extent.cy = 0;
 719
 720     if (cTabStops == 1)
 721     {
 722         defWidth = lpTabPos32 ? *lpTabPos32 : *lpTabPos16;
 723         cTabStops = 0;
 724     }
 725     else
 726     {
 727         TEXTMETRICA tm;
 728         GetTextMetricsA( hdc, &tm );
 729         defWidth = 8 * tm.tmAveCharWidth;
 730     }
 731
 732     while (count > 0)
 733     {
 734         for (i = 0; i < count; i++)
 735             if (lpstr[i] == '\t') break;
 736         GetTextExtentPointA( hdc, lpstr, i, &extent );
 737         if (lpTabPos32)
 738         {
 739             while ((cTabStops > 0) &&
 740                    (nTabOrg + *lpTabPos32 <= x + extent.cx))
 741             {
 742                 lpTabPos32++;
 743                 cTabStops--;
 744             }
 745         }
 746         else
 747         {
 748             while ((cTabStops > 0) &&
 749                    (nTabOrg + *lpTabPos16 <= x + extent.cx))
 750             {
 751                 lpTabPos16++;
 752                 cTabStops--;
 753             }
 754         }
 755         if (i == count)
 756             tabPos = x + extent.cx;
 757         else if (cTabStops > 0)
 758             tabPos = nTabOrg + (lpTabPos32 ? *lpTabPos32 : *lpTabPos16);
 759         else
 760             tabPos = nTabOrg + ((x + extent.cx - nTabOrg) / defWidth + 1) * defWidth;
 761         if (fDisplayText)
 762         {
 763             RECT r;
 764             r.left   = x;
 765             r.top    = y;
 766             r.right  = tabPos;
 767             r.bottom = y + extent.cy;
 768             ExtTextOutA( hdc, x, y,
 769                            GetBkMode(hdc) == OPAQUE ? ETO_OPAQUE : 0,
 770                            &r, lpstr, i, NULL );
 771         }
 772         x = tabPos;
 773         count -= i+1;
 774         lpstr += i+1;
 775     }
 776     return MAKELONG(tabPos - start, extent.cy);
 777 }
 778
 779
 780 /***********************************************************************
 781  *           TabbedTextOut    (USER.196)
 782  */
 783 LONG WINAPI TabbedTextOut16( HDC16 hdc, INT16 x, INT16 y, LPCSTR lpstr,
 784                              INT16 count, INT16 cTabStops,
 785                              const INT16 *lpTabPos, INT16 nTabOrg )
 786 {
 787     TRACE("%04x %d,%d %s %d\n", hdc, x, y, debugstr_an(lpstr,count), count );
 788     return TEXT_TabbedTextOut( hdc, x, y, lpstr, count, cTabStops,
 789                                lpTabPos, NULL, nTabOrg, TRUE );
 790 }
 791
 792
 793 /***********************************************************************
 794  *           TabbedTextOutA    (USER32.@)
 795  */
 796 LONG WINAPI TabbedTextOutA( HDC hdc, INT x, INT y, LPCSTR lpstr, INT count,
 797                             INT cTabStops, const INT *lpTabPos, INT nTabOrg )
 798 {
 799     TRACE("%04x %d,%d %s %d\n", hdc, x, y, debugstr_an(lpstr,count), count );
 800     return TEXT_TabbedTextOut( hdc, x, y, lpstr, count, cTabStops,
 801                                NULL, lpTabPos, nTabOrg, TRUE );
 802 }
 803
 804
 805 /***********************************************************************
 806  *           TabbedTextOutW    (USER32.@)
 807  */
 808 LONG WINAPI TabbedTextOutW( HDC hdc, INT x, INT y, LPCWSTR str, INT count,
 809                             INT cTabStops, const INT *lpTabPos, INT nTabOrg )
 810 {
 811     LONG ret;
 812     LPSTR p;
 813     INT acount;
 814     UINT codepage = CP_ACP; /* FIXME: get codepage of font charset */
 815
 816     acount = WideCharToMultiByte(codepage,0,str,count,NULL,0,NULL,NULL);
 817     p = HeapAlloc( GetProcessHeap(), 0, acount );
 818     if(p == NULL) return 0; /* FIXME: is this the correct return on failure */
 819     acount = WideCharToMultiByte(codepage,0,str,count,p,acount,NULL,NULL);
 820     ret = TabbedTextOutA( hdc, x, y, p, acount, cTabStops, lpTabPos, nTabOrg );
 821     HeapFree( GetProcessHeap(), 0, p );
 822     return ret;
 823 }
 824
 825
 826 /***********************************************************************
 827  *           GetTabbedTextExtent    (USER.197)
 828  */
 829 DWORD WINAPI GetTabbedTextExtent16( HDC16 hdc, LPCSTR lpstr, INT16 count,
 830                                     INT16 cTabStops, const INT16 *lpTabPos )
 831 {
 832     TRACE("%04x %s %d\n", hdc, debugstr_an(lpstr,count), count );
 833     return TEXT_TabbedTextOut( hdc, 0, 0, lpstr, count, cTabStops,
 834                                lpTabPos, NULL, 0, FALSE );
 835 }
 836
 837
 838 /***********************************************************************
 839  *           GetTabbedTextExtentA    (USER32.@)
 840  */
 841 DWORD WINAPI GetTabbedTextExtentA( HDC hdc, LPCSTR lpstr, INT count,
 842                                    INT cTabStops, const INT *lpTabPos )
 843 {
 844     TRACE("%04x %s %d\n", hdc, debugstr_an(lpstr,count), count );
 845     return TEXT_TabbedTextOut( hdc, 0, 0, lpstr, count, cTabStops,
 846                                NULL, lpTabPos, 0, FALSE );
 847 }
 848
 849
 850 /***********************************************************************
 851  *           GetTabbedTextExtentW    (USER32.@)
 852  */
 853 DWORD WINAPI GetTabbedTextExtentW( HDC hdc, LPCWSTR lpstr, INT count,
 854                                    INT cTabStops, const INT *lpTabPos )
 855 {
 856     LONG ret;
 857     LPSTR p;
 858     INT acount;
 859     UINT codepage = CP_ACP; /* FIXME: get codepage of font charset */
 860
 861     acount = WideCharToMultiByte(codepage,0,lpstr,count,NULL,0,NULL,NULL);
 862     p = HeapAlloc( GetProcessHeap(), 0, acount );
 863     if(p == NULL) return 0; /* FIXME: is this the correct failure value? */
 864     acount = WideCharToMultiByte(codepage,0,lpstr,count,p,acount,NULL,NULL);
 865     ret = GetTabbedTextExtentA( hdc, p, acount, cTabStops, lpTabPos );
 866     HeapFree( GetProcessHeap(), 0, p );
 867     return ret;
 868 }