4 * Copyright 1993, 1994 Alexandre Julliard
12 #include "wine/winuser16.h"
19 #include "debugtools.h"
23 DEFAULT_DEBUG_CHANNEL(text);
31 #define SWAP_INT(a,b) { int t = a; a = b; b = t; }
33 static int tabstop = 8;
35 static int spacewidth;
36 static int prefix_offset;
38 static const char *TEXT_NextLine( HDC16 hdc, const char *str, int *count,
39 char *dest, int *len, int width, WORD format)
41 /* Return next line of text from a string.
44 * str - string to parse into lines.
45 * count - length of str.
46 * dest - destination in which to return line.
47 * len - length of resultant line in dest in chars.
48 * width - maximum width of line in pixels.
49 * format - format type passed to DrawText.
51 * Returns pointer to next char in str after end of the line
52 * or NULL if end of str reached.
60 int wb_i = 0, wb_j = 0, wb_count = 0;
68 if (!(format & DT_SINGLELINE))
70 if ((*count > 1) && (str[i] == CR) && (str[i+1] == LF))
81 if (!(format & DT_NOCLIP) || !(format & DT_NOPREFIX) ||
82 (format & DT_WORDBREAK))
84 if (!GetTextExtentPoint16(hdc, &dest[j-1], 1, &size))
91 if (!(format & DT_NOPREFIX) && *count > 1)
93 if (str[++i] == PREFIX)
100 dest[j++] = str[i++];
101 if (!(format & DT_NOCLIP) || !(format & DT_NOPREFIX) ||
102 (format & DT_WORDBREAK))
104 if (!GetTextExtentPoint16(hdc, &dest[j-1], 1, &size))
111 if (format & DT_EXPANDTABS)
117 if (!GetTextExtentPoint16(hdc, &dest[lasttab], j - lasttab,
121 numspaces = (tabwidth - size.cx) / spacewidth;
122 for (k = 0; k < numspaces; k++)
124 plen += tabwidth - size.cx;
125 lasttab = wb_j + numspaces;
129 dest[j++] = str[i++];
130 if (!(format & DT_NOCLIP) || !(format & DT_NOPREFIX) ||
131 (format & DT_WORDBREAK))
133 if (!GetTextExtentPoint16(hdc, &dest[j-1], 1, &size))
141 dest[j++] = str[i++];
142 if (!(format & DT_NOCLIP) || !(format & DT_NOPREFIX) ||
143 (format & DT_WORDBREAK))
148 if (!GetTextExtentPoint16(hdc, &dest[j-1], 1, &size))
155 dest[j++] = str[i++];
156 if (!(format & DT_NOCLIP) || !(format & DT_NOPREFIX) ||
157 (format & DT_WORDBREAK))
159 if (!GetTextExtentPoint16(hdc, &dest[j-1], 1, &size))
166 if (!(format & DT_NOCLIP) || (format & DT_WORDBREAK))
170 if (format & DT_WORDBREAK)
175 *count = wb_count - 1;
193 /***********************************************************************
194 * DrawText16 (USER.85)
196 INT16 WINAPI DrawText16( HDC16 hdc, LPCSTR str, INT16 i_count,
197 LPRECT16 rect, UINT16 flags )
201 static char line[1024];
202 int len, lh, count=i_count;
206 int x = rect->left, y = rect->top;
207 int width = rect->right - rect->left;
210 TRACE("%s, %d , [(%d,%d),(%d,%d)]\n",
211 debugstr_an (str, count), count,
212 rect->left, rect->top, rect->right, rect->bottom);
215 if (count == -1) count = strlen(str);
218 GetTextMetrics16(hdc, &tm);
219 if (flags & DT_EXTERNALLEADING)
220 lh = tm.tmHeight + tm.tmExternalLeading;
224 if (flags & DT_TABSTOP)
225 tabstop = flags >> 8;
227 if (flags & DT_EXPANDTABS)
229 GetTextExtentPoint16(hdc, " ", 1, &size);
230 spacewidth = size.cx;
231 GetTextExtentPoint16(hdc, "o", 1, &size);
232 tabwidth = size.cx * tabstop;
235 if (flags & DT_CALCRECT) flags |= DT_NOCLIP;
240 strPtr = TEXT_NextLine(hdc, strPtr, &count, line, &len, width, flags);
242 if (prefix_offset != -1)
244 GetTextExtentPoint16(hdc, line, prefix_offset, &size);
246 GetTextExtentPoint16(hdc, line, prefix_offset + 1, &size);
247 prefix_end = size.cx - 1;
250 if (!GetTextExtentPoint16(hdc, line, len, &size)) return 0;
251 if (flags & DT_CENTER) x = (rect->left + rect->right -
253 else if (flags & DT_RIGHT) x = rect->right - size.cx;
255 if (flags & DT_SINGLELINE)
257 if (flags & DT_VCENTER) y = rect->top +
258 (rect->bottom - rect->top) / 2 - size.cy / 2;
259 else if (flags & DT_BOTTOM) y = rect->bottom - size.cy;
261 if (!(flags & DT_CALCRECT))
263 if (!ExtTextOut16(hdc, x, y, (flags & DT_NOCLIP) ? 0 : ETO_CLIPPED,
264 rect, line, len, NULL )) return 0;
265 if (prefix_offset != -1)
267 HPEN hpen = CreatePen( PS_SOLID, 1, GetTextColor(hdc) );
268 HPEN oldPen = SelectObject( hdc, hpen );
269 MoveTo16(hdc, x + prefix_x, y + tm.tmAscent + 1 );
270 LineTo(hdc, x + prefix_end + 1, y + tm.tmAscent + 1 );
271 SelectObject( hdc, oldPen );
272 DeleteObject( hpen );
275 else if (size.cx > max_width)
281 if (!(flags & DT_NOCLIP))
283 if (y > rect->bottom - lh)
289 if (flags & DT_CALCRECT)
291 rect->right = rect->left + max_width;
294 return y - rect->top;
298 /***********************************************************************
299 * DrawTextA (USER32.164)
301 INT WINAPI DrawTextA( HDC hdc, LPCSTR str, INT count,
302 LPRECT rect, UINT flags )
308 return DrawText16( (HDC16)hdc, str, (INT16)count, NULL, (UINT16)flags);
309 CONV_RECT32TO16( rect, &rect16 );
310 ret = DrawText16( (HDC16)hdc, str, (INT16)count, &rect16, (UINT16)flags );
311 CONV_RECT16TO32( &rect16, rect );
316 /***********************************************************************
317 * DrawTextW (USER32.167)
319 INT WINAPI DrawTextW( HDC hdc, LPCWSTR str, INT count,
320 LPRECT rect, UINT flags )
325 UINT codepage = CP_ACP; /* FIXME: get codepage of font charset */
327 acount = WideCharToMultiByte(codepage,0,str,count,NULL,0,NULL,NULL);
328 p = HeapAlloc( GetProcessHeap(), 0, acount );
329 acount = WideCharToMultiByte(codepage,0,str,count,p,acount,NULL,NULL);
330 ret = DrawTextA( hdc, p, acount, rect, flags );
332 HeapFree( GetProcessHeap(), 0, p );
336 /***********************************************************************
337 * DrawTextExA (USER32.165)
339 INT WINAPI DrawTextExA( HDC hdc, LPCSTR str, INT count,
340 LPRECT rect, UINT flags, LPDRAWTEXTPARAMS dtp )
342 TRACE("(%d,'%s',%d,%p,0x%08x,%p)\n",hdc,str,count,rect,flags,dtp);
344 FIXME("Ignores params:%d,%d,%d,%d,%d\n",dtp->cbSize,
345 dtp->iTabLength,dtp->iLeftMargin,dtp->iRightMargin,
348 return DrawTextA(hdc,str,count,rect,flags);
351 /***********************************************************************
352 * DrawTextExW (USER32.166)
354 INT WINAPI DrawTextExW( HDC hdc, LPCWSTR str, INT count,
355 LPRECT rect, UINT flags, LPDRAWTEXTPARAMS dtp )
357 TRACE("(%d,%p,%d,%p,0x%08x,%p)\n",hdc,str,count,rect,flags,dtp);
358 FIXME("ignores extended functionality\n");
359 return DrawTextW(hdc,str,count,rect,flags);
362 /***********************************************************************
363 * ExtTextOut16 (GDI.351)
365 BOOL16 WINAPI ExtTextOut16( HDC16 hdc, INT16 x, INT16 y, UINT16 flags,
366 const RECT16 *lprect, LPCSTR str, UINT16 count,
374 if (lpDx) lpdx32 = (LPINT)HEAP_xalloc( GetProcessHeap(), 0,
376 if (lprect) CONV_RECT16TO32(lprect,&rect32);
377 if (lpdx32) for (i=count;i--;) lpdx32[i]=lpDx[i];
378 ret = ExtTextOutA(hdc,x,y,flags,lprect?&rect32:NULL,str,count,lpdx32);
379 if (lpdx32) HeapFree( GetProcessHeap(), 0, lpdx32 );
386 /***********************************************************************
387 * ExtTextOutA (GDI32.98)
389 BOOL WINAPI ExtTextOutA( HDC hdc, INT x, INT y, UINT flags,
390 const RECT *lprect, LPCSTR str, UINT count,
395 UINT codepage = CP_ACP; /* FIXME: get codepage of font charset */
399 wlen = MultiByteToWideChar(codepage,0,str,count,NULL,0);
404 lpDxW = (LPINT)HeapAlloc( GetProcessHeap(), 0, wlen*sizeof(INT));
406 if(IsDBCSLeadByteEx(codepage, str[i])){
407 lpDxW[j++] = lpDx[i] + lpDx[i+1];
411 lpDxW[j++] = lpDx[i];
417 p = HeapAlloc( GetProcessHeap(), 0, wlen * sizeof(WCHAR) );
418 wlen = MultiByteToWideChar(codepage,0,str,count,p,wlen);
419 ret = ExtTextOutW( hdc, x, y, flags, lprect, p, wlen, lpDxW );
420 if (lpDxW) HeapFree( GetProcessHeap(), 0, lpDxW );
421 HeapFree( GetProcessHeap(), 0, p );
426 /***********************************************************************
427 * ExtTextOutW (GDI32.99)
429 BOOL WINAPI ExtTextOutW( HDC hdc, INT x, INT y, UINT flags,
430 const RECT *lprect, LPCWSTR str, UINT count,
433 DC * dc = DC_GetDCPtr( hdc );
434 return dc && dc->funcs->pExtTextOut &&
435 dc->funcs->pExtTextOut(dc,x,y,flags,lprect,str,count,lpDx);
439 /***********************************************************************
442 BOOL16 WINAPI TextOut16( HDC16 hdc, INT16 x, INT16 y, LPCSTR str, INT16 count )
444 return ExtTextOut16( hdc, x, y, 0, NULL, str, count, NULL );
448 /***********************************************************************
449 * TextOutA (GDI32.355)
451 BOOL WINAPI TextOutA( HDC hdc, INT x, INT y, LPCSTR str, INT count )
453 return ExtTextOutA( hdc, x, y, 0, NULL, str, count, NULL );
457 /***********************************************************************
458 * TextOutW (GDI32.356)
460 BOOL WINAPI TextOutW(HDC hdc, INT x, INT y, LPCWSTR str, INT count)
462 return ExtTextOutW( hdc, x, y, 0, NULL, str, count, NULL );
466 /***********************************************************************
469 * FIXME: The call to 16-bit code only works because the wine GDI is a 16-bit
470 * heap and we can guarantee that the handles fit in an INT16. We have to
471 * rethink the strategy once the migration to NT handles is complete.
472 * We are going to get a lot of code-duplication once this migration is
476 static BOOL TEXT_GrayString(HDC hdc, HBRUSH hb,
477 GRAYSTRINGPROC fn, LPARAM lp, INT len,
478 INT x, INT y, INT cx, INT cy,
479 BOOL unicode, BOOL _32bit)
481 HBITMAP hbm, hbmsave;
484 HDC memdc = CreateCompatibleDC(hdc);
489 if(!hdc) return FALSE;
494 slen = lstrlenW((LPCWSTR)lp);
496 slen = lstrlenA((LPCSTR)lp);
498 slen = lstrlenA((LPCSTR)PTR_SEG_TO_LIN(lp));
501 if((cx == 0 || cy == 0) && slen != -1)
505 GetTextExtentPoint32W(hdc, (LPCWSTR)lp, slen, &s);
507 GetTextExtentPoint32A(hdc, (LPCSTR)lp, slen, &s);
509 GetTextExtentPoint32A(hdc, (LPCSTR)PTR_SEG_TO_LIN(lp), slen, &s);
510 if(cx == 0) cx = s.cx;
511 if(cy == 0) cy = s.cy;
514 hbm = CreateBitmap(cx, cy, 1, 1, NULL);
515 hbmsave = (HBITMAP)SelectObject(memdc, hbm);
516 hbsave = SelectObject( memdc, GetStockObject(BLACK_BRUSH) );
517 PatBlt( memdc, 0, 0, cx, cy, PATCOPY );
518 SelectObject( memdc, hbsave );
519 SetTextColor(memdc, RGB(255, 255, 255));
520 SetBkColor(memdc, RGB(0, 0, 0));
521 hfsave = (HFONT)SelectObject(memdc, GetCurrentObject(hdc, OBJ_FONT));
525 retval = fn(memdc, lp, slen);
527 retval = (BOOL)((BOOL16)((GRAYSTRINGPROC16)fn)((HDC16)memdc, lp, (INT16)slen));
530 TextOutW(memdc, 0, 0, (LPCWSTR)lp, slen);
532 TextOutA(memdc, 0, 0, (LPCSTR)lp, slen);
534 TextOutA(memdc, 0, 0, (LPCSTR)PTR_SEG_TO_LIN(lp), slen);
536 SelectObject(memdc, hfsave);
539 * Windows doc says that the bitmap isn't grayed when len == -1 and
540 * the callback function returns FALSE. However, testing this on
541 * win95 showed otherwise...
543 #ifdef GRAYSTRING_USING_DOCUMENTED_BEHAVIOUR
544 if(retval || len != -1)
547 hbsave = (HBRUSH)SelectObject(memdc, CACHE_GetPattern55AABrush());
548 PatBlt(memdc, 0, 0, cx, cy, 0x000A0329);
549 SelectObject(memdc, hbsave);
552 if(hb) hbsave = (HBRUSH)SelectObject(hdc, hb);
553 fg = SetTextColor(hdc, RGB(0, 0, 0));
554 bg = SetBkColor(hdc, RGB(255, 255, 255));
555 BitBlt(hdc, x, y, cx, cy, memdc, 0, 0, 0x00E20746);
556 SetTextColor(hdc, fg);
558 if(hb) SelectObject(hdc, hbsave);
560 SelectObject(memdc, hbmsave);
567 /***********************************************************************
568 * GrayString16 (USER.185)
570 BOOL16 WINAPI GrayString16( HDC16 hdc, HBRUSH16 hbr, GRAYSTRINGPROC16 gsprc,
571 LPARAM lParam, INT16 cch, INT16 x, INT16 y,
574 return TEXT_GrayString(hdc, hbr, (GRAYSTRINGPROC)gsprc, lParam, cch, x, y, cx, cy, FALSE, FALSE);
578 /***********************************************************************
579 * GrayStringA (USER32.315)
581 BOOL WINAPI GrayStringA( HDC hdc, HBRUSH hbr, GRAYSTRINGPROC gsprc,
582 LPARAM lParam, INT cch, INT x, INT y,
585 return TEXT_GrayString(hdc, hbr, gsprc, lParam, cch, x, y, cx, cy, FALSE, TRUE);
589 /***********************************************************************
590 * GrayStringW (USER32.316)
592 BOOL WINAPI GrayStringW( HDC hdc, HBRUSH hbr, GRAYSTRINGPROC gsprc,
593 LPARAM lParam, INT cch, INT x, INT y,
596 return TEXT_GrayString(hdc, hbr, gsprc, lParam, cch, x, y, cx, cy, TRUE, TRUE);
600 /***********************************************************************
603 * Helper function for TabbedTextOut() and GetTabbedTextExtent().
604 * Note: this doesn't work too well for text-alignment modes other
605 * than TA_LEFT|TA_TOP. But we want bug-for-bug compatibility :-)
607 LONG TEXT_TabbedTextOut( HDC hdc, INT x, INT y, LPCSTR lpstr,
608 INT count, INT cTabStops, const INT16 *lpTabPos16,
609 const INT *lpTabPos32, INT nTabOrg,
619 defWidth = lpTabPos32 ? *lpTabPos32 : *lpTabPos16;
625 GetTextMetrics16( hdc, &tm );
626 defWidth = 8 * tm.tmAveCharWidth;
631 for (i = 0; i < count; i++)
632 if (lpstr[i] == '\t') break;
633 extent = GetTextExtent16( hdc, lpstr, i );
636 while ((cTabStops > 0) &&
637 (nTabOrg + *lpTabPos32 <= x + LOWORD(extent)))
645 while ((cTabStops > 0) &&
646 (nTabOrg + *lpTabPos16 <= x + LOWORD(extent)))
653 tabPos = x + LOWORD(extent);
654 else if (cTabStops > 0)
655 tabPos = nTabOrg + (lpTabPos32 ? *lpTabPos32 : *lpTabPos16);
657 tabPos = nTabOrg + ((x + LOWORD(extent) - nTabOrg) / defWidth + 1) * defWidth;
664 r.bottom = y + HIWORD(extent);
665 ExtTextOutA( hdc, x, y,
666 GetBkMode(hdc) == OPAQUE ? ETO_OPAQUE : 0,
667 &r, lpstr, i, NULL );
673 return MAKELONG(tabPos - start, HIWORD(extent));
677 /***********************************************************************
678 * TabbedTextOut16 (USER.196)
680 LONG WINAPI TabbedTextOut16( HDC16 hdc, INT16 x, INT16 y, LPCSTR lpstr,
681 INT16 count, INT16 cTabStops,
682 const INT16 *lpTabPos, INT16 nTabOrg )
684 TRACE("%04x %d,%d '%.*s' %d\n",
685 hdc, x, y, count, lpstr, count );
686 return TEXT_TabbedTextOut( hdc, x, y, lpstr, count, cTabStops,
687 lpTabPos, NULL, nTabOrg, TRUE );
691 /***********************************************************************
692 * TabbedTextOutA (USER32.542)
694 LONG WINAPI TabbedTextOutA( HDC hdc, INT x, INT y, LPCSTR lpstr,
695 INT count, INT cTabStops,
696 const INT *lpTabPos, INT nTabOrg )
698 TRACE("%04x %d,%d '%.*s' %d\n",
699 hdc, x, y, count, lpstr, count );
700 return TEXT_TabbedTextOut( hdc, x, y, lpstr, count, cTabStops,
701 NULL, lpTabPos, nTabOrg, TRUE );
705 /***********************************************************************
706 * TabbedTextOutW (USER32.543)
708 LONG WINAPI TabbedTextOutW( HDC hdc, INT x, INT y, LPCWSTR str,
709 INT count, INT cTabStops,
710 const INT *lpTabPos, INT nTabOrg )
715 UINT codepage = CP_ACP; /* FIXME: get codepage of font charset */
717 acount = WideCharToMultiByte(codepage,0,str,count,NULL,0,NULL,NULL);
718 p = HEAP_xalloc( GetProcessHeap(), 0, acount );
719 acount = WideCharToMultiByte(codepage,0,str,count,p,acount,NULL,NULL);
720 ret = TabbedTextOutA( hdc, x, y, p, acount, cTabStops,
722 HeapFree( GetProcessHeap(), 0, p );
727 /***********************************************************************
728 * GetTabbedTextExtent16 (USER.197)
730 DWORD WINAPI GetTabbedTextExtent16( HDC16 hdc, LPCSTR lpstr, INT16 count,
731 INT16 cTabStops, const INT16 *lpTabPos )
733 TRACE("%04x '%.*s' %d\n",
734 hdc, count, lpstr, count );
735 return TEXT_TabbedTextOut( hdc, 0, 0, lpstr, count, cTabStops,
736 lpTabPos, NULL, 0, FALSE );
740 /***********************************************************************
741 * GetTabbedTextExtentA (USER32.293)
743 DWORD WINAPI GetTabbedTextExtentA( HDC hdc, LPCSTR lpstr, INT count,
744 INT cTabStops, const INT *lpTabPos )
746 TRACE("%04x '%.*s' %d\n",
747 hdc, count, lpstr, count );
748 return TEXT_TabbedTextOut( hdc, 0, 0, lpstr, count, cTabStops,
749 NULL, lpTabPos, 0, FALSE );
753 /***********************************************************************
754 * GetTabbedTextExtentW (USER32.294)
756 DWORD WINAPI GetTabbedTextExtentW( HDC hdc, LPCWSTR lpstr, INT count,
757 INT cTabStops, const INT *lpTabPos )
762 UINT codepage = CP_ACP; /* FIXME: get codepage of font charset */
764 acount = WideCharToMultiByte(codepage,0,lpstr,count,NULL,0,NULL,NULL);
765 p = HEAP_xalloc( GetProcessHeap(), 0, acount );
766 acount = WideCharToMultiByte(codepage,0,lpstr,count,p,acount,NULL,NULL);
767 ret = GetTabbedTextExtentA( hdc, p, acount, cTabStops, lpTabPos );
768 HeapFree( GetProcessHeap(), 0, p );
772 /***********************************************************************
773 * GetTextCharset [GDI32.226] Gets character set for font in DC
776 * Should it return a UINT32 instead of an INT32?
777 * => YES, as GetTextCharsetInfo returns UINT32
780 * Success: Character set identifier
781 * Failure: DEFAULT_CHARSET
783 UINT WINAPI GetTextCharset(
784 HDC hdc) /* [in] Handle to device context */
786 /* MSDN docs say this is equivalent */
787 return GetTextCharsetInfo(hdc, NULL, 0);
790 /***********************************************************************
791 * GetTextCharset16 [GDI.612]
793 UINT16 WINAPI GetTextCharset16(HDC16 hdc)
795 return (UINT16)GetTextCharset(hdc);
798 /***********************************************************************
799 * GetTextCharsetInfo [GDI32.381] Gets character set for font
802 * Should csi be an LPFONTSIGNATURE instead of an LPCHARSETINFO?
803 * Should it return a UINT32 instead of an INT32?
804 * => YES and YES, from win32.hlp from Borland
807 * Success: Character set identifier
808 * Failure: DEFAULT_CHARSET
810 UINT WINAPI GetTextCharsetInfo(
811 HDC hdc, /* [in] Handle to device context */
812 LPFONTSIGNATURE fs, /* [out] Pointer to struct to receive data */
813 DWORD flags) /* [in] Reserved - must be 0 */
816 UINT charSet = DEFAULT_CHARSET;
820 hFont = GetCurrentObject(hdc, OBJ_FONT);
822 return(DEFAULT_CHARSET);
823 if ( GetObjectW(hFont, sizeof(LOGFONTW), &lf) != 0 )
824 charSet = lf.lfCharSet;
827 if (!TranslateCharsetInfo((LPDWORD)charSet, &csinfo, TCI_SRCCHARSET))
828 return (DEFAULT_CHARSET);
829 memcpy(fs, &csinfo.fs, sizeof(FONTSIGNATURE));
834 /***********************************************************************
835 * PolyTextOutA [GDI.402] Draw several Strings
837 BOOL WINAPI PolyTextOutA (
838 HDC hdc, /* Handle to device context */
839 PPOLYTEXTA pptxt, /* array of strings */
840 INT cStrings /* Number of strings in array */
844 SetLastError ( ERROR_CALL_NOT_IMPLEMENTED );
850 /***********************************************************************
851 * PolyTextOutW [GDI.403] Draw several Strings
853 BOOL WINAPI PolyTextOutW (
854 HDC hdc, /* Handle to device context */
855 PPOLYTEXTW pptxt, /* array of strings */
856 INT cStrings /* Number of strings in array */
860 SetLastError ( ERROR_CALL_NOT_IMPLEMENTED );