2 * RichEdit - functions dealing with editor object
4 * Copyright 2004 by Krzysztof Foltman
5 * Copyright 2005 by Cihan Altinay
6 * Copyright 2005 by Phil Krylov
7 * Copyright 2008 Eric Pouech
9 * This library is free software; you can redistribute it and/or
10 * modify it under the terms of the GNU Lesser General Public
11 * License as published by the Free Software Foundation; either
12 * version 2.1 of the License, or (at your option) any later version.
14 * This library is distributed in the hope that it will be useful,
15 * but WITHOUT ANY WARRANTY; without even the implied warranty of
16 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
17 * Lesser General Public License for more details.
19 * You should have received a copy of the GNU Lesser General Public
20 * License along with this library; if not, write to the Free Software
21 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
25 API implementation status:
27 Messages (ANSI versions not done yet)
28 + EM_AUTOURLDETECT 2.0
39 + EM_FINDTEXT (only FR_DOWN flag implemented)
40 + EM_FINDTEXTEX (only FR_DOWN flag implemented)
44 + EM_GETAUTOURLDETECT 2.0
45 - EM_GETBIDIOPTIONS 3.0
46 - EM_GETCHARFORMAT (partly done)
49 + EM_GETFIRSTVISIBLELINE (can be optimized if needed)
50 - EM_GETIMECOLOR 1.0asian
51 - EM_GETIMECOMPMODE 2.0
52 - EM_GETIMEOPTIONS 1.0asian
54 - EM_GETLANGOPTIONS 2.0
57 + EM_GETLINECOUNT returns number of rows, not of paragraphs
62 + EM_GETPASSWORDCHAR 2.0
63 - EM_GETPUNCTUATION 1.0asian
67 + EM_GETSELTEXT (ANSI&Unicode)
71 + EM_GETTEXTLENGTHEX (GTL_PRECISE unimplemented)
73 ? + EM_GETTEXTRANGE (ANSI&Unicode)
74 - EM_GETTYPOGRAPHYOPTIONS 3.0
77 - EM_GETWORDBREAKPROCEX
78 - EM_GETWORDWRAPMODE 1.0asian
81 + EM_LIMITTEXT (Also called EM_SETLIMITTEXT)
90 + EM_REPLACESEL (proper style?) ANSI&Unicode
94 - EM_SETBIDIOPTIONS 3.0
96 + EM_SETCHARFORMAT (partly done, no ANSI)
98 + EM_SETEVENTMASK (few notifications supported)
100 - EM_SETIMECOLOR 1.0asian
101 - EM_SETIMEOPTIONS 1.0asian
103 - EM_SETLANGOPTIONS 2.0
106 + EM_SETMODIFY (not sure if implementation is correct)
108 + EM_SETOPTIONS (partially implemented)
111 + EM_SETPASSWORDCHAR 2.0
112 - EM_SETPUNCTUATION 1.0asian
113 + EM_SETREADONLY no beep on modification attempt
115 + EM_SETRECTNP (EM_SETRECT without repainting)
117 + EM_SETSCROLLPOS 3.0
119 - EM_SETTARGETDEVICE (partial)
120 + EM_SETTEXTEX 3.0 (proper style?)
122 - EM_SETTYPOGRAPHYOPTIONS 3.0
123 + EM_SETUNDOLIMIT 2.0
124 + EM_SETWORDBREAKPROC (used only for word movement at the moment)
125 - EM_SETWORDBREAKPROCEX
126 - EM_SETWORDWRAPMODE 1.0asian
128 + EM_SHOWSCROLLBAR 2.0
129 + EM_STOPGROUPTYPING 2.0
137 + WM_GETDLGCODE (the current implementation is incomplete)
138 + WM_GETTEXT (ANSI&Unicode)
139 + WM_GETTEXTLENGTH (ANSI version sucks)
143 + WM_SETTEXT (resets undo stack !) (proper style?) ANSI&Unicode
145 - WM_STYLECHANGED (things like read-only flag)
151 * EN_CHANGE (sent from the wrong place)
168 * EN_UPDATE (sent from the wrong place)
176 + ES_DISABLENOSCROLL (scrollbar is always visible)
177 - ES_EX_NOCALLOLEINIT
179 - ES_MULTILINE (currently single line controls aren't supported)
181 - ES_READONLY (I'm not sure if beeping is the proper behaviour)
187 - ES_WANTRETURN (don't know how to do WM_GETDLGCODE part)
194 * RICHED20 TODO (incomplete):
196 * - messages/styles/notifications listed above
197 * - add remaining CHARFORMAT/PARAFORMAT fields
198 * - right/center align should strip spaces from the beginning
199 * - pictures/OLE objects (not just smiling faces that lack API support ;-) )
200 * - COM interface (looks like a major pain in the TODO list)
201 * - calculate heights of pictures (half-done)
202 * - hysteresis during wrapping (related to scrollbars appearing/disappearing)
204 * - how to implement EM_FORMATRANGE and EM_DISPLAYBAND ? (Mission Impossible)
205 * - italic caret with italic fonts
207 * - most notifications aren't sent at all (the most important ones are)
208 * - when should EN_SELCHANGE be sent after text change ? (before/after EN_UPDATE?)
209 * - WM_SETTEXT may use wrong style (but I'm 80% sure it's OK)
210 * - EM_GETCHARFORMAT with SCF_SELECTION may not behave 100% like in original (but very close)
211 * - full justification
214 * - ListBox & ComboBox not implemented
216 * Bugs that are probably fixed, but not so easy to verify:
217 * - EN_UPDATE/EN_CHANGE are handled very incorrectly (should be OK now)
218 * - undo for ME_JoinParagraphs doesn't store paragraph format ? (it does)
219 * - check/fix artificial EOL logic (bCursorAtEnd, hardly logical)
220 * - caret shouldn't be displayed when selection isn't empty
221 * - check refcounting in style management functions (looks perfect now, but no bugs is suspicious)
222 * - undo for setting default format (done, might be buggy)
223 * - styles might be not released properly (looks like they work like charm, but who knows?
230 #define NO_SHLWAPI_STREAM
236 #define STACK_SIZE_DEFAULT 100
237 #define STACK_SIZE_MAX 1000
239 #define TEXT_LIMIT_DEFAULT 32767
241 WINE_DEFAULT_DEBUG_CHANNEL(richedit
);
243 static BOOL
ME_RegisterEditorClass(HINSTANCE
);
244 static BOOL
ME_UpdateLinkAttribute(ME_TextEditor
*editor
, int sel_min
, int sel_max
);
246 static const WCHAR RichEdit20W
[] = {'R', 'i', 'c', 'h', 'E', 'd', 'i', 't', '2', '0', 'W', 0};
247 static const WCHAR RichEdit50W
[] = {'R', 'i', 'c', 'h', 'E', 'd', 'i', 't', '5', '0', 'W', 0};
248 static const WCHAR REListBox20W
[] = {'R','E','L','i','s','t','B','o','x','2','0','W', 0};
249 static const WCHAR REComboBox20W
[] = {'R','E','C','o','m','b','o','B','o','x','2','0','W', 0};
250 static HCURSOR hLeft
;
253 HANDLE me_heap
= NULL
;
255 static BOOL ME_ListBoxRegistered
= FALSE
;
256 static BOOL ME_ComboBoxRegistered
= FALSE
;
258 static inline int is_version_nt(void)
260 return !(GetVersion() & 0x80000000);
263 static ME_TextBuffer
*ME_MakeText(void) {
265 ME_TextBuffer
*buf
= ALLOC_OBJ(ME_TextBuffer
);
267 ME_DisplayItem
*p1
= ME_MakeDI(diTextStart
);
268 ME_DisplayItem
*p2
= ME_MakeDI(diTextEnd
);
274 p1
->member
.para
.next_para
= p2
;
275 p2
->member
.para
.prev_para
= p1
;
276 p2
->member
.para
.nCharOfs
= 0;
280 buf
->pCharStyle
= NULL
;
286 static LRESULT
ME_StreamInText(ME_TextEditor
*editor
, DWORD dwFormat
, ME_InStream
*stream
, ME_Style
*style
)
288 WCHAR wszText
[STREAMIN_BUFFER_SIZE
+1];
291 TRACE("%08x %p\n", dwFormat
, stream
);
298 ME_StreamInFill(stream
);
299 if (stream
->editstream
->dwError
)
305 if (!(dwFormat
& SF_UNICODE
))
307 /* FIXME? this is doomed to fail on true MBCS like UTF-8, luckily they're unlikely to be used as CP_ACP */
308 nWideChars
= MultiByteToWideChar(CP_ACP
, 0, stream
->buffer
, stream
->dwSize
, wszText
, STREAMIN_BUFFER_SIZE
);
313 nWideChars
= stream
->dwSize
>> 1;
314 pText
= (WCHAR
*)stream
->buffer
;
317 ME_InsertTextFromCursor(editor
, 0, pText
, nWideChars
, style
);
318 if (stream
->dwSize
== 0)
322 ME_CommitUndo(editor
);
323 ME_UpdateRepaint(editor
);
327 static void ME_ApplyBorderProperties(RTF_Info
*info
,
328 ME_BorderRect
*borderRect
,
329 RTFBorder
*borderDef
)
332 ME_Border
*pBorders
[] = {&borderRect
->top
,
336 for (i
= 0; i
< 4; i
++)
338 RTFColor
*colorDef
= info
->colorList
;
339 pBorders
[i
]->width
= borderDef
[i
].width
;
340 colorNum
= borderDef
[i
].color
;
341 while (colorDef
&& colorDef
->rtfCNum
!= colorNum
)
342 colorDef
= colorDef
->rtfNextColor
;
344 pBorders
[i
]->colorRef
= RGB(
345 colorDef
->rtfCRed
>= 0 ? colorDef
->rtfCRed
: 0,
346 colorDef
->rtfCGreen
>= 0 ? colorDef
->rtfCGreen
: 0,
347 colorDef
->rtfCBlue
>= 0 ? colorDef
->rtfCBlue
: 0);
349 pBorders
[i
]->colorRef
= RGB(0, 0, 0);
353 void ME_RTFCharAttrHook(RTF_Info
*info
)
356 fmt
.cbSize
= sizeof(fmt
);
360 switch(info
->rtfMinor
)
363 /* FIXME add more flags once they're implemented */
364 fmt
.dwMask
= CFM_BOLD
| CFM_ITALIC
| CFM_UNDERLINETYPE
| CFM_STRIKEOUT
| CFM_COLOR
| CFM_BACKCOLOR
| CFM_SIZE
| CFM_WEIGHT
;
365 fmt
.dwEffects
= CFE_AUTOCOLOR
| CFE_AUTOBACKCOLOR
;
366 fmt
.yHeight
= 12*20; /* 12pt */
367 fmt
.wWeight
= FW_NORMAL
;
368 fmt
.bUnderlineType
= CFU_UNDERLINENONE
;
371 fmt
.dwMask
= CFM_BOLD
| CFM_WEIGHT
;
372 fmt
.dwEffects
= info
->rtfParam
? CFE_BOLD
: 0;
373 fmt
.wWeight
= info
->rtfParam
? FW_BOLD
: FW_NORMAL
;
376 fmt
.dwMask
= CFM_ITALIC
;
377 fmt
.dwEffects
= info
->rtfParam
? fmt
.dwMask
: 0;
380 fmt
.dwMask
= CFM_UNDERLINETYPE
;
381 fmt
.bUnderlineType
= info
->rtfParam
? CFU_CF1UNDERLINE
: CFU_UNDERLINENONE
;
383 case rtfDotUnderline
:
384 fmt
.dwMask
= CFM_UNDERLINETYPE
;
385 fmt
.bUnderlineType
= info
->rtfParam
? CFU_UNDERLINEDOTTED
: CFU_UNDERLINENONE
;
388 fmt
.dwMask
= CFM_UNDERLINETYPE
;
389 fmt
.bUnderlineType
= info
->rtfParam
? CFU_UNDERLINEDOUBLE
: CFU_UNDERLINENONE
;
391 case rtfWordUnderline
:
392 fmt
.dwMask
= CFM_UNDERLINETYPE
;
393 fmt
.bUnderlineType
= info
->rtfParam
? CFU_UNDERLINEWORD
: CFU_UNDERLINENONE
;
396 fmt
.dwMask
= CFM_UNDERLINETYPE
;
397 fmt
.bUnderlineType
= CFU_UNDERLINENONE
;
400 fmt
.dwMask
= CFM_STRIKEOUT
;
401 fmt
.dwEffects
= info
->rtfParam
? fmt
.dwMask
: 0;
405 case rtfSubScrShrink
:
406 case rtfSuperScrShrink
:
408 fmt
.dwMask
= CFM_SUBSCRIPT
|CFM_SUPERSCRIPT
;
409 if (info
->rtfMinor
== rtfSubScrShrink
) fmt
.dwEffects
= CFE_SUBSCRIPT
;
410 if (info
->rtfMinor
== rtfSuperScrShrink
) fmt
.dwEffects
= CFE_SUPERSCRIPT
;
411 if (info
->rtfMinor
== rtfNoSuperSub
) fmt
.dwEffects
= 0;
414 fmt
.dwMask
= CFM_HIDDEN
;
415 fmt
.dwEffects
= info
->rtfParam
? fmt
.dwMask
: 0;
418 fmt
.dwMask
= CFM_BACKCOLOR
;
420 if (info
->rtfParam
== 0)
421 fmt
.dwEffects
= CFE_AUTOBACKCOLOR
;
422 else if (info
->rtfParam
!= rtfNoParam
)
424 RTFColor
*c
= RTFGetColor(info
, info
->rtfParam
);
425 if (c
&& c
->rtfCBlue
>= 0)
426 fmt
.crTextColor
= (c
->rtfCBlue
<<16)|(c
->rtfCGreen
<<8)|(c
->rtfCRed
);
428 fmt
.dwEffects
= CFE_AUTOBACKCOLOR
;
432 fmt
.dwMask
= CFM_COLOR
;
434 if (info
->rtfParam
== 0)
435 fmt
.dwEffects
= CFE_AUTOCOLOR
;
436 else if (info
->rtfParam
!= rtfNoParam
)
438 RTFColor
*c
= RTFGetColor(info
, info
->rtfParam
);
439 if (c
&& c
->rtfCBlue
>= 0)
440 fmt
.crTextColor
= (c
->rtfCBlue
<<16)|(c
->rtfCGreen
<<8)|(c
->rtfCRed
);
442 fmt
.dwEffects
= CFE_AUTOCOLOR
;
447 if (info
->rtfParam
!= rtfNoParam
)
449 RTFFont
*f
= RTFGetFont(info
, info
->rtfParam
);
452 MultiByteToWideChar(CP_ACP
, 0, f
->rtfFName
, -1, fmt
.szFaceName
, sizeof(fmt
.szFaceName
)/sizeof(WCHAR
));
453 fmt
.szFaceName
[sizeof(fmt
.szFaceName
)/sizeof(WCHAR
)-1] = '\0';
454 fmt
.bCharSet
= f
->rtfFCharSet
;
455 fmt
.dwMask
= CFM_FACE
| CFM_CHARSET
;
456 fmt
.bPitchAndFamily
= f
->rtfFPitch
| (f
->rtfFFamily
<< 4);
461 fmt
.dwMask
= CFM_SIZE
;
462 if (info
->rtfParam
!= rtfNoParam
)
463 fmt
.yHeight
= info
->rtfParam
*10;
468 RTFFlushOutputBuffer(info
);
469 /* FIXME too slow ? how come ? */
470 style2
= ME_ApplyStyle(info
->style
, &fmt
);
471 ME_ReleaseStyle(info
->style
);
472 info
->style
= style2
;
473 info
->styleChanged
= TRUE
;
477 /* FIXME this function doesn't get any information about context of the RTF tag, which is very bad,
478 the same tags mean different things in different contexts */
479 void ME_RTFParAttrHook(RTF_Info
*info
)
482 fmt
.cbSize
= sizeof(fmt
);
485 switch(info
->rtfMinor
)
487 case rtfParDef
: /* restores default paragraph attributes */
488 if (!info
->editor
->bEmulateVersion10
) /* v4.1 */
489 info
->borderType
= RTFBorderParaLeft
;
490 else /* v1.0 - 3.0 */
491 info
->borderType
= RTFBorderParaTop
;
492 fmt
.dwMask
= PFM_ALIGNMENT
| PFM_BORDER
| PFM_LINESPACING
| PFM_TABSTOPS
|
493 PFM_OFFSET
| PFM_RIGHTINDENT
| PFM_SPACEAFTER
| PFM_SPACEBEFORE
|
495 /* TODO: numbering, shading */
496 fmt
.wAlignment
= PFA_LEFT
;
498 fmt
.dxOffset
= fmt
.dxStartIndent
= fmt
.dxRightIndent
= 0;
499 fmt
.wBorderWidth
= fmt
.wBorders
= 0;
500 fmt
.wBorderSpace
= 0;
501 fmt
.bLineSpacingRule
= 0;
502 fmt
.dySpaceBefore
= fmt
.dySpaceAfter
= 0;
503 fmt
.dyLineSpacing
= 0;
504 if (!info
->editor
->bEmulateVersion10
) /* v4.1 */
506 if (info
->tableDef
&& info
->tableDef
->tableRowStart
&&
507 info
->tableDef
->tableRowStart
->member
.para
.nFlags
& MEPF_ROWEND
)
510 ME_DisplayItem
*para
;
511 /* We are just after a table row. */
512 RTFFlushOutputBuffer(info
);
513 cursor
= info
->editor
->pCursors
[0];
515 if (para
== info
->tableDef
->tableRowStart
->member
.para
.next_para
516 && !cursor
.nOffset
&& !cursor
.pRun
->member
.run
.nCharOfs
)
518 /* Since the table row end, no text has been inserted, and the \intbl
519 * control word has not be used. We can confirm that we are not in a
522 info
->tableDef
->tableRowStart
= NULL
;
523 info
->canInheritInTbl
= FALSE
;
526 } else { /* v1.0 - v3.0 */
527 fmt
.dwMask
|= PFM_TABLE
;
528 fmt
.wEffects
&= ~PFE_TABLE
;
532 if (!info
->editor
->bEmulateVersion10
) /* v4.1 */
534 while (info
->rtfParam
> info
->nestingLevel
) {
535 RTFTable
*tableDef
= ALLOC_OBJ(RTFTable
);
536 ZeroMemory(tableDef
, sizeof(RTFTable
));
537 tableDef
->parent
= info
->tableDef
;
538 info
->tableDef
= tableDef
;
540 RTFFlushOutputBuffer(info
);
541 if (tableDef
->tableRowStart
&&
542 tableDef
->tableRowStart
->member
.para
.nFlags
& MEPF_ROWEND
)
544 ME_DisplayItem
*para
= tableDef
->tableRowStart
;
545 para
= para
->member
.para
.next_para
;
546 para
= ME_InsertTableRowStartAtParagraph(info
->editor
, para
);
547 tableDef
->tableRowStart
= para
;
551 cursor
= info
->editor
->pCursors
[0];
552 if (cursor
.nOffset
|| cursor
.pRun
->member
.run
.nCharOfs
)
553 ME_InsertTextFromCursor(info
->editor
, 0, &endl
, 1, info
->style
);
554 tableDef
->tableRowStart
= ME_InsertTableRowStartFromCursor(info
->editor
);
557 info
->nestingLevel
++;
559 info
->canInheritInTbl
= FALSE
;
564 if (!info
->editor
->bEmulateVersion10
) /* v4.1 */
566 if (info
->nestingLevel
< 1)
571 info
->tableDef
= ALLOC_OBJ(RTFTable
);
572 ZeroMemory(info
->tableDef
, sizeof(RTFTable
));
574 tableDef
= info
->tableDef
;
575 RTFFlushOutputBuffer(info
);
576 if (tableDef
->tableRowStart
&&
577 tableDef
->tableRowStart
->member
.para
.nFlags
& MEPF_ROWEND
)
579 ME_DisplayItem
*para
= tableDef
->tableRowStart
;
580 para
= para
->member
.para
.next_para
;
581 para
= ME_InsertTableRowStartAtParagraph(info
->editor
, para
);
582 tableDef
->tableRowStart
= para
;
586 cursor
= info
->editor
->pCursors
[0];
587 if (cursor
.nOffset
|| cursor
.pRun
->member
.run
.nCharOfs
)
588 ME_InsertTextFromCursor(info
->editor
, 0, &endl
, 1, info
->style
);
589 tableDef
->tableRowStart
= ME_InsertTableRowStartFromCursor(info
->editor
);
591 info
->nestingLevel
= 1;
592 info
->canInheritInTbl
= TRUE
;
595 } else { /* v1.0 - v3.0 */
596 fmt
.dwMask
|= PFM_TABLE
;
597 fmt
.wEffects
|= PFE_TABLE
;
602 ME_GetSelectionParaFormat(info
->editor
, &fmt
);
603 fmt
.dwMask
= PFM_STARTINDENT
| PFM_OFFSET
;
604 fmt
.dxStartIndent
+= fmt
.dxOffset
+ info
->rtfParam
;
605 fmt
.dxOffset
= -info
->rtfParam
;
608 ME_GetSelectionParaFormat(info
->editor
, &fmt
);
609 fmt
.dwMask
= PFM_STARTINDENT
;
610 fmt
.dxStartIndent
= info
->rtfParam
- fmt
.dxOffset
;
613 fmt
.dwMask
= PFM_RIGHTINDENT
;
614 fmt
.dxRightIndent
= info
->rtfParam
;
618 fmt
.dwMask
= PFM_ALIGNMENT
;
619 fmt
.wAlignment
= PFA_LEFT
;
622 fmt
.dwMask
= PFM_ALIGNMENT
;
623 fmt
.wAlignment
= PFA_RIGHT
;
626 fmt
.dwMask
= PFM_ALIGNMENT
;
627 fmt
.wAlignment
= PFA_CENTER
;
630 ME_GetSelectionParaFormat(info
->editor
, &fmt
);
631 if (!(fmt
.dwMask
& PFM_TABSTOPS
))
635 if (fmt
.cTabCount
< MAX_TAB_STOPS
&& info
->rtfParam
< 0x1000000)
636 fmt
.rgxTabs
[fmt
.cTabCount
++] = info
->rtfParam
;
637 fmt
.dwMask
= PFM_TABSTOPS
;
640 fmt
.dwMask
= PFM_KEEP
;
641 fmt
.wEffects
= PFE_KEEP
;
643 case rtfNoWidowControl
:
644 fmt
.dwMask
= PFM_NOWIDOWCONTROL
;
645 fmt
.wEffects
= PFE_NOWIDOWCONTROL
;
648 fmt
.dwMask
= PFM_KEEPNEXT
;
649 fmt
.wEffects
= PFE_KEEPNEXT
;
652 fmt
.dwMask
= PFM_SPACEAFTER
;
653 fmt
.dySpaceAfter
= info
->rtfParam
;
656 fmt
.dwMask
= PFM_SPACEBEFORE
;
657 fmt
.dySpaceBefore
= info
->rtfParam
;
659 case rtfSpaceBetween
:
660 fmt
.dwMask
= PFM_LINESPACING
;
661 if ((int)info
->rtfParam
> 0)
663 fmt
.dyLineSpacing
= info
->rtfParam
;
664 fmt
.bLineSpacingRule
= 3;
668 fmt
.dyLineSpacing
= info
->rtfParam
;
669 fmt
.bLineSpacingRule
= 4;
671 case rtfSpaceMultiply
:
672 fmt
.dwMask
= PFM_LINESPACING
;
673 fmt
.dyLineSpacing
= info
->rtfParam
* 20;
674 fmt
.bLineSpacingRule
= 5;
677 fmt
.dwMask
= PFM_NUMBERING
;
678 fmt
.wNumbering
= PFN_BULLET
;
681 fmt
.dwMask
= PFM_NUMBERING
;
682 fmt
.wNumbering
= 2; /* FIXME: MSDN says it's not used ?? */
684 case rtfParNumDecimal
:
685 fmt
.dwMask
= PFM_NUMBERING
;
686 fmt
.wNumbering
= 2; /* FIXME: MSDN says it's not used ?? */
688 case rtfParNumIndent
:
689 fmt
.dwMask
= PFM_NUMBERINGTAB
;
690 fmt
.wNumberingTab
= info
->rtfParam
;
692 case rtfParNumStartAt
:
693 fmt
.dwMask
= PFM_NUMBERINGSTART
;
694 fmt
.wNumberingStart
= info
->rtfParam
;
697 info
->borderType
= RTFBorderParaLeft
;
698 ME_GetSelectionParaFormat(info
->editor
, &fmt
);
699 if (!(fmt
.dwMask
& PFM_BORDER
))
701 fmt
.wBorderSpace
= 0;
702 fmt
.wBorderWidth
= 1;
706 fmt
.dwMask
= PFM_BORDER
;
709 info
->borderType
= RTFBorderParaRight
;
710 ME_GetSelectionParaFormat(info
->editor
, &fmt
);
711 if (!(fmt
.dwMask
& PFM_BORDER
))
713 fmt
.wBorderSpace
= 0;
714 fmt
.wBorderWidth
= 1;
718 fmt
.dwMask
= PFM_BORDER
;
721 info
->borderType
= RTFBorderParaTop
;
722 ME_GetSelectionParaFormat(info
->editor
, &fmt
);
723 if (!(fmt
.dwMask
& PFM_BORDER
))
725 fmt
.wBorderSpace
= 0;
726 fmt
.wBorderWidth
= 1;
730 fmt
.dwMask
= PFM_BORDER
;
732 case rtfBorderBottom
:
733 info
->borderType
= RTFBorderParaBottom
;
734 ME_GetSelectionParaFormat(info
->editor
, &fmt
);
735 if (!(fmt
.dwMask
& PFM_BORDER
))
737 fmt
.wBorderSpace
= 0;
738 fmt
.wBorderWidth
= 1;
742 fmt
.dwMask
= PFM_BORDER
;
744 case rtfBorderSingle
:
745 ME_GetSelectionParaFormat(info
->editor
, &fmt
);
746 /* we assume that borders have been created before (RTF spec) */
747 fmt
.wBorders
&= ~0x700;
748 fmt
.wBorders
|= 1 << 8;
749 fmt
.dwMask
= PFM_BORDER
;
752 ME_GetSelectionParaFormat(info
->editor
, &fmt
);
753 /* we assume that borders have been created before (RTF spec) */
754 fmt
.wBorders
&= ~0x700;
755 fmt
.wBorders
|= 2 << 8;
756 fmt
.dwMask
= PFM_BORDER
;
758 case rtfBorderShadow
:
759 ME_GetSelectionParaFormat(info
->editor
, &fmt
);
760 /* we assume that borders have been created before (RTF spec) */
761 fmt
.wBorders
&= ~0x700;
762 fmt
.wBorders
|= 10 << 8;
763 fmt
.dwMask
= PFM_BORDER
;
765 case rtfBorderDouble
:
766 ME_GetSelectionParaFormat(info
->editor
, &fmt
);
767 /* we assume that borders have been created before (RTF spec) */
768 fmt
.wBorders
&= ~0x700;
769 fmt
.wBorders
|= 7 << 8;
770 fmt
.dwMask
= PFM_BORDER
;
773 ME_GetSelectionParaFormat(info
->editor
, &fmt
);
774 /* we assume that borders have been created before (RTF spec) */
775 fmt
.wBorders
&= ~0x700;
776 fmt
.wBorders
|= 11 << 8;
777 fmt
.dwMask
= PFM_BORDER
;
781 int borderSide
= info
->borderType
& RTFBorderSideMask
;
782 RTFTable
*tableDef
= info
->tableDef
;
783 ME_GetSelectionParaFormat(info
->editor
, &fmt
);
784 /* we assume that borders have been created before (RTF spec) */
785 fmt
.wBorderWidth
|= ((info
->rtfParam
/ 15) & 7) << 8;
786 if ((info
->borderType
& RTFBorderTypeMask
) == RTFBorderTypeCell
)
789 if (!tableDef
|| tableDef
->numCellsDefined
>= MAX_TABLE_CELLS
)
791 border
= &tableDef
->cells
[tableDef
->numCellsDefined
].border
[borderSide
];
792 border
->width
= info
->rtfParam
;
795 fmt
.dwMask
= PFM_BORDER
;
799 ME_GetSelectionParaFormat(info
->editor
, &fmt
);
800 /* we assume that borders have been created before (RTF spec) */
801 fmt
.wBorderSpace
= info
->rtfParam
;
802 fmt
.dwMask
= PFM_BORDER
;
806 RTFTable
*tableDef
= info
->tableDef
;
807 int borderSide
= info
->borderType
& RTFBorderSideMask
;
808 int borderType
= info
->borderType
& RTFBorderTypeMask
;
811 case RTFBorderTypePara
:
812 if (!info
->editor
->bEmulateVersion10
) /* v4.1 */
814 /* v1.0 - 3.0 treat paragraph and row borders the same. */
815 case RTFBorderTypeRow
:
817 tableDef
->border
[borderSide
].color
= info
->rtfParam
;
820 case RTFBorderTypeCell
:
821 if (tableDef
&& tableDef
->numCellsDefined
< MAX_TABLE_CELLS
) {
822 tableDef
->cells
[tableDef
->numCellsDefined
].border
[borderSide
].color
= info
->rtfParam
;
830 RTFFlushOutputBuffer(info
);
831 /* FIXME too slow ? how come ?*/
832 ME_SetSelectionParaFormat(info
->editor
, &fmt
);
836 void ME_RTFTblAttrHook(RTF_Info
*info
)
838 switch (info
->rtfMinor
)
842 if (!info
->editor
->bEmulateVersion10
) /* v4.1 */
843 info
->borderType
= 0; /* Not sure */
844 else /* v1.0 - 3.0 */
845 info
->borderType
= RTFBorderRowTop
;
846 if (!info
->tableDef
) {
847 info
->tableDef
= ME_MakeTableDef(info
->editor
);
849 ME_InitTableDef(info
->editor
, info
->tableDef
);
858 info
->tableDef
= ME_MakeTableDef(info
->editor
);
860 cellNum
= info
->tableDef
->numCellsDefined
;
861 if (cellNum
>= MAX_TABLE_CELLS
)
863 info
->tableDef
->cells
[cellNum
].rightBoundary
= info
->rtfParam
;
864 if (cellNum
< MAX_TAB_STOPS
) {
865 /* Tab stops were used to store cell positions before v4.1 but v4.1
866 * still seems to set the tabstops without using them. */
867 ME_DisplayItem
*para
= info
->editor
->pCursors
[0].pPara
;
868 PARAFORMAT2
*pFmt
= para
->member
.para
.pFmt
;
869 pFmt
->rgxTabs
[cellNum
] &= ~0x00FFFFFF;
870 pFmt
->rgxTabs
[cellNum
] = 0x00FFFFFF & info
->rtfParam
;
872 info
->tableDef
->numCellsDefined
++;
876 info
->borderType
= RTFBorderRowTop
;
879 info
->borderType
= RTFBorderRowLeft
;
881 case rtfRowBordBottom
:
882 info
->borderType
= RTFBorderRowBottom
;
884 case rtfRowBordRight
:
885 info
->borderType
= RTFBorderRowRight
;
888 info
->borderType
= RTFBorderCellTop
;
890 case rtfCellBordLeft
:
891 info
->borderType
= RTFBorderCellLeft
;
893 case rtfCellBordBottom
:
894 info
->borderType
= RTFBorderCellBottom
;
896 case rtfCellBordRight
:
897 info
->borderType
= RTFBorderCellRight
;
901 info
->tableDef
->gapH
= info
->rtfParam
;
905 info
->tableDef
->leftEdge
= info
->rtfParam
;
910 void ME_RTFSpecialCharHook(RTF_Info
*info
)
912 RTFTable
*tableDef
= info
->tableDef
;
913 switch (info
->rtfMinor
)
916 if (info
->editor
->bEmulateVersion10
) /* v1.0 - v3.0 */
918 /* else fall through since v4.1 treats rtfNestCell and rtfCell the same */
922 RTFFlushOutputBuffer(info
);
923 if (!info
->editor
->bEmulateVersion10
) { /* v4.1 */
924 if (tableDef
->tableRowStart
)
926 if (!info
->nestingLevel
&&
927 tableDef
->tableRowStart
->member
.para
.nFlags
& MEPF_ROWEND
)
929 ME_DisplayItem
*para
= tableDef
->tableRowStart
;
930 para
= para
->member
.para
.next_para
;
931 para
= ME_InsertTableRowStartAtParagraph(info
->editor
, para
);
932 tableDef
->tableRowStart
= para
;
933 info
->nestingLevel
= 1;
935 ME_InsertTableCellFromCursor(info
->editor
);
937 } else { /* v1.0 - v3.0 */
938 ME_DisplayItem
*para
= info
->editor
->pCursors
[0].pPara
;
939 PARAFORMAT2
*pFmt
= para
->member
.para
.pFmt
;
940 if (pFmt
->dwMask
& PFM_TABLE
&& pFmt
->wEffects
& PFE_TABLE
&&
941 tableDef
->numCellsInserted
< tableDef
->numCellsDefined
)
944 ME_InsertTextFromCursor(info
->editor
, 0, &tab
, 1, info
->style
);
945 tableDef
->numCellsInserted
++;
950 if (info
->editor
->bEmulateVersion10
) /* v1.0 - v3.0 */
952 /* else fall through since v4.1 treats rtfNestRow and rtfRow the same */
955 ME_DisplayItem
*para
, *cell
, *run
;
960 RTFFlushOutputBuffer(info
);
961 if (!info
->editor
->bEmulateVersion10
) { /* v4.1 */
962 if (!tableDef
->tableRowStart
)
964 if (!info
->nestingLevel
&&
965 tableDef
->tableRowStart
->member
.para
.nFlags
& MEPF_ROWEND
)
967 para
= tableDef
->tableRowStart
;
968 para
= para
->member
.para
.next_para
;
969 para
= ME_InsertTableRowStartAtParagraph(info
->editor
, para
);
970 tableDef
->tableRowStart
= para
;
971 info
->nestingLevel
++;
973 para
= tableDef
->tableRowStart
;
974 cell
= ME_FindItemFwd(para
, diCell
);
975 assert(cell
&& !cell
->member
.cell
.prev_cell
);
976 if (tableDef
->numCellsDefined
< 1)
978 /* 2000 twips appears to be the cell size that native richedit uses
979 * when no cell sizes are specified. */
980 const int defaultCellSize
= 2000;
981 int nRightBoundary
= defaultCellSize
;
982 cell
->member
.cell
.nRightBoundary
= nRightBoundary
;
983 while (cell
->member
.cell
.next_cell
) {
984 cell
= cell
->member
.cell
.next_cell
;
985 nRightBoundary
+= defaultCellSize
;
986 cell
->member
.cell
.nRightBoundary
= nRightBoundary
;
988 para
= ME_InsertTableCellFromCursor(info
->editor
);
989 cell
= para
->member
.para
.pCell
;
990 cell
->member
.cell
.nRightBoundary
= nRightBoundary
;
992 for (i
= 0; i
< tableDef
->numCellsDefined
; i
++)
994 RTFCell
*cellDef
= &tableDef
->cells
[i
];
995 cell
->member
.cell
.nRightBoundary
= cellDef
->rightBoundary
;
996 ME_ApplyBorderProperties(info
, &cell
->member
.cell
.border
,
998 cell
= cell
->member
.cell
.next_cell
;
1001 para
= ME_InsertTableCellFromCursor(info
->editor
);
1002 cell
= para
->member
.para
.pCell
;
1005 /* Cell for table row delimiter is empty */
1006 cell
->member
.cell
.nRightBoundary
= tableDef
->cells
[i
-1].rightBoundary
;
1009 run
= ME_FindItemFwd(cell
, diRun
);
1010 if (info
->editor
->pCursors
[0].pRun
!= run
||
1011 info
->editor
->pCursors
[0].nOffset
)
1014 /* Delete inserted cells that aren't defined. */
1015 info
->editor
->pCursors
[1].pRun
= run
;
1016 info
->editor
->pCursors
[1].pPara
= ME_GetParagraph(run
);
1017 info
->editor
->pCursors
[1].nOffset
= 0;
1018 nOfs
= ME_GetCursorOfs(info
->editor
, 1);
1019 nChars
= ME_GetCursorOfs(info
->editor
, 0) - nOfs
;
1020 ME_InternalDeleteText(info
->editor
, nOfs
, nChars
, TRUE
);
1023 para
= ME_InsertTableRowEndFromCursor(info
->editor
);
1024 para
->member
.para
.pFmt
->dxOffset
= abs(info
->tableDef
->gapH
);
1025 para
->member
.para
.pFmt
->dxStartIndent
= info
->tableDef
->leftEdge
;
1026 ME_ApplyBorderProperties(info
, ¶
->member
.para
.border
,
1028 info
->nestingLevel
--;
1029 if (!info
->nestingLevel
)
1031 if (info
->canInheritInTbl
) {
1032 tableDef
->tableRowStart
= para
;
1034 while (info
->tableDef
) {
1035 tableDef
= info
->tableDef
;
1036 info
->tableDef
= tableDef
->parent
;
1037 heap_free(tableDef
);
1041 info
->tableDef
= tableDef
->parent
;
1042 heap_free(tableDef
);
1044 } else { /* v1.0 - v3.0 */
1046 ME_DisplayItem
*para
= info
->editor
->pCursors
[0].pPara
;
1047 PARAFORMAT2
*pFmt
= para
->member
.para
.pFmt
;
1048 pFmt
->dxOffset
= info
->tableDef
->gapH
;
1049 pFmt
->dxStartIndent
= info
->tableDef
->leftEdge
;
1051 ME_ApplyBorderProperties(info
, ¶
->member
.para
.border
,
1053 while (tableDef
->numCellsInserted
< tableDef
->numCellsDefined
)
1056 ME_InsertTextFromCursor(info
->editor
, 0, &tab
, 1, info
->style
);
1057 tableDef
->numCellsInserted
++;
1059 pFmt
->cTabCount
= min(tableDef
->numCellsDefined
, MAX_TAB_STOPS
);
1060 if (!tableDef
->numCellsDefined
)
1061 pFmt
->wEffects
&= ~PFE_TABLE
;
1062 ME_InsertTextFromCursor(info
->editor
, 0, &endl
, 1, info
->style
);
1063 tableDef
->numCellsInserted
= 0;
1069 if (info
->editor
->bEmulateVersion10
) { /* v1.0 - 3.0 */
1070 ME_DisplayItem
*para
;
1072 RTFFlushOutputBuffer(info
);
1073 para
= info
->editor
->pCursors
[0].pPara
;
1074 pFmt
= para
->member
.para
.pFmt
;
1075 if (pFmt
->dwMask
& PFM_TABLE
&& pFmt
->wEffects
& PFE_TABLE
)
1077 /* rtfPar is treated like a space within a table. */
1078 info
->rtfClass
= rtfText
;
1079 info
->rtfMajor
= ' ';
1081 else if (info
->rtfMinor
== rtfPar
&& tableDef
)
1082 tableDef
->numCellsInserted
= 0;
1088 static BOOL
ME_RTFInsertOleObject(RTF_Info
*info
, HENHMETAFILE hemf
, HBITMAP hbmp
,
1091 LPOLEOBJECT lpObject
= NULL
;
1092 LPSTORAGE lpStorage
= NULL
;
1093 LPOLECLIENTSITE lpClientSite
= NULL
;
1094 LPDATAOBJECT lpDataObject
= NULL
;
1095 LPOLECACHE lpOleCache
= NULL
;
1104 stgm
.tymed
= TYMED_ENHMF
;
1105 stgm
.u
.hEnhMetaFile
= hemf
;
1106 fm
.cfFormat
= CF_ENHMETAFILE
;
1110 stgm
.tymed
= TYMED_GDI
;
1111 stgm
.u
.hBitmap
= hbmp
;
1112 fm
.cfFormat
= CF_BITMAP
;
1114 stgm
.pUnkForRelease
= NULL
;
1117 fm
.dwAspect
= DVASPECT_CONTENT
;
1119 fm
.tymed
= stgm
.tymed
;
1121 if (!info
->lpRichEditOle
)
1123 CreateIRichEditOle(info
->editor
, (VOID
**)&info
->lpRichEditOle
);
1126 if (OleCreateDefaultHandler(&CLSID_NULL
, NULL
, &IID_IOleObject
, (void**)&lpObject
) == S_OK
&&
1128 /* FIXME: enable it when rich-edit properly implements this method */
1129 IRichEditOle_GetClientSite(info
->lpRichEditOle
, &lpClientSite
) == S_OK
&&
1130 IOleObject_SetClientSite(lpObject
, lpClientSite
) == S_OK
&&
1132 IOleObject_GetUserClassID(lpObject
, &clsid
) == S_OK
&&
1133 IOleObject_QueryInterface(lpObject
, &IID_IOleCache
, (void**)&lpOleCache
) == S_OK
&&
1134 IOleCache_Cache(lpOleCache
, &fm
, 0, &conn
) == S_OK
&&
1135 IOleObject_QueryInterface(lpObject
, &IID_IDataObject
, (void**)&lpDataObject
) == S_OK
&&
1136 IDataObject_SetData(lpDataObject
, &fm
, &stgm
, TRUE
) == S_OK
)
1140 reobject
.cbStruct
= sizeof(reobject
);
1141 reobject
.cp
= REO_CP_SELECTION
;
1142 reobject
.clsid
= clsid
;
1143 reobject
.poleobj
= lpObject
;
1144 reobject
.pstg
= lpStorage
;
1145 reobject
.polesite
= lpClientSite
;
1146 /* convert from twips to .01 mm */
1147 reobject
.sizel
.cx
= MulDiv(sz
->cx
, 254, 144);
1148 reobject
.sizel
.cy
= MulDiv(sz
->cy
, 254, 144);
1149 reobject
.dvaspect
= DVASPECT_CONTENT
;
1150 reobject
.dwFlags
= 0; /* FIXME */
1151 reobject
.dwUser
= 0;
1153 /* FIXME: could be simpler */
1154 ret
= IRichEditOle_InsertObject(info
->lpRichEditOle
, &reobject
) == S_OK
;
1157 if (lpObject
) IOleObject_Release(lpObject
);
1158 if (lpClientSite
) IOleClientSite_Release(lpClientSite
);
1159 if (lpStorage
) IStorage_Release(lpStorage
);
1160 if (lpDataObject
) IDataObject_Release(lpDataObject
);
1161 if (lpOleCache
) IOleCache_Release(lpOleCache
);
1166 static void ME_RTFReadPictGroup(RTF_Info
*info
)
1169 BYTE
* buffer
= NULL
;
1170 unsigned bufsz
, bufidx
;
1176 enum gfxkind
{gfx_unknown
= 0, gfx_enhmetafile
, gfx_metafile
, gfx_dib
} gfx
= gfx_unknown
;
1179 if (info
->rtfClass
== rtfEOF
)
1182 /* fetch picture type */
1183 if (RTFCheckMM (info
, rtfPictAttr
, rtfWinMetafile
))
1185 mfp
.mm
= info
->rtfParam
;
1188 else if (RTFCheckMM (info
, rtfPictAttr
, rtfDevIndBitmap
))
1190 if (info
->rtfParam
!= 0) FIXME("dibitmap should be 0 (%d)\n", info
->rtfParam
);
1193 else if (RTFCheckMM (info
, rtfPictAttr
, rtfEmfBlip
))
1195 gfx
= gfx_enhmetafile
;
1199 FIXME("%d %d\n", info
->rtfMajor
, info
->rtfMinor
);
1203 /* fetch picture attributes */
1207 if (info
->rtfClass
== rtfEOF
)
1209 if (info
->rtfClass
== rtfText
)
1211 if (!RTFCheckCM (info
, rtfControl
, rtfPictAttr
))
1213 ERR("Expected picture attribute (%d %d)\n",
1214 info
->rtfClass
, info
->rtfMajor
);
1217 else if (RTFCheckMM (info
, rtfPictAttr
, rtfPicWid
))
1219 if (gfx
== gfx_metafile
) mfp
.xExt
= info
->rtfParam
;
1221 else if (RTFCheckMM (info
, rtfPictAttr
, rtfPicHt
))
1223 if (gfx
== gfx_metafile
) mfp
.yExt
= info
->rtfParam
;
1225 else if (RTFCheckMM (info
, rtfPictAttr
, rtfPicGoalWid
))
1226 sz
.cx
= info
->rtfParam
;
1227 else if (RTFCheckMM (info
, rtfPictAttr
, rtfPicGoalHt
))
1228 sz
.cy
= info
->rtfParam
;
1230 FIXME("Non supported attribute: %d %d %d\n", info
->rtfClass
, info
->rtfMajor
, info
->rtfMinor
);
1232 /* fetch picture data */
1235 buffer
= HeapAlloc(GetProcessHeap(), 0, bufsz
);
1236 val
= info
->rtfMajor
;
1237 for (flip
= TRUE
;; flip
= !flip
)
1240 if (info
->rtfClass
== rtfEOF
)
1242 HeapFree(GetProcessHeap(), 0, buffer
);
1243 return; /* Warn ?? */
1245 if (RTFCheckCM(info
, rtfGroup
, rtfEndGroup
))
1247 if (info
->rtfClass
!= rtfText
) goto skip_group
;
1250 if (bufidx
>= bufsz
&&
1251 !(buffer
= HeapReAlloc(GetProcessHeap(), 0, buffer
, bufsz
+= 1024)))
1253 buffer
[bufidx
++] = RTFCharToHex(val
) * 16 + RTFCharToHex(info
->rtfMajor
);
1256 val
= info
->rtfMajor
;
1258 if (flip
) FIXME("wrong hex string\n");
1262 case gfx_enhmetafile
:
1263 if ((hemf
= SetEnhMetaFileBits(bufidx
, buffer
)))
1264 ME_RTFInsertOleObject(info
, hemf
, NULL
, &sz
);
1267 if ((hemf
= SetWinMetaFileBits(bufidx
, buffer
, NULL
, &mfp
)))
1268 ME_RTFInsertOleObject(info
, hemf
, NULL
, &sz
);
1272 BITMAPINFO
* bi
= (BITMAPINFO
*)buffer
;
1274 unsigned nc
= bi
->bmiHeader
.biClrUsed
;
1276 /* not quite right, especially for bitfields type of compression */
1277 if (!nc
&& bi
->bmiHeader
.biBitCount
<= 8)
1278 nc
= 1 << bi
->bmiHeader
.biBitCount
;
1279 if ((hbmp
= CreateDIBitmap(hdc
, &bi
->bmiHeader
,
1280 CBM_INIT
, (char*)(bi
+ 1) + nc
* sizeof(RGBQUAD
),
1281 bi
, DIB_RGB_COLORS
)))
1282 ME_RTFInsertOleObject(info
, NULL
, hbmp
, &sz
);
1289 HeapFree(GetProcessHeap(), 0, buffer
);
1290 RTFRouteToken (info
); /* feed "}" back to router */
1293 HeapFree(GetProcessHeap(), 0, buffer
);
1295 RTFRouteToken(info
); /* feed "}" back to router */
1298 /* for now, lookup the \result part and use it, whatever the object */
1299 static void ME_RTFReadObjectGroup(RTF_Info
*info
)
1304 if (info
->rtfClass
== rtfEOF
)
1306 if (RTFCheckCM(info
, rtfGroup
, rtfEndGroup
))
1308 if (RTFCheckCM(info
, rtfGroup
, rtfBeginGroup
))
1311 if (info
->rtfClass
== rtfEOF
)
1313 if (RTFCheckCMM(info
, rtfControl
, rtfDestination
, rtfObjResult
))
1317 while (RTFGetToken (info
) != rtfEOF
)
1319 if (info
->rtfClass
== rtfGroup
)
1321 if (info
->rtfMajor
== rtfBeginGroup
) level
++;
1322 else if (info
->rtfMajor
== rtfEndGroup
&& --level
< 0) break;
1324 RTFRouteToken(info
);
1327 else RTFSkipGroup(info
);
1330 if (!RTFCheckCM (info
, rtfControl
, rtfObjAttr
))
1332 FIXME("Non supported attribute: %d %d %d\n", info
->rtfClass
, info
->rtfMajor
, info
->rtfMinor
);
1336 RTFRouteToken(info
); /* feed "}" back to router */
1339 static void ME_RTFReadHook(RTF_Info
*info
)
1341 switch(info
->rtfClass
)
1344 switch(info
->rtfMajor
)
1347 if (info
->stackTop
< maxStack
) {
1348 info
->stack
[info
->stackTop
].style
= info
->style
;
1349 ME_AddRefStyle(info
->style
);
1350 info
->stack
[info
->stackTop
].codePage
= info
->codePage
;
1351 info
->stack
[info
->stackTop
].unicodeLength
= info
->unicodeLength
;
1354 info
->styleChanged
= FALSE
;
1358 RTFFlushOutputBuffer(info
);
1360 if (info
->stackTop
<=0) {
1361 info
->rtfClass
= rtfEOF
;
1364 assert(info
->stackTop
>= 0);
1366 ME_ReleaseStyle(info
->style
);
1367 info
->style
= info
->stack
[info
->stackTop
].style
;
1368 ME_AddRefStyle(info
->style
);
1369 info
->codePage
= info
->stack
[info
->stackTop
].codePage
;
1370 info
->unicodeLength
= info
->stack
[info
->stackTop
].unicodeLength
;
1379 ME_StreamInFill(ME_InStream
*stream
)
1381 stream
->editstream
->dwError
= stream
->editstream
->pfnCallback(stream
->editstream
->dwCookie
,
1382 (BYTE
*)stream
->buffer
,
1383 sizeof(stream
->buffer
),
1384 (LONG
*)&stream
->dwSize
);
1388 static LRESULT
ME_StreamIn(ME_TextEditor
*editor
, DWORD format
, EDITSTREAM
*stream
, BOOL stripLastCR
)
1392 int from
, to
, to2
, nUndoMode
;
1393 int nEventMask
= editor
->nEventMask
;
1394 ME_InStream inStream
;
1395 BOOL invalidRTF
= FALSE
;
1397 TRACE("stream==%p editor==%p format==0x%X\n", stream
, editor
, format
);
1398 editor
->nEventMask
= 0;
1400 ME_GetSelection(editor
, &from
, &to
);
1401 if ((format
& SFF_SELECTION
) && (editor
->mode
& TM_RICHTEXT
)) {
1402 style
= ME_GetSelectionInsertStyle(editor
);
1404 ME_InternalDeleteText(editor
, from
, to
-from
, FALSE
);
1406 /* Don't insert text at the end of the table row */
1407 if (!editor
->bEmulateVersion10
) { /* v4.1 */
1408 ME_DisplayItem
*para
= editor
->pCursors
->pPara
;
1409 if (para
->member
.para
.nFlags
& MEPF_ROWEND
)
1411 para
= para
->member
.para
.next_para
;
1412 editor
->pCursors
[0].pPara
= para
;
1413 editor
->pCursors
[0].pRun
= ME_FindItemFwd(para
, diRun
);
1414 editor
->pCursors
[0].nOffset
= 0;
1416 if (para
->member
.para
.nFlags
& MEPF_ROWSTART
)
1418 para
= para
->member
.para
.next_para
;
1419 editor
->pCursors
[0].pPara
= para
;
1420 editor
->pCursors
[0].pRun
= ME_FindItemFwd(para
, diRun
);
1421 editor
->pCursors
[0].nOffset
= 0;
1423 editor
->pCursors
[1] = editor
->pCursors
[0];
1424 } else { /* v1.0 - 3.0 */
1425 if (editor
->pCursors
[0].pRun
->member
.run
.nFlags
& MERF_ENDPARA
&&
1426 ME_IsInTable(editor
->pCursors
[0].pRun
))
1431 style
= editor
->pBuffer
->pDefaultStyle
;
1432 ME_AddRefStyle(style
);
1433 ME_SetSelection(editor
, 0, 0);
1434 ME_InternalDeleteText(editor
, 0, ME_GetTextLength(editor
), FALSE
);
1436 ME_ClearTempStyle(editor
);
1437 ME_SetDefaultParaFormat(editor
->pCursors
[0].pPara
->member
.para
.pFmt
);
1441 /* Back up undo mode to a local variable */
1442 nUndoMode
= editor
->nUndoMode
;
1444 /* Only create an undo if SFF_SELECTION is set */
1445 if (!(format
& SFF_SELECTION
))
1446 editor
->nUndoMode
= umIgnore
;
1448 inStream
.editstream
= stream
;
1449 inStream
.editstream
->dwError
= 0;
1450 inStream
.dwSize
= 0;
1451 inStream
.dwUsed
= 0;
1453 if (format
& SF_RTF
)
1455 /* Check if it's really RTF, and if it is not, use plain text */
1456 ME_StreamInFill(&inStream
);
1457 if (!inStream
.editstream
->dwError
)
1459 if ((!editor
->bEmulateVersion10
&& strncmp(inStream
.buffer
, "{\\rtf", 5) && strncmp(inStream
.buffer
, "{\\urtf", 6))
1460 || (editor
->bEmulateVersion10
&& *inStream
.buffer
!= '{'))
1463 inStream
.editstream
->dwError
= -16;
1468 if (!invalidRTF
&& !inStream
.editstream
->dwError
)
1470 if (format
& SF_RTF
) {
1471 /* setup the RTF parser */
1472 memset(&parser
, 0, sizeof parser
);
1473 RTFSetEditStream(&parser
, &inStream
);
1474 parser
.rtfFormat
= format
&(SF_TEXT
|SF_RTF
);
1475 parser
.editor
= editor
;
1476 parser
.style
= style
;
1477 WriterInit(&parser
);
1479 RTFSetReadHook(&parser
, ME_RTFReadHook
);
1480 RTFSetDestinationCallback(&parser
, rtfPict
, ME_RTFReadPictGroup
);
1481 RTFSetDestinationCallback(&parser
, rtfObject
, ME_RTFReadObjectGroup
);
1482 if (!parser
.editor
->bEmulateVersion10
) /* v4.1 */
1484 RTFSetDestinationCallback(&parser
, rtfNoNestTables
, RTFSkipGroup
);
1485 RTFSetDestinationCallback(&parser
, rtfNestTableProps
, RTFReadGroup
);
1489 /* do the parsing */
1491 RTFFlushOutputBuffer(&parser
);
1492 if (!editor
->bEmulateVersion10
) { /* v4.1 */
1493 if (parser
.tableDef
&& parser
.tableDef
->tableRowStart
&&
1494 (parser
.nestingLevel
> 0 || parser
.canInheritInTbl
))
1496 /* Delete any incomplete table row at the end of the rich text. */
1498 ME_DisplayItem
*pCell
;
1499 ME_DisplayItem
*para
;
1501 parser
.rtfMinor
= rtfRow
;
1502 /* Complete the table row before deleting it.
1503 * By doing it this way we will have the current paragraph format set
1504 * properly to reflect that is not in the complete table, and undo items
1505 * will be added for this change to the current paragraph format. */
1506 if (parser
.nestingLevel
> 0)
1508 while (parser
.nestingLevel
> 1)
1509 ME_RTFSpecialCharHook(&parser
); /* Decrements nestingLevel */
1510 para
= parser
.tableDef
->tableRowStart
;
1511 ME_RTFSpecialCharHook(&parser
);
1513 para
= parser
.tableDef
->tableRowStart
;
1514 ME_RTFSpecialCharHook(&parser
);
1515 assert(para
->member
.para
.nFlags
& MEPF_ROWEND
);
1516 para
= para
->member
.para
.next_para
;
1518 pCell
= para
->member
.para
.pCell
;
1520 editor
->pCursors
[1].pPara
= para
;
1521 editor
->pCursors
[1].pRun
= ME_FindItemFwd(para
, diRun
);
1522 editor
->pCursors
[1].nOffset
= 0;
1523 nOfs
= ME_GetCursorOfs(editor
, 1);
1524 nChars
= ME_GetCursorOfs(editor
, 0) - nOfs
;
1525 ME_InternalDeleteText(editor
, nOfs
, nChars
, TRUE
);
1526 if (parser
.tableDef
)
1527 parser
.tableDef
->tableRowStart
= NULL
;
1530 ME_CheckTablesForCorruption(editor
);
1531 RTFDestroy(&parser
);
1532 if (parser
.lpRichEditOle
)
1533 IRichEditOle_Release(parser
.lpRichEditOle
);
1535 if (!inStream
.editstream
->dwError
&& parser
.stackTop
> 0)
1536 inStream
.editstream
->dwError
= HRESULT_FROM_WIN32(ERROR_HANDLE_EOF
);
1538 /* Remove last line break, as mandated by tests. This is not affected by
1539 CR/LF counters, since RTF streaming presents only \para tokens, which
1540 are converted according to the standard rules: \r for 2.0, \r\n for 1.0
1544 ME_GetSelection(editor
, &newfrom
, &newto
);
1545 if (newto
> to
+ (editor
->bEmulateVersion10
? 1 : 0)) {
1546 WCHAR lastchar
[3] = {'\0', '\0'};
1547 int linebreakSize
= editor
->bEmulateVersion10
? 2 : 1;
1549 ME_GetTextW(editor
, lastchar
, newto
- linebreakSize
, linebreakSize
, 0);
1550 if (lastchar
[0] == '\r' && (lastchar
[1] == '\n' || lastchar
[1] == '\0')) {
1551 ME_InternalDeleteText(editor
, newto
- linebreakSize
, linebreakSize
, FALSE
);
1556 style
= parser
.style
;
1558 else if (format
& SF_TEXT
)
1559 ME_StreamInText(editor
, format
, &inStream
, style
);
1561 ERR("EM_STREAMIN without SF_TEXT or SF_RTF\n");
1562 ME_GetSelection(editor
, &to
, &to2
);
1563 /* put the cursor at the top */
1564 if (!(format
& SFF_SELECTION
))
1565 ME_SetSelection(editor
, 0, 0);
1568 /* Restore saved undo mode */
1569 editor
->nUndoMode
= nUndoMode
;
1571 /* even if we didn't add an undo, we need to commit anything on the stack */
1572 ME_CommitUndo(editor
);
1574 /* If SFF_SELECTION isn't set, delete any undos from before we started too */
1575 if (!(format
& SFF_SELECTION
))
1576 ME_EmptyUndoStack(editor
);
1578 ME_ReleaseStyle(style
);
1579 editor
->nEventMask
= nEventMask
;
1580 ME_UpdateRepaint(editor
);
1581 if (!(format
& SFF_SELECTION
)) {
1582 ME_ClearTempStyle(editor
);
1584 ITextHost_TxShowCaret(editor
->texthost
, FALSE
);
1585 ME_MoveCaret(editor
);
1586 ITextHost_TxShowCaret(editor
->texthost
, TRUE
);
1587 ME_SendSelChange(editor
);
1588 ME_SendRequestResize(editor
, FALSE
);
1594 typedef struct tagME_RTFStringStreamStruct
1599 } ME_RTFStringStreamStruct
;
1601 static DWORD CALLBACK
ME_ReadFromRTFString(DWORD_PTR dwCookie
, LPBYTE lpBuff
, LONG cb
, LONG
*pcb
)
1603 ME_RTFStringStreamStruct
*pStruct
= (ME_RTFStringStreamStruct
*)dwCookie
;
1606 count
= min(cb
, pStruct
->length
- pStruct
->pos
);
1607 memmove(lpBuff
, pStruct
->string
+ pStruct
->pos
, count
);
1608 pStruct
->pos
+= count
;
1614 ME_StreamInRTFString(ME_TextEditor
*editor
, BOOL selection
, char *string
)
1617 ME_RTFStringStreamStruct data
;
1619 data
.string
= string
;
1620 data
.length
= strlen(string
);
1622 es
.dwCookie
= (DWORD_PTR
)&data
;
1623 es
.pfnCallback
= ME_ReadFromRTFString
;
1624 ME_StreamIn(editor
, SF_RTF
| (selection
? SFF_SELECTION
: 0), &es
, FALSE
);
1629 ME_FindText(ME_TextEditor
*editor
, DWORD flags
, const CHARRANGE
*chrg
, const WCHAR
*text
, CHARRANGE
*chrgText
)
1631 const int nLen
= lstrlenW(text
);
1632 const int nTextLen
= ME_GetTextLength(editor
);
1635 ME_DisplayItem
*item
;
1636 ME_DisplayItem
*para
;
1637 WCHAR wLastChar
= ' ';
1639 TRACE("flags==0x%08x, chrg->cpMin==%d, chrg->cpMax==%d text==%s\n",
1640 flags
, chrg
->cpMin
, chrg
->cpMax
, debugstr_w(text
));
1642 if (flags
& ~(FR_DOWN
| FR_MATCHCASE
| FR_WHOLEWORD
))
1643 FIXME("Flags 0x%08x not implemented\n",
1644 flags
& ~(FR_DOWN
| FR_MATCHCASE
| FR_WHOLEWORD
));
1647 if (chrg
->cpMax
== -1)
1650 nMax
= chrg
->cpMax
> nTextLen
? nTextLen
: chrg
->cpMax
;
1652 /* In 1.0 emulation, if cpMax reaches end of text, add the FR_DOWN flag */
1653 if (editor
->bEmulateVersion10
&& nMax
== nTextLen
)
1658 /* In 1.0 emulation, cpMin must always be no greater than cpMax */
1659 if (editor
->bEmulateVersion10
&& nMax
< nMin
)
1663 chrgText
->cpMin
= -1;
1664 chrgText
->cpMax
= -1;
1669 /* when searching up, if cpMin < cpMax, then instead of searching
1670 * on [cpMin,cpMax], we search on [0,cpMin], otherwise, search on
1671 * [cpMax, cpMin]. The exception is when cpMax is -1, in which
1672 * case, it is always bigger than cpMin.
1674 if (!editor
->bEmulateVersion10
&& !(flags
& FR_DOWN
))
1678 nMax
= nMin
> nTextLen
? nTextLen
: nMin
;
1679 if (nMin
< nSwap
|| chrg
->cpMax
== -1)
1685 if (!nLen
|| nMin
< 0 || nMax
< 0 || nMax
< nMin
)
1688 chrgText
->cpMin
= chrgText
->cpMax
= -1;
1692 if (flags
& FR_DOWN
) /* Forward search */
1694 /* If possible, find the character before where the search starts */
1695 if ((flags
& FR_WHOLEWORD
) && nMin
)
1697 ME_RunOfsFromCharOfs(editor
, nMin
- 1, NULL
, &item
, &nStart
);
1698 wLastChar
= item
->member
.run
.strText
->szData
[nStart
];
1701 ME_RunOfsFromCharOfs(editor
, nMin
, ¶
, &item
, &nStart
);
1704 && para
->member
.para
.nCharOfs
+ item
->member
.run
.nCharOfs
+ nStart
+ nLen
<= nMax
)
1706 ME_DisplayItem
*pCurItem
= item
;
1707 int nCurStart
= nStart
;
1710 while (pCurItem
&& ME_CharCompare(pCurItem
->member
.run
.strText
->szData
[nCurStart
+ nMatched
], text
[nMatched
], (flags
& FR_MATCHCASE
)))
1712 if ((flags
& FR_WHOLEWORD
) && isalnumW(wLastChar
))
1716 if (nMatched
== nLen
)
1718 ME_DisplayItem
*pNextItem
= pCurItem
;
1719 int nNextStart
= nCurStart
;
1722 /* Check to see if next character is a whitespace */
1723 if (flags
& FR_WHOLEWORD
)
1725 if (nCurStart
+ nMatched
== pCurItem
->member
.run
.strText
->nLen
)
1727 pNextItem
= ME_FindItemFwd(pCurItem
, diRun
);
1728 nNextStart
= -nMatched
;
1732 wNextChar
= pNextItem
->member
.run
.strText
->szData
[nNextStart
+ nMatched
];
1736 if (isalnumW(wNextChar
))
1740 nStart
+= para
->member
.para
.nCharOfs
+ item
->member
.run
.nCharOfs
;
1743 chrgText
->cpMin
= nStart
;
1744 chrgText
->cpMax
= nStart
+ nLen
;
1746 TRACE("found at %d-%d\n", nStart
, nStart
+ nLen
);
1749 if (nCurStart
+ nMatched
== pCurItem
->member
.run
.strText
->nLen
)
1751 pCurItem
= ME_FindItemFwd(pCurItem
, diRun
);
1752 nCurStart
= -nMatched
;
1756 wLastChar
= pCurItem
->member
.run
.strText
->szData
[nCurStart
+ nMatched
];
1761 if (nStart
== item
->member
.run
.strText
->nLen
)
1763 item
= ME_FindItemFwd(item
, diRun
);
1764 para
= ME_GetParagraph(item
);
1769 else /* Backward search */
1771 /* If possible, find the character after where the search ends */
1772 if ((flags
& FR_WHOLEWORD
) && nMax
< nTextLen
- 1)
1774 ME_RunOfsFromCharOfs(editor
, nMax
+ 1, NULL
, &item
, &nEnd
);
1775 wLastChar
= item
->member
.run
.strText
->szData
[nEnd
];
1778 ME_RunOfsFromCharOfs(editor
, nMax
, ¶
, &item
, &nEnd
);
1781 && para
->member
.para
.nCharOfs
+ item
->member
.run
.nCharOfs
+ nEnd
- nLen
>= nMin
)
1783 ME_DisplayItem
*pCurItem
= item
;
1789 pCurItem
= ME_FindItemBack(pCurItem
, diRun
);
1790 nCurEnd
= pCurItem
->member
.run
.strText
->nLen
+ nMatched
;
1793 while (pCurItem
&& ME_CharCompare(pCurItem
->member
.run
.strText
->szData
[nCurEnd
- nMatched
- 1], text
[nLen
- nMatched
- 1], (flags
& FR_MATCHCASE
)))
1795 if ((flags
& FR_WHOLEWORD
) && isalnumW(wLastChar
))
1799 if (nMatched
== nLen
)
1801 ME_DisplayItem
*pPrevItem
= pCurItem
;
1802 int nPrevEnd
= nCurEnd
;
1805 /* Check to see if previous character is a whitespace */
1806 if (flags
& FR_WHOLEWORD
)
1808 if (nPrevEnd
- nMatched
== 0)
1810 pPrevItem
= ME_FindItemBack(pCurItem
, diRun
);
1812 nPrevEnd
= pPrevItem
->member
.run
.strText
->nLen
+ nMatched
;
1816 wPrevChar
= pPrevItem
->member
.run
.strText
->szData
[nPrevEnd
- nMatched
- 1];
1820 if (isalnumW(wPrevChar
))
1824 nStart
= ME_GetParagraph(pCurItem
)->member
.para
.nCharOfs
1825 + pCurItem
->member
.run
.nCharOfs
+ nCurEnd
- nMatched
;
1828 chrgText
->cpMin
= nStart
;
1829 chrgText
->cpMax
= nStart
+ nLen
;
1831 TRACE("found at %d-%d\n", nStart
, nStart
+ nLen
);
1834 if (nCurEnd
- nMatched
== 0)
1836 pCurItem
= ME_FindItemBack(pCurItem
, diRun
);
1837 /* Don't care about pCurItem becoming NULL here; it's already taken
1838 * care of in the exterior loop condition */
1839 nCurEnd
= pCurItem
->member
.run
.strText
->nLen
+ nMatched
;
1843 wLastChar
= pCurItem
->member
.run
.strText
->szData
[nCurEnd
- nMatched
- 1];
1850 item
= ME_FindItemBack(item
, diRun
);
1851 para
= ME_GetParagraph(item
);
1852 nEnd
= item
->member
.run
.strText
->nLen
;
1856 TRACE("not found\n");
1858 chrgText
->cpMin
= chrgText
->cpMax
= -1;
1862 static int ME_GetTextEx(ME_TextEditor
*editor
, GETTEXTEX
*ex
, LPARAM pText
)
1864 int nStart
, nCount
; /* in chars */
1866 if (ex
->flags
& ~(GT_SELECTION
| GT_USECRLF
))
1867 FIXME("GETTEXTEX flags 0x%08x not supported\n", ex
->flags
& ~(GT_SELECTION
| GT_USECRLF
));
1869 if (ex
->flags
& GT_SELECTION
)
1871 ME_GetSelection(editor
, &nStart
, &nCount
);
1877 nCount
= 0x7fffffff;
1879 if (ex
->codepage
== 1200)
1881 nCount
= min(nCount
, ex
->cb
/ sizeof(WCHAR
) - 1);
1882 return ME_GetTextW(editor
, (LPWSTR
)pText
, nStart
, nCount
, ex
->flags
& GT_USECRLF
);
1886 /* potentially each char may be a CR, why calculate the exact value with O(N) when
1887 we can just take a bigger buffer? :)
1888 The above assumption still holds with CR/LF counters, since CR->CRLF expansion
1889 occurs only in richedit 2.0 mode, in which line breaks have only one CR
1891 int crlfmul
= (ex
->flags
& GT_USECRLF
) ? 2 : 1;
1893 DWORD buflen
= ex
->cb
;
1897 nCount
= min(nCount
, ex
->cb
- 1);
1898 buffer
= heap_alloc((crlfmul
*nCount
+ 1) * sizeof(WCHAR
));
1900 buflen
= ME_GetTextW(editor
, buffer
, nStart
, nCount
, ex
->flags
& GT_USECRLF
);
1901 rc
= WideCharToMultiByte(ex
->codepage
, flags
, buffer
, buflen
+1,
1902 (LPSTR
)pText
, ex
->cb
, ex
->lpDefaultChar
, ex
->lpUsedDefChar
);
1903 if (rc
) rc
--; /* do not count 0 terminator */
1910 static int ME_GetTextRange(ME_TextEditor
*editor
, WCHAR
*strText
,
1911 int start
, int nLen
, BOOL unicode
)
1914 return ME_GetTextW(editor
, strText
, start
, nLen
, 0);
1916 WCHAR
*p
= ALLOC_N_OBJ(WCHAR
, nLen
+1);
1917 int nChars
= ME_GetTextW(editor
, p
, start
, nLen
, 0);
1918 WideCharToMultiByte(CP_ACP
, 0, p
, nChars
+1, (char *)strText
,
1919 nLen
+1, NULL
, NULL
);
1925 typedef struct tagME_GlobalDestStruct
1929 } ME_GlobalDestStruct
;
1931 static DWORD CALLBACK
ME_ReadFromHGLOBALUnicode(DWORD_PTR dwCookie
, LPBYTE lpBuff
, LONG cb
, LONG
*pcb
)
1933 ME_GlobalDestStruct
*pData
= (ME_GlobalDestStruct
*)dwCookie
;
1938 pDest
= (WORD
*)lpBuff
;
1939 pSrc
= GlobalLock(pData
->hData
);
1940 for (i
= 0; i
<cb
&& pSrc
[pData
->nLength
+i
]; i
++) {
1941 pDest
[i
] = pSrc
[pData
->nLength
+i
];
1943 pData
->nLength
+= i
;
1945 GlobalUnlock(pData
->hData
);
1949 static DWORD CALLBACK
ME_ReadFromHGLOBALRTF(DWORD_PTR dwCookie
, LPBYTE lpBuff
, LONG cb
, LONG
*pcb
)
1951 ME_GlobalDestStruct
*pData
= (ME_GlobalDestStruct
*)dwCookie
;
1956 pSrc
= GlobalLock(pData
->hData
);
1957 for (i
= 0; i
<cb
&& pSrc
[pData
->nLength
+i
]; i
++) {
1958 pDest
[i
] = pSrc
[pData
->nLength
+i
];
1960 pData
->nLength
+= i
;
1962 GlobalUnlock(pData
->hData
);
1966 static BOOL
ME_Paste(ME_TextEditor
*editor
)
1970 ME_GlobalDestStruct gds
;
1971 UINT nRTFFormat
= RegisterClipboardFormatA("Rich Text Format");
1974 if (IsClipboardFormatAvailable(nRTFFormat
))
1975 cf
= nRTFFormat
, dwFormat
= SF_RTF
;
1976 else if (IsClipboardFormatAvailable(CF_UNICODETEXT
))
1977 cf
= CF_UNICODETEXT
, dwFormat
= SF_TEXT
|SF_UNICODE
;
1981 if (!OpenClipboard(editor
->hWnd
))
1983 gds
.hData
= GetClipboardData(cf
);
1985 es
.dwCookie
= (DWORD_PTR
)&gds
;
1986 es
.pfnCallback
= dwFormat
== SF_RTF
? ME_ReadFromHGLOBALRTF
: ME_ReadFromHGLOBALUnicode
;
1987 ME_StreamIn(editor
, dwFormat
|SFF_SELECTION
, &es
, FALSE
);
1993 static BOOL
ME_Copy(ME_TextEditor
*editor
, CHARRANGE
*range
)
1995 LPDATAOBJECT dataObj
= NULL
;
1998 if (editor
->cPasswordMask
)
1999 return FALSE
; /* Copying or Cutting masked text isn't allowed */
2001 if(editor
->lpOleCallback
)
2002 hr
= IRichEditOleCallback_GetClipboardData(editor
->lpOleCallback
, range
, RECO_COPY
, &dataObj
);
2003 if(FAILED(hr
) || !dataObj
)
2004 hr
= ME_GetDataObject(editor
, range
, &dataObj
);
2006 hr
= OleSetClipboard(dataObj
);
2007 IDataObject_Release(dataObj
);
2009 return SUCCEEDED(hr
) != 0;
2012 /* helper to send a msg filter notification */
2014 ME_FilterEvent(ME_TextEditor
*editor
, UINT msg
, WPARAM
* wParam
, LPARAM
* lParam
)
2018 if (!editor
->hWnd
) return FALSE
;
2019 msgf
.nmhdr
.hwndFrom
= editor
->hWnd
;
2020 msgf
.nmhdr
.idFrom
= GetWindowLongW(editor
->hWnd
, GWLP_ID
);
2021 msgf
.nmhdr
.code
= EN_MSGFILTER
;
2023 msgf
.wParam
= *wParam
;
2024 msgf
.lParam
= *lParam
;
2025 if (SendMessageW(GetParent(editor
->hWnd
), WM_NOTIFY
, msgf
.nmhdr
.idFrom
, (LPARAM
)&msgf
))
2027 *wParam
= msgf
.wParam
;
2028 *lParam
= msgf
.lParam
;
2029 msgf
.wParam
= *wParam
;
2034 static void ME_UpdateSelectionLinkAttribute(ME_TextEditor
*editor
)
2036 ME_DisplayItem
*startPara
, *endPara
;
2037 ME_DisplayItem
*prev_para
;
2040 if (!editor
->AutoURLDetect_bEnable
) return;
2042 ME_GetSelection(editor
, &from
, &to
);
2044 /* Find paragraph previous to the one that contains start cursor */
2045 ME_RunOfsFromCharOfs(editor
, from
, &startPara
, NULL
, NULL
);
2046 prev_para
= startPara
->member
.para
.prev_para
;
2047 if (prev_para
->type
== diParagraph
) startPara
= prev_para
;
2049 /* Find paragraph that contains end cursor */
2050 ME_RunOfsFromCharOfs(editor
, to
, &endPara
, NULL
, NULL
);
2051 endPara
= endPara
->member
.para
.next_para
;
2053 ME_UpdateLinkAttribute(editor
,
2054 startPara
->member
.para
.nCharOfs
,
2055 endPara
->member
.para
.nCharOfs
);
2059 ME_KeyDown(ME_TextEditor
*editor
, WORD nKey
)
2061 BOOL ctrl_is_down
= GetKeyState(VK_CONTROL
) & 0x8000;
2062 BOOL shift_is_down
= GetKeyState(VK_SHIFT
) & 0x8000;
2064 if (editor
->bMouseCaptured
)
2066 if (nKey
!= VK_SHIFT
&& nKey
!= VK_CONTROL
&& nKey
!= VK_MENU
)
2067 editor
->nSelectionType
= stPosition
;
2075 editor
->nUDArrowX
= -1;
2081 ME_CommitUndo(editor
); /* End coalesced undos for typed characters */
2082 ME_ArrowKey(editor
, nKey
, shift_is_down
, ctrl_is_down
);
2086 editor
->nUDArrowX
= -1;
2087 /* FIXME backspace and delete aren't the same, they act different wrt paragraph style of the merged paragraph */
2088 if (editor
->styleFlags
& ES_READONLY
)
2090 if (ME_IsSelection(editor
))
2092 ME_DeleteSelection(editor
);
2093 ME_CommitUndo(editor
);
2095 else if (nKey
== VK_DELETE
)
2097 /* Delete stops group typing.
2098 * (See MSDN remarks on EM_STOPGROUPTYPING message) */
2099 ME_DeleteTextAtCursor(editor
, 1, 1);
2100 ME_CommitUndo(editor
);
2102 else if (ME_ArrowKey(editor
, VK_LEFT
, FALSE
, FALSE
))
2104 BOOL bDeletionSucceeded
;
2105 /* Backspace can be grouped for a single undo */
2106 ME_ContinueCoalescingTransaction(editor
);
2107 bDeletionSucceeded
= ME_DeleteTextAtCursor(editor
, 1, 1);
2108 if (!bDeletionSucceeded
&& !editor
->bEmulateVersion10
) { /* v4.1 */
2109 /* Deletion was prevented so the cursor is moved back to where it was.
2110 * (e.g. this happens when trying to delete cell boundaries)
2112 ME_ArrowKey(editor
, VK_RIGHT
, FALSE
, FALSE
);
2114 ME_CommitCoalescingUndo(editor
);
2118 ME_MoveCursorFromTableRowStartParagraph(editor
);
2119 ME_UpdateSelectionLinkAttribute(editor
);
2120 ME_UpdateRepaint(editor
);
2121 ME_SendRequestResize(editor
, FALSE
);
2124 if (editor
->styleFlags
& ES_MULTILINE
)
2126 ME_Cursor cursor
= editor
->pCursors
[0];
2127 ME_DisplayItem
*para
= cursor
.pPara
;
2129 const WCHAR endl
= '\r';
2132 if (editor
->styleFlags
& ES_READONLY
) {
2133 MessageBeep(MB_ICONERROR
);
2137 ME_GetSelection(editor
, &from
, &to
);
2138 if (editor
->nTextLimit
> ME_GetTextLength(editor
) - (to
-from
))
2140 if (!editor
->bEmulateVersion10
) { /* v4.1 */
2141 if (para
->member
.para
.nFlags
& MEPF_ROWEND
) {
2142 /* Add a new table row after this row. */
2143 para
= ME_AppendTableRow(editor
, para
);
2144 para
= para
->member
.para
.next_para
;
2145 editor
->pCursors
[0].pPara
= para
;
2146 editor
->pCursors
[0].pRun
= ME_FindItemFwd(para
, diRun
);
2147 editor
->pCursors
[0].nOffset
= 0;
2148 editor
->pCursors
[1] = editor
->pCursors
[0];
2149 ME_CommitUndo(editor
);
2150 ME_CheckTablesForCorruption(editor
);
2151 ME_UpdateRepaint(editor
);
2154 else if (para
== editor
->pCursors
[1].pPara
&&
2155 cursor
.nOffset
+ cursor
.pRun
->member
.run
.nCharOfs
== 0 &&
2156 para
->member
.para
.prev_para
->member
.para
.nFlags
& MEPF_ROWSTART
&&
2157 !para
->member
.para
.prev_para
->member
.para
.nCharOfs
)
2159 /* Insert a newline before the table. */
2160 para
= para
->member
.para
.prev_para
;
2161 para
->member
.para
.nFlags
&= ~MEPF_ROWSTART
;
2162 editor
->pCursors
[0].pPara
= para
;
2163 editor
->pCursors
[0].pRun
= ME_FindItemFwd(para
, diRun
);
2164 editor
->pCursors
[1] = editor
->pCursors
[0];
2165 ME_InsertTextFromCursor(editor
, 0, &endl
, 1,
2166 editor
->pCursors
[0].pRun
->member
.run
.style
);
2167 para
= editor
->pBuffer
->pFirst
->member
.para
.next_para
;
2168 ME_SetDefaultParaFormat(para
->member
.para
.pFmt
);
2169 para
->member
.para
.nFlags
= MEPF_REWRAP
;
2170 editor
->pCursors
[0].pPara
= para
;
2171 editor
->pCursors
[0].pRun
= ME_FindItemFwd(para
, diRun
);
2172 editor
->pCursors
[1] = editor
->pCursors
[0];
2173 para
->member
.para
.next_para
->member
.para
.nFlags
|= MEPF_ROWSTART
;
2174 ME_CommitCoalescingUndo(editor
);
2175 ME_CheckTablesForCorruption(editor
);
2176 ME_UpdateRepaint(editor
);
2179 } else { /* v1.0 - 3.0 */
2180 ME_DisplayItem
*para
= cursor
.pPara
;
2181 if (ME_IsInTable(para
))
2183 if (cursor
.pRun
->member
.run
.nFlags
& MERF_ENDPARA
)
2186 ME_ContinueCoalescingTransaction(editor
);
2187 para
= ME_AppendTableRow(editor
, para
);
2188 editor
->pCursors
[0].pPara
= para
;
2189 editor
->pCursors
[0].pRun
= ME_FindItemFwd(para
, diRun
);
2190 editor
->pCursors
[0].nOffset
= 0;
2191 editor
->pCursors
[1] = editor
->pCursors
[0];
2192 ME_CommitCoalescingUndo(editor
);
2193 ME_UpdateRepaint(editor
);
2197 ME_ContinueCoalescingTransaction(editor
);
2198 if (cursor
.pRun
->member
.run
.nCharOfs
+ cursor
.nOffset
== 0 &&
2199 !ME_IsInTable(para
->member
.para
.prev_para
))
2201 /* Insert newline before table */
2202 cursor
.pRun
= ME_FindItemBack(para
, diRun
);
2204 editor
->pCursors
[0].pRun
= cursor
.pRun
;
2205 editor
->pCursors
[0].pPara
= para
->member
.para
.prev_para
;
2207 editor
->pCursors
[0].nOffset
= 0;
2208 editor
->pCursors
[1] = editor
->pCursors
[0];
2209 ME_InsertTextFromCursor(editor
, 0, &endl
, 1,
2210 editor
->pCursors
[0].pRun
->member
.run
.style
);
2212 editor
->pCursors
[1] = editor
->pCursors
[0];
2213 para
= ME_AppendTableRow(editor
, para
);
2214 editor
->pCursors
[0].pPara
= para
;
2215 editor
->pCursors
[0].pRun
= ME_FindItemFwd(para
, diRun
);
2216 editor
->pCursors
[0].nOffset
= 0;
2217 editor
->pCursors
[1] = editor
->pCursors
[0];
2219 ME_CommitCoalescingUndo(editor
);
2220 ME_UpdateRepaint(editor
);
2226 style
= ME_GetInsertStyle(editor
, 0);
2227 ME_SaveTempStyle(editor
);
2228 ME_ContinueCoalescingTransaction(editor
);
2230 ME_InsertEndRowFromCursor(editor
, 0);
2232 ME_InsertTextFromCursor(editor
, 0, &endl
, 1, style
);
2233 ME_ReleaseStyle(style
);
2234 ME_CommitCoalescingUndo(editor
);
2237 ME_UpdateSelectionLinkAttribute(editor
);
2238 ME_UpdateRepaint(editor
);
2246 ME_SetSelection(editor
, 0, -1);
2252 return ME_Paste(editor
);
2261 ME_GetSelection(editor
, &range
.cpMin
, &range
.cpMax
);
2262 result
= ME_Copy(editor
, &range
);
2263 if (result
&& nKey
== 'X')
2265 ME_InternalDeleteText(editor
, range
.cpMin
, range
.cpMax
-range
.cpMin
, FALSE
);
2266 ME_CommitUndo(editor
);
2267 ME_UpdateRepaint(editor
);
2288 if (nKey
!= VK_SHIFT
&& nKey
!= VK_CONTROL
&& nKey
&& nKey
!= VK_MENU
)
2289 editor
->nUDArrowX
= -1;
2296 chf
.cbSize
= sizeof(chf
);
2298 ME_GetSelectionCharFormat(editor
, &chf
);
2299 ME_DumpStyleToBuf(&chf
, buf
);
2300 MessageBoxA(NULL
, buf
, "Style dump", MB_OK
);
2304 ME_CheckCharOffsets(editor
);
2311 static LRESULT
ME_Char(ME_TextEditor
*editor
, WPARAM charCode
,
2312 LPARAM flags
, BOOL unicode
)
2316 if (editor
->bMouseCaptured
)
2320 wstr
= (WCHAR
)charCode
;
2323 CHAR charA
= charCode
;
2324 MultiByteToWideChar(CP_ACP
, 0, &charA
, 1, &wstr
, 1);
2327 if (editor
->styleFlags
& ES_READONLY
) {
2328 MessageBeep(MB_ICONERROR
);
2329 return 0; /* FIXME really 0 ? */
2332 if ((unsigned)wstr
>= ' ' || wstr
== '\t')
2334 ME_Cursor cursor
= editor
->pCursors
[0];
2335 ME_DisplayItem
*para
= cursor
.pPara
;
2337 BOOL ctrl_is_down
= GetKeyState(VK_CONTROL
) & 0x8000;
2338 ME_GetSelection(editor
, &from
, &to
);
2340 /* v4.1 allows tabs to be inserted with ctrl key down */
2341 !(ctrl_is_down
&& !editor
->bEmulateVersion10
))
2343 ME_DisplayItem
*para
;
2344 BOOL bSelectedRow
= FALSE
;
2346 para
= cursor
.pPara
;
2347 if (ME_IsSelection(editor
) &&
2348 cursor
.pRun
->member
.run
.nCharOfs
+ cursor
.nOffset
== 0 &&
2349 to
== ME_GetCursorOfs(editor
, 0) &&
2350 para
->member
.para
.prev_para
->type
== diParagraph
)
2352 para
= para
->member
.para
.prev_para
;
2353 bSelectedRow
= TRUE
;
2355 if (ME_IsInTable(para
))
2357 ME_TabPressedInTable(editor
, bSelectedRow
);
2358 ME_CommitUndo(editor
);
2361 } else if (!editor
->bEmulateVersion10
) { /* v4.1 */
2362 if (para
->member
.para
.nFlags
& MEPF_ROWEND
) {
2364 para
= para
->member
.para
.next_para
;
2365 if (para
->member
.para
.nFlags
& MEPF_ROWSTART
)
2366 para
= para
->member
.para
.next_para
;
2367 editor
->pCursors
[0].pPara
= para
;
2368 editor
->pCursors
[0].pRun
= ME_FindItemFwd(para
, diRun
);
2369 editor
->pCursors
[0].nOffset
= 0;
2370 editor
->pCursors
[1] = editor
->pCursors
[0];
2373 } else { /* v1.0 - 3.0 */
2374 if (ME_IsInTable(cursor
.pRun
) &&
2375 cursor
.pRun
->member
.run
.nFlags
& MERF_ENDPARA
&&
2378 /* Text should not be inserted at the end of the table. */
2383 /* FIXME maybe it would make sense to call EM_REPLACESEL instead ? */
2384 /* WM_CHAR is restricted to nTextLimit */
2385 if(editor
->nTextLimit
> ME_GetTextLength(editor
) - (to
-from
))
2387 ME_Style
*style
= ME_GetInsertStyle(editor
, 0);
2388 ME_SaveTempStyle(editor
);
2389 ME_ContinueCoalescingTransaction(editor
);
2390 ME_InsertTextFromCursor(editor
, 0, &wstr
, 1, style
);
2391 ME_ReleaseStyle(style
);
2392 ME_CommitCoalescingUndo(editor
);
2393 ITextHost_TxSetCursor(editor
->texthost
, NULL
, FALSE
);
2396 ME_UpdateSelectionLinkAttribute(editor
);
2397 ME_UpdateRepaint(editor
);
2402 /* Process the message and calculate the new click count.
2404 * returns: The click count if it is mouse down event, else returns 0. */
2405 static int ME_CalculateClickCount(ME_TextEditor
*editor
, UINT msg
, WPARAM wParam
,
2408 static int clickNum
= 0;
2409 if (msg
< WM_MOUSEFIRST
|| msg
> WM_MOUSELAST
)
2412 if ((msg
== WM_LBUTTONDBLCLK
) ||
2413 (msg
== WM_RBUTTONDBLCLK
) ||
2414 (msg
== WM_MBUTTONDBLCLK
) ||
2415 (msg
== WM_XBUTTONDBLCLK
))
2417 msg
-= (WM_LBUTTONDBLCLK
- WM_LBUTTONDOWN
);
2420 if ((msg
== WM_LBUTTONDOWN
) ||
2421 (msg
== WM_RBUTTONDOWN
) ||
2422 (msg
== WM_MBUTTONDOWN
) ||
2423 (msg
== WM_XBUTTONDOWN
))
2425 static MSG prevClickMsg
;
2427 /* Compare the editor instead of the hwnd so that the this
2428 * can still be done for windowless richedit controls. */
2429 clickMsg
.hwnd
= (HWND
)editor
;
2430 clickMsg
.message
= msg
;
2431 clickMsg
.wParam
= wParam
;
2432 clickMsg
.lParam
= lParam
;
2433 clickMsg
.time
= GetMessageTime();
2434 clickMsg
.pt
.x
= (short)LOWORD(lParam
);
2435 clickMsg
.pt
.y
= (short)HIWORD(lParam
);
2436 if ((clickNum
!= 0) &&
2437 (clickMsg
.message
== prevClickMsg
.message
) &&
2438 (clickMsg
.hwnd
== prevClickMsg
.hwnd
) &&
2439 (clickMsg
.wParam
== prevClickMsg
.wParam
) &&
2440 (clickMsg
.time
- prevClickMsg
.time
< GetDoubleClickTime()) &&
2441 (abs(clickMsg
.pt
.x
- prevClickMsg
.pt
.x
) < GetSystemMetrics(SM_CXDOUBLECLK
)/2) &&
2442 (abs(clickMsg
.pt
.y
- prevClickMsg
.pt
.y
) < GetSystemMetrics(SM_CYDOUBLECLK
)/2))
2448 prevClickMsg
= clickMsg
;
2455 static BOOL
ME_SetCursor(ME_TextEditor
*editor
)
2461 DWORD messagePos
= GetMessagePos();
2462 pt
.x
= (short)LOWORD(messagePos
);
2463 pt
.y
= (short)HIWORD(messagePos
);
2467 sbi
.cbSize
= sizeof(sbi
);
2468 GetScrollBarInfo(editor
->hWnd
, OBJID_HSCROLL
, &sbi
);
2469 if (!(sbi
.rgstate
[0] & (STATE_SYSTEM_INVISIBLE
|STATE_SYSTEM_OFFSCREEN
)) &&
2470 PtInRect(&sbi
.rcScrollBar
, pt
))
2472 ITextHost_TxSetCursor(editor
->texthost
,
2473 LoadCursorW(NULL
, (WCHAR
*)IDC_ARROW
), FALSE
);
2476 sbi
.cbSize
= sizeof(sbi
);
2477 GetScrollBarInfo(editor
->hWnd
, OBJID_VSCROLL
, &sbi
);
2478 if (!(sbi
.rgstate
[0] & (STATE_SYSTEM_INVISIBLE
|STATE_SYSTEM_OFFSCREEN
)) &&
2479 PtInRect(&sbi
.rcScrollBar
, pt
))
2481 ITextHost_TxSetCursor(editor
->texthost
,
2482 LoadCursorW(NULL
, (WCHAR
*)IDC_ARROW
), FALSE
);
2486 ITextHost_TxScreenToClient(editor
->texthost
, &pt
);
2488 if (editor
->nSelectionType
== stLine
&& editor
->bMouseCaptured
) {
2489 ITextHost_TxSetCursor(editor
->texthost
, hLeft
, FALSE
);
2492 if (!editor
->bEmulateVersion10
/* v4.1 */ &&
2493 pt
.y
< editor
->rcFormat
.top
&&
2494 pt
.x
< editor
->rcFormat
.left
)
2496 ITextHost_TxSetCursor(editor
->texthost
, hLeft
, FALSE
);
2499 if (pt
.y
< editor
->rcFormat
.top
|| pt
.y
> editor
->rcFormat
.bottom
)
2501 if (editor
->bEmulateVersion10
) /* v1.0 - 3.0 */
2502 ITextHost_TxSetCursor(editor
->texthost
,
2503 LoadCursorW(NULL
, (WCHAR
*)IDC_ARROW
), FALSE
);
2505 ITextHost_TxSetCursor(editor
->texthost
,
2506 LoadCursorW(NULL
, (WCHAR
*)IDC_IBEAM
), TRUE
);
2509 if (pt
.x
< editor
->rcFormat
.left
)
2511 ITextHost_TxSetCursor(editor
->texthost
, hLeft
, FALSE
);
2514 offset
= ME_CharFromPos(editor
, pt
.x
, pt
.y
, &isExact
);
2520 ME_CursorFromCharOfs(editor
, offset
, &cursor
);
2521 run
= &cursor
.pRun
->member
.run
;
2522 if (run
->style
->fmt
.dwMask
& CFM_LINK
&&
2523 run
->style
->fmt
.dwEffects
& CFE_LINK
)
2525 ITextHost_TxSetCursor(editor
->texthost
,
2526 LoadCursorW(NULL
, (WCHAR
*)IDC_HAND
),
2531 if (ME_IsSelection(editor
))
2533 int selStart
, selEnd
;
2534 ME_GetSelection(editor
, &selStart
, &selEnd
);
2535 if (selStart
<= offset
&& selEnd
>= offset
) {
2536 ITextHost_TxSetCursor(editor
->texthost
,
2537 LoadCursorW(NULL
, (WCHAR
*)IDC_ARROW
),
2543 ITextHost_TxSetCursor(editor
->texthost
,
2544 LoadCursorW(NULL
, (WCHAR
*)IDC_IBEAM
), TRUE
);
2548 static void ME_SetDefaultFormatRect(ME_TextEditor
*editor
)
2550 ITextHost_TxGetClientRect(editor
->texthost
, &editor
->rcFormat
);
2551 editor
->rcFormat
.top
+= editor
->exStyleFlags
& WS_EX_CLIENTEDGE
? 1 : 0;
2552 editor
->rcFormat
.left
+= 1 + editor
->selofs
;
2553 editor
->rcFormat
.right
-= 1;
2556 static BOOL
ME_ShowContextMenu(ME_TextEditor
*editor
, int x
, int y
)
2561 if(!editor
->lpOleCallback
|| !editor
->hWnd
)
2563 ME_GetSelection(editor
, &selrange
.cpMin
, &selrange
.cpMax
);
2564 if(selrange
.cpMin
== selrange
.cpMax
)
2565 seltype
|= SEL_EMPTY
;
2568 /* FIXME: Handle objects */
2569 seltype
|= SEL_TEXT
;
2570 if(selrange
.cpMax
-selrange
.cpMin
> 1)
2571 seltype
|= SEL_MULTICHAR
;
2573 if(SUCCEEDED(IRichEditOleCallback_GetContextMenu(editor
->lpOleCallback
, seltype
, NULL
, &selrange
, &menu
)))
2575 TrackPopupMenu(menu
, TPM_LEFTALIGN
| TPM_RIGHTBUTTON
, x
, y
, 0, GetParent(editor
->hWnd
), NULL
);
2581 ME_TextEditor
*ME_MakeEditor(ITextHost
*texthost
, BOOL bEmulateVersion10
)
2583 ME_TextEditor
*ed
= ALLOC_OBJ(ME_TextEditor
);
2589 ed
->texthost
= texthost
;
2590 ed
->bEmulateVersion10
= bEmulateVersion10
;
2591 ITextHost_TxGetPropertyBits(texthost
,
2592 (TXTBIT_RICHTEXT
|TXTBIT_MULTILINE
|
2593 TXTBIT_READONLY
|TXTBIT_USEPASSWORD
|
2594 TXTBIT_HIDESELECTION
|TXTBIT_SAVESELECTION
|
2595 TXTBIT_AUTOWORDSEL
|TXTBIT_VERTICAL
|
2596 TXTBIT_WORDWRAP
|TXTBIT_DISABLEDRAG
),
2598 ITextHost_TxGetScrollBars(texthost
, &ed
->styleFlags
);
2599 ed
->styleFlags
&= (WS_VSCROLL
|WS_HSCROLL
|ES_AUTOVSCROLL
|
2600 ES_AUTOHSCROLL
|ES_DISABLENOSCROLL
);
2601 ed
->pBuffer
= ME_MakeText();
2602 ed
->nZoomNumerator
= ed
->nZoomDenominator
= 0;
2603 ME_MakeFirstParagraph(ed
);
2604 /* The four cursors are for:
2605 * 0 - The position where the caret is shown
2606 * 1 - The anchored end of the selection (for normal selection)
2607 * 2 & 3 - The anchored start and end respectively for word, line,
2608 * or paragraph selection.
2611 ed
->pCursors
= ALLOC_N_OBJ(ME_Cursor
, ed
->nCursors
);
2612 ed
->pCursors
[0].pPara
= ed
->pBuffer
->pFirst
->member
.para
.next_para
;
2613 ed
->pCursors
[0].pRun
= ME_FindItemFwd(ed
->pCursors
[0].pPara
, diRun
);
2614 ed
->pCursors
[0].nOffset
= 0;
2615 ed
->pCursors
[1] = ed
->pCursors
[0];
2616 ed
->pCursors
[2] = ed
->pCursors
[0];
2617 ed
->pCursors
[3] = ed
->pCursors
[1];
2618 ed
->nLastTotalLength
= ed
->nTotalLength
= 0;
2619 ed
->nLastTotalWidth
= ed
->nTotalWidth
= 0;
2622 ed
->rgbBackColor
= -1;
2623 ed
->hbrBackground
= GetSysColorBrush(COLOR_WINDOW
);
2624 ed
->bCaretAtEnd
= FALSE
;
2626 ed
->nModifyStep
= 0;
2627 ed
->nTextLimit
= TEXT_LIMIT_DEFAULT
;
2628 ed
->pUndoStack
= ed
->pRedoStack
= ed
->pUndoStackBottom
= NULL
;
2629 ed
->nUndoStackSize
= 0;
2630 ed
->nUndoLimit
= STACK_SIZE_DEFAULT
;
2631 ed
->nUndoMode
= umAddToUndo
;
2632 ed
->nParagraphs
= 1;
2633 ed
->nLastSelStart
= ed
->nLastSelEnd
= 0;
2634 ed
->pLastSelStartPara
= ed
->pLastSelEndPara
= ME_FindItemFwd(ed
->pBuffer
->pFirst
, diParagraph
);
2635 ed
->nAvailWidth
= 0; /* wrap to client area */
2636 ed
->bHideSelection
= FALSE
;
2637 ed
->pfnWordBreak
= NULL
;
2638 ed
->lpOleCallback
= NULL
;
2639 ed
->mode
= TM_MULTILEVELUNDO
| TM_MULTICODEPAGE
;
2640 ed
->mode
|= (props
& TXTBIT_RICHTEXT
) ? TM_RICHTEXT
: TM_PLAINTEXT
;
2641 ed
->AutoURLDetect_bEnable
= FALSE
;
2642 ed
->bHaveFocus
= FALSE
;
2643 ed
->bMouseCaptured
= FALSE
;
2644 for (i
=0; i
<HFONT_CACHE_SIZE
; i
++)
2646 ed
->pFontCache
[i
].nRefs
= 0;
2647 ed
->pFontCache
[i
].nAge
= 0;
2648 ed
->pFontCache
[i
].hFont
= NULL
;
2651 ME_CheckCharOffsets(ed
);
2652 ed
->bDefaultFormatRect
= TRUE
;
2653 ITextHost_TxGetSelectionBarWidth(ed
->texthost
, &selbarwidth
);
2655 /* FIXME: Convert selbarwidth from HIMETRIC to pixels */
2656 ed
->selofs
= SELECTIONBAR_WIDTH
;
2657 ed
->styleFlags
|= ES_SELECTIONBAR
;
2661 ed
->nSelectionType
= stPosition
;
2663 ed
->cPasswordMask
= 0;
2664 if (props
& TXTBIT_USEPASSWORD
)
2665 ITextHost_TxGetPasswordChar(texthost
, &ed
->cPasswordMask
);
2667 if (props
& TXTBIT_AUTOWORDSEL
)
2668 ed
->styleFlags
|= ECO_AUTOWORDSELECTION
;
2669 if (props
& TXTBIT_MULTILINE
) {
2670 ed
->styleFlags
|= ES_MULTILINE
;
2671 ed
->bWordWrap
= (props
& TXTBIT_WORDWRAP
) != 0;
2673 ed
->bWordWrap
= FALSE
;
2675 if (props
& TXTBIT_READONLY
)
2676 ed
->styleFlags
|= ES_READONLY
;
2677 if (!(props
& TXTBIT_HIDESELECTION
))
2678 ed
->styleFlags
|= ES_NOHIDESEL
;
2679 if (props
& TXTBIT_SAVESELECTION
)
2680 ed
->styleFlags
|= ES_SAVESEL
;
2681 if (props
& TXTBIT_VERTICAL
)
2682 ed
->styleFlags
|= ES_VERTICAL
;
2683 if (props
& TXTBIT_DISABLEDRAG
)
2684 ed
->styleFlags
|= ES_NOOLEDRAGDROP
;
2686 ed
->notified_cr
.cpMin
= ed
->notified_cr
.cpMax
= 0;
2688 /* Default scrollbar information */
2689 ed
->vert_si
.cbSize
= sizeof(SCROLLINFO
);
2690 ed
->vert_si
.nMin
= 0;
2691 ed
->vert_si
.nMax
= 0;
2692 ed
->vert_si
.nPage
= 0;
2693 ed
->vert_si
.nPos
= 0;
2695 ed
->horz_si
.cbSize
= sizeof(SCROLLINFO
);
2696 ed
->horz_si
.nMin
= 0;
2697 ed
->horz_si
.nMax
= 0;
2698 ed
->horz_si
.nPage
= 0;
2699 ed
->horz_si
.nPos
= 0;
2701 OleInitialize(NULL
);
2706 static void ME_DestroyEditor(ME_TextEditor
*editor
)
2708 ME_DisplayItem
*pFirst
= editor
->pBuffer
->pFirst
;
2709 ME_DisplayItem
*p
= pFirst
, *pNext
= NULL
;
2712 ME_ClearTempStyle(editor
);
2713 ME_EmptyUndoStack(editor
);
2716 ME_DestroyDisplayItem(p
);
2719 ME_ReleaseStyle(editor
->pBuffer
->pDefaultStyle
);
2720 for (i
=0; i
<HFONT_CACHE_SIZE
; i
++)
2722 if (editor
->pFontCache
[i
].hFont
)
2723 DeleteObject(editor
->pFontCache
[i
].hFont
);
2725 if (editor
->rgbBackColor
!= -1)
2726 DeleteObject(editor
->hbrBackground
);
2727 if(editor
->lpOleCallback
)
2728 IUnknown_Release(editor
->lpOleCallback
);
2729 IUnknown_Release(editor
->texthost
);
2732 FREE_OBJ(editor
->pBuffer
);
2733 FREE_OBJ(editor
->pCursors
);
2738 BOOL WINAPI
DllMain(HINSTANCE hinstDLL
, DWORD fdwReason
, LPVOID lpvReserved
)
2743 case DLL_PROCESS_ATTACH
:
2744 DisableThreadLibraryCalls(hinstDLL
);
2745 me_heap
= HeapCreate (0, 0x10000, 0);
2746 if (!ME_RegisterEditorClass(hinstDLL
)) return FALSE
;
2747 hLeft
= LoadCursorW(hinstDLL
, MAKEINTRESOURCEW(OCR_REVERSE
));
2751 case DLL_PROCESS_DETACH
:
2752 UnregisterClassW(RichEdit20W
, 0);
2753 UnregisterClassW(RichEdit50W
, 0);
2754 UnregisterClassA("RichEdit20A", 0);
2755 UnregisterClassA("RichEdit50A", 0);
2756 if (ME_ListBoxRegistered
)
2757 UnregisterClassW(REListBox20W
, 0);
2758 if (ME_ComboBoxRegistered
)
2759 UnregisterClassW(REComboBox20W
, 0);
2761 HeapDestroy (me_heap
);
2769 static const char * const edit_messages
[] = {
2798 "EM_SETPASSWORDCHAR",
2799 "EM_EMPTYUNDOBUFFER",
2800 "EM_GETFIRSTVISIBLELINE",
2802 "EM_SETWORDBREAKPROC",
2803 "EM_GETWORDBREAKPROC",
2804 "EM_GETPASSWORDCHAR",
2814 static const char * const richedit_messages
[] = {
2819 "EM_EXLINEFROMCHAR",
2825 "EM_GETOLEINTERFACE",
2835 "EM_SETOLECALLBACK",
2837 "EM_SETTARGETDEVICE",
2845 "EM_GETWORDBREAKPROCEX",
2846 "EM_SETWORDBREAKPROCEX",
2848 "EM_UNKNOWN_USER_83",
2853 "EM_STOPGROUPTYPING",
2857 "EM_GETAUTOURLDETECT",
2860 "EM_GETTEXTLENGTHEX",
2863 "EM_UNKNOWN_USER_98",
2864 "EM_UNKNOWN_USER_99",
2865 "EM_SETPUNCTUATION",
2866 "EM_GETPUNCTUATION",
2867 "EM_SETWORDWRAPMODE",
2868 "EM_GETWORDWRAPMODE",
2874 "EM_UNKNOWN_USER_109",
2875 "EM_UNKNOWN_USER_110",
2876 "EM_UNKNOWN_USER_111",
2877 "EM_UNKNOWN_USER_112",
2878 "EM_UNKNOWN_USER_113",
2879 "EM_UNKNOWN_USER_114",
2880 "EM_UNKNOWN_USER_115",
2881 "EM_UNKNOWN_USER_116",
2882 "EM_UNKNOWN_USER_117",
2883 "EM_UNKNOWN_USER_118",
2884 "EM_UNKNOWN_USER_119",
2885 "EM_SETLANGOPTIONS",
2886 "EM_GETLANGOPTIONS",
2887 "EM_GETIMECOMPMODE",
2891 "EM_SETIMEMODEBIAS",
2896 get_msg_name(UINT msg
)
2898 if (msg
>= EM_GETSEL
&& msg
<= EM_CHARFROMPOS
)
2899 return edit_messages
[msg
- EM_GETSEL
];
2900 if (msg
>= EM_CANPASTE
&& msg
<= EM_GETIMEMODEBIAS
)
2901 return richedit_messages
[msg
- EM_CANPASTE
];
2905 static void ME_LinkNotify(ME_TextEditor
*editor
, UINT msg
, WPARAM wParam
, LPARAM lParam
)
2908 ME_DisplayItem
*para
, *run
;
2910 int nCharOfs
; /* The start of the clicked text. Absolute character offset */
2913 x
= (short)LOWORD(lParam
);
2914 y
= (short)HIWORD(lParam
);
2915 nCharOfs
= ME_CharFromPos(editor
, x
, y
, &isExact
);
2916 if (!isExact
) return;
2918 ME_RunOfsFromCharOfs(editor
, nCharOfs
, ¶
, &run
, NULL
);
2920 if ((run
->member
.run
.style
->fmt
.dwMask
& CFM_LINK
)
2921 && (run
->member
.run
.style
->fmt
.dwEffects
& CFE_LINK
))
2922 { /* The clicked run has CFE_LINK set */
2923 info
.nmhdr
.hwndFrom
= editor
->hWnd
;
2924 info
.nmhdr
.idFrom
= GetWindowLongW(editor
->hWnd
, GWLP_ID
);
2925 info
.nmhdr
.code
= EN_LINK
;
2927 info
.wParam
= wParam
;
2928 info
.lParam
= lParam
;
2929 info
.chrg
.cpMin
= ME_CharOfsFromRunOfs(editor
, para
, run
, 0);
2930 info
.chrg
.cpMax
= info
.chrg
.cpMin
+ run
->member
.run
.strText
->nLen
;
2931 SendMessageW(GetParent(editor
->hWnd
), WM_NOTIFY
,info
.nmhdr
.idFrom
, (LPARAM
)&info
);
2935 #define UNSUPPORTED_MSG(e) \
2937 FIXME(#e ": stub\n"); \
2938 *phresult = S_FALSE; \
2941 /* Handle messages for windowless and windoweded richedit controls.
2943 * The LRESULT that is returned is a return value for window procs,
2944 * and the phresult parameter is the COM return code needed by the
2945 * text services interface. */
2946 LRESULT
ME_HandleMessage(ME_TextEditor
*editor
, UINT msg
, WPARAM wParam
,
2947 LPARAM lParam
, BOOL unicode
, HRESULT
* phresult
)
2953 UNSUPPORTED_MSG(EM_DISPLAYBAND
)
2954 UNSUPPORTED_MSG(EM_FINDWORDBREAK
)
2955 UNSUPPORTED_MSG(EM_FMTLINES
)
2956 UNSUPPORTED_MSG(EM_FORMATRANGE
)
2957 UNSUPPORTED_MSG(EM_GETBIDIOPTIONS
)
2958 UNSUPPORTED_MSG(EM_GETEDITSTYLE
)
2959 UNSUPPORTED_MSG(EM_GETIMECOMPMODE
)
2960 UNSUPPORTED_MSG(EM_GETIMESTATUS
)
2961 UNSUPPORTED_MSG(EM_SETIMESTATUS
)
2962 UNSUPPORTED_MSG(EM_GETLANGOPTIONS
)
2963 UNSUPPORTED_MSG(EM_GETREDONAME
)
2964 UNSUPPORTED_MSG(EM_GETTYPOGRAPHYOPTIONS
)
2965 UNSUPPORTED_MSG(EM_GETUNDONAME
)
2966 UNSUPPORTED_MSG(EM_GETWORDBREAKPROCEX
)
2967 UNSUPPORTED_MSG(EM_PASTESPECIAL
)
2968 UNSUPPORTED_MSG(EM_SELECTIONTYPE
)
2969 UNSUPPORTED_MSG(EM_SETBIDIOPTIONS
)
2970 UNSUPPORTED_MSG(EM_SETEDITSTYLE
)
2971 UNSUPPORTED_MSG(EM_SETFONTSIZE
)
2972 UNSUPPORTED_MSG(EM_SETLANGOPTIONS
)
2973 UNSUPPORTED_MSG(EM_SETMARGINS
)
2974 UNSUPPORTED_MSG(EM_SETPALETTE
)
2975 UNSUPPORTED_MSG(EM_SETTABSTOPS
)
2976 UNSUPPORTED_MSG(EM_SETTYPOGRAPHYOPTIONS
)
2977 UNSUPPORTED_MSG(EM_SETWORDBREAKPROCEX
)
2978 UNSUPPORTED_MSG(WM_STYLECHANGING
)
2979 UNSUPPORTED_MSG(WM_STYLECHANGED
)
2981 /* Messages specific to Richedit controls */
2984 return ME_StreamIn(editor
, wParam
, (EDITSTREAM
*)lParam
, TRUE
);
2986 return ME_StreamOut(editor
, wParam
, (EDITSTREAM
*)lParam
);
2989 UINT code
= DLGC_WANTCHARS
|DLGC_WANTTAB
|DLGC_WANTARROWS
|DLGC_HASSETSEL
;
2990 if (editor
->styleFlags
& ES_MULTILINE
)
2991 code
|= DLGC_WANTMESSAGE
;
2994 case EM_EMPTYUNDOBUFFER
:
2995 ME_EmptyUndoStack(editor
);
2999 /* Note: wParam/lParam can be NULL */
3001 PUINT pfrom
= wParam
? (PUINT
)wParam
: &from
;
3002 PUINT pto
= lParam
? (PUINT
)lParam
: &to
;
3003 ME_GetSelection(editor
, (int *)pfrom
, (int *)pto
);
3004 if ((*pfrom
|*pto
) & 0xFFFF0000)
3006 return MAKELONG(*pfrom
,*pto
);
3010 CHARRANGE
*pRange
= (CHARRANGE
*)lParam
;
3011 ME_GetSelection(editor
, &pRange
->cpMin
, &pRange
->cpMax
);
3012 TRACE("EM_EXGETSEL = (%d,%d)\n", pRange
->cpMin
, pRange
->cpMax
);
3015 case EM_SETUNDOLIMIT
:
3017 if ((int)wParam
< 0)
3018 editor
->nUndoLimit
= STACK_SIZE_DEFAULT
;
3020 editor
->nUndoLimit
= min(wParam
, STACK_SIZE_MAX
);
3021 /* Setting a max stack size keeps wine from getting killed
3022 for hogging memory. Windows allocates all this memory at once, so
3023 no program would realistically set a value above our maximum. */
3024 return editor
->nUndoLimit
;
3027 return editor
->pUndoStack
!= NULL
;
3029 return editor
->pRedoStack
!= NULL
;
3030 case WM_UNDO
: /* FIXME: actually not the same */
3032 return ME_Undo(editor
);
3034 return ME_Redo(editor
);
3037 /* these flags are equivalent to the ES_* counterparts */
3038 DWORD mask
= ECO_VERTICAL
| ECO_AUTOHSCROLL
| ECO_AUTOVSCROLL
|
3039 ECO_NOHIDESEL
| ECO_READONLY
| ECO_WANTRETURN
| ECO_SELECTIONBAR
;
3040 DWORD settings
= editor
->styleFlags
& mask
;
3046 /* these flags are equivalent to ES_* counterparts, except for
3047 * ECO_AUTOWORDSELECTION that doesn't have an ES_* counterpart,
3048 * but is still stored in editor->styleFlags. */
3049 const DWORD mask
= ECO_VERTICAL
| ECO_AUTOHSCROLL
| ECO_AUTOVSCROLL
|
3050 ECO_NOHIDESEL
| ECO_READONLY
| ECO_WANTRETURN
|
3051 ECO_SELECTIONBAR
| ECO_AUTOWORDSELECTION
;
3052 DWORD settings
= mask
& editor
->styleFlags
;
3053 DWORD oldSettings
= settings
;
3054 DWORD changedSettings
;
3070 changedSettings
= oldSettings
^ settings
;
3072 if (changedSettings
) {
3073 editor
->styleFlags
= (editor
->styleFlags
& ~mask
) | (settings
& mask
);
3075 if (changedSettings
& ECO_SELECTIONBAR
)
3077 ITextHost_TxInvalidateRect(editor
->texthost
, &editor
->rcFormat
, TRUE
);
3078 if (settings
& ECO_SELECTIONBAR
) {
3079 assert(!editor
->selofs
);
3080 editor
->selofs
= SELECTIONBAR_WIDTH
;
3081 editor
->rcFormat
.left
+= editor
->selofs
;
3083 editor
->rcFormat
.left
-= editor
->selofs
;
3086 ME_RewrapRepaint(editor
);
3089 if (changedSettings
& settings
& ECO_VERTICAL
)
3090 FIXME("ECO_VERTICAL not implemented yet!\n");
3091 if (changedSettings
& settings
& ECO_AUTOHSCROLL
)
3092 FIXME("ECO_AUTOHSCROLL not implemented yet!\n");
3093 if (changedSettings
& settings
& ECO_AUTOVSCROLL
)
3094 FIXME("ECO_AUTOVSCROLL not implemented yet!\n");
3095 if (changedSettings
& settings
& ECO_NOHIDESEL
)
3096 FIXME("ECO_NOHIDESEL not implemented yet!\n");
3097 if (changedSettings
& settings
& ECO_WANTRETURN
)
3098 FIXME("ECO_WANTRETURN not implemented yet!\n");
3099 if (changedSettings
& settings
& ECO_AUTOWORDSELECTION
)
3100 FIXME("ECO_AUTOWORDSELECTION not implemented yet!\n");
3107 ME_InvalidateSelection(editor
);
3108 ME_SetSelection(editor
, wParam
, lParam
);
3109 ME_InvalidateSelection(editor
);
3110 ITextHost_TxShowCaret(editor
->texthost
, FALSE
);
3111 ME_ShowCaret(editor
);
3112 ME_SendSelChange(editor
);
3115 case EM_SETSCROLLPOS
:
3117 POINT
*point
= (POINT
*)lParam
;
3118 ME_ScrollAbs(editor
, point
->x
, point
->y
);
3121 case EM_AUTOURLDETECT
:
3123 if (wParam
==1 || wParam
==0)
3125 editor
->AutoURLDetect_bEnable
= (BOOL
)wParam
;
3128 return E_INVALIDARG
;
3130 case EM_GETAUTOURLDETECT
:
3132 return editor
->AutoURLDetect_bEnable
;
3137 CHARRANGE range
= *(CHARRANGE
*)lParam
;
3139 TRACE("EM_EXSETSEL (%d,%d)\n", range
.cpMin
, range
.cpMax
);
3141 ME_InvalidateSelection(editor
);
3142 end
= ME_SetSelection(editor
, range
.cpMin
, range
.cpMax
);
3143 ME_InvalidateSelection(editor
);
3144 ITextHost_TxShowCaret(editor
->texthost
, FALSE
);
3145 ME_ShowCaret(editor
);
3146 ME_SendSelChange(editor
);
3150 case EM_SHOWSCROLLBAR
:
3163 flags
= WS_HSCROLL
|WS_VSCROLL
;
3170 editor
->styleFlags
|= flags
;
3171 if (flags
& WS_HSCROLL
)
3172 ITextHost_TxShowScrollBar(editor
->texthost
, SB_HORZ
,
3173 editor
->nTotalWidth
> editor
->sizeWindow
.cx
);
3174 if (flags
& WS_VSCROLL
)
3175 ITextHost_TxShowScrollBar(editor
->texthost
, SB_VERT
,
3176 editor
->nTotalLength
> editor
->sizeWindow
.cy
);
3178 editor
->styleFlags
&= ~flags
;
3179 ITextHost_TxShowScrollBar(editor
->texthost
, wParam
, FALSE
);
3186 SETTEXTEX
*pStruct
= (SETTEXTEX
*)wParam
;
3190 BOOL bRtf
, bUnicode
, bSelection
;
3191 int oldModify
= editor
->nModifyStep
;
3193 if (!pStruct
) return 0;
3195 /* If we detect ascii rtf at the start of the string,
3196 * we know it isn't unicode. */
3197 bRtf
= (lParam
&& (!strncmp((char *)lParam
, "{\\rtf", 5) ||
3198 !strncmp((char *)lParam
, "{\\urtf", 6)));
3199 bUnicode
= !bRtf
&& pStruct
->codepage
== 1200;
3201 TRACE("EM_SETTEXTEX - %s, flags %d, cp %d\n",
3202 bUnicode
? debugstr_w((LPCWSTR
)lParam
) : debugstr_a((LPCSTR
)lParam
),
3203 pStruct
->flags
, pStruct
->codepage
);
3205 bSelection
= (pStruct
->flags
& ST_SELECTION
) != 0;
3207 ME_GetSelection(editor
, &from
, &to
);
3208 style
= ME_GetSelectionInsertStyle(editor
);
3209 ME_InternalDeleteText(editor
, from
, to
- from
, FALSE
);
3211 ME_InternalDeleteText(editor
, 0, ME_GetTextLength(editor
), FALSE
);
3212 style
= editor
->pBuffer
->pDefaultStyle
;
3216 ME_StreamInRTFString(editor
, bSelection
, (char *)lParam
);
3218 /* FIXME: The length returned is doesn't include the rtf control
3219 * characters, only the actual text. */
3220 len
= lParam
? strlen((char *)lParam
) : 0;
3223 /* FIXME: make use of pStruct->codepage in the to unicode translation */
3224 wszText
= lParam
? ME_ToUnicode(bUnicode
, (void *)lParam
) : NULL
;
3225 len
= wszText
? lstrlenW(wszText
) : 0;
3226 ME_InsertTextFromCursor(editor
, 0, wszText
, len
, style
);
3230 ME_ReleaseStyle(style
);
3231 ME_UpdateSelectionLinkAttribute(editor
);
3234 ME_UpdateLinkAttribute(editor
, 0, -1);
3236 ME_CommitUndo(editor
);
3237 if (!(pStruct
->flags
& ST_KEEPUNDO
))
3239 editor
->nModifyStep
= oldModify
;
3240 ME_EmptyUndoStack(editor
);
3242 ME_UpdateRepaint(editor
);
3245 case EM_SETBKGNDCOLOR
:
3248 if (editor
->rgbBackColor
!= -1) {
3249 DeleteObject(editor
->hbrBackground
);
3250 lColor
= editor
->rgbBackColor
;
3252 else lColor
= ITextHost_TxGetSysColor(editor
->texthost
, COLOR_WINDOW
);
3256 editor
->rgbBackColor
= -1;
3257 editor
->hbrBackground
= GetSysColorBrush(COLOR_WINDOW
);
3261 editor
->rgbBackColor
= lParam
;
3262 editor
->hbrBackground
= CreateSolidBrush(editor
->rgbBackColor
);
3264 ITextHost_TxInvalidateRect(editor
->texthost
, NULL
, TRUE
);
3265 ITextHost_TxViewChange(editor
->texthost
, TRUE
);
3269 return editor
->nModifyStep
== 0 ? 0 : -1;
3273 editor
->nModifyStep
= 1;
3275 editor
->nModifyStep
= 0;
3279 case EM_SETREADONLY
:
3282 editor
->styleFlags
|= ES_READONLY
;
3284 editor
->styleFlags
&= ~ES_READONLY
;
3287 case EM_SETEVENTMASK
:
3289 DWORD nOldMask
= editor
->nEventMask
;
3291 editor
->nEventMask
= lParam
;
3294 case EM_GETEVENTMASK
:
3295 return editor
->nEventMask
;
3296 case EM_SETCHARFORMAT
:
3298 CHARFORMAT2W buf
, *p
;
3299 BOOL bRepaint
= TRUE
;
3300 p
= ME_ToCF2W(&buf
, (CHARFORMAT2W
*)lParam
);
3301 if (p
== NULL
) return 0;
3303 ME_SetDefaultCharFormat(editor
, p
);
3304 else if (wParam
== (SCF_WORD
| SCF_SELECTION
)) {
3305 FIXME("EM_SETCHARFORMAT: word selection not supported\n");
3307 } else if (wParam
== SCF_ALL
) {
3308 if (editor
->mode
& TM_PLAINTEXT
)
3309 ME_SetDefaultCharFormat(editor
, p
);
3311 ME_SetCharFormat(editor
, 0, ME_GetTextLength(editor
), p
);
3312 editor
->nModifyStep
= 1;
3314 } else if (editor
->mode
& TM_PLAINTEXT
) {
3318 ME_GetSelection(editor
, &from
, &to
);
3319 bRepaint
= (from
!= to
);
3320 ME_SetSelectionCharFormat(editor
, p
);
3321 if (from
!= to
) editor
->nModifyStep
= 1;
3323 ME_CommitUndo(editor
);
3326 ME_WrapMarkedParagraphs(editor
);
3327 ME_UpdateScrollBar(editor
);
3332 case EM_GETCHARFORMAT
:
3334 CHARFORMAT2W tmp
, *dst
= (CHARFORMAT2W
*)lParam
;
3335 if (dst
->cbSize
!= sizeof(CHARFORMATA
) &&
3336 dst
->cbSize
!= sizeof(CHARFORMATW
) &&
3337 dst
->cbSize
!= sizeof(CHARFORMAT2A
) &&
3338 dst
->cbSize
!= sizeof(CHARFORMAT2W
))
3340 tmp
.cbSize
= sizeof(tmp
);
3342 ME_GetDefaultCharFormat(editor
, &tmp
);
3344 ME_GetSelectionCharFormat(editor
, &tmp
);
3345 ME_CopyToCFAny(dst
, &tmp
);
3348 case EM_SETPARAFORMAT
:
3350 BOOL result
= ME_SetSelectionParaFormat(editor
, (PARAFORMAT2
*)lParam
);
3351 ME_WrapMarkedParagraphs(editor
);
3352 ME_UpdateScrollBar(editor
);
3354 ME_CommitUndo(editor
);
3357 case EM_GETPARAFORMAT
:
3358 ME_GetSelectionParaFormat(editor
, (PARAFORMAT2
*)lParam
);
3359 return ((PARAFORMAT2
*)lParam
)->dwMask
;
3360 case EM_GETFIRSTVISIBLELINE
:
3362 ME_DisplayItem
*p
= editor
->pBuffer
->pFirst
;
3363 int y
= editor
->vert_si
.nPos
;
3368 p
= ME_FindItemFwd(p
, diStartRowOrParagraphOrEnd
);
3369 if (p
->type
== diTextEnd
)
3371 if (p
->type
== diParagraph
) {
3372 ypara
= p
->member
.para
.pt
.y
;
3375 ystart
= ypara
+ p
->member
.row
.pt
.y
;
3376 yend
= ystart
+ p
->member
.row
.nHeight
;
3384 case EM_HIDESELECTION
:
3386 editor
->bHideSelection
= (wParam
!= 0);
3387 ME_InvalidateSelection(editor
);
3392 if (!(editor
->styleFlags
& ES_MULTILINE
))
3394 ME_ScrollDown(editor
, lParam
* 8); /* FIXME follow the original */
3400 ME_GetSelection(editor
, &from
, &to
);
3401 ME_InternalDeleteText(editor
, from
, to
-from
, FALSE
);
3402 ME_CommitUndo(editor
);
3403 ME_UpdateRepaint(editor
);
3410 LPWSTR wszText
= lParam
? ME_ToUnicode(unicode
, (void *)lParam
) : NULL
;
3411 size_t len
= wszText
? lstrlenW(wszText
) : 0;
3412 TRACE("EM_REPLACESEL - %s\n", debugstr_w(wszText
));
3414 ME_GetSelection(editor
, &from
, &to
);
3415 style
= ME_GetSelectionInsertStyle(editor
);
3416 ME_InternalDeleteText(editor
, from
, to
-from
, FALSE
);
3417 ME_InsertTextFromCursor(editor
, 0, wszText
, len
, style
);
3418 ME_ReleaseStyle(style
);
3419 /* drop temporary style if line end */
3421 * FIXME question: does abc\n mean: put abc,
3422 * clear temp style, put \n? (would require a change)
3424 if (len
>0 && wszText
[len
-1] == '\n')
3425 ME_ClearTempStyle(editor
);
3426 ME_EndToUnicode(unicode
, wszText
);
3427 ME_CommitUndo(editor
);
3428 ME_UpdateSelectionLinkAttribute(editor
);
3430 ME_EmptyUndoStack(editor
);
3431 ME_UpdateRepaint(editor
);
3434 case EM_SCROLLCARET
:
3435 ME_EnsureVisible(editor
, &editor
->pCursors
[0]);
3442 BOOL bRepaint
= LOWORD(lParam
);
3445 wParam
= (WPARAM
)GetStockObject(SYSTEM_FONT
);
3446 GetObjectW((HGDIOBJ
)wParam
, sizeof(LOGFONTW
), &lf
);
3447 hDC
= ITextHost_TxGetDC(editor
->texthost
);
3448 ME_CharFormatFromLogFont(hDC
, &lf
, &fmt
);
3449 ITextHost_TxReleaseDC(editor
->texthost
, hDC
);
3450 ME_SetCharFormat(editor
, 0, ME_GetTextLength(editor
), &fmt
);
3451 ME_SetDefaultCharFormat(editor
, &fmt
);
3453 ME_CommitUndo(editor
);
3454 ME_MarkAllForWrapping(editor
);
3455 ME_WrapMarkedParagraphs(editor
);
3456 ME_UpdateScrollBar(editor
);
3463 ME_InternalDeleteText(editor
, 0, ME_GetTextLength(editor
), FALSE
);
3466 TRACE("WM_SETTEXT lParam==%lx\n",lParam
);
3467 if (!strncmp((char *)lParam
, "{\\rtf", 5) ||
3468 !strncmp((char *)lParam
, "{\\urtf", 6))
3470 /* Undocumented: WM_SETTEXT supports RTF text */
3471 ME_StreamInRTFString(editor
, 0, (char *)lParam
);
3475 LPWSTR wszText
= ME_ToUnicode(unicode
, (void *)lParam
);
3476 TRACE("WM_SETTEXT - %s\n", debugstr_w(wszText
)); /* debugstr_w() */
3477 if (lstrlenW(wszText
) > 0)
3481 /* uses default style! */
3482 if (!(editor
->styleFlags
& ES_MULTILINE
))
3487 while (*p
!= '\0' && *p
!= '\r' && *p
!= '\n') p
++;
3490 ME_InsertTextFromCursor(editor
, 0, wszText
, len
, editor
->pBuffer
->pDefaultStyle
);
3492 ME_EndToUnicode(unicode
, wszText
);
3496 TRACE("WM_SETTEXT - NULL\n");
3497 ME_UpdateLinkAttribute(editor
, 0, -1);
3498 ME_SetSelection(editor
, 0, 0);
3499 editor
->nModifyStep
= 0;
3500 ME_CommitUndo(editor
);
3501 ME_EmptyUndoStack(editor
);
3502 ME_UpdateRepaint(editor
);
3507 UINT nRTFFormat
= RegisterClipboardFormatA("Rich Text Format");
3508 if (IsClipboardFormatAvailable(nRTFFormat
))
3510 if (IsClipboardFormatAvailable(CF_UNICODETEXT
))
3521 ME_GetSelection(editor
, &range
.cpMin
, &range
.cpMax
);
3523 if (ME_Copy(editor
, &range
) && msg
== WM_CUT
)
3525 ME_InternalDeleteText(editor
, range
.cpMin
, range
.cpMax
-range
.cpMin
, FALSE
);
3526 ME_CommitUndo(editor
);
3527 ME_UpdateRepaint(editor
);
3531 case WM_GETTEXTLENGTH
:
3533 GETTEXTLENGTHEX how
;
3535 /* CR/LF conversion required in 2.0 mode, verbatim in 1.0 mode */
3536 how
.flags
= GTL_CLOSE
| (editor
->bEmulateVersion10
? 0 : GTL_USECRLF
) | GTL_NUMCHARS
;
3537 how
.codepage
= unicode
? 1200 : CP_ACP
;
3538 return ME_GetTextLengthEx(editor
, &how
);
3540 case EM_GETTEXTLENGTHEX
:
3541 return ME_GetTextLengthEx(editor
, (GETTEXTLENGTHEX
*)wParam
);
3546 LPSTR bufferA
= NULL
;
3547 LPWSTR bufferW
= NULL
;
3550 bufferW
= heap_alloc((wParam
+ 2) * sizeof(WCHAR
));
3552 bufferA
= heap_alloc(wParam
+ 2);
3554 ex
.cb
= (wParam
+ 2) * (unicode
? sizeof(WCHAR
) : sizeof(CHAR
));
3555 ex
.flags
= GT_USECRLF
;
3556 ex
.codepage
= unicode
? 1200 : CP_ACP
;
3557 ex
.lpDefaultChar
= NULL
;
3558 ex
.lpUsedDefChar
= NULL
;
3560 rc
= ME_GetTextEx(editor
, &ex
, unicode
? (LPARAM
)bufferW
: (LPARAM
)bufferA
);
3564 memcpy((LPWSTR
)lParam
, bufferW
, wParam
* sizeof(WCHAR
));
3565 if (strlenW(bufferW
) >= wParam
) rc
= 0;
3569 memcpy((LPSTR
)lParam
, bufferA
, wParam
);
3570 if (strlen(bufferA
) >= wParam
) rc
= 0;
3577 return ME_GetTextEx(editor
, (GETTEXTEX
*)wParam
, lParam
);
3581 ME_GetSelection(editor
, &from
, &to
);
3582 return ME_GetTextRange(editor
, (WCHAR
*)lParam
, from
,
3583 to
- from
, unicode
);
3585 case EM_GETSCROLLPOS
:
3587 POINT
*point
= (POINT
*)lParam
;
3588 point
->x
= editor
->horz_si
.nPos
;
3589 point
->y
= editor
->vert_si
.nPos
;
3590 /* 16-bit scaled value is returned as stored in scrollinfo */
3591 if (editor
->horz_si
.nMax
> 0xffff)
3592 point
->x
= MulDiv(point
->x
, 0xffff, editor
->horz_si
.nMax
);
3593 if (editor
->vert_si
.nMax
> 0xffff)
3594 point
->y
= MulDiv(point
->y
, 0xffff, editor
->vert_si
.nMax
);
3597 case EM_GETTEXTRANGE
:
3599 TEXTRANGEW
*rng
= (TEXTRANGEW
*)lParam
;
3600 int start
= rng
->chrg
.cpMin
;
3601 int end
= rng
->chrg
.cpMax
;
3602 int textlength
= ME_GetTextLength(editor
);
3603 TRACE("EM_GETTEXTRANGE min=%d max=%d unicode=%d emul1.0=%d length=%d\n",
3604 rng
->chrg
.cpMin
, rng
->chrg
.cpMax
, unicode
,
3605 editor
->bEmulateVersion10
, ME_GetTextLength(editor
));
3606 if (start
< 0) return 0;
3607 if ((start
== 0 && end
== -1) || end
> textlength
)
3609 if (start
>= end
) return 0;
3610 return ME_GetTextRange(editor
, rng
->lpstrText
, start
, end
- start
, unicode
);
3614 ME_DisplayItem
*run
;
3615 const unsigned int nMaxChars
= *(WORD
*) lParam
;
3616 unsigned int nCharsLeft
= nMaxChars
;
3617 char *dest
= (char *) lParam
;
3618 BOOL wroteNull
= FALSE
;
3620 TRACE("EM_GETLINE: row=%d, nMaxChars=%d (%s)\n", (int) wParam
, nMaxChars
,
3621 unicode
? "Unicode" : "Ansi");
3623 run
= ME_FindRowWithNumber(editor
, wParam
);
3627 while (nCharsLeft
&& (run
= ME_FindItemFwd(run
, diRunOrStartRow
))
3628 && run
->type
== diRun
)
3633 strText
= run
->member
.run
.strText
;
3634 nCopy
= min(nCharsLeft
, strText
->nLen
);
3637 memcpy(dest
, strText
->szData
, nCopy
* sizeof(WCHAR
));
3639 nCopy
= WideCharToMultiByte(CP_ACP
, 0, strText
->szData
, nCopy
, dest
,
3640 nCharsLeft
, NULL
, NULL
);
3641 dest
+= nCopy
* (unicode
? sizeof(WCHAR
) : 1);
3642 nCharsLeft
-= nCopy
;
3645 /* append line termination, space allowing */
3649 *((WCHAR
*)dest
) = '\0';
3656 TRACE("EM_GETLINE: got %u characters\n", nMaxChars
- nCharsLeft
);
3657 return nMaxChars
- nCharsLeft
- (wroteNull
? 1 : 0);
3659 case EM_GETLINECOUNT
:
3661 ME_DisplayItem
*item
= editor
->pBuffer
->pFirst
->next
;
3664 ME_DisplayItem
*prev_para
= NULL
, *last_para
= NULL
;
3666 while (item
!= editor
->pBuffer
->pLast
)
3668 assert(item
->type
== diParagraph
);
3669 prev_para
= ME_FindItemBack(item
, diRun
);
3671 assert(prev_para
->member
.run
.nFlags
& MERF_ENDPARA
);
3673 nRows
+= item
->member
.para
.nRows
;
3674 item
= item
->member
.para
.next_para
;
3676 last_para
= ME_FindItemBack(item
, diRun
);
3678 assert(last_para
->member
.run
.nFlags
& MERF_ENDPARA
);
3679 if (editor
->bEmulateVersion10
&& prev_para
&&
3680 last_para
->member
.run
.nCharOfs
== 0 &&
3681 prev_para
->member
.run
.strText
->nLen
== 1 &&
3682 prev_para
->member
.run
.strText
->szData
[0] == '\r')
3684 /* In 1.0 emulation, the last solitary \r at the very end of the text
3685 (if one exists) is NOT a line break.
3686 FIXME: this is an ugly hack. This should have a more regular model. */
3690 TRACE("EM_GETLINECOUNT: nRows==%d\n", nRows
);
3691 return max(1, nRows
);
3693 case EM_LINEFROMCHAR
:
3696 return ME_RowNumberFromCharOfs(editor
, ME_GetCursorOfs(editor
, 1));
3698 return ME_RowNumberFromCharOfs(editor
, wParam
);
3700 case EM_EXLINEFROMCHAR
:
3703 return ME_RowNumberFromCharOfs(editor
, ME_GetCursorOfs(editor
,1));
3705 return ME_RowNumberFromCharOfs(editor
, lParam
);
3709 ME_DisplayItem
*item
, *para
;
3713 item
= ME_FindItemBack(editor
->pCursors
[0].pRun
, diStartRow
);
3715 item
= ME_FindRowWithNumber(editor
, wParam
);
3718 para
= ME_GetParagraph(item
);
3719 item
= ME_FindItemFwd(item
, diRun
);
3720 nCharOfs
= para
->member
.para
.nCharOfs
+ item
->member
.run
.nCharOfs
;
3721 TRACE("EM_LINEINDEX: nCharOfs==%d\n", nCharOfs
);
3726 ME_DisplayItem
*item
, *item_end
;
3727 int nChars
= 0, nThisLineOfs
= 0, nNextLineOfs
= 0;
3728 ME_DisplayItem
*para
, *run
;
3730 if (wParam
> ME_GetTextLength(editor
))
3734 FIXME("EM_LINELENGTH: returning number of unselected characters on lines with selection unsupported.\n");
3737 ME_RunOfsFromCharOfs(editor
, wParam
, ¶
, &run
, NULL
);
3738 item
= ME_RowStart(run
);
3739 nThisLineOfs
= ME_CharOfsFromRunOfs(editor
, para
, ME_FindItemFwd(item
, diRun
), 0);
3740 item_end
= ME_FindItemFwd(item
, diStartRowOrParagraphOrEnd
);
3741 if (item_end
->type
== diStartRow
) {
3742 nNextLineOfs
= ME_CharOfsFromRunOfs(editor
, para
, ME_FindItemFwd(item_end
, diRun
), 0);
3744 ME_DisplayItem
*endRun
= ME_FindItemBack(item_end
, diRun
);
3745 assert(endRun
&& endRun
->member
.run
.nFlags
& MERF_ENDPARA
);
3746 nNextLineOfs
= item_end
->member
.para
.nCharOfs
- endRun
->member
.run
.strText
->nLen
;
3748 nChars
= nNextLineOfs
- nThisLineOfs
;
3749 TRACE("EM_LINELENGTH(%ld)==%d\n",wParam
, nChars
);
3752 case EM_EXLIMITTEXT
:
3754 if ((int)lParam
< 0)
3757 editor
->nTextLimit
= 65536;
3759 editor
->nTextLimit
= (int) lParam
;
3765 editor
->nTextLimit
= 65536;
3767 editor
->nTextLimit
= (int) wParam
;
3770 case EM_GETLIMITTEXT
:
3772 return editor
->nTextLimit
;
3776 FINDTEXTA
*ft
= (FINDTEXTA
*)lParam
;
3777 int nChars
= MultiByteToWideChar(CP_ACP
, 0, ft
->lpstrText
, -1, NULL
, 0);
3781 if ((tmp
= ALLOC_N_OBJ(WCHAR
, nChars
)) != NULL
)
3782 MultiByteToWideChar(CP_ACP
, 0, ft
->lpstrText
, -1, tmp
, nChars
);
3783 r
= ME_FindText(editor
, wParam
, &ft
->chrg
, tmp
, NULL
);
3789 FINDTEXTEXA
*ex
= (FINDTEXTEXA
*)lParam
;
3790 int nChars
= MultiByteToWideChar(CP_ACP
, 0, ex
->lpstrText
, -1, NULL
, 0);
3794 if ((tmp
= ALLOC_N_OBJ(WCHAR
, nChars
)) != NULL
)
3795 MultiByteToWideChar(CP_ACP
, 0, ex
->lpstrText
, -1, tmp
, nChars
);
3796 r
= ME_FindText(editor
, wParam
, &ex
->chrg
, tmp
, &ex
->chrgText
);
3802 FINDTEXTW
*ft
= (FINDTEXTW
*)lParam
;
3803 return ME_FindText(editor
, wParam
, &ft
->chrg
, ft
->lpstrText
, NULL
);
3805 case EM_FINDTEXTEXW
:
3807 FINDTEXTEXW
*ex
= (FINDTEXTEXW
*)lParam
;
3808 return ME_FindText(editor
, wParam
, &ex
->chrg
, ex
->lpstrText
, &ex
->chrgText
);
3811 if (!wParam
|| !lParam
)
3813 *(int *)wParam
= editor
->nZoomNumerator
;
3814 *(int *)lParam
= editor
->nZoomDenominator
;
3817 return ME_SetZoom(editor
, wParam
, lParam
);
3818 case EM_CHARFROMPOS
:
3819 return ME_CharFromPos(editor
, ((POINTL
*)lParam
)->x
, ((POINTL
*)lParam
)->y
, NULL
);
3820 case EM_POSFROMCHAR
:
3822 ME_DisplayItem
*pPara
, *pRun
;
3823 int nCharOfs
, nOffset
, nLength
;
3827 /* detect which API version we're dealing with */
3828 if (wParam
>= 0x40000)
3830 nLength
= ME_GetTextLength(editor
);
3831 nCharOfs
= min(nCharOfs
, nLength
);
3832 nCharOfs
= max(nCharOfs
, 0);
3834 ME_RunOfsFromCharOfs(editor
, nCharOfs
, &pPara
, &pRun
, &nOffset
);
3835 assert(pRun
->type
== diRun
);
3836 pt
.y
= pRun
->member
.run
.pt
.y
;
3837 pt
.x
= pRun
->member
.run
.pt
.x
+ ME_PointFromChar(editor
, &pRun
->member
.run
, nOffset
);
3838 pt
.y
+= pPara
->member
.para
.pt
.y
+ editor
->rcFormat
.top
;
3839 pt
.x
+= editor
->rcFormat
.left
;
3841 pt
.x
-= editor
->horz_si
.nPos
;
3842 pt
.y
-= editor
->vert_si
.nPos
;
3844 if (wParam
>= 0x40000) {
3845 *(POINTL
*)wParam
= pt
;
3847 return (wParam
>= 0x40000) ? 0 : MAKELONG( pt
.x
, pt
.y
);
3853 ME_SetDefaultFormatRect(editor
);
3855 max
= (editor
->styleFlags
& ES_DISABLENOSCROLL
) ? 1 : 0;
3856 if (~editor
->styleFlags
& ES_DISABLENOSCROLL
|| editor
->styleFlags
& WS_VSCROLL
)
3857 ITextHost_TxSetScrollRange(editor
->texthost
, SB_VERT
, 0, max
, TRUE
);
3859 if (~editor
->styleFlags
& ES_DISABLENOSCROLL
|| editor
->styleFlags
& WS_HSCROLL
)
3860 ITextHost_TxSetScrollRange(editor
->texthost
, SB_HORZ
, 0, max
, TRUE
);
3862 if (editor
->styleFlags
& ES_DISABLENOSCROLL
)
3864 if (editor
->styleFlags
& WS_VSCROLL
)
3866 ITextHost_TxEnableScrollBar(editor
->texthost
, SB_VERT
, ESB_DISABLE_BOTH
);
3867 ITextHost_TxShowScrollBar(editor
->texthost
, SB_VERT
, TRUE
);
3869 if (editor
->styleFlags
& WS_HSCROLL
)
3871 ITextHost_TxEnableScrollBar(editor
->texthost
, SB_HORZ
, ESB_DISABLE_BOTH
);
3872 ITextHost_TxShowScrollBar(editor
->texthost
, SB_HORZ
, TRUE
);
3876 ME_CommitUndo(editor
);
3877 ME_WrapMarkedParagraphs(editor
);
3878 ME_MoveCaret(editor
);
3882 ME_DestroyEditor(editor
);
3886 return ME_SetCursor(editor
);
3888 case WM_LBUTTONDBLCLK
:
3889 case WM_LBUTTONDOWN
:
3891 ME_CommitUndo(editor
); /* End coalesced undos for typed characters */
3892 if ((editor
->nEventMask
& ENM_MOUSEEVENTS
) &&
3893 !ME_FilterEvent(editor
, msg
, &wParam
, &lParam
))
3895 ITextHost_TxSetFocus(editor
->texthost
);
3896 ME_LButtonDown(editor
, (short)LOWORD(lParam
), (short)HIWORD(lParam
),
3897 ME_CalculateClickCount(editor
, msg
, wParam
, lParam
));
3898 ITextHost_TxSetCapture(editor
->texthost
, TRUE
);
3899 editor
->bMouseCaptured
= TRUE
;
3900 ME_LinkNotify(editor
,msg
,wParam
,lParam
);
3901 if (!ME_SetCursor(editor
)) goto do_default
;
3905 if ((editor
->nEventMask
& ENM_MOUSEEVENTS
) &&
3906 !ME_FilterEvent(editor
, msg
, &wParam
, &lParam
))
3908 if (editor
->bMouseCaptured
)
3909 ME_MouseMove(editor
, (short)LOWORD(lParam
), (short)HIWORD(lParam
));
3910 ME_LinkNotify(editor
,msg
,wParam
,lParam
);
3911 /* Set cursor if mouse is captured, since WM_SETCURSOR won't be received. */
3912 if (editor
->bMouseCaptured
)
3913 ME_SetCursor(editor
);
3916 if (editor
->bMouseCaptured
) {
3917 ITextHost_TxSetCapture(editor
->texthost
, FALSE
);
3918 editor
->bMouseCaptured
= FALSE
;
3920 if (editor
->nSelectionType
== stDocument
)
3921 editor
->nSelectionType
= stPosition
;
3922 if ((editor
->nEventMask
& ENM_MOUSEEVENTS
) &&
3923 !ME_FilterEvent(editor
, msg
, &wParam
, &lParam
))
3927 ME_SetCursor(editor
);
3928 ME_LinkNotify(editor
,msg
,wParam
,lParam
);
3932 case WM_RBUTTONDOWN
:
3933 ME_CommitUndo(editor
); /* End coalesced undos for typed characters */
3934 if ((editor
->nEventMask
& ENM_MOUSEEVENTS
) &&
3935 !ME_FilterEvent(editor
, msg
, &wParam
, &lParam
))
3938 case WM_CONTEXTMENU
:
3939 if (!ME_ShowContextMenu(editor
, (short)LOWORD(lParam
), (short)HIWORD(lParam
)))
3943 editor
->bHaveFocus
= TRUE
;
3944 ME_ShowCaret(editor
);
3945 ME_SendOldNotify(editor
, EN_SETFOCUS
);
3948 ME_CommitUndo(editor
); /* End coalesced undos for typed characters */
3949 editor
->bHaveFocus
= FALSE
;
3950 ME_HideCaret(editor
);
3951 ME_SendOldNotify(editor
, EN_KILLFOCUS
);
3954 TRACE("editor wnd command = %d\n", LOWORD(wParam
));
3957 if ((editor
->nEventMask
& ENM_KEYEVENTS
) &&
3958 !ME_FilterEvent(editor
, msg
, &wParam
, &lParam
))
3962 if ((editor
->nEventMask
& ENM_KEYEVENTS
) &&
3963 !ME_FilterEvent(editor
, msg
, &wParam
, &lParam
))
3965 if (ME_KeyDown(editor
, LOWORD(wParam
)))
3969 return ME_Char(editor
, wParam
, lParam
, unicode
);
3973 if(wParam
== UNICODE_NOCHAR
) return TRUE
;
3974 if(wParam
<= 0x000fffff)
3976 if(wParam
> 0xffff) /* convert to surrogates */
3979 ME_Char(editor
, (wParam
>> 10) + 0xd800, 0, TRUE
);
3980 ME_Char(editor
, (wParam
& 0x03ff) + 0xdc00, 0, TRUE
);
3982 ME_Char(editor
, wParam
, 0, TRUE
);
3988 case EM_STOPGROUPTYPING
:
3989 ME_CommitUndo(editor
); /* End coalesced undos for typed characters */
3993 const int scrollUnit
= 7;
3995 switch(LOWORD(wParam
))
3998 ME_ScrollAbs(editor
, 0, 0);
4001 ME_ScrollAbs(editor
,
4002 editor
->horz_si
.nMax
- (int)editor
->horz_si
.nPage
,
4003 editor
->vert_si
.nMax
- (int)editor
->vert_si
.nPage
);
4006 ME_ScrollLeft(editor
, scrollUnit
);
4009 ME_ScrollRight(editor
, scrollUnit
);
4012 ME_ScrollLeft(editor
, editor
->sizeWindow
.cx
);
4015 ME_ScrollRight(editor
, editor
->sizeWindow
.cx
);
4018 case SB_THUMBPOSITION
:
4020 int pos
= HIWORD(wParam
);
4021 if (editor
->horz_si
.nMax
> 0xffff)
4022 pos
= MulDiv(pos
, editor
->horz_si
.nMax
, 0xffff);
4023 ME_HScrollAbs(editor
, pos
);
4029 case EM_SCROLL
: /* fall through */
4035 origNPos
= editor
->vert_si
.nPos
;
4038 if (editor
->pBuffer
&& editor
->pBuffer
->pDefaultStyle
)
4039 lineHeight
= editor
->pBuffer
->pDefaultStyle
->tm
.tmHeight
;
4040 if (lineHeight
<= 0) lineHeight
= 24;
4042 switch(LOWORD(wParam
))
4045 ME_ScrollAbs(editor
, 0, 0);
4048 ME_ScrollAbs(editor
,
4049 editor
->horz_si
.nMax
- (int)editor
->horz_si
.nPage
,
4050 editor
->vert_si
.nMax
- (int)editor
->vert_si
.nPage
);
4053 ME_ScrollUp(editor
,lineHeight
);
4056 ME_ScrollDown(editor
,lineHeight
);
4059 ME_ScrollUp(editor
,editor
->sizeWindow
.cy
);
4062 ME_ScrollDown(editor
,editor
->sizeWindow
.cy
);
4065 case SB_THUMBPOSITION
:
4067 int pos
= HIWORD(wParam
);
4068 if (editor
->vert_si
.nMax
> 0xffff)
4069 pos
= MulDiv(pos
, editor
->vert_si
.nMax
, 0xffff);
4070 ME_VScrollAbs(editor
, pos
);
4074 if (msg
== EM_SCROLL
)
4075 return 0x00010000 | (((editor
->vert_si
.nPos
- origNPos
)/lineHeight
) & 0xffff);
4081 UINT pulScrollLines
;
4084 if ((editor
->nEventMask
& ENM_MOUSEEVENTS
) &&
4085 !ME_FilterEvent(editor
, msg
, &wParam
, &lParam
))
4088 ctrl_is_down
= GetKeyState(VK_CONTROL
) & 0x8000;
4090 gcWheelDelta
= GET_WHEEL_DELTA_WPARAM(wParam
);
4092 if (abs(gcWheelDelta
) >= WHEEL_DELTA
)
4096 if (!editor
->nZoomNumerator
|| !editor
->nZoomDenominator
)
4100 numerator
= editor
->nZoomNumerator
* 100 / editor
->nZoomDenominator
;
4102 numerator
= numerator
+ (gcWheelDelta
/ WHEEL_DELTA
) * 10;
4103 if (numerator
>= 10 && numerator
<= 500)
4104 ME_SetZoom(editor
, numerator
, 100);
4106 SystemParametersInfoW(SPI_GETWHEELSCROLLLINES
,0, &pulScrollLines
, 0);
4107 /* FIXME follow the original */
4109 ME_ScrollDown(editor
,pulScrollLines
* (-gcWheelDelta
/ WHEEL_DELTA
) * 8);
4116 *((RECT
*)lParam
) = editor
->rcFormat
;
4117 if (editor
->bDefaultFormatRect
)
4118 ((RECT
*)lParam
)->left
-= editor
->selofs
;
4128 RECT
*rc
= (RECT
*)lParam
;
4130 border
= editor
->exStyleFlags
& WS_EX_CLIENTEDGE
? 1 : 0;
4131 ITextHost_TxGetClientRect(editor
->texthost
, &clientRect
);
4134 editor
->rcFormat
.top
= max(0, rc
->top
- border
);
4135 editor
->rcFormat
.left
= max(0, rc
->left
- border
);
4136 editor
->rcFormat
.bottom
= min(clientRect
.bottom
, rc
->bottom
);
4137 editor
->rcFormat
.right
= min(clientRect
.right
, rc
->right
+ border
);
4138 } else if (wParam
== 1) {
4139 /* MSDN incorrectly says a wParam value of 1 causes the
4140 * lParam rect to be used as a relative offset,
4141 * however, the tests show it just prevents min/max bound
4143 editor
->rcFormat
.top
= rc
->top
- border
;
4144 editor
->rcFormat
.left
= rc
->left
- border
;
4145 editor
->rcFormat
.bottom
= rc
->bottom
;
4146 editor
->rcFormat
.right
= rc
->right
+ border
;
4150 editor
->bDefaultFormatRect
= FALSE
;
4154 ME_SetDefaultFormatRect(editor
);
4155 editor
->bDefaultFormatRect
= TRUE
;
4157 ME_MarkAllForWrapping(editor
);
4158 ME_WrapMarkedParagraphs(editor
);
4159 ME_UpdateScrollBar(editor
);
4160 if (msg
!= EM_SETRECTNP
)
4164 case EM_REQUESTRESIZE
:
4165 ME_SendRequestResize(editor
, TRUE
);
4173 ITextHost_TxGetClientRect(editor
->texthost
, &clientRect
);
4174 if (editor
->bDefaultFormatRect
) {
4175 ME_SetDefaultFormatRect(editor
);
4177 editor
->rcFormat
.right
+= clientRect
.right
- editor
->prevClientRect
.right
;
4178 editor
->rcFormat
.bottom
+= clientRect
.bottom
- editor
->prevClientRect
.bottom
;
4180 editor
->prevClientRect
= clientRect
;
4181 ME_RewrapRepaint(editor
);
4184 /* IME messages to make richedit controls IME aware */
4185 case WM_IME_SETCONTEXT
:
4186 case WM_IME_CONTROL
:
4188 case WM_IME_COMPOSITIONFULL
:
4190 case WM_IME_STARTCOMPOSITION
:
4192 editor
->imeStartIndex
=ME_GetCursorOfs(editor
,0);
4193 ME_DeleteSelection(editor
);
4194 ME_CommitUndo(editor
);
4195 ME_UpdateRepaint(editor
);
4198 case WM_IME_COMPOSITION
:
4202 ME_Style
*style
= ME_GetInsertStyle(editor
, 0);
4203 hIMC
= ITextHost_TxImmGetContext(editor
->texthost
);
4204 ME_DeleteSelection(editor
);
4205 ME_CommitUndo(editor
);
4206 ME_SaveTempStyle(editor
);
4207 if (lParam
& GCS_RESULTSTR
)
4209 LPWSTR lpCompStr
= NULL
;
4212 dwBufLen
= ImmGetCompositionStringW(hIMC
, GCS_RESULTSTR
, NULL
, 0);
4213 lpCompStr
= HeapAlloc(GetProcessHeap(),0,dwBufLen
+ sizeof(WCHAR
));
4214 ImmGetCompositionStringW(hIMC
, GCS_RESULTSTR
, lpCompStr
, dwBufLen
);
4215 lpCompStr
[dwBufLen
/sizeof(WCHAR
)] = 0;
4216 ME_InsertTextFromCursor(editor
,0,lpCompStr
,dwBufLen
/sizeof(WCHAR
),style
);
4218 else if (lParam
& GCS_COMPSTR
)
4220 LPWSTR lpCompStr
= NULL
;
4223 dwBufLen
= ImmGetCompositionStringW(hIMC
, GCS_COMPSTR
, NULL
, 0);
4224 lpCompStr
= HeapAlloc(GetProcessHeap(),0,dwBufLen
+ sizeof(WCHAR
));
4225 ImmGetCompositionStringW(hIMC
, GCS_COMPSTR
, lpCompStr
, dwBufLen
);
4226 lpCompStr
[dwBufLen
/sizeof(WCHAR
)] = 0;
4228 ME_InsertTextFromCursor(editor
,0,lpCompStr
,dwBufLen
/sizeof(WCHAR
),style
);
4229 ME_SetSelection(editor
,editor
->imeStartIndex
,
4230 editor
->imeStartIndex
+ dwBufLen
/sizeof(WCHAR
));
4232 ME_ReleaseStyle(style
);
4233 ME_UpdateRepaint(editor
);
4236 case WM_IME_ENDCOMPOSITION
:
4238 ME_DeleteSelection(editor
);
4239 editor
->imeStartIndex
=-1;
4242 case EM_GETOLEINTERFACE
:
4244 LPVOID
*ppvObj
= (LPVOID
*) lParam
;
4245 return CreateIRichEditOle(editor
, ppvObj
);
4247 case EM_GETPASSWORDCHAR
:
4249 return editor
->cPasswordMask
;
4251 case EM_SETOLECALLBACK
:
4252 if(editor
->lpOleCallback
)
4253 IUnknown_Release(editor
->lpOleCallback
);
4254 editor
->lpOleCallback
= (LPRICHEDITOLECALLBACK
)lParam
;
4255 if(editor
->lpOleCallback
)
4256 IUnknown_AddRef(editor
->lpOleCallback
);
4258 case EM_GETWORDBREAKPROC
:
4259 return (LRESULT
)editor
->pfnWordBreak
;
4260 case EM_SETWORDBREAKPROC
:
4262 EDITWORDBREAKPROCW pfnOld
= editor
->pfnWordBreak
;
4264 editor
->pfnWordBreak
= (EDITWORDBREAKPROCW
)lParam
;
4265 return (LRESULT
)pfnOld
;
4267 case EM_GETTEXTMODE
:
4268 return editor
->mode
;
4269 case EM_SETTEXTMODE
:
4274 GETTEXTLENGTHEX how
;
4276 /* CR/LF conversion required in 2.0 mode, verbatim in 1.0 mode */
4277 how
.flags
= GTL_CLOSE
| (editor
->bEmulateVersion10
? 0 : GTL_USECRLF
) | GTL_NUMCHARS
;
4278 how
.codepage
= unicode
? 1200 : CP_ACP
;
4279 ret
= ME_GetTextLengthEx(editor
, &how
);
4282 /*Check for valid wParam*/
4283 if ((((wParam
& TM_RICHTEXT
) && ((wParam
& TM_PLAINTEXT
) << 1))) ||
4284 (((wParam
& TM_MULTILEVELUNDO
) && ((wParam
& TM_SINGLELEVELUNDO
) << 1))) ||
4285 (((wParam
& TM_MULTICODEPAGE
) && ((wParam
& TM_SINGLECODEPAGE
) << 1))))
4289 if (wParam
& (TM_RICHTEXT
| TM_PLAINTEXT
))
4291 mask
|= (TM_RICHTEXT
| TM_PLAINTEXT
);
4292 changes
|= (wParam
& (TM_RICHTEXT
| TM_PLAINTEXT
));
4294 /*FIXME: Currently no support for undo level and code page options*/
4295 editor
->mode
= (editor
->mode
& (~mask
)) | changes
;
4301 case EM_SETPASSWORDCHAR
:
4303 editor
->cPasswordMask
= wParam
;
4304 ME_RewrapRepaint(editor
);
4307 case EM_SETTARGETDEVICE
:
4310 BOOL
new = (lParam
== 0 && (editor
->styleFlags
& ES_MULTILINE
));
4311 if (editor
->nAvailWidth
|| editor
->bWordWrap
!= new)
4313 editor
->bWordWrap
= new;
4314 editor
->nAvailWidth
= 0; /* wrap to client area */
4315 ME_RewrapRepaint(editor
);
4318 int width
= max(0, lParam
);
4319 if ((editor
->styleFlags
& ES_MULTILINE
) &&
4320 (!editor
->bWordWrap
|| editor
->nAvailWidth
!= width
))
4322 editor
->nAvailWidth
= width
;
4323 editor
->bWordWrap
= TRUE
;
4324 ME_RewrapRepaint(editor
);
4326 FIXME("EM_SETTARGETDEVICE doesn't use non-NULL target devices\n");
4331 *phresult
= S_FALSE
;
4337 static LRESULT
RichEditWndProc_common(HWND hWnd
, UINT msg
, WPARAM wParam
,
4338 LPARAM lParam
, BOOL unicode
)
4340 ME_TextEditor
*editor
;
4342 LRESULT lresult
= 0;
4344 TRACE("enter hwnd %p msg %04x (%s) %lx %lx, unicode %d\n",
4345 hWnd
, msg
, get_msg_name(msg
), wParam
, lParam
, unicode
);
4347 editor
= (ME_TextEditor
*)GetWindowLongPtrW(hWnd
, 0);
4350 if (msg
== WM_NCCREATE
)
4352 CREATESTRUCTW
*pcs
= (CREATESTRUCTW
*)lParam
;
4353 ITextHost
*texthost
;
4355 TRACE("WM_NCCREATE: hWnd %p style 0x%08x\n", hWnd
, pcs
->style
);
4356 texthost
= ME_CreateTextHost(hWnd
, FALSE
);
4357 return texthost
!= NULL
;
4359 else if (msg
!= WM_NCDESTROY
)
4361 ERR("called with invalid hWnd %p - application bug?\n", hWnd
);
4374 hDC
= BeginPaint(editor
->hWnd
, &ps
);
4375 /* Erase area outside of the formatting rectangle */
4376 if (ps
.rcPaint
.top
< editor
->rcFormat
.top
)
4379 rc
.bottom
= editor
->rcFormat
.top
;
4380 FillRect(hDC
, &rc
, editor
->hbrBackground
);
4381 ps
.rcPaint
.top
= editor
->rcFormat
.top
;
4383 if (ps
.rcPaint
.bottom
> editor
->rcFormat
.bottom
) {
4385 rc
.top
= editor
->rcFormat
.bottom
;
4386 FillRect(hDC
, &rc
, editor
->hbrBackground
);
4387 ps
.rcPaint
.bottom
= editor
->rcFormat
.bottom
;
4389 if (ps
.rcPaint
.left
< editor
->rcFormat
.left
) {
4391 rc
.right
= editor
->rcFormat
.left
;
4392 FillRect(hDC
, &rc
, editor
->hbrBackground
);
4393 ps
.rcPaint
.left
= editor
->rcFormat
.left
;
4395 if (ps
.rcPaint
.right
> editor
->rcFormat
.right
) {
4397 rc
.left
= editor
->rcFormat
.right
;
4398 FillRect(hDC
, &rc
, editor
->hbrBackground
);
4399 ps
.rcPaint
.right
= editor
->rcFormat
.right
;
4402 ME_PaintContent(editor
, hDC
, FALSE
, &ps
.rcPaint
);
4403 EndPaint(editor
->hWnd
, &ps
);
4408 HDC hDC
= (HDC
)wParam
;
4411 if (GetUpdateRect(editor
->hWnd
, &rc
, TRUE
))
4412 FillRect(hDC
, &rc
, editor
->hbrBackground
);
4418 const DWORD mask
= ECO_VERTICAL
| ECO_AUTOHSCROLL
| ECO_AUTOVSCROLL
|
4419 ECO_NOHIDESEL
| ECO_READONLY
| ECO_WANTRETURN
|
4421 lresult
= ME_HandleMessage(editor
, msg
, wParam
, lParam
, unicode
, &hresult
);
4422 dwStyle
= GetWindowLongW(hWnd
, GWL_STYLE
);
4423 dwStyle
= (dwStyle
& ~mask
) | (lresult
& mask
);
4424 SetWindowLongW(hWnd
, GWL_STYLE
, dwStyle
);
4427 case EM_SETREADONLY
:
4430 lresult
= ME_HandleMessage(editor
, msg
, wParam
, lParam
, unicode
, &hresult
);
4431 dwStyle
= GetWindowLongW(hWnd
, GWL_STYLE
);
4432 dwStyle
&= ~ES_READONLY
;
4434 dwStyle
|= ES_READONLY
;
4435 SetWindowLongW(hWnd
, GWL_STYLE
, dwStyle
);
4439 lresult
= ME_HandleMessage(editor
, msg
, wParam
, lParam
, unicode
, &hresult
);
4442 if (hresult
== S_FALSE
)
4443 lresult
= DefWindowProcW(hWnd
, msg
, wParam
, lParam
);
4445 TRACE("exit hwnd %p msg %04x (%s) %lx %lx, unicode %d -> %lu\n",
4446 hWnd
, msg
, get_msg_name(msg
), wParam
, lParam
, unicode
, lresult
);
4451 static LRESULT WINAPI
RichEditWndProcW(HWND hWnd
, UINT msg
, WPARAM wParam
, LPARAM lParam
)
4453 BOOL unicode
= TRUE
;
4455 /* Under Win9x RichEdit20W returns ANSI strings, see the tests. */
4456 if (msg
== WM_GETTEXT
&& (GetVersion() & 0x80000000))
4459 return RichEditWndProc_common(hWnd
, msg
, wParam
, lParam
, unicode
);
4462 static LRESULT WINAPI
RichEditWndProcA(HWND hWnd
, UINT msg
, WPARAM wParam
, LPARAM lParam
)
4464 return RichEditWndProc_common(hWnd
, msg
, wParam
, lParam
, FALSE
);
4467 /******************************************************************
4468 * RichEditANSIWndProc (RICHED20.10)
4470 LRESULT WINAPI
RichEditANSIWndProc(HWND hWnd
, UINT msg
, WPARAM wParam
, LPARAM lParam
)
4472 return RichEditWndProcA(hWnd
, msg
, wParam
, lParam
);
4475 /******************************************************************
4476 * RichEdit10ANSIWndProc (RICHED20.9)
4478 LRESULT WINAPI
RichEdit10ANSIWndProc(HWND hWnd
, UINT msg
, WPARAM wParam
, LPARAM lParam
)
4480 if (msg
== WM_NCCREATE
&& !GetWindowLongPtrW(hWnd
, 0))
4482 ITextHost
*texthost
;
4483 CREATESTRUCTW
*pcs
= (CREATESTRUCTW
*)lParam
;
4485 TRACE("WM_NCCREATE: hWnd %p style 0x%08x\n", hWnd
, pcs
->style
);
4486 texthost
= ME_CreateTextHost(hWnd
, TRUE
);
4487 return texthost
!= NULL
;
4489 return RichEditANSIWndProc(hWnd
, msg
, wParam
, lParam
);
4492 void ME_SendOldNotify(ME_TextEditor
*editor
, int nCode
)
4494 ITextHost_TxNotify(editor
->texthost
, nCode
, NULL
);
4497 int ME_CountParagraphsBetween(ME_TextEditor
*editor
, int from
, int to
)
4499 ME_DisplayItem
*item
= ME_FindItemFwd(editor
->pBuffer
->pFirst
, diParagraph
);
4502 while(item
&& item
->member
.para
.next_para
->member
.para
.nCharOfs
<= from
)
4503 item
= item
->member
.para
.next_para
;
4506 while(item
&& item
->member
.para
.next_para
->member
.para
.nCharOfs
<= to
) {
4507 item
= item
->member
.para
.next_para
;
4514 int ME_GetTextW(ME_TextEditor
*editor
, WCHAR
*buffer
, int nStart
,
4515 int nChars
, int bCRLF
)
4517 ME_DisplayItem
*pRun
;
4518 int nOffset
, nWritten
= 0;
4519 WCHAR
*pStart
= buffer
;
4521 ME_RunOfsFromCharOfs(editor
, nStart
, NULL
, &pRun
, &nOffset
);
4523 /* bCRLF flag is only honored in 2.0 and up. 1.0 must always return text verbatim */
4524 if (editor
->bEmulateVersion10
) bCRLF
= 0;
4526 while (nChars
&& pRun
)
4530 if (pRun
->member
.run
.nFlags
& MERF_ENDCELL
&&
4531 pRun
->member
.run
.nFlags
& MERF_ENDPARA
)
4535 } else if (pRun
->member
.run
.nFlags
& MERF_ENDPARA
) {
4536 if (!ME_FindItemFwd(pRun
, diRun
)) {
4537 /* No '\r' is appended to the last paragraph. */
4539 } else if (bCRLF
&& nChars
== 1) {
4543 WCHAR cr_lf
[] = {'\r', '\n', 0};
4551 nLen
= pRun
->member
.run
.strText
->nLen
;
4552 szData
= pRun
->member
.run
.strText
->szData
;
4554 nLen
= min(nChars
, nLen
- nOffset
);
4555 CopyMemory(buffer
, szData
+ nOffset
, sizeof(WCHAR
) * nLen
);
4558 nLen
= min(nChars
, pRun
->member
.run
.strText
->nLen
- nOffset
);
4559 CopyMemory(buffer
, pRun
->member
.run
.strText
->szData
+ nOffset
,
4560 sizeof(WCHAR
) * nLen
);
4567 pRun
= ME_FindItemFwd(pRun
, diRun
);
4570 TRACE("nWritten=%d, actual=%d\n", nWritten
, buffer
-pStart
);
4574 static BOOL
ME_RegisterEditorClass(HINSTANCE hInstance
)
4579 wcW
.style
= CS_DBLCLKS
| CS_HREDRAW
| CS_VREDRAW
| CS_GLOBALCLASS
;
4580 wcW
.lpfnWndProc
= RichEditWndProcW
;
4582 wcW
.cbWndExtra
= sizeof(ME_TextEditor
*);
4583 wcW
.hInstance
= NULL
; /* hInstance would register DLL-local class */
4585 wcW
.hCursor
= LoadCursorW(NULL
, MAKEINTRESOURCEW(IDC_IBEAM
));
4586 wcW
.hbrBackground
= GetStockObject(NULL_BRUSH
);
4587 wcW
.lpszMenuName
= NULL
;
4589 if (is_version_nt())
4591 wcW
.lpszClassName
= RichEdit20W
;
4592 if (!RegisterClassW(&wcW
)) return FALSE
;
4593 wcW
.lpszClassName
= RichEdit50W
;
4594 if (!RegisterClassW(&wcW
)) return FALSE
;
4598 /* WNDCLASSA/W have the same layout */
4599 wcW
.lpszClassName
= (LPCWSTR
)"RichEdit20W";
4600 if (!RegisterClassA((WNDCLASSA
*)&wcW
)) return FALSE
;
4601 wcW
.lpszClassName
= (LPCWSTR
)"RichEdit50W";
4602 if (!RegisterClassA((WNDCLASSA
*)&wcW
)) return FALSE
;
4605 wcA
.style
= CS_DBLCLKS
| CS_HREDRAW
| CS_VREDRAW
| CS_GLOBALCLASS
;
4606 wcA
.lpfnWndProc
= RichEditWndProcA
;
4608 wcA
.cbWndExtra
= sizeof(ME_TextEditor
*);
4609 wcA
.hInstance
= NULL
; /* hInstance would register DLL-local class */
4611 wcA
.hCursor
= LoadCursorW(NULL
, MAKEINTRESOURCEW(IDC_IBEAM
));
4612 wcA
.hbrBackground
= GetStockObject(NULL_BRUSH
);
4613 wcA
.lpszMenuName
= NULL
;
4614 wcA
.lpszClassName
= "RichEdit20A";
4615 if (!RegisterClassA(&wcA
)) return FALSE
;
4616 wcA
.lpszClassName
= "RichEdit50A";
4617 if (!RegisterClassA(&wcA
)) return FALSE
;
4622 static LRESULT WINAPI
REComboWndProc(HWND hWnd
, UINT msg
, WPARAM wParam
, LPARAM lParam
) {
4623 /* FIXME: Not implemented */
4624 TRACE("hWnd %p msg %04x (%s) %08lx %08lx\n",
4625 hWnd
, msg
, get_msg_name(msg
), wParam
, lParam
);
4626 return DefWindowProcW(hWnd
, msg
, wParam
, lParam
);
4629 static LRESULT WINAPI
REListWndProc(HWND hWnd
, UINT msg
, WPARAM wParam
, LPARAM lParam
) {
4630 /* FIXME: Not implemented */
4631 TRACE("hWnd %p msg %04x (%s) %08lx %08lx\n",
4632 hWnd
, msg
, get_msg_name(msg
), wParam
, lParam
);
4633 return DefWindowProcW(hWnd
, msg
, wParam
, lParam
);
4636 /******************************************************************
4637 * REExtendedRegisterClass (RICHED20.8)
4639 * FIXME undocumented
4640 * Need to check for errors and implement controls and callbacks
4642 LRESULT WINAPI
REExtendedRegisterClass(void)
4647 FIXME("semi stub\n");
4651 wcW
.hInstance
= NULL
;
4654 wcW
.hbrBackground
= (HBRUSH
)(COLOR_WINDOW
+1);
4655 wcW
.lpszMenuName
= NULL
;
4657 if (!ME_ListBoxRegistered
)
4659 wcW
.style
= CS_PARENTDC
| CS_DBLCLKS
| CS_GLOBALCLASS
;
4660 wcW
.lpfnWndProc
= REListWndProc
;
4661 wcW
.lpszClassName
= REListBox20W
;
4662 if (RegisterClassW(&wcW
)) ME_ListBoxRegistered
= TRUE
;
4665 if (!ME_ComboBoxRegistered
)
4667 wcW
.style
= CS_PARENTDC
| CS_DBLCLKS
| CS_GLOBALCLASS
| CS_VREDRAW
| CS_HREDRAW
;
4668 wcW
.lpfnWndProc
= REComboWndProc
;
4669 wcW
.lpszClassName
= REComboBox20W
;
4670 if (RegisterClassW(&wcW
)) ME_ComboBoxRegistered
= TRUE
;
4674 if (ME_ListBoxRegistered
)
4676 if (ME_ComboBoxRegistered
)
4682 static BOOL
isurlspecial(WCHAR c
)
4684 static const WCHAR special_chars
[] = {'.','/','%','@','*','|','\\','+','#',0};
4685 return strchrW( special_chars
, c
) != NULL
;
4689 * This proc takes a selection, and scans it forward in order to select the span
4690 * of a possible URL candidate. A possible URL candidate must start with isalnum
4691 * or one of the following special characters: *|/\+%#@ and must consist entirely
4692 * of the characters allowed to start the URL, plus : (colon) which may occur
4693 * at most once, and not at either end.
4695 * sel_max == -1 indicates scan to end of text.
4697 static BOOL
ME_FindNextURLCandidate(ME_TextEditor
*editor
, int sel_min
, int sel_max
,
4698 int * candidate_min
, int * candidate_max
)
4700 ME_DisplayItem
* item
;
4701 ME_DisplayItem
* para
;
4703 BOOL foundColon
= FALSE
;
4704 WCHAR lastAcceptedChar
= '\0';
4706 TRACE("sel_min = %d sel_max = %d\n", sel_min
, sel_max
);
4708 *candidate_min
= *candidate_max
= -1;
4709 ME_RunOfsFromCharOfs(editor
, sel_min
, ¶
, &item
, &nStart
);
4710 TRACE("nStart = %d\n", nStart
);
4711 if (sel_max
== -1) sel_max
= ME_GetTextLength(editor
);
4712 while (item
&& para
->member
.para
.nCharOfs
+ item
->member
.run
.nCharOfs
+ nStart
< sel_max
)
4714 ME_DisplayItem
* next_item
;
4716 if (!(item
->member
.run
.nFlags
& MERF_ENDPARA
)) {
4717 /* Find start of candidate */
4718 if (*candidate_min
== -1) {
4719 while (nStart
< item
->member
.run
.strText
->nLen
&&
4720 !(isalnumW(item
->member
.run
.strText
->szData
[nStart
]) ||
4721 isurlspecial(item
->member
.run
.strText
->szData
[nStart
]))) {
4724 if (nStart
< item
->member
.run
.strText
->nLen
&&
4725 (isalnumW(item
->member
.run
.strText
->szData
[nStart
]) ||
4726 isurlspecial(item
->member
.run
.strText
->szData
[nStart
]))) {
4727 *candidate_min
= para
->member
.para
.nCharOfs
+ item
->member
.run
.nCharOfs
+ nStart
;
4728 lastAcceptedChar
= item
->member
.run
.strText
->szData
[nStart
];
4733 /* Find end of candidate */
4734 if (*candidate_min
>= 0) {
4735 while (nStart
< item
->member
.run
.strText
->nLen
&&
4736 (isalnumW(item
->member
.run
.strText
->szData
[nStart
]) ||
4737 isurlspecial(item
->member
.run
.strText
->szData
[nStart
]) ||
4738 (!foundColon
&& item
->member
.run
.strText
->szData
[nStart
] == ':') )) {
4739 if (item
->member
.run
.strText
->szData
[nStart
] == ':') foundColon
= TRUE
;
4740 lastAcceptedChar
= item
->member
.run
.strText
->szData
[nStart
];
4743 if (nStart
< item
->member
.run
.strText
->nLen
&&
4744 !(isalnumW(item
->member
.run
.strText
->szData
[nStart
]) ||
4745 isurlspecial(item
->member
.run
.strText
->szData
[nStart
]) )) {
4746 *candidate_max
= para
->member
.para
.nCharOfs
+ item
->member
.run
.nCharOfs
+ nStart
;
4748 if (lastAcceptedChar
== ':') (*candidate_max
)--;
4753 /* End of paragraph: skip it if before candidate span, or terminates
4754 current active span */
4755 if (*candidate_min
>= 0) {
4756 *candidate_max
= para
->member
.para
.nCharOfs
+ item
->member
.run
.nCharOfs
;
4757 if (lastAcceptedChar
== ':') (*candidate_max
)--;
4762 /* Reaching this point means no span was found, so get next span */
4763 next_item
= ME_FindItemFwd(item
, diRun
);
4765 if (*candidate_min
>= 0) {
4766 /* There are no further runs, so take end of text as end of candidate */
4767 *candidate_max
= para
->member
.para
.nCharOfs
+ item
->member
.run
.nCharOfs
+ nStart
;
4768 if (lastAcceptedChar
== ':') (*candidate_max
)--;
4773 para
= ME_GetParagraph(item
);
4778 if (*candidate_min
>= 0) {
4779 /* There are no further runs, so take end of text as end of candidate */
4780 *candidate_max
= para
->member
.para
.nCharOfs
+ item
->member
.run
.nCharOfs
+ nStart
;
4781 if (lastAcceptedChar
== ':') (*candidate_max
)--;
4789 * This proc evaluates the selection and returns TRUE if it can be considered an URL
4791 static BOOL
ME_IsCandidateAnURL(ME_TextEditor
*editor
, int sel_min
, int sel_max
)
4797 /* Code below depends on these being in decreasing length order! */
4811 LPWSTR bufferW
= NULL
;
4815 if (sel_max
== -1) sel_max
= ME_GetTextLength(editor
);
4816 assert(sel_min
<= sel_max
);
4817 for (i
= 0; i
< sizeof(prefixes
) / sizeof(struct prefix_s
); i
++)
4819 if (sel_max
- sel_min
< prefixes
[i
].length
) continue;
4820 if (bufferW
== NULL
) {
4821 bufferW
= heap_alloc((sel_max
- sel_min
+ 1) * sizeof(WCHAR
));
4823 ME_GetTextW(editor
, bufferW
, sel_min
, min(sel_max
- sel_min
, lstrlenA(prefixes
[i
].text
)), 0);
4824 MultiByteToWideChar(CP_ACP
, 0, prefixes
[i
].text
, -1, bufW
, 32);
4825 if (!lstrcmpW(bufW
, bufferW
))
4836 * This proc walks through the indicated selection and evaluates whether each
4837 * section identified by ME_FindNextURLCandidate and in-between sections have
4838 * their proper CFE_LINK attributes set or unset. If the CFE_LINK attribute is
4839 * not what it is supposed to be, this proc sets or unsets it as appropriate.
4841 * Returns TRUE if at least one section was modified.
4843 static BOOL
ME_UpdateLinkAttribute(ME_TextEditor
*editor
, int sel_min
, int sel_max
)
4845 BOOL modified
= FALSE
;
4848 if (!editor
->AutoURLDetect_bEnable
) return FALSE
;
4850 if (sel_max
== -1) sel_max
= ME_GetTextLength(editor
);
4857 if (ME_FindNextURLCandidate(editor
, sel_min
, sel_max
, &cMin
, &cMax
))
4859 /* Section before candidate is not an URL */
4860 beforeURL
[0] = sel_min
;
4861 beforeURL
[1] = cMin
;
4863 if (ME_IsCandidateAnURL(editor
, cMin
, cMax
))
4865 inURL
[0] = cMin
; inURL
[1] = cMax
;
4869 beforeURL
[1] = cMax
;
4870 inURL
[0] = inURL
[1] = -1;
4876 /* No more candidates until end of selection */
4877 beforeURL
[0] = sel_min
;
4878 beforeURL
[1] = sel_max
;
4879 inURL
[0] = inURL
[1] = -1;
4883 if (beforeURL
[0] < beforeURL
[1])
4885 /* CFE_LINK effect should be consistently unset */
4886 link
.cbSize
= sizeof(link
);
4887 ME_GetCharFormat(editor
, beforeURL
[0], beforeURL
[1], &link
);
4888 if (!(link
.dwMask
& CFM_LINK
) || (link
.dwEffects
& CFE_LINK
))
4890 /* CFE_LINK must be unset from this range */
4891 memset(&link
, 0, sizeof(CHARFORMAT2W
));
4892 link
.cbSize
= sizeof(link
);
4893 link
.dwMask
= CFM_LINK
;
4895 ME_SetCharFormat(editor
, beforeURL
[0], beforeURL
[1] - beforeURL
[0], &link
);
4899 if (inURL
[0] < inURL
[1])
4901 /* CFE_LINK effect should be consistently set */
4902 link
.cbSize
= sizeof(link
);
4903 ME_GetCharFormat(editor
, inURL
[0], inURL
[1], &link
);
4904 if (!(link
.dwMask
& CFM_LINK
) || !(link
.dwEffects
& CFE_LINK
))
4906 /* CFE_LINK must be set on this range */
4907 memset(&link
, 0, sizeof(CHARFORMAT2W
));
4908 link
.cbSize
= sizeof(link
);
4909 link
.dwMask
= CFM_LINK
;
4910 link
.dwEffects
= CFE_LINK
;
4911 ME_SetCharFormat(editor
, inURL
[0], inURL
[1] - inURL
[0], &link
);
4915 } while (sel_min
< sel_max
);