2 * RichEdit - functions dealing with editor object
4 * Copyright 2004 by Krzysztof Foltman
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Lesser General Public
8 * License as published by the Free Software Foundation; either
9 * version 2.1 of the License, or (at your option) any later version.
11 * This library is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Lesser General Public License for more details.
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with this library; if not, write to the Free Software
18 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
22 API implementation status:
24 Messages (ANSI versions not done yet)
25 - EM_AUTOURLDETECT 2.0
41 - EM_GETCHARFORMAT (partly done)
43 - EM_GETFIRSTVISIBLELINE
44 - EM_GETIMECOLOR 1.0asian
45 - EM_GETIMECOMPMODE 2.0
46 - EM_GETIMEOPTIONS 1.0asian
48 - EM_GETLANGOPTIONS 2.0
51 - EM_GETLINECOUNT returns number of rows, not of paragraphs
56 - EM_GETPUNCTUATION 1.0asian
60 + EM_GETSELTEXT (ANSI&Unicode)
63 ? + EM_GETTEXTRANGE (ANSI&Unicode)
66 - EM_GETWORDBREAKPROCEX
67 - EM_GETWORDWRAPMODE 1.0asian
78 + EM_REPLACESEL (proper style?) ANSI&Unicode
83 - EM_SETCHARFORMAT (partly done, no ANSI)
84 + EM_SETEVENTMASK (few notifications supported)
85 - EM_SETIMECOLOR 1.0asian
86 - EM_SETIMEOPTIONS 1.0asian
87 - EM_SETLANGOPTIONS 2.0
89 + EM_SETMODIFY (not sure if implementation is correct)
93 - EM_SETPUNCTUATION 1.0asian
94 + EM_SETREADONLY no beep on modification attempt
96 - EM_SETRECTNP (EM_SETRECT without repainting) - not supported in RICHEDIT
100 - EM_SETUNDOLIMIT 2.0
101 - EM_SETWORDBREAKPROC
102 - EM_SETWORDBREAKPROCEX
103 - EM_SETWORDWRAPMODE 1.0asian
104 - EM_STOPGROUPTYPING 2.0
112 + WM_GETDLGCODE (the current implementation is incomplete)
113 + WM_GETTEXT (ANSI&Unicode)
114 + WM_GETTEXTLENGTH (ANSI version sucks)
117 + WM_SETTEXT (resets undo stack !) (proper style?) ANSI&Unicode
119 - WM_STYLECHANGED (things like read-only flag)
124 * EN_CHANGE (sent from the wrong place)
141 * EN_UPDATE (sent from the wrong place)
149 - ES_DISABLENOSCROLL (scrollbar is always visible)
150 - ES_EX_NOCALLOLEINIT
152 - ES_MULTILINE (currently single line controls aren't supported)
154 - ES_READONLY (I'm not sure if beeping is the proper behaviour)
160 - ES_WANTRETURN (don't know how to do WM_GETDLGCODE part)
167 * RICHED20 TODO (incomplete):
170 * - add remaining CHARFORMAT/PARAFORMAT fields
171 * - right/center align should strip spaces from the beginning
172 * - more advanced navigation (Ctrl-arrows, PageUp/PageDn)
174 * - pictures (not just smiling faces that lack API support ;-) )
176 * - calculate heights of pictures (half-done)
177 * - EM_STREAMIN/EM_STREAMOUT
178 * - horizontal scrolling (not even started)
179 * - fix scrollbars and refresh (it sucks bigtime)
180 * - hysteresis during wrapping (related to scrollbars appearing/disappearing)
181 * - should remember maximum row width for wrap hysteresis
183 * - how to implement EM_FORMATRANGE and EM_DISPLAYBAND ? (Mission Impossible)
184 * - italic cursor with italic fonts
186 * - most notifications aren't sent at all (the most important ones are)
187 * - when should EN_SELCHANGE be sent after text change ? (before/after EN_UPDATE?)
188 * - WM_SETTEXT may use wrong style (but I'm 80% sure it's OK)
189 * - EM_GETCHARFORMAT with SCF_SELECTION may not behave 100% like in original (but very close)
190 * - bugs in end-of-text handling (the gray bar) could get me in jail ;-)
191 * - determination of row size
192 * - end-of-paragraph marks should be of reasonable size
194 * Bugs that are probably fixed, but not so easy to verify:
195 * - EN_UPDATE/EN_CHANGE are handled very incorrectly (should be OK now)
196 * - undo for ME_JoinParagraphs doesn't store paragraph format ? (it does)
197 * - check/fix artificial EOL logic (bCursorAtEnd, hardly logical)
198 * - caret shouldn't be displayed when selection isn't empty
199 * - check refcounting in style management functions (looks perfect now, but no bugs is suspicious)
200 * - undo for setting default format (done, might be buggy)
201 * - styles might be not released properly (looks like they work like charm, but who knows?
209 #define NO_SHLWAPI_STREAM
214 WINE_DEFAULT_DEBUG_CHANNEL(richedit
);
217 HANDLE me_heap
= NULL
;
219 ME_TextBuffer
*ME_MakeText() {
221 ME_TextBuffer
*buf
= ALLOC_OBJ(ME_TextBuffer
);
223 ME_DisplayItem
*p1
= ME_MakeDI(diTextStart
);
224 ME_DisplayItem
*p2
= ME_MakeDI(diTextEnd
);
230 p1
->member
.para
.next_para
= p2
;
231 p2
->member
.para
.prev_para
= p1
;
232 p2
->member
.para
.nCharOfs
= 0;
236 buf
->pCharStyle
= NULL
;
241 #define STREAMIN_BUFFER_SIZE 4096 /* M$ compatibility */
243 static LRESULT
ME_StreamInText(ME_TextEditor
*editor
, DWORD dwFormat
, EDITSTREAM
*stream
, ME_Style
*style
)
245 BYTE buffer
[STREAMIN_BUFFER_SIZE
+1];
246 WCHAR wszText
[STREAMIN_BUFFER_SIZE
+1];
248 TRACE("%08lx %p\n", dwFormat
, stream
);
252 long nDataSize
= 0, nWideChars
= 0;
253 stream
->dwError
= stream
->pfnCallback(stream
->dwCookie
,
254 (dwFormat
& SF_UNICODE
? (BYTE
*)wszText
: buffer
),
255 STREAMIN_BUFFER_SIZE
, &nDataSize
);
262 if (!(dwFormat
& SF_UNICODE
))
264 /* FIXME? this is doomed to fail on true MBCS like UTF-8, luckily they're unlikely to be used as CP_ACP */
265 nWideChars
= MultiByteToWideChar(CP_ACP
, 0, buffer
, nDataSize
, wszText
, STREAMIN_BUFFER_SIZE
);
268 nWideChars
= nDataSize
>>1;
269 ME_InsertTextFromCursor(editor
, 0, wszText
, nWideChars
, style
);
270 if (nDataSize
<STREAMIN_BUFFER_SIZE
)
273 ME_CommitUndo(editor
);
278 void ME_RTFCharAttrHook(RTF_Info
*info
)
281 fmt
.cbSize
= sizeof(fmt
);
284 switch(info
->rtfMinor
)
287 FIXME("rtfPlain: how plain should it be ?\n");
288 fmt
.dwMask
= CFM_BOLD
| CFM_ITALIC
| CFM_UNDERLINE
| CFM_STRIKEOUT
| CFM_COLOR
| CFM_BACKCOLOR
;
289 fmt
.dwEffects
= CFE_AUTOCOLOR
| CFE_AUTOBACKCOLOR
;
292 fmt
.dwMask
= CFM_BOLD
;
293 fmt
.dwEffects
= info
->rtfParam
? fmt
.dwMask
: 0;
296 fmt
.dwMask
= CFM_ITALIC
;
297 fmt
.dwEffects
= info
->rtfParam
? fmt
.dwMask
: 0;
300 fmt
.dwMask
= CFM_UNDERLINE
;
301 fmt
.dwEffects
= info
->rtfParam
? fmt
.dwMask
: 0;
304 fmt
.dwMask
= CFM_STRIKEOUT
;
305 fmt
.dwEffects
= info
->rtfParam
? fmt
.dwMask
: 0;
308 fmt
.dwMask
= CFM_BACKCOLOR
;
310 if (info
->rtfParam
== 0)
311 fmt
.dwEffects
= CFE_AUTOBACKCOLOR
;
312 else if (info
->rtfParam
!= rtfNoParam
)
314 RTFColor
*c
= RTFGetColor(info
, info
->rtfParam
);
315 fmt
.crTextColor
= (c
->rtfCBlue
<<16)|(c
->rtfCGreen
<<8)|(c
->rtfCRed
);
319 fmt
.dwMask
= CFM_COLOR
;
321 if (info
->rtfParam
== 0)
322 fmt
.dwEffects
= CFE_AUTOCOLOR
;
323 else if (info
->rtfParam
!= rtfNoParam
)
325 RTFColor
*c
= RTFGetColor(info
, info
->rtfParam
);
326 fmt
.crTextColor
= (c
->rtfCBlue
<<16)|(c
->rtfCGreen
<<8)|(c
->rtfCRed
);
330 if (info
->rtfParam
!= rtfNoParam
)
332 RTFFont
*f
= RTFGetFont(info
, info
->rtfParam
);
335 strncpy(fmt
.szFaceName
, f
->rtfFName
, sizeof(fmt
.szFaceName
)-1);
336 fmt
.szFaceName
[sizeof(fmt
.szFaceName
)-1] = '\0';
337 fmt
.dwMask
= CFM_FACE
;
342 fmt
.dwMask
= CFM_SIZE
;
343 if (info
->rtfParam
!= rtfNoParam
)
344 fmt
.yHeight
= info
->rtfParam
*10;
348 RTFFlushOutputBuffer(info
);
349 SendMessageW(info
->hwndEdit
, EM_SETCHARFORMAT
, SCF_SELECTION
, (LPARAM
)&fmt
);
353 void ME_RTFParAttrHook(RTF_Info
*info
)
356 fmt
.cbSize
= sizeof(fmt
);
359 switch(info
->rtfMinor
)
361 case rtfParDef
: /* I'm not 100% sure what does it do, but I guess it restores default paragraph attributes */
362 fmt
.dwMask
= PFM_ALIGNMENT
;
363 fmt
.wAlignment
= PFA_LEFT
;
367 fmt
.dwMask
= PFM_ALIGNMENT
;
368 fmt
.wAlignment
= PFA_LEFT
;
371 fmt
.dwMask
= PFM_ALIGNMENT
;
372 fmt
.wAlignment
= PFA_RIGHT
;
375 fmt
.dwMask
= PFM_ALIGNMENT
;
376 fmt
.wAlignment
= PFA_CENTER
;
380 RTFFlushOutputBuffer(info
);
381 SendMessageW(info
->hwndEdit
, EM_SETPARAFORMAT
, 0, (LPARAM
)&fmt
);
385 void ME_RTFReadHook(RTF_Info
*info
) {
386 switch(info
->rtfClass
)
389 switch(info
->rtfMajor
)
392 ME_RTFCharAttrHook(info
);
395 ME_RTFParAttrHook(info
);
402 static LRESULT
ME_StreamIn(ME_TextEditor
*editor
, DWORD format
, EDITSTREAM
*stream
)
406 int from
, to
, to2
, nUndoMode
;
409 TRACE("%p %p\n", stream
, editor
->hWnd
);
411 ME_GetSelection(editor
, &from
, &to
);
412 if (format
& SFF_SELECTION
) {
413 style
= ME_GetSelectionInsertStyle(editor
);
415 ME_InternalDeleteText(editor
, from
, to
-from
);
418 style
= editor
->pBuffer
->pDefaultStyle
;
419 ME_AddRefStyle(style
);
420 SendMessageA(editor
->hWnd
, EM_SETSEL
, 0, 0);
421 ME_InternalDeleteText(editor
, 0, ME_GetTextLength(editor
));
423 ME_ClearTempStyle(editor
);
426 nUndoMode
= editor
->nUndoMode
;
427 editor
->nUndoMode
= umIgnore
;
428 if (format
& SF_RTF
) {
429 /* setup the RTF parser */
430 memset(&parser
, 0, sizeof parser
);
431 RTFSetEditStream(&parser
, stream
);
432 parser
.rtfFormat
= format
&(SF_TEXT
|SF_RTF
);
433 parser
.hwndEdit
= editor
->hWnd
;
436 RTFSetReadHook(&parser
, ME_RTFReadHook
);
441 RTFFlushOutputBuffer(&parser
);
443 else if (format
& SF_TEXT
)
444 ME_StreamInText(editor
, format
, stream
, style
);
446 ERR("EM_STREAMIN without SF_TEXT or SF_RTF\n");
447 ME_GetSelection(editor
, &to
, &to2
);
448 /* put the cursor at the top */
449 if (!(format
& SFF_SELECTION
))
450 SendMessageA(editor
->hWnd
, EM_SETSEL
, 0, 0);
453 /* FIXME where to put cursor now ? */
456 editor
->nUndoMode
= nUndoMode
;
457 pUI
= ME_AddUndoItem(editor
, diUndoDeleteRun
, NULL
);
458 TRACE("from %d to %d\n", from
, to
);
459 if (pUI
&& from
< to
)
464 ME_CommitUndo(editor
);
465 ME_ReleaseStyle(style
);
472 ME_FindItemAtOffset(ME_TextEditor
*editor
, ME_DIType nItemType
, int nOffset
, int *nItemOffset
)
474 ME_DisplayItem
*item
= ME_FindItemFwd(editor
->pBuffer
->pFirst
, diParagraph
);
476 while (item
&& item
->member
.para
.next_para
->member
.para
.nCharOfs
<= nOffset
)
477 item
= ME_FindItemFwd(item
, diParagraph
);
482 nOffset
-= item
->member
.para
.nCharOfs
;
483 if (nItemType
== diParagraph
) {
485 *nItemOffset
= nOffset
;
490 item
= ME_FindItemFwd(item
, diRun
);
491 } while (item
&& (item
->member
.run
.nCharOfs
+ ME_StrLen(item
->member
.run
.strText
) <= nOffset
));
493 nOffset
-= item
->member
.run
.nCharOfs
;
495 *nItemOffset
= nOffset
;
501 ME_TextEditor
*ME_MakeEditor(HWND hWnd
) {
502 ME_TextEditor
*ed
= ALLOC_OBJ(ME_TextEditor
);
506 ed
->pBuffer
= ME_MakeText();
508 ME_MakeFirstParagraph(hDC
, ed
->pBuffer
);
509 ReleaseDC(hWnd
, hDC
);
510 ed
->bCaretShown
= FALSE
;
512 ed
->pCursors
= ALLOC_N_OBJ(ME_Cursor
, ed
->nCursors
);
513 ed
->pCursors
[0].pRun
= ME_FindItemFwd(ed
->pBuffer
->pFirst
, diRun
);
514 ed
->pCursors
[0].nOffset
= 0;
515 ed
->pCursors
[1].pRun
= ME_FindItemFwd(ed
->pBuffer
->pFirst
, diRun
);
516 ed
->pCursors
[1].nOffset
= 0;
517 ed
->nLastTotalLength
= ed
->nTotalLength
= 0;
521 ed
->rgbBackColor
= -1;
522 ed
->bCaretAtEnd
= FALSE
;
525 ed
->pUndoStack
= ed
->pRedoStack
= NULL
;
526 ed
->nUndoMode
= umAddToUndo
;
528 ed
->nLastSelStart
= ed
->nLastSelEnd
= 0;
529 for (i
=0; i
<HFONT_CACHE_SIZE
; i
++)
531 ed
->pFontCache
[i
].nRefs
= 0;
532 ed
->pFontCache
[i
].nAge
= 0;
533 ed
->pFontCache
[i
].hFont
= NULL
;
535 ME_CheckCharOffsets(ed
);
539 typedef struct tagME_GlobalDestStruct
543 } ME_GlobalDestStruct
;
545 static DWORD CALLBACK
ME_AppendToHGLOBAL(DWORD_PTR dwCookie
, LPBYTE lpBuff
, LONG cb
, LONG
*pcb
)
547 ME_GlobalDestStruct
*pData
= (ME_GlobalDestStruct
*)dwCookie
;
551 nMaxSize
= GlobalSize(pData
->hData
);
552 if (pData
->nLength
+cb
+1 >= cb
)
554 /* round up to 2^17 */
555 int nNewSize
= (((nMaxSize
+cb
+1)|0x1FFFF)+1) & 0xFFFE0000;
556 pData
->hData
= GlobalReAlloc(pData
->hData
, nNewSize
, 0);
558 pDest
= (BYTE
*)GlobalLock(pData
->hData
);
559 memcpy(pDest
+ pData
->nLength
, lpBuff
, cb
);
560 pData
->nLength
+= cb
;
561 pDest
[pData
->nLength
] = '\0';
562 GlobalUnlock(pData
->hData
);
568 static DWORD CALLBACK
ME_ReadFromHGLOBALUnicode(DWORD_PTR dwCookie
, LPBYTE lpBuff
, LONG cb
, LONG
*pcb
)
570 ME_GlobalDestStruct
*pData
= (ME_GlobalDestStruct
*)dwCookie
;
575 pDest
= (WORD
*)lpBuff
;
576 pSrc
= (WORD
*)GlobalLock(pData
->hData
);
577 for (i
= 0; i
<cb
&& pSrc
[pData
->nLength
+i
]; i
++) {
578 pDest
[i
] = pSrc
[pData
->nLength
+i
];
582 GlobalUnlock(pData
->hData
);
586 static DWORD CALLBACK
ME_ReadFromHGLOBALRTF(DWORD_PTR dwCookie
, LPBYTE lpBuff
, LONG cb
, LONG
*pcb
)
588 ME_GlobalDestStruct
*pData
= (ME_GlobalDestStruct
*)dwCookie
;
593 pSrc
= (BYTE
*)GlobalLock(pData
->hData
);
594 for (i
= 0; i
<cb
&& pSrc
[pData
->nLength
+i
]; i
++) {
595 pDest
[i
] = pSrc
[pData
->nLength
+i
];
599 GlobalUnlock(pData
->hData
);
603 void ME_DestroyEditor(ME_TextEditor
*editor
)
605 ME_DisplayItem
*pFirst
= editor
->pBuffer
->pFirst
;
606 ME_DisplayItem
*p
= pFirst
, *pNext
= NULL
;
609 ME_ClearTempStyle(editor
);
610 ME_EmptyUndoStack(editor
);
613 ME_DestroyDisplayItem(p
);
616 ME_ReleaseStyle(editor
->pBuffer
->pDefaultStyle
);
617 for (i
=0; i
<HFONT_CACHE_SIZE
; i
++)
619 if (editor
->pFontCache
[i
].hFont
)
620 DeleteObject(editor
->pFontCache
[i
].hFont
);
626 #define UNSUPPORTED_MSG(e) \
628 FIXME(#e ": stub\n"); \
629 return DefWindowProcW(hWnd, msg, wParam, lParam);
631 /******************************************************************
632 * RichEditANSIWndProc (RICHED20.10)
634 LRESULT WINAPI
RichEditANSIWndProc(HWND hWnd
, UINT msg
, WPARAM wParam
, LPARAM lParam
) {
638 ME_TextEditor
*editor
= (ME_TextEditor
*)GetWindowLongW(hWnd
, 0);
639 TRACE("msg %d %08x %08lx\n", msg
, wParam
, lParam
);
642 UNSUPPORTED_MSG(EM_AUTOURLDETECT
)
643 UNSUPPORTED_MSG(EM_CANPASTE
)
644 UNSUPPORTED_MSG(EM_CHARFROMPOS
)
645 UNSUPPORTED_MSG(EM_DISPLAYBAND
)
646 UNSUPPORTED_MSG(EM_EXLIMITTEXT
)
647 UNSUPPORTED_MSG(EM_EXLINEFROMCHAR
)
648 UNSUPPORTED_MSG(EM_FINDTEXT
)
649 UNSUPPORTED_MSG(EM_FINDTEXTEX
)
650 UNSUPPORTED_MSG(EM_FINDWORDBREAK
)
651 UNSUPPORTED_MSG(EM_FMTLINES
)
652 UNSUPPORTED_MSG(EM_FORMATRANGE
)
653 UNSUPPORTED_MSG(EM_GETFIRSTVISIBLELINE
)
654 UNSUPPORTED_MSG(EM_GETIMECOMPMODE
)
655 /* UNSUPPORTED_MSG(EM_GETIMESTATUS) missing in Wine headers */
656 UNSUPPORTED_MSG(EM_GETLANGOPTIONS
)
657 UNSUPPORTED_MSG(EM_GETLIMITTEXT
)
658 UNSUPPORTED_MSG(EM_GETLINE
)
659 UNSUPPORTED_MSG(EM_GETLINECOUNT
)
660 /* UNSUPPORTED_MSG(EM_GETOLEINTERFACE) separate stub */
661 UNSUPPORTED_MSG(EM_GETOPTIONS
)
662 UNSUPPORTED_MSG(EM_GETRECT
)
663 UNSUPPORTED_MSG(EM_GETREDONAME
)
664 UNSUPPORTED_MSG(EM_GETTEXTMODE
)
665 UNSUPPORTED_MSG(EM_GETUNDONAME
)
666 UNSUPPORTED_MSG(EM_GETWORDBREAKPROC
)
667 UNSUPPORTED_MSG(EM_GETWORDBREAKPROCEX
)
668 UNSUPPORTED_MSG(EM_HIDESELECTION
)
669 UNSUPPORTED_MSG(EM_LIMITTEXT
) /* also known as EM_SETLIMITTEXT */
670 UNSUPPORTED_MSG(EM_LINEFROMCHAR
)
671 UNSUPPORTED_MSG(EM_LINEINDEX
)
672 UNSUPPORTED_MSG(EM_LINELENGTH
)
673 UNSUPPORTED_MSG(EM_LINESCROLL
)
674 UNSUPPORTED_MSG(EM_PASTESPECIAL
)
675 /* UNSUPPORTED_MSG(EM_POSFROMCHARS) missing in Wine headers */
676 UNSUPPORTED_MSG(EM_REQUESTRESIZE
)
677 UNSUPPORTED_MSG(EM_SCROLL
)
678 UNSUPPORTED_MSG(EM_SCROLLCARET
)
679 UNSUPPORTED_MSG(EM_SELECTIONTYPE
)
680 UNSUPPORTED_MSG(EM_SETLANGOPTIONS
)
681 UNSUPPORTED_MSG(EM_SETOLECALLBACK
)
682 UNSUPPORTED_MSG(EM_SETOPTIONS
)
683 UNSUPPORTED_MSG(EM_SETRECT
)
684 UNSUPPORTED_MSG(EM_SETRECTNP
)
685 UNSUPPORTED_MSG(EM_SETTARGETDEVICE
)
686 UNSUPPORTED_MSG(EM_SETTEXTMODE
)
687 UNSUPPORTED_MSG(EM_SETUNDOLIMIT
)
688 UNSUPPORTED_MSG(EM_SETWORDBREAKPROC
)
689 UNSUPPORTED_MSG(EM_SETWORDBREAKPROCEX
)
690 UNSUPPORTED_MSG(WM_SETFONT
)
691 UNSUPPORTED_MSG(WM_STYLECHANGING
)
692 UNSUPPORTED_MSG(WM_STYLECHANGED
)
693 /* UNSUPPORTED_MSG(WM_UNICHAR) FIXME missing in Wine headers */
695 /* Messages specific to Richedit controls */
698 return ME_StreamIn(editor
, wParam
, (EDITSTREAM
*)lParam
);
700 return ME_StreamOut(editor
, wParam
, (EDITSTREAM
*)lParam
);
703 UINT code
= DLGC_WANTCHARS
|DLGC_WANTARROWS
;
704 if (GetWindowLongW(hWnd
, GWL_STYLE
)&ES_WANTRETURN
)
705 code
|= 0; /* FIXME what can we do here ? ask for messages and censor them ? */
710 CREATESTRUCTW
*pcs
= (CREATESTRUCTW
*)lParam
;
711 editor
= ME_MakeEditor(hWnd
);
712 SetWindowLongW(hWnd
, 0, (long)editor
);
713 pcs
= 0; /* ignore */
716 case EM_EMPTYUNDOBUFFER
:
717 ME_EmptyUndoStack(editor
);
721 ME_GetSelection(editor
, (int *)wParam
, (int *)lParam
);
722 if (!((wParam
|lParam
) & 0xFFFF0000))
723 return (lParam
<<16)|wParam
;
728 CHARRANGE
*pRange
= (CHARRANGE
*)lParam
;
729 ME_GetSelection(editor
, (int *)&pRange
->cpMin
, (int *)&pRange
->cpMax
);
733 return editor
->pUndoStack
!= NULL
;
735 return editor
->pRedoStack
!= NULL
;
744 ME_SetSelection(editor
, wParam
, lParam
);
746 ME_SendSelChange(editor
);
751 CHARRANGE
*pRange
= (CHARRANGE
*)lParam
;
752 ME_SetSelection(editor
, pRange
->cpMin
, pRange
->cpMax
);
755 ME_SendSelChange(editor
);
758 case EM_SETBKGNDCOLOR
:
760 LRESULT lColor
= ME_GetBackColor(editor
);
762 editor
->rgbBackColor
= -1;
764 editor
->rgbBackColor
= lParam
;
765 InvalidateRect(hWnd
, NULL
, TRUE
);
770 return editor
->nModifyStep
== 0 ? 0 : 1;
774 editor
->nModifyStep
= 0x80000000;
776 editor
->nModifyStep
= 0;
782 long nStyle
= GetWindowLongW(hWnd
, GWL_STYLE
);
784 nStyle
|= ES_READONLY
;
786 nStyle
&= ~ES_READONLY
;
787 SetWindowLongW(hWnd
, GWL_STYLE
, nStyle
);
791 case EM_SETEVENTMASK
:
792 editor
->nEventMask
= lParam
;
794 case EM_GETEVENTMASK
:
795 return editor
->nEventMask
;
796 case EM_SETCHARFORMAT
:
798 CHARFORMAT2W buf
, *p
;
799 p
= ME_ToCF2W(&buf
, (CHARFORMAT2W
*)lParam
);
801 ME_SetDefaultCharFormat(editor
, p
);
802 else if (wParam
== (SCF_WORD
| SCF_SELECTION
))
803 FIXME("word selection not supported\n");
804 else if (wParam
== SCF_ALL
)
805 ME_SetCharFormat(editor
, 0, ME_GetTextLength(editor
), p
);
807 ME_SetSelectionCharFormat(editor
, p
);
808 ME_CommitUndo(editor
);
809 ME_UpdateRepaint(editor
);
812 case EM_GETCHARFORMAT
:
815 tmp
.cbSize
= sizeof(tmp
);
817 ME_GetDefaultCharFormat(editor
, &tmp
);
819 ME_GetSelectionCharFormat(editor
, &tmp
);
820 ME_CopyToCFAny((CHARFORMAT2W
*)lParam
, &tmp
);
823 case EM_SETPARAFORMAT
:
824 ME_SetSelectionParaFormat(editor
, (PARAFORMAT2
*)lParam
);
825 ME_CommitUndo(editor
);
827 case EM_GETPARAFORMAT
:
828 ME_GetSelectionParaFormat(editor
, (PARAFORMAT2
*)lParam
);
833 ME_GetSelection(editor
, &from
, &to
);
834 ME_InternalDeleteText(editor
, from
, to
-from
);
835 ME_CommitUndo(editor
);
836 ME_UpdateRepaint(editor
);
843 LPWSTR wszText
= ME_ToUnicode(hWnd
, (void *)lParam
);
844 size_t len
= lstrlenW(wszText
);
845 TRACE("EM_REPLACESEL - %s\n", debugstr_w(wszText
));
847 ME_GetSelection(editor
, &from
, &to
);
848 style
= ME_GetSelectionInsertStyle(editor
);
849 ME_InternalDeleteText(editor
, from
, to
-from
);
850 ME_InsertTextFromCursor(editor
, 0, wszText
, len
, style
);
851 ME_ReleaseStyle(style
);
852 ME_EndToUnicode(hWnd
, wszText
);
853 /* drop temporary style if line end */
854 /* FIXME question: does abc\n mean: put abc, clear temp style, put \n? (would require a change) */
855 if (len
>0 && wszText
[len
-1] == '\n')
856 ME_ClearTempStyle(editor
);
858 ME_CommitUndo(editor
);
860 ME_EmptyUndoStack(editor
);
861 ME_UpdateRepaint(editor
);
866 LPWSTR wszText
= ME_ToUnicode(hWnd
, (void *)lParam
);
867 TRACE("WM_SETTEXT - %s\n", (char *)(wszText
)); /* debugstr_w() */
868 ME_InternalDeleteText(editor
, 0, ME_GetTextLength(editor
));
869 /* uses default style! */
870 ME_InsertTextFromCursor(editor
, 0, wszText
, -1, editor
->pBuffer
->pDefaultStyle
);
871 ME_EndToUnicode(hWnd
, wszText
);
872 ME_CommitUndo(editor
);
873 ME_EmptyUndoStack(editor
);
874 ME_UpdateRepaint(editor
);
881 ME_GlobalDestStruct gds
;
882 UINT nRTFFormat
= RegisterClipboardFormatA("Rich Text Format");
885 if (!OpenClipboard(hWnd
))
887 if (IsClipboardFormatAvailable(nRTFFormat
))
888 cf
= nRTFFormat
, dwFormat
= SF_RTF
;
889 else if (IsClipboardFormatAvailable(CF_UNICODETEXT
))
890 cf
= CF_UNICODETEXT
, dwFormat
= SF_TEXT
|SF_UNICODE
;
894 gds
.hData
= GetClipboardData(cf
);
896 es
.dwCookie
= (DWORD
)&gds
;
897 es
.pfnCallback
= dwFormat
== SF_RTF
? ME_ReadFromHGLOBALRTF
: ME_ReadFromHGLOBALUnicode
;
898 SendMessageW(hWnd
, EM_STREAMIN
, dwFormat
|SFF_SELECTION
, (LPARAM
)&es
);
910 ME_GlobalDestStruct gds
;
912 if (!OpenClipboard(hWnd
))
916 ME_GetSelection(editor
, &from
, &to
);
917 pars
= ME_CountParagraphsBetween(editor
, from
, to
);
918 hData
= GlobalAlloc(GMEM_MOVEABLE
, sizeof(WCHAR
)*(to
-from
+pars
+1));
919 data
= (WCHAR
*)GlobalLock(hData
);
920 ME_GetTextW(editor
, data
, from
, to
-from
, TRUE
);
923 gds
.hData
= GlobalAlloc(GMEM_MOVEABLE
, 0);
925 es
.dwCookie
= (DWORD
)&gds
;
926 es
.pfnCallback
= ME_AppendToHGLOBAL
;
927 SendMessageW(hWnd
, EM_STREAMOUT
, SFF_SELECTION
|SF_RTF
, (LPARAM
)&es
);
928 GlobalReAlloc(gds
.hData
, gds
.nLength
+1, 0);
930 SetClipboardData(CF_UNICODETEXT
, hData
);
931 SetClipboardData(RegisterClipboardFormatA("Rich Text Format"), gds
.hData
);
936 ME_InternalDeleteText(editor
, from
, to
-from
);
937 ME_CommitUndo(editor
);
938 ME_UpdateRepaint(editor
);
942 case WM_GETTEXTLENGTH
:
943 return ME_GetTextLength(editor
);
946 TEXTRANGEW tr
; /* W and A differ only by rng->lpstrText */
948 tr
.chrg
.cpMax
= wParam
-1;
949 tr
.lpstrText
= (WCHAR
*)lParam
;
950 return RichEditANSIWndProc(hWnd
, EM_GETTEXTRANGE
, 0, (LPARAM
)&tr
);
955 TEXTRANGEW tr
; /* W and A differ only by rng->lpstrText */
956 ME_GetSelection(editor
, &from
, &to
);
957 tr
.chrg
.cpMin
= from
;
959 tr
.lpstrText
= (WCHAR
*)lParam
;
960 return RichEditANSIWndProc(hWnd
, EM_GETTEXTRANGE
, 0, (LPARAM
)&tr
);
962 case EM_GETTEXTRANGE
:
964 TEXTRANGEW
*rng
= (TEXTRANGEW
*)lParam
;
965 if (IsWindowUnicode(hWnd
))
966 return ME_GetTextW(editor
, rng
->lpstrText
, rng
->chrg
.cpMin
, rng
->chrg
.cpMax
-rng
->chrg
.cpMin
, FALSE
);
969 int nLen
= rng
->chrg
.cpMax
-rng
->chrg
.cpMin
;
970 WCHAR
*p
= ALLOC_N_OBJ(WCHAR
, nLen
+1);
971 int nChars
= ME_GetTextW(editor
, p
, rng
->chrg
.cpMin
, nLen
, FALSE
);
972 /* FIXME this is a potential security hole (buffer overrun)
973 if you know more about wchar->mbyte conversion please explain
975 WideCharToMultiByte(CP_ACP
, 0, p
, nChars
+1, (char *)rng
->lpstrText
, nLen
+1, NULL
, NULL
);
979 return ME_GetTextW(editor
, rng
->lpstrText
, rng
->chrg
.cpMin
, rng
->chrg
.cpMax
-rng
->chrg
.cpMin
, FALSE
);
982 ME_CommitUndo(editor
);
983 ME_WrapMarkedParagraphs(editor
);
984 ME_MoveCaret(editor
);
987 ME_DestroyEditor(editor
);
988 SetWindowLongW(hWnd
, 0, 0);
992 ME_LButtonDown(editor
, (short)LOWORD(lParam
), (short)HIWORD(lParam
));
996 if (GetCapture() == hWnd
)
997 ME_MouseMove(editor
, (short)LOWORD(lParam
), (short)HIWORD(lParam
));
1000 if (GetCapture() == hWnd
)
1004 hDC
= BeginPaint(hWnd
, &ps
);
1005 ME_PaintContent(editor
, hDC
, FALSE
, &ps
.rcPaint
);
1006 EndPaint(hWnd
, &ps
);
1009 ME_ShowCaret(editor
);
1010 ME_SendOldNotify(editor
, EN_SETFOCUS
);
1013 ME_HideCaret(editor
);
1014 ME_SendOldNotify(editor
, EN_KILLFOCUS
);
1018 HDC hDC
= (HDC
)wParam
;
1020 COLORREF rgbBG
= ME_GetBackColor(editor
);
1021 if (GetUpdateRect(hWnd
,&rc
,TRUE
))
1023 HBRUSH hbr
= CreateSolidBrush(rgbBG
);
1024 FillRect(hDC
, &rc
, hbr
);
1030 TRACE("editor wnd command = %d\n", LOWORD(wParam
));
1033 if (ME_ArrowKey(editor
, LOWORD(wParam
), GetKeyState(VK_CONTROL
)<0)) {
1034 ME_CommitUndo(editor
);
1035 ME_EnsureVisible(editor
, editor
->pCursors
[0].pRun
);
1037 ME_MoveCaret(editor
);
1041 if (GetKeyState(VK_CONTROL
)<0)
1043 if (LOWORD(wParam
)=='W')
1047 ME_GetSelectionCharFormat(editor
, &chf
);
1048 ME_DumpStyleToBuf(&chf
, buf
);
1049 MessageBoxA(NULL
, buf
, "Style dump", MB_OK
);
1051 if (LOWORD(wParam
)=='Q')
1053 ME_CheckCharOffsets(editor
);
1060 if (GetWindowLongW(editor
->hWnd
, GWL_STYLE
) & ES_READONLY
) {
1061 MessageBeep(MB_ICONERROR
);
1062 return 0; /* FIXME really 0 ? */
1064 wstr
= LOWORD(wParam
);
1065 if (((unsigned)wstr
)>=' ' || wstr
=='\r') {
1066 /* FIXME maybe it would make sense to call EM_REPLACESEL instead ? */
1067 ME_Style
*style
= ME_GetInsertStyle(editor
, 0);
1068 ME_SaveTempStyle(editor
);
1069 ME_InsertTextFromCursor(editor
, 0, &wstr
, 1, style
);
1070 ME_ReleaseStyle(style
);
1071 ME_CommitUndo(editor
);
1072 ME_UpdateRepaint(editor
);
1078 si
.cbSize
= sizeof(SCROLLINFO
);
1079 si
.fMask
= SIF_PAGE
|SIF_POS
|SIF_RANGE
|SIF_TRACKPOS
;
1080 GetScrollInfo(hWnd
, SB_VERT
, &si
);
1081 switch(LOWORD(wParam
)) {
1083 SetScrollPos(hWnd
, SB_VERT
, si
.nTrackPos
, FALSE
);
1084 ScrollWindow(hWnd
, 0, si
.nPos
-si
.nTrackPos
, NULL
, NULL
);
1085 /* InvalidateRect(hWnd, NULL, TRUE); */
1093 ME_MarkAllForWrapping(editor
);
1095 return DefWindowProcW(hWnd
, msg
, wParam
, lParam
);
1097 case EM_GETOLEINTERFACE
:
1099 LPVOID
*ppvObj
= (LPVOID
*) lParam
;
1100 FIXME("EM_GETOLEINTERFACE %p: stub\n", ppvObj
);
1101 return CreateIRichEditOle(ppvObj
);
1105 return DefWindowProcW(hWnd
, msg
, wParam
, lParam
);
1110 /******************************************************************
1111 * RichEdit10ANSIWndProc (RICHED20.9)
1113 LRESULT WINAPI
RichEdit10ANSIWndProc(HWND hWnd
, UINT msg
, WPARAM wParam
, LPARAM lParam
)
1115 /* FIXME: this is NOT the same as 2.0 version */
1116 return RichEditANSIWndProc(hWnd
, msg
, wParam
, lParam
);
1119 void ME_SendOldNotify(ME_TextEditor
*editor
, int nCode
)
1121 HWND hWnd
= editor
->hWnd
;
1122 SendMessageA(GetParent(hWnd
), WM_COMMAND
, (nCode
<<16)|GetWindowLongW(hWnd
, GWLP_ID
), (LPARAM
)hWnd
);
1125 int ME_CountParagraphsBetween(ME_TextEditor
*editor
, int from
, int to
)
1127 ME_DisplayItem
*item
= ME_FindItemFwd(editor
->pBuffer
->pFirst
, diParagraph
);
1130 while(item
&& item
->member
.para
.next_para
->member
.para
.nCharOfs
<= from
)
1131 item
= item
->member
.para
.next_para
;
1134 while(item
&& item
->member
.para
.next_para
->member
.para
.nCharOfs
<= to
) {
1135 item
= item
->member
.para
.next_para
;
1142 int ME_GetTextW(ME_TextEditor
*editor
, WCHAR
*buffer
, int nStart
, int nChars
, int bCRLF
)
1144 ME_DisplayItem
*item
= ME_FindItemAtOffset(editor
, diRun
, nStart
, &nStart
);
1155 int nLen
= ME_StrLen(item
->member
.run
.strText
) - nStart
;
1158 CopyMemory(buffer
, item
->member
.run
.strText
->szData
+ nStart
, sizeof(WCHAR
)*nLen
);
1165 item
= ME_FindItemFwd(item
, diRun
);
1168 while(nChars
&& item
)
1170 int nLen
= ME_StrLen(item
->member
.run
.strText
);
1174 if (item
->member
.run
.nFlags
& MERF_ENDPARA
)
1184 CopyMemory(buffer
, item
->member
.run
.strText
->szData
, sizeof(WCHAR
)*nLen
);
1194 item
= ME_FindItemFwd(item
, diRun
);
1200 static WCHAR wszClassName
[] = {'R', 'i', 'c', 'h', 'E', 'd', 'i', 't', '2', '0', 'W', 0};
1201 static WCHAR wszClassName50
[] = {'R', 'i', 'c', 'h', 'E', 'd', 'i', 't', '5', '0', 'W', 0};
1203 void ME_RegisterEditorClass(HINSTANCE hInstance
)
1209 wcW
.style
= CS_HREDRAW
| CS_VREDRAW
;
1210 wcW
.lpfnWndProc
= RichEditANSIWndProc
;
1213 wcW
.hInstance
= NULL
; /* hInstance would register DLL-local class */
1215 wcW
.hCursor
= LoadCursorW(NULL
, MAKEINTRESOURCEW(IDC_IBEAM
));
1216 wcW
.hbrBackground
= (HBRUSH
)GetStockObject(NULL_BRUSH
);
1217 wcW
.lpszMenuName
= NULL
;
1218 wcW
.lpszClassName
= wszClassName
;
1219 bResult
= RegisterClassW(&wcW
);
1221 wcW
.lpszClassName
= wszClassName50
;
1222 bResult
= RegisterClassW(&wcW
);
1225 wcA
.style
= CS_HREDRAW
| CS_VREDRAW
;
1226 wcA
.lpfnWndProc
= RichEditANSIWndProc
;
1229 wcA
.hInstance
= NULL
; /* hInstance would register DLL-local class */
1231 wcA
.hCursor
= LoadCursorW(NULL
, MAKEINTRESOURCEW(IDC_IBEAM
));
1232 wcA
.hbrBackground
= (HBRUSH
)GetStockObject(NULL_BRUSH
);
1233 wcA
.lpszMenuName
= NULL
;
1234 wcA
.lpszClassName
= "RichEdit20A";
1235 bResult
= RegisterClassA(&wcA
);
1237 wcA
.lpszClassName
= "RichEdit50A";
1238 bResult
= RegisterClassA(&wcA
);
1242 BOOL WINAPI
DllMain(HINSTANCE hinstDLL
, DWORD fdwReason
, LPVOID lpvReserved
)
1247 case DLL_PROCESS_ATTACH
:
1248 DisableThreadLibraryCalls(hinstDLL
);
1249 me_heap
= HeapCreate (0, 0x10000, 0);
1250 ME_RegisterEditorClass(hinstDLL
);
1253 case DLL_PROCESS_DETACH
:
1254 UnregisterClassW(wszClassName
, 0);
1255 UnregisterClassW(wszClassName50
, 0);
1256 UnregisterClassA("RichEdit20A", 0);
1257 UnregisterClassA("RichEdit50A", 0);
1258 HeapDestroy (me_heap
);
1265 /******************************************************************
1266 * CreateTextServices (RICHED20.4)
1268 * FIXME should be ITextHost instead of void*
1270 HRESULT WINAPI
CreateTextServices(IUnknown
*punkOuter
, void *pITextHost
,
1274 /* FIXME should support aggregation */
1276 return CLASS_E_NOAGGREGATION
;
1278 return E_FAIL
; /* E_NOTIMPL isn't allowed by MSDN */
1281 /******************************************************************
1282 * REExtendedRegisterClass (RICHED20.8)
1284 * FIXME undocumented
1286 void WINAPI
REExtendedRegisterClass(void)