/* * USER text functions * * Copyright 1993, 1994 Alexandre Julliard * * Contains * 1. DrawText functions * 2. GrayString functions * 3. TabbedText functions */ #include #include #include "windef.h" #include "wingdi.h" #include "wine/winuser16.h" #include "wine/unicode.h" #include "winbase.h" #include "winerror.h" #include "winnls.h" #include "user.h" #include "debugtools.h" DEFAULT_DEBUG_CHANNEL(text); #define countof(a) (sizeof(a)/sizeof(a[0])) /********************************************************************* * * DrawText functions * * Design issues * How many buffers to use * While processing in DrawText there are potentially three different forms * of the text that need to be held. How are they best held? * 1. The original text is needed, of course, to see what to display. * 2. The text that will be returned to the user if the DT_MODIFYSTRING is * in effect. * 3. The buffered text that is about to be displayed e.g. the current line. * Typically this will exclude the ampersands used for prefixing etc. * * Complications. * a. If the buffered text to be displayed includes the ampersands then * we will need special measurement and draw functions that will ignore * the ampersands (e.g. by copying to a buffer without the prefix and * then using the normal forms). This may involve less space but may * require more processing. e.g. since a line containing tabs may * contain several underlined characters either we need to carry around * a list of prefix locations or we may need to locate them several * times. * b. If we actually directly modify the "original text" as we go then we * will need some special "caching" to handle the fact that when we * ellipsify the text the ellipsis may modify the next line of text, * which we have not yet processed. (e.g. ellipsification of a W at the * end of a line will overwrite the W, the \n and the first character of * the next line, and a \0 will overwrite the second. Try it!!) * * Option 1. Three separate storages. (To be implemented) * If DT_MODIFYSTRING is in effect then allocate an extra buffer to hold * the edited string in some form, either as the string itself or as some * sort of "edit list" to be applied just before returning. * Use a buffer that holds the ellipsified current line sans ampersands * and accept the need occasionally to recalculate the prefixes (if * DT_EXPANDTABS and not DT_NOPREFIX and not DT_HIDEPREFIX) */ #define TAB 9 #define LF 10 #define CR 13 #define SPACE 32 #define PREFIX 38 #define FORWARD_SLASH '/' #define BACK_SLASH '\\' static const WCHAR ELLIPSISW[] = {'.','.','.', 0}; static int tabwidth; static int prefix_offset; /********************************************************************* * TEXT_Ellipsify (static) * * Add an ellipsis to the end of the given string whilst ensuring it fits. * * If the ellipsis alone doesn't fit then it will be returned anyway. * * See Also TEXT_PathEllipsify * * Arguments * hdc [in] The handle to the DC that defines the font. * str [in/out] The string that needs to be modified. * max_str [in] The dimension of str (number of WCHAR). * len_str [in/out] The number of characters in str * width [in] The maximum width permitted (in logical coordinates) * size [out] The dimensions of the text * modstr [out] The modified form of the string, to be returned to the * calling program. It is assumed that the caller has * made sufficient space available so we don't need to * know the size of the space. This pointer may be NULL if * the modified string is not required. * len_before [out] The number of characters before the ellipsis. * len_ellip [out] The number of characters in the ellipsis. * * See for example Microsoft article Q249678. * * For now we will simply use three dots rather than worrying about whether * the font contains an explicit ellipsis character. */ static void TEXT_Ellipsify (HDC hdc, WCHAR *str, unsigned int max_len, unsigned int *len_str, int width, SIZE *size, WCHAR *modstr, int *len_before, int *len_ellip) { unsigned int len_ellipsis; len_ellipsis = strlenW (ELLIPSISW); if (len_ellipsis > max_len) len_ellipsis = max_len; if (*len_str > max_len - len_ellipsis) *len_str = max_len - len_ellipsis; for ( ; ; ) { strncpyW (str + *len_str, ELLIPSISW, len_ellipsis); if (!GetTextExtentExPointW (hdc, str, *len_str + len_ellipsis, width, NULL, NULL, size)) break; if (!*len_str || size->cx <= width) break; (*len_str)--; } *len_ellip = len_ellipsis; *len_before = *len_str; *len_str += len_ellipsis; if (modstr) { strncpyW (modstr, str, *len_str); *(str+*len_str) = '\0'; } } /********************************************************************* * TEXT_PathEllipsify (static) * * Add an ellipsis to the provided string in order to make it fit within * the width. The ellipsis is added as specified for the DT_PATH_ELLIPSIS * flag. * * See Also TEXT_Ellipsify * * Arguments * hdc [in] The handle to the DC that defines the font. * str [in/out] The string that needs to be modified * max_str [in] The dimension of str (number of WCHAR). * len_str [in/out] The number of characters in str * width [in] The maximum width permitted (in logical coordinates) * size [out] The dimensions of the text * modstr [out] The modified form of the string, to be returned to the * calling program. It is assumed that the caller has * made sufficient space available so we don't need to * know the size of the space. This pointer may be NULL if * the modified string is not required. * len_before [out] The number of characters before the ellipsis. * len_ellip [out] The number of characters in the ellipsis. * len_after [out] The number of characters after the ellipsis. * * For now we will simply use three dots rather than worrying about whether * the font contains an explicit ellipsis character. * * The following applies, I think to Win95. We will need to extend it for * Win98 which can have both path and end ellipsis at the same time (e.g. * C:\MyLongFileName.Txt becomes ...\MyLongFileN...) * * The resulting string consists of as much as possible of the following: * 1. The ellipsis itself * 2. The last \ or / of the string (if any) * 3. Everything after the last \ or / of the string (if any) or the whole * string if there is no / or \. I believe that under Win95 this would * include everything even though some might be clipped off the end whereas * under Win98 that might be ellipsified too. (Not yet implemented). Yet * to be investigated is whether this would include wordbreaking if the * filename is more than 1 word and splitting if DT_EDITCONTROL was in * effect. (If DT_EDITCONTROL is in effect then on occasions text will be * broken within words). * 4. All the stuff before the / or \, which is placed before the ellipsis. */ static void TEXT_PathEllipsify (HDC hdc, WCHAR *str, unsigned int max_len, unsigned int *len_str, int width, SIZE *size, WCHAR *modstr, int *len_before, int *len_ellip, int *len_after) { int len_ellipsis; int len_trailing; WCHAR *lastBkSlash, *lastFwdSlash, *lastSlash; len_ellipsis = strlenW (ELLIPSISW); if (!max_len) return; if (len_ellipsis >= max_len) len_ellipsis = max_len - 1; if (*len_str + len_ellipsis >= max_len) *len_str = max_len - len_ellipsis-1; /* Hopefully this will never happen, otherwise it would probably lose * the wrong character */ str[*len_str] = '\0'; /* to simplify things */ lastBkSlash = strrchrW (str, BACK_SLASH); lastFwdSlash = strrchrW (str, FORWARD_SLASH); lastSlash = lastBkSlash > lastFwdSlash ? lastBkSlash : lastFwdSlash; if (!lastSlash) lastSlash = str; len_trailing = *len_str - (lastSlash - str); /* overlap-safe movement to the right */ memmove (lastSlash+len_ellipsis, lastSlash, len_trailing * sizeof(WCHAR)); strncpyW (lastSlash, ELLIPSISW, len_ellipsis); len_trailing += len_ellipsis; /* From this point on lastSlash actually points to the ellipsis in front * of the last slash and len_trailing includes the ellipsis */ for ( ; ; ) { if (!GetTextExtentExPointW (hdc, str, *len_str + len_ellipsis, width, NULL, NULL, size)) break; if (lastSlash == str || size->cx <= width) break; /* overlap-safe movement to the left */ memmove (lastSlash-1, lastSlash, len_trailing * sizeof(WCHAR)); lastSlash--; assert (*len_str); (*len_str)--; } *len_before = lastSlash-str; *len_ellip = len_ellipsis; *len_after = len_trailing - len_ellipsis; *len_str += len_ellipsis; if (modstr) { strncpyW (modstr, str, *len_str); *(str+*len_str) = '\0'; } } void TEXT_CopySansPrefix (int noprefix, WCHAR *d, int *len_d, const WCHAR *s, int len_s) { if (noprefix) { strncpyW (d, s, len_s); *len_d = len_s; } else { *len_d = 0; while (len_s--) { if (*s == PREFIX && len_s) { len_s--; s++; } *d++ = *s++; (*len_d)++; } } } /********************************************************************* * TEXT_WordBreak (static) * * Perform wordbreak processing on the given string * * Assumes that DT_WORDBREAK has been specified and not all the characters * fit. Note that this function should be called when the first character that * doesn't fit is a space or tab, so that it can swallow the space(s) * * Note that the Windows processing has some strange properties. In particular * leading and trailing spaces are not stripped except for the first space of a * line created by a wordbreak. * * Arguments * hdc [in] The handle to the DC that defines the font. * str [in/out] The string that needs to be broken. * max_str [in] The dimension of str (number of WCHAR). * len_str [in/out] The number of characters in str * width [in] The maximum width permitted * format [in] The format flags in effect * chars_fit [in] The maximum number of characters of str that are already * known to fit; chars_fit+1 is known not to fit. * chars_used [out] The number of characters of str that have been "used" and * do not need to be included in later text. For example this will * include any spaces that have been discarded from the start of * the next line. * size [out] The size of the returned text in logical coordinates * * Pedantic assumption - Assumes that the text length is monotonically * increasing with number of characters (i.e. no weird kernings) * * Algorithm * * Work back from the last character that did fit to either a space or the last * character of a word, whichever is met first. * If there was one or the first character didn't fit then * break the line after that character * and if the next character is a space then discard it. * Suppose there was none (and the first character did fit). * If Break Within Word is permitted * break the word after the last character that fits (there must be * at least one; none is caught earlier). * Otherwise * discard any trailing space. * include the whole word; it may be ellipsified later * * Break Within Word is permitted under a set of circumstances that are not * totally clear yet. Currently our best guess is: * If DT_EDITCONTROL is in effect and neither DT_WORD_ELLIPSIS nor * DT_PATH_ELLIPSIS is */ static void TEXT_WordBreak (HDC hdc, WCHAR *str, unsigned int max_str, unsigned int *len_str, int width, int format, unsigned int chars_fit, unsigned int *chars_used, SIZE *size) { WCHAR *p; int word_fits; assert (format & DT_WORDBREAK); assert (chars_fit < *len_str); /* Work back from the last character that did fit to either a space or the * last character of a word, whichever is met first. */ p = str + chars_fit; /* The character that doesn't fit */ word_fits = TRUE; if (!chars_fit) ; /* we pretend that it fits anyway */ else if (*p == SPACE) /* chars_fit < *len_str so this is valid */ p--; /* the word just fitted */ else { while (p > str && *(--p) != SPACE) ; word_fits = (p != str || *p == SPACE); } /* If there was one or the first character didn't fit then */ if (word_fits) { /* break the line after that character */ p++; *len_str = p - str; /* and if the next character is a space then discard it. */ *chars_used = *len_str; if (*p == SPACE) (*chars_used)++; } /* Suppose there was none. */ else { if ((format & (DT_EDITCONTROL | DT_WORD_ELLIPSIS | DT_PATH_ELLIPSIS)) == DT_EDITCONTROL) { /* break the word after the last character that fits (there must be * at least one; none is caught earlier). */ *len_str = chars_fit; *chars_used = chars_fit; /* FIXME - possible error. Since the next character is now removed * this could make the text longer so that it no longer fits, and * so we need a loop to test and shrink. */ } /* Otherwise */ else { /* discard any trailing space. */ const WCHAR *e = str + *len_str; p = str + chars_fit; while (p < e && *p != SPACE) p++; *chars_used = p - str; if (p < e) /* i.e. loop failed because *p == SPACE */ (*chars_used)++; /* include the whole word; it may be ellipsified later */ *len_str = p - str; /* Possible optimisation; if DT_WORD_ELLIPSIS only use chars_fit+1 * so that it will be too long */ } } /* Remeasure the string */ GetTextExtentExPointW (hdc, str, *len_str, 0, NULL, NULL, size); } /********************************************************************* * TEXT_SkipChars * * Skip over the given number of characters, bearing in mind prefix * substitution and the fact that a character may take more than one * WCHAR (Unicode surrogates are two words long) (and there may have been * a trailing &) * * Parameters * new_count [out] The updated count * new_str [out] The updated pointer * start_count [in] The count of remaining characters corresponding to the * start of the string * start_str [in] The starting point of the string * max [in] The number of characters actually in this segment of the * string (the & counts) * n [in] The number of characters to skip (if prefix then * &c counts as one) * prefix [in] Apply prefix substitution * * Return Values * none * * Remarks * There must be at least n characters in the string * We need max because the "line" may have ended with a & followed by a tab * or newline etc. which we don't want to swallow */ static void TEXT_SkipChars (int *new_count, const WCHAR **new_str, int start_count, const WCHAR *start_str, int max, int n, int prefix) { /* This is specific to wide characters, MSDN doesn't say anything much * about Unicode surrogates yet and it isn't clear if _wcsinc will * correctly handle them so we'll just do this the easy way for now */ if (prefix) { const WCHAR *str_on_entry = start_str; assert (max >= n); max -= n; while (n--) if (*start_str++ == PREFIX && max--) start_str++; else; start_count -= (start_str - str_on_entry); } else { start_str += n; start_count -= n; } *new_str = start_str; *new_count = start_count; } /********************************************************************* * TEXT_Reprefix * * Reanalyse the text to find the prefixed character. This is called when * wordbreaking or ellipsification has shortened the string such that the * previously noted prefixed character is no longer visible. * * Parameters * str [in] The original string segment (including all characters) * n1 [in] The number of characters visible before the path ellipsis * n2 [in] The number of characters replaced by the path ellipsis * ne [in] The number of characters in the path ellipsis, ignored if * n2 is zero * n3 [in] The number of characters visible after the path ellipsis * * Return Values * The prefix offset within the new string segment (the one that contains the * ellipses and does not contain the prefix characters) (-1 if none) * * Remarks * We know that n1+n2+n3 must be strictly less than the length of the segment * (because otherwise there would be no need to call this function) */ static int TEXT_Reprefix (const WCHAR *str, unsigned int n1, unsigned int n2, unsigned int ne, unsigned int n3) { int result = -1; unsigned int i = 0; unsigned int n = n1 + n2 + n3; if (!n2) ne = 0; while (i < n) { if (i == n1) { /* Reached the path ellipsis; jump over it */ str += n2; i += n2; if (!n3) break; /* Nothing after the path ellipsis */ } if (*str++ == PREFIX) { result = (i < n1) ? i : i - n2 + ne; str++; } else; i++; } return result; } /********************************************************************* * Return next line of text from a string. * * hdc - handle to DC. * str - string to parse into lines. * count - length of str. * dest - destination in which to return line. * len - dest buffer size in chars on input, copied length into dest on output. * width - maximum width of line in pixels. * format - format type passed to DrawText. * retsize - returned size of the line in pixels. * * Returns pointer to next char in str after end of the line * or NULL if end of str reached. */ static const WCHAR *TEXT_NextLineW( HDC hdc, const WCHAR *str, int *count, WCHAR *dest, int *len, int width, WORD format, SIZE *retsize) { int i = 0, j = 0; int plen = 0; SIZE size; int maxl = *len; int seg_i, seg_count, seg_j; int max_seg_width; int num_fit; int word_broken; /* For each text segment in the line */ retsize->cy = 0; while (*count) { /* Skip any leading tabs */ if (str[i] == TAB && (format & DT_EXPANDTABS)) { plen = ((plen/tabwidth)+1)*tabwidth; (*count)--; if (j < maxl) dest[j++] = str[i++]; else i++; while (*count && str[i] == TAB) { plen += tabwidth; (*count)--; if (j < maxl) dest[j++] = str[i++]; else i++; } } /* Now copy as far as the next tab or cr/lf or eos */ seg_i = i; seg_count = *count; seg_j = j; while (*count && (str[i] != TAB || !(format & DT_EXPANDTABS)) && ((str[i] != CR && str[i] != LF) || (format & DT_SINGLELINE))) { if (str[i] == PREFIX && !(format & DT_NOPREFIX) && *count > 1) { (*count)--, i++; /* Throw away the prefix itself */ if (str[i] == PREFIX) { /* Swallow it before we see it again */ (*count)--; if (j < maxl) dest[j++] = str[i++]; else i++; } else { prefix_offset = j; } } else { (*count)--; if (j < maxl) dest[j++] = str[i++]; else i++; } } /* Measure the whole text segment and possibly WordBreak it */ max_seg_width = width - plen; GetTextExtentExPointW (hdc, dest + seg_j, j - seg_j, max_seg_width, &num_fit, NULL, &size); word_broken = 0; if (num_fit < j-seg_j && (format & DT_WORDBREAK)) { const WCHAR *s; int chars_used; int j_in_seg = j-seg_j; TEXT_WordBreak (hdc, dest+seg_j, maxl-seg_j, &j_in_seg, max_seg_width, format, num_fit, &chars_used, &size); /* and correct the counts */ j = seg_j + j_in_seg; TEXT_SkipChars (count, &s, seg_count, str+seg_i, i-seg_i, chars_used, !(format & DT_NOPREFIX)); i = s - str; word_broken = 1; } plen += size.cx; if (size.cy > retsize->cy) retsize->cy = size.cy; if (word_broken) break; else if (!*count) break; else if (str[i] == CR || str[i] == LF) { count--, i++; if (count && (str[i] == CR || str[i] == LF) && str[i] != str[i-1]) { count--, i++; } break; } /* else it was a Tab and we go around again */ } retsize->cx = plen; *len = j; if (*count) return (&str[i]); else return NULL; } /*********************************************************************** * TEXT_DrawUnderscore * * Draw the underline under the prefixed character * * Parameters * hdc [in] The handle of the DC for drawing * x [in] The x location of the line segment (logical coordinates) * y [in] The y location of where the underscore should appear * (logical coordinates) * str [in] The text of the line segment * offset [in] The offset of the underscored character within str */ static void TEXT_DrawUnderscore (HDC hdc, int x, int y, const WCHAR *str, int offset) { int prefix_x; int prefix_end; SIZE size; HPEN hpen; HPEN oldPen; GetTextExtentPointW (hdc, str, offset, &size); prefix_x = x + size.cx; GetTextExtentPointW (hdc, str, offset+1, &size); prefix_end = x + size.cx - 1; /* The above method may eventually be slightly wrong due to kerning etc. */ hpen = CreatePen (PS_SOLID, 1, GetTextColor (hdc)); oldPen = SelectObject (hdc, hpen); MoveToEx (hdc, prefix_x, y, NULL); LineTo (hdc, prefix_end, y); SelectObject (hdc, oldPen); DeleteObject (hpen); } /*********************************************************************** * DrawTextExW (USER32.@) * * The documentation on the extra space required for DT_MODIFYSTRING at MSDN * is not quite complete, especially with regard to \0. We will assume that * the returned string could have a length of up to i_count+3 and also have * a trailing \0 (which would be 4 more than a not-null-terminated string but * 3 more than a null-terminated string). If this is not so then increase * the allowance in DrawTextExA. */ #define MAX_STATIC_BUFFER 1024 INT WINAPI DrawTextExW( HDC hdc, LPWSTR str, INT i_count, LPRECT rect, UINT flags, LPDRAWTEXTPARAMS dtp ) { SIZE size; const WCHAR *strPtr; static WCHAR line[MAX_STATIC_BUFFER]; int len, lh, count=i_count; TEXTMETRICW tm; int lmargin = 0, rmargin = 0; int x = rect->left, y = rect->top; int width = rect->right - rect->left; int max_width = 0; TRACE("%s, %d , [(%d,%d),(%d,%d)]\n", debugstr_wn (str, count), count, rect->left, rect->top, rect->right, rect->bottom); if (dtp) TRACE("Params: iTabLength=%d, iLeftMargin=%d, iRightMargin=%d\n", dtp->iTabLength, dtp->iLeftMargin, dtp->iRightMargin); if (!str) return 0; if (count == -1) count = strlenW(str); if (count == 0) return 0; strPtr = str; if (flags & DT_SINGLELINE) flags &= ~DT_WORDBREAK; GetTextMetricsW(hdc, &tm); if (flags & DT_EXTERNALLEADING) lh = tm.tmHeight + tm.tmExternalLeading; else lh = tm.tmHeight; if (dtp) { lmargin = dtp->iLeftMargin * tm.tmAveCharWidth; rmargin = dtp->iRightMargin * tm.tmAveCharWidth; if (!(flags & (DT_CENTER | DT_RIGHT))) x += lmargin; dtp->uiLengthDrawn = 0; /* This param RECEIVES number of chars processed */ } if (flags & DT_EXPANDTABS) { int tabstop = ((flags & DT_TABSTOP) && dtp) ? dtp->iTabLength : 8; tabwidth = tm.tmAveCharWidth * tabstop; } if (flags & DT_CALCRECT) flags |= DT_NOCLIP; do { prefix_offset = -1; len = MAX_STATIC_BUFFER; strPtr = TEXT_NextLineW(hdc, strPtr, &count, line, &len, width, flags, &size); if (flags & DT_CENTER) x = (rect->left + rect->right - size.cx) / 2; else if (flags & DT_RIGHT) x = rect->right - size.cx; if (flags & DT_SINGLELINE) { if (flags & DT_VCENTER) y = rect->top + (rect->bottom - rect->top) / 2 - size.cy / 2; else if (flags & DT_BOTTOM) y = rect->bottom - size.cy; } if ((flags & DT_SINGLELINE) && size.cx > width && (flags & (DT_PATH_ELLIPSIS | DT_END_ELLIPSIS | DT_WORD_ELLIPSIS))) { WCHAR tmpstr[countof(line)]; int len_before_ellipsis; int len_ellipsis; int len_after_ellipsis; if ((flags & DT_EXPANDTABS)) { /* If there are tabs then we must only ellipsify the last * segment. That will become trivial when we move the * ellipsification into the TEXT_NextLineW (coming soon) */ const WCHAR *p; p = line + len; while (p > line) if (*(--p) == TAB) { FIXME ("Ellipsification of single line tabbed strings will be fixed shortly\n"); break; } } if (flags & DT_PATH_ELLIPSIS) { /* We may need to remeasure the string because it was clipped */ if ((flags & DT_WORDBREAK) || !(flags & DT_NOCLIP)) TEXT_CopySansPrefix ((flags & DT_NOPREFIX), line, &len, str, i_count >= 0 ? i_count : strlenW(str)); TEXT_PathEllipsify (hdc, line, countof(line), &len, width, &size, tmpstr, &len_before_ellipsis, &len_ellipsis, &len_after_ellipsis); } else { TEXT_Ellipsify (hdc, line, countof(line), &len, width, &size, tmpstr, &len_before_ellipsis, &len_ellipsis); len_after_ellipsis = 0; } strPtr = NULL; if (prefix_offset >= 0 && prefix_offset >= len_before_ellipsis) prefix_offset = TEXT_Reprefix (str, len_before_ellipsis, strlenW(str)-len_ellipsis-len_before_ellipsis-len_after_ellipsis, len_ellipsis, len_after_ellipsis); if (flags & DT_MODIFYSTRING) strcpyW(str, tmpstr); } if (!(flags & DT_CALCRECT)) { const WCHAR *str = line; int xseg = x; while (len) { int len_seg; SIZE size; if ((flags & DT_EXPANDTABS)) { const WCHAR *p; p = str; while (p < str+len && *p != TAB) p++; len_seg = p - str; if (len_seg != len && !GetTextExtentPointW(hdc, str, len_seg, &size)) return 0; } else len_seg = len; if (!ExtTextOutW( hdc, xseg, y, ((flags & DT_NOCLIP) ? 0 : ETO_CLIPPED) | ((flags & DT_RTLREADING) ? ETO_RTLREADING : 0), rect, str, len_seg, NULL )) return 0; if (prefix_offset != -1 && prefix_offset < len_seg) { TEXT_DrawUnderscore (hdc, xseg, y + tm.tmAscent + 1, str, prefix_offset); } len -= len_seg; str += len_seg; if (len) { assert ((flags & DT_EXPANDTABS) && *str == TAB); len--; str++; xseg += ((size.cx/tabwidth)+1)*tabwidth; if (prefix_offset != -1) { if (prefix_offset < len_seg) { /* We have just drawn an underscore; we ought to * figure out where the next one is. I am going * to leave it for now until I have a better model * for the line, which will make reprefixing easier */ prefix_offset = -1; } else prefix_offset -= len_seg; } } } } else if (size.cx > max_width) max_width = size.cx; y += lh; if (strPtr) { if (!(flags & DT_NOCLIP)) { if (y > rect->bottom - lh) break; } } if (dtp) dtp->uiLengthDrawn += len; } while (strPtr); if (flags & DT_CALCRECT) { rect->right = rect->left + max_width; rect->bottom = y; if (dtp) rect->right += lmargin + rmargin; } return y - rect->top; } /*********************************************************************** * DrawTextExA (USER32.@) * * If DT_MODIFYSTRING is specified then there must be room for up to * 4 extra characters. We take great care about just how much modified * string we return. */ INT WINAPI DrawTextExA( HDC hdc, LPSTR str, INT count, LPRECT rect, UINT flags, LPDRAWTEXTPARAMS dtp ) { WCHAR *wstr; WCHAR *p; INT ret = 0; int i; DWORD wcount; DWORD wmax; DWORD amax; if (count == -1) count = strlen(str); if (!count) return 0; wcount = MultiByteToWideChar( CP_ACP, 0, str, count, NULL, 0 ); wmax = wcount; amax = count; if (flags & DT_MODIFYSTRING) { wmax += 4; amax += 4; } wstr = HeapAlloc(GetProcessHeap(), 0, wmax * sizeof(WCHAR)); if (wstr) { MultiByteToWideChar( CP_ACP, 0, str, count, wstr, wcount ); if (flags & DT_MODIFYSTRING) for (i=4, p=wstr+wcount; i--; p++) *p=0xFFFE; /* Initialise the extra characters so that we can see which ones * change. U+FFFE is guaranteed to be not a unicode character and * so will not be generated by DrawTextEx itself. */ ret = DrawTextExW( hdc, wstr, wcount, rect, flags, NULL ); if (flags & DT_MODIFYSTRING) { /* Unfortunately the returned string may contain multiple \0s * and so we need to measure it ourselves. */ for (i=4, p=wstr+wcount; i-- && *p != 0xFFFE; p++) wcount++; WideCharToMultiByte( CP_ACP, 0, wstr, wcount, str, amax, NULL, NULL ); } HeapFree(GetProcessHeap(), 0, wstr); } return ret; } /*********************************************************************** * DrawTextW (USER32.@) */ INT WINAPI DrawTextW( HDC hdc, LPCWSTR str, INT count, LPRECT rect, UINT flags ) { DRAWTEXTPARAMS dtp; memset (&dtp, 0, sizeof(dtp)); if (flags & DT_TABSTOP) { dtp.iTabLength = (flags >> 8) && 0xff; flags &= 0xffff00ff; } return DrawTextExW(hdc, (LPWSTR)str, count, rect, flags, &dtp); } /*********************************************************************** * DrawTextA (USER32.@) */ INT WINAPI DrawTextA( HDC hdc, LPCSTR str, INT count, LPRECT rect, UINT flags ) { DRAWTEXTPARAMS dtp; memset (&dtp, 0, sizeof(dtp)); if (flags & DT_TABSTOP) { dtp.iTabLength = (flags >> 8) && 0xff; flags &= 0xffff00ff; } return DrawTextExA( hdc, (LPSTR)str, count, rect, flags, &dtp ); } /*********************************************************************** * DrawText (USER.85) */ INT16 WINAPI DrawText16( HDC16 hdc, LPCSTR str, INT16 count, LPRECT16 rect, UINT16 flags ) { INT16 ret; if (rect) { RECT rect32; CONV_RECT16TO32( rect, &rect32 ); ret = DrawTextA( hdc, str, count, &rect32, flags ); CONV_RECT32TO16( &rect32, rect ); } else ret = DrawTextA( hdc, str, count, NULL, flags); return ret; } /*********************************************************************** * * GrayString functions */ /* ### start build ### */ extern WORD CALLBACK TEXT_CallTo16_word_wlw(GRAYSTRINGPROC16,WORD,LONG,WORD); /* ### stop build ### */ struct gray_string_info { GRAYSTRINGPROC16 proc; LPARAM param; }; /* callback for 16-bit gray string proc */ static BOOL CALLBACK gray_string_callback( HDC hdc, LPARAM param, INT len ) { const struct gray_string_info *info = (struct gray_string_info *)param; return TEXT_CallTo16_word_wlw( info->proc, hdc, info->param, len ); } /*********************************************************************** * TEXT_GrayString * * FIXME: The call to 16-bit code only works because the wine GDI is a 16-bit * heap and we can guarantee that the handles fit in an INT16. We have to * rethink the strategy once the migration to NT handles is complete. * We are going to get a lot of code-duplication once this migration is * completed... * */ static BOOL TEXT_GrayString(HDC hdc, HBRUSH hb, GRAYSTRINGPROC fn, LPARAM lp, INT len, INT x, INT y, INT cx, INT cy, BOOL unicode, BOOL _32bit) { HBITMAP hbm, hbmsave; HBRUSH hbsave; HFONT hfsave; HDC memdc; int slen = len; BOOL retval = TRUE; COLORREF fg, bg; if(!hdc) return FALSE; if (!(memdc = CreateCompatibleDC(hdc))) return FALSE; if(len == 0) { if(unicode) slen = lstrlenW((LPCWSTR)lp); else if(_32bit) slen = strlen((LPCSTR)lp); else slen = strlen(MapSL(lp)); } if((cx == 0 || cy == 0) && slen != -1) { SIZE s; if(unicode) GetTextExtentPoint32W(hdc, (LPCWSTR)lp, slen, &s); else if(_32bit) GetTextExtentPoint32A(hdc, (LPCSTR)lp, slen, &s); else GetTextExtentPoint32A(hdc, MapSL(lp), slen, &s); if(cx == 0) cx = s.cx; if(cy == 0) cy = s.cy; } hbm = CreateBitmap(cx, cy, 1, 1, NULL); hbmsave = (HBITMAP)SelectObject(memdc, hbm); hbsave = SelectObject( memdc, GetStockObject(BLACK_BRUSH) ); PatBlt( memdc, 0, 0, cx, cy, PATCOPY ); SelectObject( memdc, hbsave ); SetTextColor(memdc, RGB(255, 255, 255)); SetBkColor(memdc, RGB(0, 0, 0)); hfsave = (HFONT)SelectObject(memdc, GetCurrentObject(hdc, OBJ_FONT)); if(fn) { if(_32bit) retval = fn(memdc, lp, slen); else retval = (BOOL)((BOOL16)((GRAYSTRINGPROC16)fn)((HDC16)memdc, lp, (INT16)slen)); } else { if(unicode) TextOutW(memdc, 0, 0, (LPCWSTR)lp, slen); else if(_32bit) TextOutA(memdc, 0, 0, (LPCSTR)lp, slen); else TextOutA(memdc, 0, 0, MapSL(lp), slen); } SelectObject(memdc, hfsave); /* * Windows doc says that the bitmap isn't grayed when len == -1 and * the callback function returns FALSE. However, testing this on * win95 showed otherwise... */ #ifdef GRAYSTRING_USING_DOCUMENTED_BEHAVIOUR if(retval || len != -1) #endif { hbsave = (HBRUSH)SelectObject(memdc, CACHE_GetPattern55AABrush()); PatBlt(memdc, 0, 0, cx, cy, 0x000A0329); SelectObject(memdc, hbsave); } if(hb) hbsave = (HBRUSH)SelectObject(hdc, hb); fg = SetTextColor(hdc, RGB(0, 0, 0)); bg = SetBkColor(hdc, RGB(255, 255, 255)); BitBlt(hdc, x, y, cx, cy, memdc, 0, 0, 0x00E20746); SetTextColor(hdc, fg); SetBkColor(hdc, bg); if(hb) SelectObject(hdc, hbsave); SelectObject(memdc, hbmsave); DeleteObject(hbm); DeleteDC(memdc); return retval; } /*********************************************************************** * GrayString (USER.185) */ BOOL16 WINAPI GrayString16( HDC16 hdc, HBRUSH16 hbr, GRAYSTRINGPROC16 gsprc, LPARAM lParam, INT16 cch, INT16 x, INT16 y, INT16 cx, INT16 cy ) { struct gray_string_info info; if (!gsprc) return TEXT_GrayString(hdc, hbr, NULL, lParam, cch, x, y, cx, cy, FALSE, FALSE); info.proc = gsprc; info.param = lParam; return TEXT_GrayString( hdc, hbr, gray_string_callback, (LPARAM)&info, cch, x, y, cx, cy, FALSE, FALSE); } /*********************************************************************** * GrayStringA (USER32.@) */ BOOL WINAPI GrayStringA( HDC hdc, HBRUSH hbr, GRAYSTRINGPROC gsprc, LPARAM lParam, INT cch, INT x, INT y, INT cx, INT cy ) { return TEXT_GrayString(hdc, hbr, gsprc, lParam, cch, x, y, cx, cy, FALSE, TRUE); } /*********************************************************************** * GrayStringW (USER32.@) */ BOOL WINAPI GrayStringW( HDC hdc, HBRUSH hbr, GRAYSTRINGPROC gsprc, LPARAM lParam, INT cch, INT x, INT y, INT cx, INT cy ) { return TEXT_GrayString(hdc, hbr, gsprc, lParam, cch, x, y, cx, cy, TRUE, TRUE); } /*********************************************************************** * * TabbedText functions */ /*********************************************************************** * TEXT_TabbedTextOut * * Helper function for TabbedTextOut() and GetTabbedTextExtent(). * Note: this doesn't work too well for text-alignment modes other * than TA_LEFT|TA_TOP. But we want bug-for-bug compatibility :-) */ static LONG TEXT_TabbedTextOut( HDC hdc, INT x, INT y, LPCSTR lpstr, INT count, INT cTabStops, const INT16 *lpTabPos16, const INT *lpTabPos32, INT nTabOrg, BOOL fDisplayText ) { INT defWidth; SIZE extent; int i, tabPos = x; int start = x; extent.cx = 0; extent.cy = 0; if (cTabStops == 1) { defWidth = lpTabPos32 ? *lpTabPos32 : *lpTabPos16; cTabStops = 0; } else { TEXTMETRICA tm; GetTextMetricsA( hdc, &tm ); defWidth = 8 * tm.tmAveCharWidth; } while (count > 0) { for (i = 0; i < count; i++) if (lpstr[i] == '\t') break; GetTextExtentPointA( hdc, lpstr, i, &extent ); if (lpTabPos32) { while ((cTabStops > 0) && (nTabOrg + *lpTabPos32 <= x + extent.cx)) { lpTabPos32++; cTabStops--; } } else { while ((cTabStops > 0) && (nTabOrg + *lpTabPos16 <= x + extent.cx)) { lpTabPos16++; cTabStops--; } } if (i == count) tabPos = x + extent.cx; else if (cTabStops > 0) tabPos = nTabOrg + (lpTabPos32 ? *lpTabPos32 : *lpTabPos16); else tabPos = nTabOrg + ((x + extent.cx - nTabOrg) / defWidth + 1) * defWidth; if (fDisplayText) { RECT r; r.left = x; r.top = y; r.right = tabPos; r.bottom = y + extent.cy; ExtTextOutA( hdc, x, y, GetBkMode(hdc) == OPAQUE ? ETO_OPAQUE : 0, &r, lpstr, i, NULL ); } x = tabPos; count -= i+1; lpstr += i+1; } return MAKELONG(tabPos - start, extent.cy); } /*********************************************************************** * TabbedTextOut (USER.196) */ LONG WINAPI TabbedTextOut16( HDC16 hdc, INT16 x, INT16 y, LPCSTR lpstr, INT16 count, INT16 cTabStops, const INT16 *lpTabPos, INT16 nTabOrg ) { TRACE("%04x %d,%d %s %d\n", hdc, x, y, debugstr_an(lpstr,count), count ); return TEXT_TabbedTextOut( hdc, x, y, lpstr, count, cTabStops, lpTabPos, NULL, nTabOrg, TRUE ); } /*********************************************************************** * TabbedTextOutA (USER32.@) */ LONG WINAPI TabbedTextOutA( HDC hdc, INT x, INT y, LPCSTR lpstr, INT count, INT cTabStops, const INT *lpTabPos, INT nTabOrg ) { TRACE("%04x %d,%d %s %d\n", hdc, x, y, debugstr_an(lpstr,count), count ); return TEXT_TabbedTextOut( hdc, x, y, lpstr, count, cTabStops, NULL, lpTabPos, nTabOrg, TRUE ); } /*********************************************************************** * TabbedTextOutW (USER32.@) */ LONG WINAPI TabbedTextOutW( HDC hdc, INT x, INT y, LPCWSTR str, INT count, INT cTabStops, const INT *lpTabPos, INT nTabOrg ) { LONG ret; LPSTR p; INT acount; UINT codepage = CP_ACP; /* FIXME: get codepage of font charset */ acount = WideCharToMultiByte(codepage,0,str,count,NULL,0,NULL,NULL); p = HeapAlloc( GetProcessHeap(), 0, acount ); if(p == NULL) return 0; /* FIXME: is this the correct return on failure */ acount = WideCharToMultiByte(codepage,0,str,count,p,acount,NULL,NULL); ret = TabbedTextOutA( hdc, x, y, p, acount, cTabStops, lpTabPos, nTabOrg ); HeapFree( GetProcessHeap(), 0, p ); return ret; } /*********************************************************************** * GetTabbedTextExtent (USER.197) */ DWORD WINAPI GetTabbedTextExtent16( HDC16 hdc, LPCSTR lpstr, INT16 count, INT16 cTabStops, const INT16 *lpTabPos ) { TRACE("%04x %s %d\n", hdc, debugstr_an(lpstr,count), count ); return TEXT_TabbedTextOut( hdc, 0, 0, lpstr, count, cTabStops, lpTabPos, NULL, 0, FALSE ); } /*********************************************************************** * GetTabbedTextExtentA (USER32.@) */ DWORD WINAPI GetTabbedTextExtentA( HDC hdc, LPCSTR lpstr, INT count, INT cTabStops, const INT *lpTabPos ) { TRACE("%04x %s %d\n", hdc, debugstr_an(lpstr,count), count ); return TEXT_TabbedTextOut( hdc, 0, 0, lpstr, count, cTabStops, NULL, lpTabPos, 0, FALSE ); } /*********************************************************************** * GetTabbedTextExtentW (USER32.@) */ DWORD WINAPI GetTabbedTextExtentW( HDC hdc, LPCWSTR lpstr, INT count, INT cTabStops, const INT *lpTabPos ) { LONG ret; LPSTR p; INT acount; UINT codepage = CP_ACP; /* FIXME: get codepage of font charset */ acount = WideCharToMultiByte(codepage,0,lpstr,count,NULL,0,NULL,NULL); p = HeapAlloc( GetProcessHeap(), 0, acount ); if(p == NULL) return 0; /* FIXME: is this the correct failure value? */ acount = WideCharToMultiByte(codepage,0,lpstr,count,p,acount,NULL,NULL); ret = GetTabbedTextExtentA( hdc, p, acount, cTabStops, lpTabPos ); HeapFree( GetProcessHeap(), 0, p ); return ret; }