2 * RichEdit style management functions
4 * Copyright 2004 by Krzysztof Foltman
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Lesser General Public
8 * License as published by the Free Software Foundation; either
9 * version 2.1 of the License, or (at your option) any later version.
11 * This library is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Lesser General Public License for more details.
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with this library; if not, write to the Free Software
18 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
23 WINE_DEFAULT_DEBUG_CHANNEL(richedit
);
24 WINE_DECLARE_DEBUG_CHANNEL(richedit_style
);
26 static int all_refs
= 0;
28 /* the following routines assume that:
29 * - char2[AW] extends char[AW] by adding fields at the end of the charA form)
30 * - szFaceName is the last field of char[AW] form, and wWeight the first of 2[AW]
31 * - the difference between A and W form is the szFaceName as Ansi vs Unicode string
32 * - because of alignment, offset of wWeight field in 2[AW] structure *IS NOT*
36 CHARFORMAT2W
*ME_ToCF2W(CHARFORMAT2W
*to
, CHARFORMAT2W
*from
)
38 if (from
->cbSize
== sizeof(CHARFORMATA
))
40 CHARFORMATA
*f
= (CHARFORMATA
*)from
;
41 CopyMemory(to
, f
, FIELD_OFFSET(CHARFORMATA
, szFaceName
));
42 to
->cbSize
= sizeof(CHARFORMAT2W
);
43 if (f
->dwMask
& CFM_FACE
) {
44 MultiByteToWideChar(0, 0, f
->szFaceName
, -1, to
->szFaceName
, sizeof(to
->szFaceName
)/sizeof(WCHAR
));
48 if (from
->cbSize
== sizeof(CHARFORMATW
))
50 CHARFORMATW
*f
= (CHARFORMATW
*)from
;
51 CopyMemory(to
, f
, sizeof(*f
));
52 /* theoretically, we don't need to zero the remaining memory */
53 ZeroMemory(&to
->wWeight
, sizeof(CHARFORMAT2W
)-FIELD_OFFSET(CHARFORMAT2W
, wWeight
));
54 to
->cbSize
= sizeof(CHARFORMAT2W
);
57 if (from
->cbSize
== sizeof(CHARFORMAT2A
))
59 CHARFORMAT2A
*f
= (CHARFORMAT2A
*)from
;
60 /* copy the A structure without face name */
61 CopyMemory(to
, f
, FIELD_OFFSET(CHARFORMATA
, szFaceName
));
62 /* convert face name */
63 if (f
->dwMask
& CFM_FACE
)
64 MultiByteToWideChar(0, 0, f
->szFaceName
, -1, to
->szFaceName
, sizeof(to
->szFaceName
)/sizeof(WCHAR
));
65 /* copy the rest of the 2A structure to 2W */
66 CopyMemory(&to
->wWeight
, &f
->wWeight
, sizeof(CHARFORMAT2A
)-FIELD_OFFSET(CHARFORMAT2A
, wWeight
));
67 to
->cbSize
= sizeof(CHARFORMAT2W
);
71 return (from
->cbSize
>= sizeof(CHARFORMAT2W
)) ? from
: NULL
;
74 static CHARFORMAT2W
*ME_ToCFAny(CHARFORMAT2W
*to
, CHARFORMAT2W
*from
)
76 assert(from
->cbSize
== sizeof(CHARFORMAT2W
));
77 if (to
->cbSize
== sizeof(CHARFORMATA
))
79 CHARFORMATA
*t
= (CHARFORMATA
*)to
;
80 CopyMemory(t
, from
, FIELD_OFFSET(CHARFORMATA
, szFaceName
));
81 WideCharToMultiByte(0, 0, from
->szFaceName
, -1, t
->szFaceName
, sizeof(t
->szFaceName
), 0, 0);
82 if (from
->dwMask
& CFM_UNDERLINETYPE
)
84 switch (from
->bUnderlineType
)
86 case CFU_CF1UNDERLINE
:
87 to
->dwMask
|= CFM_UNDERLINE
;
88 to
->dwEffects
|= CFE_UNDERLINE
;
90 case CFU_UNDERLINENONE
:
91 to
->dwMask
|= CFM_UNDERLINE
;
92 to
->dwEffects
&= ~CFE_UNDERLINE
;
96 t
->cbSize
= sizeof(*t
); /* it was overwritten by CopyMemory */
99 if (to
->cbSize
== sizeof(CHARFORMATW
))
101 CHARFORMATW
*t
= (CHARFORMATW
*)to
;
102 CopyMemory(t
, from
, sizeof(*t
));
103 if (from
->dwMask
& CFM_UNDERLINETYPE
)
105 switch (from
->bUnderlineType
)
107 case CFU_CF1UNDERLINE
:
108 to
->dwMask
|= CFM_UNDERLINE
;
109 to
->dwEffects
|= CFE_UNDERLINE
;
111 case CFU_UNDERLINENONE
:
112 to
->dwMask
|= CFM_UNDERLINE
;
113 to
->dwEffects
&= ~CFE_UNDERLINE
;
117 t
->cbSize
= sizeof(*t
); /* it was overwritten by CopyMemory */
120 if (to
->cbSize
== sizeof(CHARFORMAT2A
))
122 CHARFORMAT2A
*t
= (CHARFORMAT2A
*)to
;
123 /* copy the A structure without face name */
124 CopyMemory(t
, from
, FIELD_OFFSET(CHARFORMATA
, szFaceName
));
125 /* convert face name */
126 WideCharToMultiByte(0, 0, from
->szFaceName
, -1, t
->szFaceName
, sizeof(t
->szFaceName
), 0, 0);
127 /* copy the rest of the 2A structure to 2W */
128 CopyMemory(&t
->wWeight
, &from
->wWeight
, sizeof(CHARFORMAT2W
)-FIELD_OFFSET(CHARFORMAT2W
,wWeight
));
129 t
->cbSize
= sizeof(*t
); /* it was overwritten by CopyMemory */
132 assert(to
->cbSize
>= sizeof(CHARFORMAT2W
));
136 void ME_CopyToCFAny(CHARFORMAT2W
*to
, CHARFORMAT2W
*from
)
138 if (ME_ToCFAny(to
, from
) == from
)
139 CopyMemory(to
, from
, to
->cbSize
);
142 ME_Style
*ME_MakeStyle(CHARFORMAT2W
*style
) {
143 CHARFORMAT2W styledata
;
144 ME_Style
*s
= ALLOC_OBJ(ME_Style
);
146 style
= ME_ToCF2W(&styledata
, style
);
147 memset(s
, 0, sizeof(ME_Style
));
148 if (style
->cbSize
<= sizeof(CHARFORMAT2W
))
149 CopyMemory(&s
->fmt
, style
, style
->cbSize
);
152 s
->fmt
.cbSize
= sizeof(CHARFORMAT2W
);
159 TRACE_(richedit_style
)("ME_MakeStyle %p, total refs=%d\n", s
, all_refs
);
163 #define COPY_STYLE_ITEM(mask, member) \
164 if (style->dwMask & mask) { \
165 s->fmt.dwMask |= mask;\
166 s->fmt.member = style->member;\
169 #define COPY_STYLE_ITEM_MEMCPY(mask, member) \
170 if (style->dwMask & mask) { \
171 s->fmt.dwMask |= mask;\
172 CopyMemory(s->fmt.member, style->member, sizeof(style->member));\
175 void ME_InitCharFormat2W(CHARFORMAT2W
*pFmt
)
177 ZeroMemory(pFmt
, sizeof(CHARFORMAT2W
));
178 pFmt
->cbSize
= sizeof(CHARFORMAT2W
);
181 ME_Style
*ME_ApplyStyle(ME_Style
*sSrc
, CHARFORMAT2W
*style
)
183 CHARFORMAT2W styledata
;
184 ME_Style
*s
= ME_MakeStyle(&sSrc
->fmt
);
185 style
= ME_ToCF2W(&styledata
, style
);
186 COPY_STYLE_ITEM(CFM_ANIMATION
, bAnimation
);
187 COPY_STYLE_ITEM(CFM_BACKCOLOR
, crBackColor
);
188 COPY_STYLE_ITEM(CFM_CHARSET
, bCharSet
);
189 COPY_STYLE_ITEM(CFM_COLOR
, crTextColor
);
190 COPY_STYLE_ITEM_MEMCPY(CFM_FACE
, szFaceName
);
191 COPY_STYLE_ITEM(CFM_KERNING
, wKerning
);
192 COPY_STYLE_ITEM(CFM_LCID
, lcid
);
193 COPY_STYLE_ITEM(CFM_OFFSET
, yOffset
);
194 COPY_STYLE_ITEM(CFM_REVAUTHOR
, bRevAuthor
);
195 if (style
->dwMask
& CFM_SIZE
) {
196 s
->fmt
.dwMask
|= CFM_SIZE
;
197 s
->fmt
.yHeight
= min(style
->yHeight
, yHeightCharPtsMost
* 20);
199 COPY_STYLE_ITEM(CFM_SPACING
, sSpacing
);
200 COPY_STYLE_ITEM(CFM_STYLE
, sStyle
);
201 COPY_STYLE_ITEM(CFM_UNDERLINETYPE
, bUnderlineType
);
202 COPY_STYLE_ITEM(CFM_WEIGHT
, wWeight
);
203 /* FIXME: this is not documented this way, but that's the more logical */
204 COPY_STYLE_ITEM(CFM_FACE
, bPitchAndFamily
);
206 s
->fmt
.dwEffects
&= ~(style
->dwMask
);
207 s
->fmt
.dwEffects
|= style
->dwEffects
& style
->dwMask
;
208 s
->fmt
.dwMask
|= style
->dwMask
;
209 if (style
->dwMask
& CFM_COLOR
)
211 if (style
->dwEffects
& CFE_AUTOCOLOR
)
212 s
->fmt
.dwEffects
|= CFE_AUTOCOLOR
;
214 s
->fmt
.dwEffects
&= ~CFE_AUTOCOLOR
;
216 if (style
->dwMask
& CFM_UNDERLINE
)
218 s
->fmt
.dwMask
|= CFM_UNDERLINETYPE
;
219 s
->fmt
.bUnderlineType
= (style
->dwEffects
& CFM_UNDERLINE
) ?
220 CFU_CF1UNDERLINE
: CFU_UNDERLINENONE
;
222 if (style
->dwMask
& CFM_BOLD
&& !(style
->dwMask
& CFM_WEIGHT
))
224 s
->fmt
.wWeight
= (style
->dwEffects
& CFE_BOLD
) ? FW_BOLD
: FW_NORMAL
;
225 } else if (style
->dwMask
& CFM_WEIGHT
&& !(style
->dwMask
& CFM_BOLD
)) {
226 if (style
->wWeight
> FW_NORMAL
)
227 s
->fmt
.dwEffects
|= CFE_BOLD
;
229 s
->fmt
.dwEffects
&= ~CFE_BOLD
;
234 void ME_CopyCharFormat(CHARFORMAT2W
*pDest
, const CHARFORMAT2W
*pSrc
)
236 /* using this with non-2W structs is forbidden */
237 assert(pSrc
->cbSize
== sizeof(CHARFORMAT2W
));
238 assert(pDest
->cbSize
== sizeof(CHARFORMAT2W
));
242 static void ME_DumpStyleEffect(char **p
, const char *name
, const CHARFORMAT2W
*fmt
, int mask
)
244 *p
+= sprintf(*p
, "%-22s%s\n", name
, (fmt
->dwMask
& mask
) ? ((fmt
->dwEffects
& mask
) ? "YES" : "no") : "N/A");
247 void ME_DumpStyle(ME_Style
*s
)
250 ME_DumpStyleToBuf(&s
->fmt
, buf
);
251 TRACE_(richedit_style
)("%s\n", buf
);
254 void ME_DumpStyleToBuf(CHARFORMAT2W
*pFmt
, char buf
[2048])
256 /* FIXME only CHARFORMAT styles implemented */
257 /* this function sucks, doesn't check for buffer overruns but it's "good enough" as for debug code */
260 p
+= sprintf(p
, "Font face: ");
261 if (pFmt
->dwMask
& CFM_FACE
) {
262 WCHAR
*q
= pFmt
->szFaceName
;
264 *p
++ = (*q
> 255) ? '?' : *q
;
268 p
+= sprintf(p
, "N/A");
270 if (pFmt
->dwMask
& CFM_SIZE
)
271 p
+= sprintf(p
, "\nFont size: %d\n", pFmt
->yHeight
);
273 p
+= sprintf(p
, "\nFont size: N/A\n");
275 if (pFmt
->dwMask
& CFM_OFFSET
)
276 p
+= sprintf(p
, "Char offset: %d\n", pFmt
->yOffset
);
278 p
+= sprintf(p
, "Char offset: N/A\n");
280 if (pFmt
->dwMask
& CFM_CHARSET
)
281 p
+= sprintf(p
, "Font charset: %d\n", (int)pFmt
->bCharSet
);
283 p
+= sprintf(p
, "Font charset: N/A\n");
285 /* I'm assuming CFM_xxx and CFE_xxx are the same values, fortunately it IS true wrt used flags*/
286 ME_DumpStyleEffect(&p
, "Font bold:", pFmt
, CFM_BOLD
);
287 ME_DumpStyleEffect(&p
, "Font italic:", pFmt
, CFM_ITALIC
);
288 ME_DumpStyleEffect(&p
, "Font underline:", pFmt
, CFM_UNDERLINE
);
289 ME_DumpStyleEffect(&p
, "Font strikeout:", pFmt
, CFM_STRIKEOUT
);
290 ME_DumpStyleEffect(&p
, "Hidden text:", pFmt
, CFM_HIDDEN
);
291 p
+= sprintf(p
, "Text color: ");
292 if (pFmt
->dwMask
& CFM_COLOR
)
294 if (pFmt
->dwEffects
& CFE_AUTOCOLOR
)
295 p
+= sprintf(p
, "auto\n");
297 p
+= sprintf(p
, "%06x\n", (int)pFmt
->crTextColor
);
300 p
+= sprintf(p
, "N/A\n");
301 ME_DumpStyleEffect(&p
, "Text protected:", pFmt
, CFM_PROTECTED
);
306 ME_LogFontFromStyle(ME_Context
* c
, LOGFONTW
*lf
, const ME_Style
*s
)
308 ZeroMemory(lf
, sizeof(LOGFONTW
));
309 lstrcpyW(lf
->lfFaceName
, s
->fmt
.szFaceName
);
311 lf
->lfHeight
= ME_twips2pointsY(c
, -s
->fmt
.yHeight
);
313 lf
->lfWeight
= FW_NORMAL
;
314 if (s
->fmt
.dwEffects
& s
->fmt
.dwMask
& CFM_BOLD
)
315 lf
->lfWeight
= FW_BOLD
;
316 if (s
->fmt
.dwMask
& CFM_WEIGHT
)
317 lf
->lfWeight
= s
->fmt
.wWeight
;
318 if (s
->fmt
.dwEffects
& s
->fmt
.dwMask
& CFM_ITALIC
)
320 if (s
->fmt
.dwEffects
& s
->fmt
.dwMask
& (CFM_UNDERLINE
| CFE_LINK
))
322 if (s
->fmt
.dwMask
& CFM_UNDERLINETYPE
&& s
->fmt
.bUnderlineType
== CFU_CF1UNDERLINE
)
324 if (s
->fmt
.dwEffects
& s
->fmt
.dwMask
& CFM_STRIKEOUT
)
326 if (s
->fmt
.dwEffects
& s
->fmt
.dwMask
& (CFM_SUBSCRIPT
|CFM_SUPERSCRIPT
))
327 lf
->lfHeight
= (lf
->lfHeight
*2)/3;
328 /*lf.lfQuality = PROOF_QUALITY; */
329 if (s
->fmt
.dwMask
& CFM_FACE
)
330 lf
->lfPitchAndFamily
= s
->fmt
.bPitchAndFamily
;
331 if (s
->fmt
.dwMask
& CFM_CHARSET
)
332 lf
->lfCharSet
= s
->fmt
.bCharSet
;
335 void ME_CharFormatFromLogFont(HDC hDC
, const LOGFONTW
*lf
, CHARFORMAT2W
*fmt
)
339 ME_InitCharFormat2W(fmt
);
340 ry
= GetDeviceCaps(hDC
, LOGPIXELSY
);
341 lstrcpyW(fmt
->szFaceName
, lf
->lfFaceName
);
343 fmt
->dwMask
= CFM_WEIGHT
|CFM_BOLD
|CFM_ITALIC
|CFM_UNDERLINE
|CFM_STRIKEOUT
|CFM_SIZE
|CFM_FACE
|CFM_CHARSET
;
344 fmt
->wWeight
= lf
->lfWeight
;
345 fmt
->yHeight
= -lf
->lfHeight
*1440/ry
;
346 if (lf
->lfWeight
> FW_NORMAL
) fmt
->dwEffects
|= CFM_BOLD
;
347 if (lf
->lfItalic
) fmt
->dwEffects
|= CFM_ITALIC
;
348 if (lf
->lfUnderline
) fmt
->dwEffects
|= CFM_UNDERLINE
;
349 /* notice that if a logfont was created with underline due to CFM_LINK, this
350 would add an erroneous CFM_UNDERLINE. This isn't currently ever a problem. */
351 if (lf
->lfStrikeOut
) fmt
->dwEffects
|= CFM_STRIKEOUT
;
352 fmt
->bPitchAndFamily
= lf
->lfPitchAndFamily
;
353 fmt
->bCharSet
= lf
->lfCharSet
;
356 static BOOL
ME_IsFontEqual(const LOGFONTW
*p1
, const LOGFONTW
*p2
)
358 if (memcmp(p1
, p2
, sizeof(LOGFONTW
)-sizeof(p1
->lfFaceName
)))
360 if (lstrcmpW(p1
->lfFaceName
, p2
->lfFaceName
))
365 HFONT
ME_SelectStyleFont(ME_Context
*c
, ME_Style
*s
)
369 int i
, nEmpty
, nAge
= 0x7FFFFFFF;
370 ME_FontCacheItem
*item
;
373 ME_LogFontFromStyle(c
, &lf
, s
);
375 for (i
=0; i
<HFONT_CACHE_SIZE
; i
++)
376 c
->editor
->pFontCache
[i
].nAge
++;
377 for (i
=0, nEmpty
=-1, nAge
=0; i
<HFONT_CACHE_SIZE
; i
++)
379 item
= &c
->editor
->pFontCache
[i
];
382 if (item
->nAge
> nAge
)
383 nEmpty
= i
, nAge
= item
->nAge
;
385 if (item
->hFont
&& ME_IsFontEqual(&item
->lfSpecs
, &lf
))
388 if (i
< HFONT_CACHE_SIZE
) /* found */
390 item
= &c
->editor
->pFontCache
[i
];
391 TRACE_(richedit_style
)("font reused %d\n", i
);
393 s
->hFont
= item
->hFont
;
398 item
= &c
->editor
->pFontCache
[nEmpty
]; /* this legal even when nEmpty == -1, as we don't dereference it */
400 assert(nEmpty
!= -1); /* otherwise we leak cache entries or get too many fonts at once*/
402 TRACE_(richedit_style
)("font deleted %d\n", nEmpty
);
403 DeleteObject(item
->hFont
);
406 s
->hFont
= CreateFontIndirectW(&lf
);
408 TRACE_(richedit_style
)("font created %d\n", nEmpty
);
409 item
->hFont
= s
->hFont
;
413 hOldFont
= SelectObject(c
->hDC
, s
->hFont
);
414 /* should be cached too, maybe ? */
415 GetTextMetricsW(c
->hDC
, &s
->tm
);
419 void ME_UnselectStyleFont(ME_Context
*c
, ME_Style
*s
, HFONT hOldFont
)
424 SelectObject(c
->hDC
, hOldFont
);
425 for (i
=0; i
<HFONT_CACHE_SIZE
; i
++)
427 ME_FontCacheItem
*pItem
= &c
->editor
->pFontCache
[i
];
428 if (pItem
->hFont
== s
->hFont
&& pItem
->nRefs
> 0)
436 assert(0 == "UnselectStyleFont without SelectStyleFont");
439 static void ME_DestroyStyle(ME_Style
*s
) {
442 DeleteObject(s
->hFont
);
448 void ME_AddRefStyle(ME_Style
*s
)
450 assert(s
->nRefs
>0); /* style with 0 references isn't supposed to exist */
453 TRACE_(richedit_style
)("ME_AddRefStyle %p, new refs=%d, total refs=%d\n", s
, s
->nRefs
, all_refs
);
456 void ME_ReleaseStyle(ME_Style
*s
)
461 TRACE_(richedit_style
)("destroy style %p, total refs=%d\n", s
, all_refs
);
463 TRACE_(richedit_style
)("release style %p, new refs=%d, total refs=%d\n", s
, s
->nRefs
, all_refs
);
464 if (!all_refs
) TRACE("all style references freed (good!)\n");
470 ME_Style
*ME_GetInsertStyle(ME_TextEditor
*editor
, int nCursor
)
472 if (ME_IsSelection(editor
))
474 ME_Cursor
*from
, *to
;
476 ME_GetSelection(editor
, &from
, &to
);
477 ME_AddRefStyle(from
->pRun
->member
.run
.style
);
478 return from
->pRun
->member
.run
.style
;
480 if (editor
->pBuffer
->pCharStyle
) {
481 ME_AddRefStyle(editor
->pBuffer
->pCharStyle
);
482 return editor
->pBuffer
->pCharStyle
;
486 ME_Cursor
*pCursor
= &editor
->pCursors
[nCursor
];
487 ME_DisplayItem
*pRunItem
= pCursor
->pRun
;
488 ME_DisplayItem
*pPrevItem
= NULL
;
489 if (pCursor
->nOffset
) {
490 ME_Run
*pRun
= &pRunItem
->member
.run
;
491 ME_AddRefStyle(pRun
->style
);
494 pPrevItem
= ME_FindItemBack(pRunItem
, diRunOrParagraph
);
495 if (pPrevItem
->type
== diRun
)
497 ME_AddRefStyle(pPrevItem
->member
.run
.style
);
498 return pPrevItem
->member
.run
.style
;
502 ME_AddRefStyle(pRunItem
->member
.run
.style
);
503 return pRunItem
->member
.run
.style
;
508 void ME_SaveTempStyle(ME_TextEditor
*editor
)
510 ME_Style
*old_style
= editor
->pBuffer
->pCharStyle
;
511 editor
->pBuffer
->pCharStyle
= ME_GetInsertStyle(editor
, 0);
513 ME_ReleaseStyle(old_style
);
516 void ME_ClearTempStyle(ME_TextEditor
*editor
)
518 if (!editor
->pBuffer
->pCharStyle
) return;
519 ME_ReleaseStyle(editor
->pBuffer
->pCharStyle
);
520 editor
->pBuffer
->pCharStyle
= NULL
;