user32: Fix a DC leak in DrawIconEx.
[wine] / dlls / user32 / edit.c
1 /*
2  *      Edit control
3  *
4  *      Copyright  David W. Metcalfe, 1994
5  *      Copyright  William Magro, 1995, 1996
6  *      Copyright  Frans van Dorsselaer, 1996, 1997
7  *
8  *
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.
13  *
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.
18  *
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
22  *
23  * NOTES
24  *
25  * This code was audited for completeness against the documented features
26  * of Comctl32.dll version 6.0 on Oct. 8, 2004, by Dimitrie O. Paun.
27  * 
28  * Unless otherwise noted, we believe this code to be complete, as per
29  * the specification mentioned above.
30  * If you discover missing features, or bugs, please note them below.
31  *
32  * TODO:
33  *   - EDITBALLOONTIP structure
34  *   - EM_GETCUEBANNER/Edit_GetCueBannerText
35  *   - EM_HIDEBALLOONTIP/Edit_HideBalloonTip
36  *   - EM_SETCUEBANNER/Edit_SetCueBannerText
37  *   - EM_SHOWBALLOONTIP/Edit_ShowBalloonTip
38  *   - EM_GETIMESTATUS, EM_SETIMESTATUS
39  *   - EN_ALIGN_LTR_EC
40  *   - EN_ALIGN_RTL_EC
41  *   - ES_OEMCONVERT
42  *
43  */
44
45 #include "config.h"
46
47 #include <stdarg.h>
48 #include <string.h>
49 #include <stdlib.h>
50
51 #include "windef.h"
52 #include "winbase.h"
53 #include "winnt.h"
54 #include "win.h"
55 #include "imm.h"
56 #include "wine/unicode.h"
57 #include "controls.h"
58 #include "user_private.h"
59 #include "wine/debug.h"
60
61 WINE_DEFAULT_DEBUG_CHANNEL(edit);
62 WINE_DECLARE_DEBUG_CHANNEL(combo);
63 WINE_DECLARE_DEBUG_CHANNEL(relay);
64
65 #define BUFLIMIT_INITIAL    30000   /* initial buffer size */
66 #define GROWLENGTH              32      /* buffers granularity in bytes: must be power of 2 */
67 #define ROUND_TO_GROW(size)     (((size) + (GROWLENGTH - 1)) & ~(GROWLENGTH - 1))
68 #define HSCROLL_FRACTION        3       /* scroll window by 1/3 width */
69
70 /*
71  *      extra flags for EDITSTATE.flags field
72  */
73 #define EF_MODIFIED             0x0001  /* text has been modified */
74 #define EF_FOCUSED              0x0002  /* we have input focus */
75 #define EF_UPDATE               0x0004  /* notify parent of changed state */
76 #define EF_VSCROLL_TRACK        0x0008  /* don't SetScrollPos() since we are tracking the thumb */
77 #define EF_HSCROLL_TRACK        0x0010  /* don't SetScrollPos() since we are tracking the thumb */
78 #define EF_AFTER_WRAP           0x0080  /* the caret is displayed after the last character of a
79                                            wrapped line, instead of in front of the next character */
80 #define EF_USE_SOFTBRK          0x0100  /* Enable soft breaks in text. */
81 #define EF_APP_HAS_HANDLE       0x0200  /* Set when an app sends EM_[G|S]ETHANDLE.  We are in sole control of
82                                            the text buffer if this is clear. */
83 #define EF_DIALOGMODE           0x0400  /* Indicates that we are inside a dialog window */
84
85 typedef enum
86 {
87         END_0 = 0,                      /* line ends with terminating '\0' character */
88         END_WRAP,                       /* line is wrapped */
89         END_HARD,                       /* line ends with a hard return '\r\n' */
90         END_SOFT,                       /* line ends with a soft return '\r\r\n' */
91         END_RICH                        /* line ends with a single '\n' */
92 } LINE_END;
93
94 typedef struct tagLINEDEF {
95         INT length;                     /* bruto length of a line in bytes */
96         INT net_length;                 /* netto length of a line in visible characters */
97         LINE_END ending;
98         INT width;                      /* width of the line in pixels */
99         INT index;                      /* line index into the buffer */
100         struct tagLINEDEF *next;
101 } LINEDEF;
102
103 typedef struct
104 {
105         BOOL is_unicode;                /* how the control was created */
106         LPWSTR text;                    /* the actual contents of the control */
107         UINT text_length;               /* cached length of text buffer (in WCHARs) - use get_text_length() to retrieve */
108         UINT buffer_size;               /* the size of the buffer in characters */
109         UINT buffer_limit;              /* the maximum size to which the buffer may grow in characters */
110         HFONT font;                     /* NULL means standard system font */
111         INT x_offset;                   /* scroll offset        for multi lines this is in pixels
112                                                                 for single lines it's in characters */
113         INT line_height;                /* height of a screen line in pixels */
114         INT char_width;                 /* average character width in pixels */
115         DWORD style;                    /* sane version of wnd->dwStyle */
116         WORD flags;                     /* flags that are not in es->style or wnd->flags (EF_XXX) */
117         INT undo_insert_count;          /* number of characters inserted in sequence */
118         UINT undo_position;             /* character index of the insertion and deletion */
119         LPWSTR undo_text;               /* deleted text */
120         UINT undo_buffer_size;          /* size of the deleted text buffer */
121         INT selection_start;            /* == selection_end if no selection */
122         INT selection_end;              /* == current caret position */
123         WCHAR password_char;            /* == 0 if no password char, and for multi line controls */
124         INT left_margin;                /* in pixels */
125         INT right_margin;               /* in pixels */
126         RECT format_rect;
127         INT text_width;                 /* width of the widest line in pixels for multi line controls
128                                            and just line width for single line controls */
129         INT region_posx;                /* Position of cursor relative to region: */
130         INT region_posy;                /* -1: to left, 0: within, 1: to right */
131         void *word_break_proc;          /* 32-bit word break proc: ANSI or Unicode */
132         INT line_count;                 /* number of lines */
133         INT y_offset;                   /* scroll offset in number of lines */
134         BOOL bCaptureState;             /* flag indicating whether mouse was captured */
135         BOOL bEnableState;              /* flag keeping the enable state */
136         HWND hwndSelf;                  /* the our window handle */
137         HWND hwndParent;                /* Handle of parent for sending EN_* messages.
138                                            Even if parent will change, EN_* messages
139                                            should be sent to the first parent. */
140         HWND hwndListBox;               /* handle of ComboBox's listbox or NULL */
141         /*
142          *      only for multi line controls
143          */
144         INT lock_count;                 /* amount of re-entries in the EditWndProc */
145         INT tabs_count;
146         LPINT tabs;
147         LINEDEF *first_line_def;        /* linked list of (soft) linebreaks */
148         HLOCAL hloc32W;                 /* our unicode local memory block */
149         HLOCAL hloc32A;                 /* alias for ANSI control receiving EM_GETHANDLE
150                                            or EM_SETHANDLE */
151         /*
152          * IME Data
153          */
154         UINT composition_len;   /* length of composition, 0 == no composition */
155         int composition_start;  /* the character position for the composition */
156 } EDITSTATE;
157
158
159 #define SWAP_UINT32(x,y) do { UINT temp = (UINT)(x); (x) = (UINT)(y); (y) = temp; } while(0)
160 #define ORDER_UINT(x,y) do { if ((UINT)(y) < (UINT)(x)) SWAP_UINT32((x),(y)); } while(0)
161
162 /* used for disabled or read-only edit control */
163 #define EDIT_NOTIFY_PARENT(es, wNotifyCode) \
164         do \
165         { /* Notify parent which has created this edit control */ \
166             TRACE("notification " #wNotifyCode " sent to hwnd=%p\n", es->hwndParent); \
167             SendMessageW(es->hwndParent, WM_COMMAND, \
168                      MAKEWPARAM(GetWindowLongPtrW((es->hwndSelf),GWLP_ID), wNotifyCode), \
169                      (LPARAM)(es->hwndSelf)); \
170         } while(0)
171
172 static const WCHAR empty_stringW[] = {0};
173
174 /*********************************************************************
175  *
176  *      EM_CANUNDO
177  *
178  */
179 static inline BOOL EDIT_EM_CanUndo(const EDITSTATE *es)
180 {
181         return (es->undo_insert_count || strlenW(es->undo_text));
182 }
183
184
185 /*********************************************************************
186  *
187  *      EM_EMPTYUNDOBUFFER
188  *
189  */
190 static inline void EDIT_EM_EmptyUndoBuffer(EDITSTATE *es)
191 {
192         es->undo_insert_count = 0;
193         *es->undo_text = '\0';
194 }
195
196
197 /**********************************************************************
198  *         get_app_version
199  *
200  * Returns the window version in case Wine emulates a later version
201  * of windows than the application expects.
202  *
203  * In a number of cases when windows runs an application that was
204  * designed for an earlier windows version, windows reverts
205  * to "old" behaviour of that earlier version.
206  *
207  * An example is a disabled  edit control that needs to be painted.
208  * Old style behaviour is to send a WM_CTLCOLOREDIT message. This was
209  * changed in Win95, NT4.0 by a WM_CTLCOLORSTATIC message _only_ for
210  * applications with an expected version 0f 4.0 or higher.
211  *
212  */
213 static DWORD get_app_version(void)
214 {
215     static DWORD version;
216     if (!version)
217     {
218         DWORD dwEmulatedVersion;
219         OSVERSIONINFOW info;
220         DWORD dwProcVersion = GetProcessVersion(0);
221
222         info.dwOSVersionInfoSize = sizeof(OSVERSIONINFOW);
223         GetVersionExW( &info );
224         dwEmulatedVersion = MAKELONG( info.dwMinorVersion, info.dwMajorVersion );
225         /* FIXME: this may not be 100% correct; see discussion on the
226          * wine developer list in Nov 1999 */
227         version = dwProcVersion < dwEmulatedVersion ? dwProcVersion : dwEmulatedVersion;
228     }
229     return version;
230 }
231
232 static HBRUSH EDIT_NotifyCtlColor(EDITSTATE *es, HDC hdc)
233 {
234         HBRUSH hbrush;
235         UINT msg;
236
237         if ( get_app_version() >= 0x40000 && (!es->bEnableState || (es->style & ES_READONLY)))
238                 msg = WM_CTLCOLORSTATIC;
239         else
240                 msg = WM_CTLCOLOREDIT;
241
242         /* why do we notify to es->hwndParent, and we send this one to GetParent()? */
243         hbrush = (HBRUSH)SendMessageW(GetParent(es->hwndSelf), msg, (WPARAM)hdc, (LPARAM)es->hwndSelf);
244         if (!hbrush)
245             hbrush = (HBRUSH)DefWindowProcW(GetParent(es->hwndSelf), msg, (WPARAM)hdc, (LPARAM)es->hwndSelf);
246         return hbrush;
247 }
248
249
250 /*********************************************************************
251  *
252  *      EDIT_WordBreakProc
253  *
254  *      Find the beginning of words.
255  *      Note:   unlike the specs for a WordBreakProc, this function only
256  *              allows to be called without linebreaks between s[0] up to
257  *              s[count - 1].  Remember it is only called
258  *              internally, so we can decide this for ourselves.
259  *
260  */
261 static INT EDIT_WordBreakProc(LPWSTR s, INT index, INT count, INT action)
262 {
263         INT ret = 0;
264
265         TRACE("s=%p, index=%d, count=%d, action=%d\n", s, index, count, action);
266
267         if(!s) return 0;
268
269         switch (action) {
270         case WB_LEFT:
271                 if (!count)
272                         break;
273                 if (index)
274                         index--;
275                 if (s[index] == ' ') {
276                         while (index && (s[index] == ' '))
277                                 index--;
278                         if (index) {
279                                 while (index && (s[index] != ' '))
280                                         index--;
281                                 if (s[index] == ' ')
282                                         index++;
283                         }
284                 } else {
285                         while (index && (s[index] != ' '))
286                                 index--;
287                         if (s[index] == ' ')
288                                 index++;
289                 }
290                 ret = index;
291                 break;
292         case WB_RIGHT:
293                 if (!count)
294                         break;
295                 if (index)
296                         index--;
297                 if (s[index] == ' ')
298                         while ((index < count) && (s[index] == ' ')) index++;
299                 else {
300                         while (s[index] && (s[index] != ' ') && (index < count))
301                                 index++;
302                         while ((s[index] == ' ') && (index < count)) index++;
303                 }
304                 ret = index;
305                 break;
306         case WB_ISDELIMITER:
307                 ret = (s[index] == ' ');
308                 break;
309         default:
310                 ERR("unknown action code, please report !\n");
311                 break;
312         }
313         return ret;
314 }
315
316
317 /*********************************************************************
318  *
319  *      EDIT_CallWordBreakProc
320  *
321  *      Call appropriate WordBreakProc (internal or external).
322  *
323  *      Note: The "start" argument should always be an index referring
324  *              to es->text.  The actual wordbreak proc might be
325  *              16 bit, so we can't always pass any 32 bit LPSTR.
326  *              Hence we assume that es->text is the buffer that holds
327  *              the string under examination (we can decide this for ourselves).
328  *
329  */
330 static INT EDIT_CallWordBreakProc(EDITSTATE *es, INT start, INT index, INT count, INT action)
331 {
332         INT ret;
333
334         if (es->word_break_proc)
335         {
336             if(es->is_unicode)
337             {
338                 EDITWORDBREAKPROCW wbpW = (EDITWORDBREAKPROCW)es->word_break_proc;
339
340                 TRACE_(relay)("(UNICODE wordbrk=%p,str=%s,idx=%d,cnt=%d,act=%d)\n",
341                         es->word_break_proc, debugstr_wn(es->text + start, count), index, count, action);
342                 ret = wbpW(es->text + start, index, count, action);
343             }
344             else
345             {
346                 EDITWORDBREAKPROCA wbpA = (EDITWORDBREAKPROCA)es->word_break_proc;
347                 INT countA;
348                 CHAR *textA;
349
350                 countA = WideCharToMultiByte(CP_ACP, 0, es->text + start, count, NULL, 0, NULL, NULL);
351                 textA = HeapAlloc(GetProcessHeap(), 0, countA);
352                 WideCharToMultiByte(CP_ACP, 0, es->text + start, count, textA, countA, NULL, NULL);
353                 TRACE_(relay)("(ANSI wordbrk=%p,str=%s,idx=%d,cnt=%d,act=%d)\n",
354                         es->word_break_proc, debugstr_an(textA, countA), index, countA, action);
355                 ret = wbpA(textA, index, countA, action);
356                 HeapFree(GetProcessHeap(), 0, textA);
357             }
358         }
359         else
360             ret = EDIT_WordBreakProc(es->text + start, index, count, action);
361
362         return ret;
363 }
364
365 /*********************************************************************
366  *
367  *      EDIT_BuildLineDefs_ML
368  *
369  *      Build linked list of text lines.
370  *      Lines can end with '\0' (last line), a character (if it is wrapped),
371  *      a soft return '\r\r\n' or a hard return '\r\n'
372  *
373  */
374 static void EDIT_BuildLineDefs_ML(EDITSTATE *es, INT istart, INT iend, INT delta, HRGN hrgn)
375 {
376         HDC dc;
377         HFONT old_font = 0;
378         LPWSTR current_position, cp;
379         INT fw;
380         LINEDEF *current_line;
381         LINEDEF *previous_line;
382         LINEDEF *start_line;
383         INT line_index = 0, nstart_line = 0, nstart_index = 0;
384         INT line_count = es->line_count;
385         INT orig_net_length;
386         RECT rc;
387
388         if (istart == iend && delta == 0)
389                 return;
390
391         dc = GetDC(es->hwndSelf);
392         if (es->font)
393                 old_font = SelectObject(dc, es->font);
394
395         previous_line = NULL;
396         current_line = es->first_line_def;
397
398         /* Find starting line. istart must lie inside an existing line or
399          * at the end of buffer */
400         do {
401                 if (istart < current_line->index + current_line->length ||
402                                 current_line->ending == END_0)
403                         break;
404
405                 previous_line = current_line;
406                 current_line = current_line->next;
407                 line_index++;
408         } while (current_line);
409
410         if (!current_line) /* Error occurred start is not inside previous buffer */
411         {
412                 FIXME(" modification occurred outside buffer\n");
413                 ReleaseDC(es->hwndSelf, dc);
414                 return;
415         }
416
417         /* Remember start of modifications in order to calculate update region */
418         nstart_line = line_index;
419         nstart_index = current_line->index;
420
421         /* We must start to reformat from the previous line since the modifications
422          * may have caused the line to wrap upwards. */
423         if (!(es->style & ES_AUTOHSCROLL) && line_index > 0)
424         {
425                 line_index--;
426                 current_line = previous_line;
427         }
428         start_line = current_line;
429
430         fw = es->format_rect.right - es->format_rect.left;
431         current_position = es->text + current_line->index;
432         do {
433                 if (current_line != start_line)
434                 {
435                         if (!current_line || current_line->index + delta > current_position - es->text)
436                         {
437                                 /* The buffer has been expanded, create a new line and
438                                    insert it into the link list */
439                                 LINEDEF *new_line = HeapAlloc(GetProcessHeap(), 0, sizeof(LINEDEF));
440                                 new_line->next = previous_line->next;
441                                 previous_line->next = new_line;
442                                 current_line = new_line;
443                                 es->line_count++;
444                         }
445                         else if (current_line->index + delta < current_position - es->text)
446                         {
447                                 /* The previous line merged with this line so we delete this extra entry */
448                                 previous_line->next = current_line->next;
449                                 HeapFree(GetProcessHeap(), 0, current_line);
450                                 current_line = previous_line->next;
451                                 es->line_count--;
452                                 continue;
453                         }
454                         else /* current_line->index + delta == current_position */
455                         {
456                                 if (current_position - es->text > iend)
457                                         break; /* We reached end of line modifications */
458                                 /* else recalculate this line */
459                         }
460                 }
461
462                 current_line->index = current_position - es->text;
463                 orig_net_length = current_line->net_length;
464
465                 /* Find end of line */
466                 cp = current_position;
467                 while (*cp) {
468                     if (*cp == '\n') break;
469                         if ((*cp == '\r') && (*(cp + 1) == '\n'))
470                                 break;
471                         cp++;
472                 }
473
474                 /* Mark type of line termination */
475                 if (!(*cp)) {
476                         current_line->ending = END_0;
477                         current_line->net_length = strlenW(current_position);
478                 } else if ((cp > current_position) && (*(cp - 1) == '\r')) {
479                         current_line->ending = END_SOFT;
480                         current_line->net_length = cp - current_position - 1;
481                 } else if (*cp == '\n') {
482                         current_line->ending = END_RICH;
483                         current_line->net_length = cp - current_position;
484                 } else {
485                         current_line->ending = END_HARD;
486                         current_line->net_length = cp - current_position;
487                 }
488
489                 /* Calculate line width */
490                 current_line->width = (INT)LOWORD(GetTabbedTextExtentW(dc,
491                                         current_position, current_line->net_length,
492                                         es->tabs_count, es->tabs));
493
494                 /* FIXME: check here for lines that are too wide even in AUTOHSCROLL (> 32767 ???) */
495                 if (!(es->style & ES_AUTOHSCROLL)) {
496                    if (current_line->width > fw) {
497                         INT next = 0;
498                         INT prev;
499                         do {
500                                 prev = next;
501                                 next = EDIT_CallWordBreakProc(es, current_position - es->text,
502                                                 prev + 1, current_line->net_length, WB_RIGHT);
503                                 current_line->width = (INT)LOWORD(GetTabbedTextExtentW(dc,
504                                                         current_position, next, es->tabs_count, es->tabs));
505                         } while (current_line->width <= fw);
506                         if (!prev) { /* Didn't find a line break so force a break */
507                                 next = 0;
508                                 do {
509                                         prev = next;
510                                         next++;
511                                         current_line->width = (INT)LOWORD(GetTabbedTextExtentW(dc,
512                                                                 current_position, next, es->tabs_count, es->tabs));
513                                 } while (current_line->width <= fw);
514                                 if (!prev)
515                                         prev = 1;
516                         }
517
518                         /* If the first line we are calculating, wrapped before istart, we must
519                          * adjust istart in order for this to be reflected in the update region. */
520                         if (current_line->index == nstart_index && istart > current_line->index + prev)
521                                 istart = current_line->index + prev;
522                         /* else if we are updating the previous line before the first line we
523                          * are re-calculating and it expanded */
524                         else if (current_line == start_line &&
525                                         current_line->index != nstart_index && orig_net_length < prev)
526                         {
527                           /* Line expanded due to an upwards line wrap so we must partially include
528                            * previous line in update region */
529                                 nstart_line = line_index;
530                                 nstart_index = current_line->index;
531                                 istart = current_line->index + orig_net_length;
532                         }
533
534                         current_line->net_length = prev;
535                         current_line->ending = END_WRAP;
536                         current_line->width = (INT)LOWORD(GetTabbedTextExtentW(dc, current_position,
537                                         current_line->net_length, es->tabs_count, es->tabs));
538                     }
539                     else if (current_line == start_line &&
540                              current_line->index != nstart_index &&
541                              orig_net_length < current_line->net_length) {
542                         /* The previous line expanded but it's still not as wide as the client rect */
543                         /* The expansion is due to an upwards line wrap so we must partially include
544                            it in the update region */
545                         nstart_line = line_index;
546                         nstart_index = current_line->index;
547                         istart = current_line->index + orig_net_length;
548                     }
549                 }
550
551
552                 /* Adjust length to include line termination */
553                 switch (current_line->ending) {
554                 case END_SOFT:
555                         current_line->length = current_line->net_length + 3;
556                         break;
557                 case END_RICH:
558                         current_line->length = current_line->net_length + 1;
559                         break;
560                 case END_HARD:
561                         current_line->length = current_line->net_length + 2;
562                         break;
563                 case END_WRAP:
564                 case END_0:
565                         current_line->length = current_line->net_length;
566                         break;
567                 }
568                 es->text_width = max(es->text_width, current_line->width);
569                 current_position += current_line->length;
570                 previous_line = current_line;
571                 current_line = current_line->next;
572                 line_index++;
573         } while (previous_line->ending != END_0);
574
575         /* Finish adjusting line indexes by delta or remove hanging lines */
576         if (previous_line->ending == END_0)
577         {
578                 LINEDEF *pnext = NULL;
579
580                 previous_line->next = NULL;
581                 while (current_line)
582                 {
583                         pnext = current_line->next;
584                         HeapFree(GetProcessHeap(), 0, current_line);
585                         current_line = pnext;
586                         es->line_count--;
587                 }
588         }
589         else if (delta != 0)
590         {
591                 while (current_line)
592                 {
593                         current_line->index += delta;
594                         current_line = current_line->next;
595                 }
596         }
597
598         /* Calculate rest of modification rectangle */
599         if (hrgn)
600         {
601                 HRGN tmphrgn;
602            /*
603                 * We calculate two rectangles. One for the first line which may have
604                 * an indent with respect to the format rect. The other is a format-width
605                 * rectangle that spans the rest of the lines that changed or moved.
606                 */
607                 rc.top = es->format_rect.top + nstart_line * es->line_height -
608                         (es->y_offset * es->line_height); /* Adjust for vertical scrollbar */
609                 rc.bottom = rc.top + es->line_height;
610                 if ((es->style & ES_CENTER) || (es->style & ES_RIGHT))
611                         rc.left = es->format_rect.left;
612                 else
613                         rc.left = es->format_rect.left + (INT)LOWORD(GetTabbedTextExtentW(dc,
614                                         es->text + nstart_index, istart - nstart_index,
615                                         es->tabs_count, es->tabs)) - es->x_offset; /* Adjust for horz scroll */
616                 rc.right = es->format_rect.right;
617                 SetRectRgn(hrgn, rc.left, rc.top, rc.right, rc.bottom);
618
619                 rc.top = rc.bottom;
620                 rc.left = es->format_rect.left;
621                 rc.right = es->format_rect.right;
622            /*
623                 * If lines were added or removed we must re-paint the remainder of the
624             * lines since the remaining lines were either shifted up or down.
625                 */
626                 if (line_count < es->line_count) /* We added lines */
627                         rc.bottom = es->line_count * es->line_height;
628                 else if (line_count > es->line_count) /* We removed lines */
629                         rc.bottom = line_count * es->line_height;
630                 else
631                         rc.bottom = line_index * es->line_height;
632                 rc.bottom += es->format_rect.top;
633                 rc.bottom -= (es->y_offset * es->line_height); /* Adjust for vertical scrollbar */
634                 tmphrgn = CreateRectRgn(rc.left, rc.top, rc.right, rc.bottom);
635                 CombineRgn(hrgn, hrgn, tmphrgn, RGN_OR);
636                 DeleteObject(tmphrgn);
637         }
638
639         if (es->font)
640                 SelectObject(dc, old_font);
641
642         ReleaseDC(es->hwndSelf, dc);
643 }
644
645
646 static inline UINT get_text_length(EDITSTATE *es)
647 {
648     if(es->text_length == (UINT)-1)
649         es->text_length = strlenW(es->text);
650     return es->text_length;
651 }
652
653 /*********************************************************************
654  *
655  *      EDIT_GetPasswordPointer_SL
656  *
657  *      note: caller should free the (optionally) allocated buffer
658  *
659  */
660 static LPWSTR EDIT_GetPasswordPointer_SL(EDITSTATE *es)
661 {
662         if (es->style & ES_PASSWORD) {
663                 INT len = get_text_length(es);
664                 LPWSTR text = HeapAlloc(GetProcessHeap(), 0, (len + 1) * sizeof(WCHAR));
665                 text[len] = '\0';
666                 while(len) text[--len] = es->password_char;
667                 return text;
668         } else
669                 return es->text;
670 }
671
672
673 /*********************************************************************
674  *
675  *      EDIT_CalcLineWidth_SL
676  *
677  */
678 static void EDIT_CalcLineWidth_SL(EDITSTATE *es)
679 {
680         SIZE size;
681         LPWSTR text;
682         HDC dc;
683         HFONT old_font = 0;
684
685         text = EDIT_GetPasswordPointer_SL(es);
686
687         dc = GetDC(es->hwndSelf);
688         if (es->font)
689                 old_font = SelectObject(dc, es->font);
690
691         GetTextExtentPoint32W(dc, text, strlenW(text), &size);
692
693         if (es->font)
694                 SelectObject(dc, old_font);
695         ReleaseDC(es->hwndSelf, dc);
696
697         if (es->style & ES_PASSWORD)
698                 HeapFree(GetProcessHeap(), 0, text);
699
700         es->text_width = size.cx;
701 }
702
703 /*********************************************************************
704  *
705  *      EDIT_CharFromPos
706  *
707  *      Beware: This is not the function called on EM_CHARFROMPOS
708  *              The position _can_ be outside the formatting / client
709  *              rectangle
710  *              The return value is only the character index
711  *
712  */
713 static INT EDIT_CharFromPos(EDITSTATE *es, INT x, INT y, LPBOOL after_wrap)
714 {
715         INT index;
716         HDC dc;
717         HFONT old_font = 0;
718         INT x_high = 0, x_low = 0;
719
720         if (es->style & ES_MULTILINE) {
721                 INT line = (y - es->format_rect.top) / es->line_height + es->y_offset;
722                 INT line_index = 0;
723                 LINEDEF *line_def = es->first_line_def;
724                 INT low, high;
725                 while ((line > 0) && line_def->next) {
726                         line_index += line_def->length;
727                         line_def = line_def->next;
728                         line--;
729                 }
730                 x += es->x_offset - es->format_rect.left;
731                 if (es->style & ES_RIGHT)
732                         x -= (es->format_rect.right - es->format_rect.left) - line_def->width;
733                 else if (es->style & ES_CENTER)
734                         x -= ((es->format_rect.right - es->format_rect.left) - line_def->width) / 2;
735                 if (x >= line_def->width) {
736                         if (after_wrap)
737                                 *after_wrap = (line_def->ending == END_WRAP);
738                         return line_index + line_def->net_length;
739                 }
740                 if (x <= 0) {
741                         if (after_wrap)
742                                 *after_wrap = FALSE;
743                         return line_index;
744                 }
745                 dc = GetDC(es->hwndSelf);
746                 if (es->font)
747                         old_font = SelectObject(dc, es->font);
748                     low = line_index;
749                     high = line_index + line_def->net_length + 1;
750                     while (low < high - 1)
751                     {
752                         INT mid = (low + high) / 2;
753                         INT x_now = LOWORD(GetTabbedTextExtentW(dc, es->text + line_index, mid - line_index, es->tabs_count, es->tabs));
754                         if (x_now > x) {
755                             high = mid;
756                             x_high = x_now;
757                         } else {
758                             low = mid;
759                             x_low = x_now;
760                         }
761                     }
762                     if (abs(x_high - x) + 1 <= abs(x_low - x))
763                         index = high;
764                     else
765                         index = low;
766
767                 if (after_wrap)
768                         *after_wrap = ((index == line_index + line_def->net_length) &&
769                                                         (line_def->ending == END_WRAP));
770         } else {
771                 LPWSTR text;
772                 SIZE size;
773                 if (after_wrap)
774                         *after_wrap = FALSE;
775                 x -= es->format_rect.left;
776                 if (!x)
777                         return es->x_offset;
778
779                 if (!es->x_offset)
780                 {
781                         INT indent = (es->format_rect.right - es->format_rect.left) - es->text_width;
782                         if (es->style & ES_RIGHT)
783                                 x -= indent;
784                         else if (es->style & ES_CENTER)
785                                 x -= indent / 2;
786                 }
787
788                 text = EDIT_GetPasswordPointer_SL(es);
789                 dc = GetDC(es->hwndSelf);
790                 if (es->font)
791                         old_font = SelectObject(dc, es->font);
792                 if (x < 0)
793                 {
794                     INT low = 0;
795                     INT high = es->x_offset;
796                     while (low < high - 1)
797                     {
798                         INT mid = (low + high) / 2;
799                         GetTextExtentPoint32W( dc, text + mid,
800                                                es->x_offset - mid, &size );
801                         if (size.cx > -x) {
802                             low = mid;
803                             x_low = size.cx;
804                         } else {
805                             high = mid;
806                             x_high = size.cx;
807                         }
808                     }
809                     if (abs(x_high + x) <= abs(x_low + x) + 1)
810                         index = high;
811                     else
812                         index = low;
813                 }
814                 else
815                 {
816                     INT low = es->x_offset;
817                     INT high = get_text_length(es) + 1;
818                     while (low < high - 1)
819                     {
820                         INT mid = (low + high) / 2;
821                         GetTextExtentPoint32W( dc, text + es->x_offset,
822                                                mid - es->x_offset, &size );
823                         if (size.cx > x) {
824                                high = mid;
825                                x_high = size.cx;
826                         } else {
827                                low = mid;
828                                x_low = size.cx;
829                        }
830                     }
831                    if (abs(x_high - x) <= abs(x_low - x) + 1)
832                        index = high;
833                    else
834                        index = low;
835                 }
836                 if (es->style & ES_PASSWORD)
837                         HeapFree(GetProcessHeap(), 0, text);
838         }
839         if (es->font)
840                 SelectObject(dc, old_font);
841         ReleaseDC(es->hwndSelf, dc);
842         return index;
843 }
844
845
846 /*********************************************************************
847  *
848  *      EDIT_ConfinePoint
849  *
850  *      adjusts the point to be within the formatting rectangle
851  *      (so CharFromPos returns the nearest _visible_ character)
852  *
853  */
854 static void EDIT_ConfinePoint(const EDITSTATE *es, LPINT x, LPINT y)
855 {
856         *x = min(max(*x, es->format_rect.left), es->format_rect.right - 1);
857         *y = min(max(*y, es->format_rect.top), es->format_rect.bottom - 1);
858 }
859
860
861 /*********************************************************************
862  *
863  *      EM_LINEFROMCHAR
864  *
865  */
866 static INT EDIT_EM_LineFromChar(EDITSTATE *es, INT index)
867 {
868         INT line;
869         LINEDEF *line_def;
870
871         if (!(es->style & ES_MULTILINE))
872                 return 0;
873         if (index > (INT)get_text_length(es))
874                 return es->line_count - 1;
875         if (index == -1)
876                 index = min(es->selection_start, es->selection_end);
877
878         line = 0;
879         line_def = es->first_line_def;
880         index -= line_def->length;
881         while ((index >= 0) && line_def->next) {
882                 line++;
883                 line_def = line_def->next;
884                 index -= line_def->length;
885         }
886         return line;
887 }
888
889
890 /*********************************************************************
891  *
892  *      EM_LINEINDEX
893  *
894  */
895 static INT EDIT_EM_LineIndex(const EDITSTATE *es, INT line)
896 {
897         INT line_index;
898         const LINEDEF *line_def;
899
900         if (!(es->style & ES_MULTILINE))
901                 return 0;
902         if (line >= es->line_count)
903                 return -1;
904
905         line_index = 0;
906         line_def = es->first_line_def;
907         if (line == -1) {
908                 INT index = es->selection_end - line_def->length;
909                 while ((index >= 0) && line_def->next) {
910                         line_index += line_def->length;
911                         line_def = line_def->next;
912                         index -= line_def->length;
913                 }
914         } else {
915                 while (line > 0) {
916                         line_index += line_def->length;
917                         line_def = line_def->next;
918                         line--;
919                 }
920         }
921         return line_index;
922 }
923
924
925 /*********************************************************************
926  *
927  *      EM_LINELENGTH
928  *
929  */
930 static INT EDIT_EM_LineLength(EDITSTATE *es, INT index)
931 {
932         LINEDEF *line_def;
933
934         if (!(es->style & ES_MULTILINE))
935                 return get_text_length(es);
936
937         if (index == -1) {
938                 /* get the number of remaining non-selected chars of selected lines */
939                 INT32 l; /* line number */
940                 INT32 li; /* index of first char in line */
941                 INT32 count;
942                 l = EDIT_EM_LineFromChar(es, es->selection_start);
943                 /* # chars before start of selection area */
944                 count = es->selection_start - EDIT_EM_LineIndex(es, l);
945                 l = EDIT_EM_LineFromChar(es, es->selection_end);
946                 /* # chars after end of selection */
947                 li = EDIT_EM_LineIndex(es, l);
948                 count += li + EDIT_EM_LineLength(es, li) - es->selection_end;
949                 return count;
950         }
951         line_def = es->first_line_def;
952         index -= line_def->length;
953         while ((index >= 0) && line_def->next) {
954                 line_def = line_def->next;
955                 index -= line_def->length;
956         }
957         return line_def->net_length;
958 }
959
960
961 /*********************************************************************
962  *
963  *      EM_POSFROMCHAR
964  *
965  */
966 static LRESULT EDIT_EM_PosFromChar(EDITSTATE *es, INT index, BOOL after_wrap)
967 {
968         INT len = get_text_length(es);
969         INT l;
970         INT li;
971         INT x;
972         INT y = 0;
973         INT w;
974         INT lw = 0;
975         INT ll = 0;
976         HDC dc;
977         HFONT old_font = 0;
978         SIZE size;
979         LINEDEF *line_def;
980
981         index = min(index, len);
982         dc = GetDC(es->hwndSelf);
983         if (es->font)
984                 old_font = SelectObject(dc, es->font);
985         if (es->style & ES_MULTILINE) {
986                 l = EDIT_EM_LineFromChar(es, index);
987                 y = (l - es->y_offset) * es->line_height;
988                 li = EDIT_EM_LineIndex(es, l);
989                 if (after_wrap && (li == index) && l) {
990                         INT l2 = l - 1;
991                         line_def = es->first_line_def;
992                         while (l2) {
993                                 line_def = line_def->next;
994                                 l2--;
995                         }
996                         if (line_def->ending == END_WRAP) {
997                                 l--;
998                                 y -= es->line_height;
999                                 li = EDIT_EM_LineIndex(es, l);
1000                         }
1001                 }
1002
1003                 line_def = es->first_line_def;
1004                 while (line_def->index != li)
1005                         line_def = line_def->next;
1006
1007                 ll = line_def->net_length;
1008                 lw = line_def->width;
1009
1010                 w = es->format_rect.right - es->format_rect.left;
1011                 if (es->style & ES_RIGHT)
1012                 {
1013                         x = LOWORD(GetTabbedTextExtentW(dc, es->text + li + (index - li), ll - (index - li),
1014                                 es->tabs_count, es->tabs)) - es->x_offset;
1015                         x = w - x;
1016                 }
1017                 else if (es->style & ES_CENTER)
1018                 {
1019                         x = LOWORD(GetTabbedTextExtentW(dc, es->text + li, index - li,
1020                                 es->tabs_count, es->tabs)) - es->x_offset;
1021                         x += (w - lw) / 2;
1022                 }
1023                 else /* ES_LEFT */
1024                 {
1025                     x = LOWORD(GetTabbedTextExtentW(dc, es->text + li, index - li,
1026                                 es->tabs_count, es->tabs)) - es->x_offset;
1027                 }
1028         } else {
1029                 LPWSTR text = EDIT_GetPasswordPointer_SL(es);
1030                 if (index < es->x_offset) {
1031                         GetTextExtentPoint32W(dc, text + index,
1032                                         es->x_offset - index, &size);
1033                         x = -size.cx;
1034                 } else {
1035                         GetTextExtentPoint32W(dc, text + es->x_offset,
1036                                         index - es->x_offset, &size);
1037                          x = size.cx;
1038
1039                         if (!es->x_offset && (es->style & (ES_RIGHT | ES_CENTER)))
1040                         {
1041                                 w = es->format_rect.right - es->format_rect.left;
1042                                 if (w > es->text_width)
1043                                 {
1044                                         if (es->style & ES_RIGHT)
1045                                                 x += w - es->text_width;
1046                                         else if (es->style & ES_CENTER)
1047                                                 x += (w - es->text_width) / 2;
1048                                 }
1049                         }
1050                 }
1051                 y = 0;
1052                 if (es->style & ES_PASSWORD)
1053                         HeapFree(GetProcessHeap(), 0, text);
1054         }
1055         x += es->format_rect.left;
1056         y += es->format_rect.top;
1057         if (es->font)
1058                 SelectObject(dc, old_font);
1059         ReleaseDC(es->hwndSelf, dc);
1060         return MAKELONG((INT16)x, (INT16)y);
1061 }
1062
1063
1064 /*********************************************************************
1065  *
1066  *      EDIT_GetLineRect
1067  *
1068  *      Calculates the bounding rectangle for a line from a starting
1069  *      column to an ending column.
1070  *
1071  */
1072 static void EDIT_GetLineRect(EDITSTATE *es, INT line, INT scol, INT ecol, LPRECT rc)
1073 {
1074         INT line_index =  EDIT_EM_LineIndex(es, line);
1075
1076         if (es->style & ES_MULTILINE)
1077                 rc->top = es->format_rect.top + (line - es->y_offset) * es->line_height;
1078         else
1079                 rc->top = es->format_rect.top;
1080         rc->bottom = rc->top + es->line_height;
1081         rc->left = (scol == 0) ? es->format_rect.left : (short)LOWORD(EDIT_EM_PosFromChar(es, line_index + scol, TRUE));
1082         rc->right = (ecol == -1) ? es->format_rect.right : (short)LOWORD(EDIT_EM_PosFromChar(es, line_index + ecol, TRUE));
1083 }
1084
1085
1086 static inline void text_buffer_changed(EDITSTATE *es)
1087 {
1088     es->text_length = (UINT)-1;
1089 }
1090
1091 /*********************************************************************
1092  * EDIT_LockBuffer
1093  *
1094  */
1095 static void EDIT_LockBuffer(EDITSTATE *es)
1096 {
1097         if (!es->text) {
1098
1099             if(!es->hloc32W) return;
1100
1101             if(es->hloc32A)
1102             {
1103                 CHAR *textA = LocalLock(es->hloc32A);
1104                 HLOCAL hloc32W_new;
1105                 UINT countW_new = MultiByteToWideChar(CP_ACP, 0, textA, -1, NULL, 0);
1106                 if(countW_new > es->buffer_size + 1)
1107                 {
1108                     UINT alloc_size = ROUND_TO_GROW(countW_new * sizeof(WCHAR));
1109                     TRACE("Resizing 32-bit UNICODE buffer from %d+1 to %d WCHARs\n", es->buffer_size, countW_new);
1110                     hloc32W_new = LocalReAlloc(es->hloc32W, alloc_size, LMEM_MOVEABLE | LMEM_ZEROINIT);
1111                     if(hloc32W_new)
1112                     {
1113                         es->hloc32W = hloc32W_new;
1114                         es->buffer_size = LocalSize(hloc32W_new)/sizeof(WCHAR) - 1;
1115                         TRACE("Real new size %d+1 WCHARs\n", es->buffer_size);
1116                     }
1117                     else
1118                         WARN("FAILED! Will synchronize partially\n");
1119                 }
1120                 es->text = LocalLock(es->hloc32W);
1121                 MultiByteToWideChar(CP_ACP, 0, textA, -1, es->text, es->buffer_size + 1);
1122                 LocalUnlock(es->hloc32A);
1123             }
1124             else es->text = LocalLock(es->hloc32W);
1125         }
1126         if(es->flags & EF_APP_HAS_HANDLE) text_buffer_changed(es);
1127         es->lock_count++;
1128 }
1129
1130
1131 /*********************************************************************
1132  *
1133  *      EDIT_UnlockBuffer
1134  *
1135  */
1136 static void EDIT_UnlockBuffer(EDITSTATE *es, BOOL force)
1137 {
1138
1139         /* Edit window might be already destroyed */
1140         if(!IsWindow(es->hwndSelf))
1141         {
1142             WARN("edit hwnd %p already destroyed\n", es->hwndSelf);
1143             return;
1144         }
1145
1146         if (!es->lock_count) {
1147                 ERR("lock_count == 0 ... please report\n");
1148                 return;
1149         }
1150         if (!es->text) {
1151                 ERR("es->text == 0 ... please report\n");
1152                 return;
1153         }
1154
1155         if (force || (es->lock_count == 1)) {
1156             if (es->hloc32W) {
1157                 UINT countA = 0;
1158                 UINT countW = get_text_length(es) + 1;
1159
1160                 if(es->hloc32A)
1161                 {
1162                     UINT countA_new = WideCharToMultiByte(CP_ACP, 0, es->text, countW, NULL, 0, NULL, NULL);
1163                     TRACE("Synchronizing with 32-bit ANSI buffer\n");
1164                     TRACE("%d WCHARs translated to %d bytes\n", countW, countA_new);
1165                     countA = LocalSize(es->hloc32A);
1166                     if(countA_new > countA)
1167                     {
1168                         HLOCAL hloc32A_new;
1169                         UINT alloc_size = ROUND_TO_GROW(countA_new);
1170                         TRACE("Resizing 32-bit ANSI buffer from %d to %d bytes\n", countA, alloc_size);
1171                         hloc32A_new = LocalReAlloc(es->hloc32A, alloc_size, LMEM_MOVEABLE | LMEM_ZEROINIT);
1172                         if(hloc32A_new)
1173                         {
1174                             es->hloc32A = hloc32A_new;
1175                             countA = LocalSize(hloc32A_new);
1176                             TRACE("Real new size %d bytes\n", countA);
1177                         }
1178                         else
1179                             WARN("FAILED! Will synchronize partially\n");
1180                     }
1181                     WideCharToMultiByte(CP_ACP, 0, es->text, countW,
1182                                         LocalLock(es->hloc32A), countA, NULL, NULL);
1183                     LocalUnlock(es->hloc32A);
1184                 }
1185
1186                 LocalUnlock(es->hloc32W);
1187                 es->text = NULL;
1188             }
1189             else {
1190                 ERR("no buffer ... please report\n");
1191                 return;
1192             }
1193         }
1194         es->lock_count--;
1195 }
1196
1197
1198 /*********************************************************************
1199  *
1200  *      EDIT_MakeFit
1201  *
1202  * Try to fit size + 1 characters in the buffer.
1203  */
1204 static BOOL EDIT_MakeFit(EDITSTATE *es, UINT size)
1205 {
1206         HLOCAL hNew32W;
1207
1208         if (size <= es->buffer_size)
1209                 return TRUE;
1210
1211         TRACE("trying to ReAlloc to %d+1 characters\n", size);
1212
1213         /* Force edit to unlock it's buffer. es->text now NULL */
1214         EDIT_UnlockBuffer(es, TRUE);
1215
1216         if (es->hloc32W) {
1217             UINT alloc_size = ROUND_TO_GROW((size + 1) * sizeof(WCHAR));
1218             if ((hNew32W = LocalReAlloc(es->hloc32W, alloc_size, LMEM_MOVEABLE | LMEM_ZEROINIT))) {
1219                 TRACE("Old 32 bit handle %p, new handle %p\n", es->hloc32W, hNew32W);
1220                 es->hloc32W = hNew32W;
1221                 es->buffer_size = LocalSize(hNew32W)/sizeof(WCHAR) - 1;
1222             }
1223         }
1224
1225         EDIT_LockBuffer(es);
1226
1227         if (es->buffer_size < size) {
1228                 WARN("FAILED !  We now have %d+1\n", es->buffer_size);
1229                 EDIT_NOTIFY_PARENT(es, EN_ERRSPACE);
1230                 return FALSE;
1231         } else {
1232                 TRACE("We now have %d+1\n", es->buffer_size);
1233                 return TRUE;
1234         }
1235 }
1236
1237
1238 /*********************************************************************
1239  *
1240  *      EDIT_MakeUndoFit
1241  *
1242  *      Try to fit size + 1 bytes in the undo buffer.
1243  *
1244  */
1245 static BOOL EDIT_MakeUndoFit(EDITSTATE *es, UINT size)
1246 {
1247         UINT alloc_size;
1248
1249         if (size <= es->undo_buffer_size)
1250                 return TRUE;
1251
1252         TRACE("trying to ReAlloc to %d+1\n", size);
1253
1254         alloc_size = ROUND_TO_GROW((size + 1) * sizeof(WCHAR));
1255         if ((es->undo_text = HeapReAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, es->undo_text, alloc_size))) {
1256                 es->undo_buffer_size = alloc_size/sizeof(WCHAR) - 1;
1257                 return TRUE;
1258         }
1259         else
1260         {
1261                 WARN("FAILED !  We now have %d+1\n", es->undo_buffer_size);
1262                 return FALSE;
1263         }
1264 }
1265
1266
1267 /*********************************************************************
1268  *
1269  *      EDIT_UpdateTextRegion
1270  *
1271  */
1272 static void EDIT_UpdateTextRegion(EDITSTATE *es, HRGN hrgn, BOOL bErase)
1273 {
1274     if (es->flags & EF_UPDATE) {
1275         es->flags &= ~EF_UPDATE;
1276         EDIT_NOTIFY_PARENT(es, EN_UPDATE);
1277     }
1278     InvalidateRgn(es->hwndSelf, hrgn, bErase);
1279 }
1280
1281
1282 /*********************************************************************
1283  *
1284  *      EDIT_UpdateText
1285  *
1286  */
1287 static void EDIT_UpdateText(EDITSTATE *es, const RECT *rc, BOOL bErase)
1288 {
1289     if (es->flags & EF_UPDATE) {
1290         es->flags &= ~EF_UPDATE;
1291         EDIT_NOTIFY_PARENT(es, EN_UPDATE);
1292     }
1293     InvalidateRect(es->hwndSelf, rc, bErase);
1294 }
1295
1296 /*********************************************************************
1297  *
1298  *      EDIT_SL_InvalidateText
1299  *
1300  *      Called from EDIT_InvalidateText().
1301  *      Does the job for single-line controls only.
1302  *
1303  */
1304 static void EDIT_SL_InvalidateText(EDITSTATE *es, INT start, INT end)
1305 {
1306         RECT line_rect;
1307         RECT rc;
1308
1309         EDIT_GetLineRect(es, 0, start, end, &line_rect);
1310         if (IntersectRect(&rc, &line_rect, &es->format_rect))
1311                 EDIT_UpdateText(es, &rc, TRUE);
1312 }
1313
1314
1315 static inline INT get_vertical_line_count(EDITSTATE *es)
1316 {
1317         INT vlc = (es->format_rect.bottom - es->format_rect.top) / es->line_height;
1318         return max(1,vlc);
1319 }
1320
1321 /*********************************************************************
1322  *
1323  *      EDIT_ML_InvalidateText
1324  *
1325  *      Called from EDIT_InvalidateText().
1326  *      Does the job for multi-line controls only.
1327  *
1328  */
1329 static void EDIT_ML_InvalidateText(EDITSTATE *es, INT start, INT end)
1330 {
1331         INT vlc = get_vertical_line_count(es);
1332         INT sl = EDIT_EM_LineFromChar(es, start);
1333         INT el = EDIT_EM_LineFromChar(es, end);
1334         INT sc;
1335         INT ec;
1336         RECT rc1;
1337         RECT rcWnd;
1338         RECT rcLine;
1339         RECT rcUpdate;
1340         INT l;
1341
1342         if ((el < es->y_offset) || (sl > es->y_offset + vlc))
1343                 return;
1344
1345         sc = start - EDIT_EM_LineIndex(es, sl);
1346         ec = end - EDIT_EM_LineIndex(es, el);
1347         if (sl < es->y_offset) {
1348                 sl = es->y_offset;
1349                 sc = 0;
1350         }
1351         if (el > es->y_offset + vlc) {
1352                 el = es->y_offset + vlc;
1353                 ec = EDIT_EM_LineLength(es, EDIT_EM_LineIndex(es, el));
1354         }
1355         GetClientRect(es->hwndSelf, &rc1);
1356         IntersectRect(&rcWnd, &rc1, &es->format_rect);
1357         if (sl == el) {
1358                 EDIT_GetLineRect(es, sl, sc, ec, &rcLine);
1359                 if (IntersectRect(&rcUpdate, &rcWnd, &rcLine))
1360                         EDIT_UpdateText(es, &rcUpdate, TRUE);
1361         } else {
1362                 EDIT_GetLineRect(es, sl, sc,
1363                                 EDIT_EM_LineLength(es,
1364                                         EDIT_EM_LineIndex(es, sl)),
1365                                 &rcLine);
1366                 if (IntersectRect(&rcUpdate, &rcWnd, &rcLine))
1367                         EDIT_UpdateText(es, &rcUpdate, TRUE);
1368                 for (l = sl + 1 ; l < el ; l++) {
1369                         EDIT_GetLineRect(es, l, 0,
1370                                 EDIT_EM_LineLength(es,
1371                                         EDIT_EM_LineIndex(es, l)),
1372                                 &rcLine);
1373                         if (IntersectRect(&rcUpdate, &rcWnd, &rcLine))
1374                                 EDIT_UpdateText(es, &rcUpdate, TRUE);
1375                 }
1376                 EDIT_GetLineRect(es, el, 0, ec, &rcLine);
1377                 if (IntersectRect(&rcUpdate, &rcWnd, &rcLine))
1378                         EDIT_UpdateText(es, &rcUpdate, TRUE);
1379         }
1380 }
1381
1382
1383 /*********************************************************************
1384  *
1385  *      EDIT_InvalidateText
1386  *
1387  *      Invalidate the text from offset start up to, but not including,
1388  *      offset end.  Useful for (re)painting the selection.
1389  *      Regions outside the linewidth are not invalidated.
1390  *      end == -1 means end == TextLength.
1391  *      start and end need not be ordered.
1392  *
1393  */
1394 static void EDIT_InvalidateText(EDITSTATE *es, INT start, INT end)
1395 {
1396         if (end == start)
1397                 return;
1398
1399         if (end == -1)
1400                 end = get_text_length(es);
1401
1402         if (end < start) {
1403             INT tmp = start;
1404             start = end;
1405             end = tmp;
1406         }
1407
1408         if (es->style & ES_MULTILINE)
1409                 EDIT_ML_InvalidateText(es, start, end);
1410         else
1411                 EDIT_SL_InvalidateText(es, start, end);
1412 }
1413
1414
1415 /*********************************************************************
1416  *
1417  *      EDIT_EM_SetSel
1418  *
1419  *      note:   unlike the specs say: the order of start and end
1420  *              _is_ preserved in Windows.  (i.e. start can be > end)
1421  *              In other words: this handler is OK
1422  *
1423  */
1424 static void EDIT_EM_SetSel(EDITSTATE *es, UINT start, UINT end, BOOL after_wrap)
1425 {
1426         UINT old_start = es->selection_start;
1427         UINT old_end = es->selection_end;
1428         UINT len = get_text_length(es);
1429
1430         if (start == (UINT)-1) {
1431                 start = es->selection_end;
1432                 end = es->selection_end;
1433         } else {
1434                 start = min(start, len);
1435                 end = min(end, len);
1436         }
1437         es->selection_start = start;
1438         es->selection_end = end;
1439         if (after_wrap)
1440                 es->flags |= EF_AFTER_WRAP;
1441         else
1442                 es->flags &= ~EF_AFTER_WRAP;
1443         /* Compute the necessary invalidation region. */
1444         /* Note that we don't need to invalidate regions which have
1445          * "never" been selected, or those which are "still" selected.
1446          * In fact, every time we hit a selection boundary, we can
1447          * *toggle* whether we need to invalidate.  Thus we can optimize by
1448          * *sorting* the interval endpoints.  Let's assume that we sort them
1449          * in this order:
1450          *        start <= end <= old_start <= old_end
1451          * Knuth 5.3.1 (p 183) assures us that this can be done optimally
1452          * in 5 comparisons; i.e. it is impossible to do better than the
1453          * following: */
1454         ORDER_UINT(end, old_end);
1455         ORDER_UINT(start, old_start);
1456         ORDER_UINT(old_start, old_end);
1457         ORDER_UINT(start, end);
1458         /* Note that at this point 'end' and 'old_start' are not in order, but
1459          * start is definitely the min. and old_end is definitely the max. */
1460         if (end != old_start)
1461         {
1462 /*
1463  * One can also do
1464  *          ORDER_UINT32(end, old_start);
1465  *          EDIT_InvalidateText(es, start, end);
1466  *          EDIT_InvalidateText(es, old_start, old_end);
1467  * in place of the following if statement.
1468  * (That would complete the optimal five-comparison four-element sort.)
1469  */
1470             if (old_start > end )
1471             {
1472                 EDIT_InvalidateText(es, start, end);
1473                 EDIT_InvalidateText(es, old_start, old_end);
1474             }
1475             else
1476             {
1477                 EDIT_InvalidateText(es, start, old_start);
1478                 EDIT_InvalidateText(es, end, old_end);
1479             }
1480         }
1481         else EDIT_InvalidateText(es, start, old_end);
1482 }
1483
1484
1485 /*********************************************************************
1486  *
1487  *      EDIT_UpdateScrollInfo
1488  *
1489  */
1490 static void EDIT_UpdateScrollInfo(EDITSTATE *es)
1491 {
1492     if ((es->style & WS_VSCROLL) && !(es->flags & EF_VSCROLL_TRACK))
1493     {
1494         SCROLLINFO si;
1495         si.cbSize       = sizeof(SCROLLINFO);
1496         si.fMask        = SIF_PAGE | SIF_POS | SIF_RANGE | SIF_DISABLENOSCROLL;
1497         si.nMin         = 0;
1498         si.nMax         = es->line_count - 1;
1499         si.nPage        = (es->format_rect.bottom - es->format_rect.top) / es->line_height;
1500         si.nPos         = es->y_offset;
1501         TRACE("SB_VERT, nMin=%d, nMax=%d, nPage=%d, nPos=%d\n",
1502                 si.nMin, si.nMax, si.nPage, si.nPos);
1503         SetScrollInfo(es->hwndSelf, SB_VERT, &si, TRUE);
1504     }
1505
1506     if ((es->style & WS_HSCROLL) && !(es->flags & EF_HSCROLL_TRACK))
1507     {
1508         SCROLLINFO si;
1509         si.cbSize       = sizeof(SCROLLINFO);
1510         si.fMask        = SIF_PAGE | SIF_POS | SIF_RANGE | SIF_DISABLENOSCROLL;
1511         si.nMin         = 0;
1512         si.nMax         = es->text_width - 1;
1513         si.nPage        = es->format_rect.right - es->format_rect.left;
1514         si.nPos         = es->x_offset;
1515         TRACE("SB_HORZ, nMin=%d, nMax=%d, nPage=%d, nPos=%d\n",
1516                 si.nMin, si.nMax, si.nPage, si.nPos);
1517         SetScrollInfo(es->hwndSelf, SB_HORZ, &si, TRUE);
1518     }
1519 }
1520
1521
1522 /*********************************************************************
1523  *
1524  *      EDIT_EM_LineScroll_internal
1525  *
1526  *      Version of EDIT_EM_LineScroll for internal use.
1527  *      It doesn't refuse if ES_MULTILINE is set and assumes that
1528  *      dx is in pixels, dy - in lines.
1529  *
1530  */
1531 static BOOL EDIT_EM_LineScroll_internal(EDITSTATE *es, INT dx, INT dy)
1532 {
1533         INT nyoff;
1534         INT x_offset_in_pixels;
1535         INT lines_per_page = (es->format_rect.bottom - es->format_rect.top) /
1536                               es->line_height;
1537
1538         if (es->style & ES_MULTILINE)
1539         {
1540             x_offset_in_pixels = es->x_offset;
1541         }
1542         else
1543         {
1544             dy = 0;
1545             x_offset_in_pixels = (short)LOWORD(EDIT_EM_PosFromChar(es, es->x_offset, FALSE));
1546         }
1547
1548         if (-dx > x_offset_in_pixels)
1549                 dx = -x_offset_in_pixels;
1550         if (dx > es->text_width - x_offset_in_pixels)
1551                 dx = es->text_width - x_offset_in_pixels;
1552         nyoff = max(0, es->y_offset + dy);
1553         if (nyoff >= es->line_count - lines_per_page)
1554                 nyoff = max(0, es->line_count - lines_per_page);
1555         dy = (es->y_offset - nyoff) * es->line_height;
1556         if (dx || dy) {
1557                 RECT rc1;
1558                 RECT rc;
1559
1560                 es->y_offset = nyoff;
1561                 if(es->style & ES_MULTILINE)
1562                     es->x_offset += dx;
1563                 else
1564                     es->x_offset += dx / es->char_width;
1565
1566                 GetClientRect(es->hwndSelf, &rc1);
1567                 IntersectRect(&rc, &rc1, &es->format_rect);
1568                 ScrollWindowEx(es->hwndSelf, -dx, dy,
1569                                 NULL, &rc, NULL, NULL, SW_INVALIDATE);
1570                 /* force scroll info update */
1571                 EDIT_UpdateScrollInfo(es);
1572         }
1573         if (dx && !(es->flags & EF_HSCROLL_TRACK))
1574                 EDIT_NOTIFY_PARENT(es, EN_HSCROLL);
1575         if (dy && !(es->flags & EF_VSCROLL_TRACK))
1576                 EDIT_NOTIFY_PARENT(es, EN_VSCROLL);
1577         return TRUE;
1578 }
1579
1580 /*********************************************************************
1581  *
1582  *      EM_LINESCROLL
1583  *
1584  *      NOTE: dx is in average character widths, dy - in lines;
1585  *
1586  */
1587 static BOOL EDIT_EM_LineScroll(EDITSTATE *es, INT dx, INT dy)
1588 {
1589         if (!(es->style & ES_MULTILINE))
1590                 return FALSE;
1591
1592         dx *= es->char_width;
1593         return EDIT_EM_LineScroll_internal(es, dx, dy);
1594 }
1595
1596
1597 /*********************************************************************
1598  *
1599  *      EM_SCROLL
1600  *
1601  */
1602 static LRESULT EDIT_EM_Scroll(EDITSTATE *es, INT action)
1603 {
1604         INT dy;
1605
1606         if (!(es->style & ES_MULTILINE))
1607                 return (LRESULT)FALSE;
1608
1609         dy = 0;
1610
1611         switch (action) {
1612         case SB_LINEUP:
1613                 if (es->y_offset)
1614                         dy = -1;
1615                 break;
1616         case SB_LINEDOWN:
1617                 if (es->y_offset < es->line_count - 1)
1618                         dy = 1;
1619                 break;
1620         case SB_PAGEUP:
1621                 if (es->y_offset)
1622                         dy = -(es->format_rect.bottom - es->format_rect.top) / es->line_height;
1623                 break;
1624         case SB_PAGEDOWN:
1625                 if (es->y_offset < es->line_count - 1)
1626                         dy = (es->format_rect.bottom - es->format_rect.top) / es->line_height;
1627                 break;
1628         default:
1629                 return (LRESULT)FALSE;
1630         }
1631         if (dy) {
1632             INT vlc = get_vertical_line_count(es);
1633             /* check if we are going to move too far */
1634             if(es->y_offset + dy > es->line_count - vlc)
1635                 dy = max(es->line_count - vlc, 0) - es->y_offset;
1636
1637             /* Notification is done in EDIT_EM_LineScroll */
1638             if(dy) {
1639                 EDIT_EM_LineScroll(es, 0, dy);
1640                 return MAKELONG(dy, TRUE);
1641             }
1642
1643         }
1644         return (LRESULT)FALSE;
1645 }
1646
1647
1648 /*********************************************************************
1649  *
1650  *      EDIT_SetCaretPos
1651  *
1652  */
1653 static void EDIT_SetCaretPos(EDITSTATE *es, INT pos,
1654                              BOOL after_wrap)
1655 {
1656         LRESULT res = EDIT_EM_PosFromChar(es, pos, after_wrap);
1657         TRACE("%d - %dx%d\n", pos, (short)LOWORD(res), (short)HIWORD(res));
1658         SetCaretPos((short)LOWORD(res), (short)HIWORD(res));
1659 }
1660
1661
1662 /*********************************************************************
1663  *
1664  *      EM_SCROLLCARET
1665  *
1666  */
1667 static void EDIT_EM_ScrollCaret(EDITSTATE *es)
1668 {
1669         if (es->style & ES_MULTILINE) {
1670                 INT l;
1671                 INT vlc;
1672                 INT ww;
1673                 INT cw = es->char_width;
1674                 INT x;
1675                 INT dy = 0;
1676                 INT dx = 0;
1677
1678                 l = EDIT_EM_LineFromChar(es, es->selection_end);
1679                 x = (short)LOWORD(EDIT_EM_PosFromChar(es, es->selection_end, es->flags & EF_AFTER_WRAP));
1680                 vlc = get_vertical_line_count(es);
1681                 if (l >= es->y_offset + vlc)
1682                         dy = l - vlc + 1 - es->y_offset;
1683                 if (l < es->y_offset)
1684                         dy = l - es->y_offset;
1685                 ww = es->format_rect.right - es->format_rect.left;
1686                 if (x < es->format_rect.left)
1687                         dx = x - es->format_rect.left - ww / HSCROLL_FRACTION / cw * cw;
1688                 if (x > es->format_rect.right)
1689                         dx = x - es->format_rect.left - (HSCROLL_FRACTION - 1) * ww / HSCROLL_FRACTION / cw * cw;
1690                 if (dy || dx || (es->y_offset && (es->line_count - es->y_offset < vlc)))
1691                 {
1692                     /* check if we are going to move too far */
1693                     if(es->x_offset + dx + ww > es->text_width)
1694                         dx = es->text_width - ww - es->x_offset;
1695                     if(dx || dy || (es->y_offset && (es->line_count - es->y_offset < vlc)))
1696                         EDIT_EM_LineScroll_internal(es, dx, dy);
1697                 }
1698         } else {
1699                 INT x;
1700                 INT goal;
1701                 INT format_width;
1702
1703                 x = (short)LOWORD(EDIT_EM_PosFromChar(es, es->selection_end, FALSE));
1704                 format_width = es->format_rect.right - es->format_rect.left;
1705                 if (x < es->format_rect.left) {
1706                         goal = es->format_rect.left + format_width / HSCROLL_FRACTION;
1707                         do {
1708                                 es->x_offset--;
1709                                 x = (short)LOWORD(EDIT_EM_PosFromChar(es, es->selection_end, FALSE));
1710                         } while ((x < goal) && es->x_offset);
1711                         /* FIXME: use ScrollWindow() somehow to improve performance */
1712                         EDIT_UpdateText(es, NULL, TRUE);
1713                 } else if (x > es->format_rect.right) {
1714                         INT x_last;
1715                         INT len = get_text_length(es);
1716                         goal = es->format_rect.right - format_width / HSCROLL_FRACTION;
1717                         do {
1718                                 es->x_offset++;
1719                                 x = (short)LOWORD(EDIT_EM_PosFromChar(es, es->selection_end, FALSE));
1720                                 x_last = (short)LOWORD(EDIT_EM_PosFromChar(es, len, FALSE));
1721                         } while ((x > goal) && (x_last > es->format_rect.right));
1722                         /* FIXME: use ScrollWindow() somehow to improve performance */
1723                         EDIT_UpdateText(es, NULL, TRUE);
1724                 }
1725         }
1726
1727     if(es->flags & EF_FOCUSED)
1728         EDIT_SetCaretPos(es, es->selection_end, es->flags & EF_AFTER_WRAP);
1729 }
1730
1731
1732 /*********************************************************************
1733  *
1734  *      EDIT_MoveBackward
1735  *
1736  */
1737 static void EDIT_MoveBackward(EDITSTATE *es, BOOL extend)
1738 {
1739         INT e = es->selection_end;
1740
1741         if (e) {
1742                 e--;
1743                 if ((es->style & ES_MULTILINE) && e &&
1744                                 (es->text[e - 1] == '\r') && (es->text[e] == '\n')) {
1745                         e--;
1746                         if (e && (es->text[e - 1] == '\r'))
1747                                 e--;
1748                 }
1749         }
1750         EDIT_EM_SetSel(es, extend ? es->selection_start : e, e, FALSE);
1751         EDIT_EM_ScrollCaret(es);
1752 }
1753
1754
1755 /*********************************************************************
1756  *
1757  *      EDIT_MoveDown_ML
1758  *
1759  *      Only for multi line controls
1760  *      Move the caret one line down, on a column with the nearest
1761  *      x coordinate on the screen (might be a different column).
1762  *
1763  */
1764 static void EDIT_MoveDown_ML(EDITSTATE *es, BOOL extend)
1765 {
1766         INT s = es->selection_start;
1767         INT e = es->selection_end;
1768         BOOL after_wrap = (es->flags & EF_AFTER_WRAP);
1769         LRESULT pos = EDIT_EM_PosFromChar(es, e, after_wrap);
1770         INT x = (short)LOWORD(pos);
1771         INT y = (short)HIWORD(pos);
1772
1773         e = EDIT_CharFromPos(es, x, y + es->line_height, &after_wrap);
1774         if (!extend)
1775                 s = e;
1776         EDIT_EM_SetSel(es, s, e, after_wrap);
1777         EDIT_EM_ScrollCaret(es);
1778 }
1779
1780
1781 /*********************************************************************
1782  *
1783  *      EDIT_MoveEnd
1784  *
1785  */
1786 static void EDIT_MoveEnd(EDITSTATE *es, BOOL extend, BOOL ctrl)
1787 {
1788         BOOL after_wrap = FALSE;
1789         INT e;
1790
1791         /* Pass a high value in x to make sure of receiving the end of the line */
1792         if (!ctrl && (es->style & ES_MULTILINE))
1793                 e = EDIT_CharFromPos(es, 0x3fffffff,
1794                         HIWORD(EDIT_EM_PosFromChar(es, es->selection_end, es->flags & EF_AFTER_WRAP)), &after_wrap);
1795         else
1796                 e = get_text_length(es);
1797         EDIT_EM_SetSel(es, extend ? es->selection_start : e, e, after_wrap);
1798         EDIT_EM_ScrollCaret(es);
1799 }
1800
1801
1802 /*********************************************************************
1803  *
1804  *      EDIT_MoveForward
1805  *
1806  */
1807 static void EDIT_MoveForward(EDITSTATE *es, BOOL extend)
1808 {
1809         INT e = es->selection_end;
1810
1811         if (es->text[e]) {
1812                 e++;
1813                 if ((es->style & ES_MULTILINE) && (es->text[e - 1] == '\r')) {
1814                         if (es->text[e] == '\n')
1815                                 e++;
1816                         else if ((es->text[e] == '\r') && (es->text[e + 1] == '\n'))
1817                                 e += 2;
1818                 }
1819         }
1820         EDIT_EM_SetSel(es, extend ? es->selection_start : e, e, FALSE);
1821         EDIT_EM_ScrollCaret(es);
1822 }
1823
1824
1825 /*********************************************************************
1826  *
1827  *      EDIT_MoveHome
1828  *
1829  *      Home key: move to beginning of line.
1830  *
1831  */
1832 static void EDIT_MoveHome(EDITSTATE *es, BOOL extend, BOOL ctrl)
1833 {
1834         INT e;
1835
1836         /* Pass the x_offset in x to make sure of receiving the first position of the line */
1837         if (!ctrl && (es->style & ES_MULTILINE))
1838                 e = EDIT_CharFromPos(es, -es->x_offset,
1839                         HIWORD(EDIT_EM_PosFromChar(es, es->selection_end, es->flags & EF_AFTER_WRAP)), NULL);
1840         else
1841                 e = 0;
1842         EDIT_EM_SetSel(es, extend ? es->selection_start : e, e, FALSE);
1843         EDIT_EM_ScrollCaret(es);
1844 }
1845
1846
1847 /*********************************************************************
1848  *
1849  *      EDIT_MovePageDown_ML
1850  *
1851  *      Only for multi line controls
1852  *      Move the caret one page down, on a column with the nearest
1853  *      x coordinate on the screen (might be a different column).
1854  *
1855  */
1856 static void EDIT_MovePageDown_ML(EDITSTATE *es, BOOL extend)
1857 {
1858         INT s = es->selection_start;
1859         INT e = es->selection_end;
1860         BOOL after_wrap = (es->flags & EF_AFTER_WRAP);
1861         LRESULT pos = EDIT_EM_PosFromChar(es, e, after_wrap);
1862         INT x = (short)LOWORD(pos);
1863         INT y = (short)HIWORD(pos);
1864
1865         e = EDIT_CharFromPos(es, x,
1866                 y + (es->format_rect.bottom - es->format_rect.top),
1867                 &after_wrap);
1868         if (!extend)
1869                 s = e;
1870         EDIT_EM_SetSel(es, s, e, after_wrap);
1871         EDIT_EM_ScrollCaret(es);
1872 }
1873
1874
1875 /*********************************************************************
1876  *
1877  *      EDIT_MovePageUp_ML
1878  *
1879  *      Only for multi line controls
1880  *      Move the caret one page up, on a column with the nearest
1881  *      x coordinate on the screen (might be a different column).
1882  *
1883  */
1884 static void EDIT_MovePageUp_ML(EDITSTATE *es, BOOL extend)
1885 {
1886         INT s = es->selection_start;
1887         INT e = es->selection_end;
1888         BOOL after_wrap = (es->flags & EF_AFTER_WRAP);
1889         LRESULT pos = EDIT_EM_PosFromChar(es, e, after_wrap);
1890         INT x = (short)LOWORD(pos);
1891         INT y = (short)HIWORD(pos);
1892
1893         e = EDIT_CharFromPos(es, x,
1894                 y - (es->format_rect.bottom - es->format_rect.top),
1895                 &after_wrap);
1896         if (!extend)
1897                 s = e;
1898         EDIT_EM_SetSel(es, s, e, after_wrap);
1899         EDIT_EM_ScrollCaret(es);
1900 }
1901
1902
1903 /*********************************************************************
1904  *
1905  *      EDIT_MoveUp_ML
1906  *
1907  *      Only for multi line controls
1908  *      Move the caret one line up, on a column with the nearest
1909  *      x coordinate on the screen (might be a different column).
1910  *
1911  */
1912 static void EDIT_MoveUp_ML(EDITSTATE *es, BOOL extend)
1913 {
1914         INT s = es->selection_start;
1915         INT e = es->selection_end;
1916         BOOL after_wrap = (es->flags & EF_AFTER_WRAP);
1917         LRESULT pos = EDIT_EM_PosFromChar(es, e, after_wrap);
1918         INT x = (short)LOWORD(pos);
1919         INT y = (short)HIWORD(pos);
1920
1921         e = EDIT_CharFromPos(es, x, y - es->line_height, &after_wrap);
1922         if (!extend)
1923                 s = e;
1924         EDIT_EM_SetSel(es, s, e, after_wrap);
1925         EDIT_EM_ScrollCaret(es);
1926 }
1927
1928
1929 /*********************************************************************
1930  *
1931  *      EDIT_MoveWordBackward
1932  *
1933  */
1934 static void EDIT_MoveWordBackward(EDITSTATE *es, BOOL extend)
1935 {
1936         INT s = es->selection_start;
1937         INT e = es->selection_end;
1938         INT l;
1939         INT ll;
1940         INT li;
1941
1942         l = EDIT_EM_LineFromChar(es, e);
1943         ll = EDIT_EM_LineLength(es, e);
1944         li = EDIT_EM_LineIndex(es, l);
1945         if (e - li == 0) {
1946                 if (l) {
1947                         li = EDIT_EM_LineIndex(es, l - 1);
1948                         e = li + EDIT_EM_LineLength(es, li);
1949                 }
1950         } else {
1951                 e = li + EDIT_CallWordBreakProc(es, li, e - li, ll, WB_LEFT);
1952         }
1953         if (!extend)
1954                 s = e;
1955         EDIT_EM_SetSel(es, s, e, FALSE);
1956         EDIT_EM_ScrollCaret(es);
1957 }
1958
1959
1960 /*********************************************************************
1961  *
1962  *      EDIT_MoveWordForward
1963  *
1964  */
1965 static void EDIT_MoveWordForward(EDITSTATE *es, BOOL extend)
1966 {
1967         INT s = es->selection_start;
1968         INT e = es->selection_end;
1969         INT l;
1970         INT ll;
1971         INT li;
1972
1973         l = EDIT_EM_LineFromChar(es, e);
1974         ll = EDIT_EM_LineLength(es, e);
1975         li = EDIT_EM_LineIndex(es, l);
1976         if (e - li == ll) {
1977                 if ((es->style & ES_MULTILINE) && (l != es->line_count - 1))
1978                         e = EDIT_EM_LineIndex(es, l + 1);
1979         } else {
1980                 e = li + EDIT_CallWordBreakProc(es,
1981                                 li, e - li + 1, ll, WB_RIGHT);
1982         }
1983         if (!extend)
1984                 s = e;
1985         EDIT_EM_SetSel(es, s, e, FALSE);
1986         EDIT_EM_ScrollCaret(es);
1987 }
1988
1989
1990 /*********************************************************************
1991  *
1992  *      EDIT_PaintText
1993  *
1994  */
1995 static INT EDIT_PaintText(EDITSTATE *es, HDC dc, INT x, INT y, INT line, INT col, INT count, BOOL rev)
1996 {
1997         COLORREF BkColor;
1998         COLORREF TextColor;
1999         LOGFONTW underline_font;
2000         HFONT hUnderline = 0;
2001         HFONT old_font = 0;
2002         INT ret;
2003         INT li;
2004         INT BkMode;
2005         SIZE size;
2006
2007         if (!count)
2008                 return 0;
2009         BkMode = GetBkMode(dc);
2010         BkColor = GetBkColor(dc);
2011         TextColor = GetTextColor(dc);
2012         if (rev) {
2013                 if (es->composition_len == 0)
2014                 {
2015                         SetBkColor(dc, GetSysColor(COLOR_HIGHLIGHT));
2016                         SetTextColor(dc, GetSysColor(COLOR_HIGHLIGHTTEXT));
2017                         SetBkMode( dc, OPAQUE);
2018                 }
2019                 else
2020                 {
2021                         HFONT current = GetCurrentObject(dc,OBJ_FONT);
2022                         GetObjectW(current,sizeof(LOGFONTW),&underline_font);
2023                         underline_font.lfUnderline = TRUE;
2024                         hUnderline = CreateFontIndirectW(&underline_font);
2025                         old_font = SelectObject(dc,hUnderline);
2026                 }
2027         }
2028         li = EDIT_EM_LineIndex(es, line);
2029         if (es->style & ES_MULTILINE) {
2030                 ret = (INT)LOWORD(TabbedTextOutW(dc, x, y, es->text + li + col, count,
2031                                         es->tabs_count, es->tabs, es->format_rect.left - es->x_offset));
2032         } else {
2033                 LPWSTR text = EDIT_GetPasswordPointer_SL(es);
2034                 TextOutW(dc, x, y, text + li + col, count);
2035                 GetTextExtentPoint32W(dc, text + li + col, count, &size);
2036                 ret = size.cx;
2037                 if (es->style & ES_PASSWORD)
2038                         HeapFree(GetProcessHeap(), 0, text);
2039         }
2040         if (rev) {
2041                 if (es->composition_len == 0)
2042                 {
2043                         SetBkColor(dc, BkColor);
2044                         SetTextColor(dc, TextColor);
2045                         SetBkMode( dc, BkMode);
2046                 }
2047                 else
2048                 {
2049                         if (old_font)
2050                                 SelectObject(dc,old_font);
2051                         if (hUnderline)
2052                                 DeleteObject(hUnderline);
2053                 }
2054         }
2055         return ret;
2056 }
2057
2058
2059 /*********************************************************************
2060  *
2061  *      EDIT_PaintLine
2062  *
2063  */
2064 static void EDIT_PaintLine(EDITSTATE *es, HDC dc, INT line, BOOL rev)
2065 {
2066         INT s = es->selection_start;
2067         INT e = es->selection_end;
2068         INT li;
2069         INT ll;
2070         INT x;
2071         INT y;
2072         LRESULT pos;
2073
2074         if (es->style & ES_MULTILINE) {
2075                 INT vlc = get_vertical_line_count(es);
2076
2077                 if ((line < es->y_offset) || (line > es->y_offset + vlc) || (line >= es->line_count))
2078                         return;
2079         } else if (line)
2080                 return;
2081
2082         TRACE("line=%d\n", line);
2083
2084         pos = EDIT_EM_PosFromChar(es, EDIT_EM_LineIndex(es, line), FALSE);
2085         x = (short)LOWORD(pos);
2086         y = (short)HIWORD(pos);
2087         li = EDIT_EM_LineIndex(es, line);
2088         ll = EDIT_EM_LineLength(es, li);
2089         s = min(es->selection_start, es->selection_end);
2090         e = max(es->selection_start, es->selection_end);
2091         s = min(li + ll, max(li, s));
2092         e = min(li + ll, max(li, e));
2093         if (rev && (s != e) &&
2094                         ((es->flags & EF_FOCUSED) || (es->style & ES_NOHIDESEL))) {
2095                 x += EDIT_PaintText(es, dc, x, y, line, 0, s - li, FALSE);
2096                 x += EDIT_PaintText(es, dc, x, y, line, s - li, e - s, TRUE);
2097                 x += EDIT_PaintText(es, dc, x, y, line, e - li, li + ll - e, FALSE);
2098         } else
2099                 x += EDIT_PaintText(es, dc, x, y, line, 0, ll, FALSE);
2100 }
2101
2102
2103 /*********************************************************************
2104  *
2105  *      EDIT_AdjustFormatRect
2106  *
2107  *      Adjusts the format rectangle for the current font and the
2108  *      current client rectangle.
2109  *
2110  */
2111 static void EDIT_AdjustFormatRect(EDITSTATE *es)
2112 {
2113         RECT ClientRect;
2114
2115         es->format_rect.right = max(es->format_rect.right, es->format_rect.left + es->char_width);
2116         if (es->style & ES_MULTILINE)
2117         {
2118             INT fw, vlc, max_x_offset, max_y_offset;
2119
2120             vlc = get_vertical_line_count(es);
2121             es->format_rect.bottom = es->format_rect.top + vlc * es->line_height;
2122
2123             /* correct es->x_offset */
2124             fw = es->format_rect.right - es->format_rect.left;
2125             max_x_offset = es->text_width - fw;
2126             if(max_x_offset < 0) max_x_offset = 0;
2127             if(es->x_offset > max_x_offset)
2128                 es->x_offset = max_x_offset;
2129
2130             /* correct es->y_offset */
2131             max_y_offset = es->line_count - vlc;
2132             if(max_y_offset < 0) max_y_offset = 0;
2133             if(es->y_offset > max_y_offset)
2134                 es->y_offset = max_y_offset;
2135
2136             /* force scroll info update */
2137             EDIT_UpdateScrollInfo(es);
2138         }
2139         else
2140         /* Windows doesn't care to fix text placement for SL controls */
2141                 es->format_rect.bottom = es->format_rect.top + es->line_height;
2142
2143         /* Always stay within the client area */
2144         GetClientRect(es->hwndSelf, &ClientRect);
2145         es->format_rect.bottom = min(es->format_rect.bottom, ClientRect.bottom);
2146
2147         if ((es->style & ES_MULTILINE) && !(es->style & ES_AUTOHSCROLL))
2148                 EDIT_BuildLineDefs_ML(es, 0, get_text_length(es), 0, NULL);
2149         
2150         EDIT_SetCaretPos(es, es->selection_end, es->flags & EF_AFTER_WRAP);
2151 }
2152
2153
2154 /*********************************************************************
2155  *
2156  *      EDIT_SetRectNP
2157  *
2158  *      note:   this is not (exactly) the handler called on EM_SETRECTNP
2159  *              it is also used to set the rect of a single line control
2160  *
2161  */
2162 static void EDIT_SetRectNP(EDITSTATE *es, const RECT *rc)
2163 {
2164         LONG_PTR ExStyle;
2165         INT bw, bh;
2166         ExStyle = GetWindowLongPtrW(es->hwndSelf, GWL_EXSTYLE);
2167         
2168         CopyRect(&es->format_rect, rc);
2169         
2170         if (ExStyle & WS_EX_CLIENTEDGE) {
2171                 es->format_rect.left++;
2172                 es->format_rect.right--;
2173                 
2174                 if (es->format_rect.bottom - es->format_rect.top
2175                     >= es->line_height + 2)
2176                 {
2177                         es->format_rect.top++;
2178                         es->format_rect.bottom--;
2179                 }
2180         }
2181         else if (es->style & WS_BORDER) {
2182                 bw = GetSystemMetrics(SM_CXBORDER) + 1;
2183                 bh = GetSystemMetrics(SM_CYBORDER) + 1;
2184                 es->format_rect.left += bw;
2185                 es->format_rect.right -= bw;
2186                 if (es->format_rect.bottom - es->format_rect.top
2187                   >= es->line_height + 2 * bh)
2188                 {
2189                     es->format_rect.top += bh;
2190                     es->format_rect.bottom -= bh;
2191                 }
2192         }
2193         
2194         es->format_rect.left += es->left_margin;
2195         es->format_rect.right -= es->right_margin;
2196         EDIT_AdjustFormatRect(es);
2197 }
2198
2199
2200 /*********************************************************************
2201  *
2202  *      EM_CHARFROMPOS
2203  *
2204  *      returns line number (not index) in high-order word of result.
2205  *      NB : Q137805 is unclear about this. POINT * pointer in lParam apply
2206  *      to Richedit, not to the edit control. Original documentation is valid.
2207  *      FIXME: do the specs mean to return -1 if outside client area or
2208  *              if outside formatting rectangle ???
2209  *
2210  */
2211 static LRESULT EDIT_EM_CharFromPos(EDITSTATE *es, INT x, INT y)
2212 {
2213         POINT pt;
2214         RECT rc;
2215         INT index;
2216
2217         pt.x = x;
2218         pt.y = y;
2219         GetClientRect(es->hwndSelf, &rc);
2220         if (!PtInRect(&rc, pt))
2221                 return -1;
2222
2223         index = EDIT_CharFromPos(es, x, y, NULL);
2224         return MAKELONG(index, EDIT_EM_LineFromChar(es, index));
2225 }
2226
2227
2228 /*********************************************************************
2229  *
2230  *      EM_FMTLINES
2231  *
2232  * Enable or disable soft breaks.
2233  * 
2234  * This means: insert or remove the soft linebreak character (\r\r\n).
2235  * Take care to check if the text still fits the buffer after insertion.
2236  * If not, notify with EN_ERRSPACE.
2237  * 
2238  */
2239 static BOOL EDIT_EM_FmtLines(EDITSTATE *es, BOOL add_eol)
2240 {
2241         es->flags &= ~EF_USE_SOFTBRK;
2242         if (add_eol) {
2243                 es->flags |= EF_USE_SOFTBRK;
2244                 FIXME("soft break enabled, not implemented\n");
2245         }
2246         return add_eol;
2247 }
2248
2249
2250 /*********************************************************************
2251  *
2252  *      EM_GETHANDLE
2253  *
2254  *      Hopefully this won't fire back at us.
2255  *      We always start with a fixed buffer in the local heap.
2256  *      Despite of the documentation says that the local heap is used
2257  *      only if DS_LOCALEDIT flag is set, NT and 2000 always allocate
2258  *      buffer on the local heap.
2259  *
2260  */
2261 static HLOCAL EDIT_EM_GetHandle(EDITSTATE *es)
2262 {
2263         HLOCAL hLocal;
2264
2265         if (!(es->style & ES_MULTILINE))
2266                 return 0;
2267
2268         if(es->is_unicode)
2269             hLocal = es->hloc32W;
2270         else
2271         {
2272             if(!es->hloc32A)
2273             {
2274                 CHAR *textA;
2275                 UINT countA, alloc_size;
2276                 TRACE("Allocating 32-bit ANSI alias buffer\n");
2277                 countA = WideCharToMultiByte(CP_ACP, 0, es->text, -1, NULL, 0, NULL, NULL);
2278                 alloc_size = ROUND_TO_GROW(countA);
2279                 if(!(es->hloc32A = LocalAlloc(LMEM_MOVEABLE | LMEM_ZEROINIT, alloc_size)))
2280                 {
2281                     ERR("Could not allocate %d bytes for 32-bit ANSI alias buffer\n", alloc_size);
2282                     return 0;
2283                 }
2284                 textA = LocalLock(es->hloc32A);
2285                 WideCharToMultiByte(CP_ACP, 0, es->text, -1, textA, countA, NULL, NULL);
2286                 LocalUnlock(es->hloc32A);
2287             }
2288             hLocal = es->hloc32A;
2289         }
2290
2291         es->flags |= EF_APP_HAS_HANDLE;
2292         TRACE("Returning %p, LocalSize() = %ld\n", hLocal, LocalSize(hLocal));
2293         return hLocal;
2294 }
2295
2296
2297 /*********************************************************************
2298  *
2299  *      EM_GETLINE
2300  *
2301  */
2302 static INT EDIT_EM_GetLine(EDITSTATE *es, INT line, LPWSTR dst, BOOL unicode)
2303 {
2304         LPWSTR src;
2305         INT line_len, dst_len;
2306         INT i;
2307
2308         if (es->style & ES_MULTILINE) {
2309                 if (line >= es->line_count)
2310                         return 0;
2311         } else
2312                 line = 0;
2313         i = EDIT_EM_LineIndex(es, line);
2314         src = es->text + i;
2315         line_len = EDIT_EM_LineLength(es, i);
2316         dst_len = *(WORD *)dst;
2317         if(unicode)
2318         {
2319             if(dst_len <= line_len)
2320             {
2321                 memcpy(dst, src, dst_len * sizeof(WCHAR));
2322                 return dst_len;
2323             }
2324             else /* Append 0 if enough space */
2325             {
2326                 memcpy(dst, src, line_len * sizeof(WCHAR));
2327                 dst[line_len] = 0;
2328                 return line_len;
2329             }
2330         }
2331         else
2332         {
2333             INT ret = WideCharToMultiByte(CP_ACP, 0, src, line_len, (LPSTR)dst, dst_len, NULL, NULL);
2334             if(!ret && line_len) /* Insufficient buffer size */
2335                 return dst_len;
2336             if(ret < dst_len) /* Append 0 if enough space */
2337                 ((LPSTR)dst)[ret] = 0;
2338             return ret;
2339         }
2340 }
2341
2342
2343 /*********************************************************************
2344  *
2345  *      EM_GETSEL
2346  *
2347  */
2348 static LRESULT EDIT_EM_GetSel(const EDITSTATE *es, PUINT start, PUINT end)
2349 {
2350         UINT s = es->selection_start;
2351         UINT e = es->selection_end;
2352
2353         ORDER_UINT(s, e);
2354         if (start)
2355                 *start = s;
2356         if (end)
2357                 *end = e;
2358         return MAKELONG(s, e);
2359 }
2360
2361
2362 /*********************************************************************
2363  *
2364  *      EM_REPLACESEL
2365  *
2366  *      FIXME: handle ES_NUMBER and ES_OEMCONVERT here
2367  *
2368  */
2369 static void EDIT_EM_ReplaceSel(EDITSTATE *es, BOOL can_undo, LPCWSTR lpsz_replace, BOOL send_update, BOOL honor_limit)
2370 {
2371         UINT strl = strlenW(lpsz_replace);
2372         UINT tl = get_text_length(es);
2373         UINT utl;
2374         UINT s;
2375         UINT e;
2376         UINT i;
2377         UINT size;
2378         LPWSTR p;
2379         HRGN hrgn = 0;
2380         LPWSTR buf = NULL;
2381         UINT bufl = 0;
2382
2383         TRACE("%s, can_undo %d, send_update %d\n",
2384             debugstr_w(lpsz_replace), can_undo, send_update);
2385
2386         s = es->selection_start;
2387         e = es->selection_end;
2388
2389         if ((s == e) && !strl)
2390                 return;
2391
2392         ORDER_UINT(s, e);
2393
2394         size = tl - (e - s) + strl;
2395         if (!size)
2396                 es->text_width = 0;
2397
2398         /* Issue the EN_MAXTEXT notification and continue with replacing text
2399          * such that buffer limit is honored. */
2400         if ((honor_limit) && (size > es->buffer_limit)) {
2401                 EDIT_NOTIFY_PARENT(es, EN_MAXTEXT);
2402                 /* Buffer limit can be smaller than the actual length of text in combobox */
2403                 if (es->buffer_limit < (tl - (e-s)))
2404                         strl = 0;
2405                 else
2406                         strl = es->buffer_limit - (tl - (e-s));
2407         }
2408
2409         if (!EDIT_MakeFit(es, tl - (e - s) + strl))
2410                 return;
2411
2412         if (e != s) {
2413                 /* there is something to be deleted */
2414                 TRACE("deleting stuff.\n");
2415                 bufl = e - s;
2416                 buf = HeapAlloc(GetProcessHeap(), 0, (bufl + 1) * sizeof(WCHAR));
2417                 if (!buf) return;
2418                 memcpy(buf, es->text + s, bufl * sizeof(WCHAR));
2419                 buf[bufl] = 0; /* ensure 0 termination */
2420                 /* now delete */
2421                 strcpyW(es->text + s, es->text + e);
2422                 text_buffer_changed(es);
2423         }
2424         if (strl) {
2425                 /* there is an insertion */
2426                 tl = get_text_length(es);
2427                 TRACE("inserting stuff (tl %d, strl %d, selstart %d (%s), text %s)\n", tl, strl, s, debugstr_w(es->text + s), debugstr_w(es->text));
2428                 for (p = es->text + tl ; p >= es->text + s ; p--)
2429                         p[strl] = p[0];
2430                 for (i = 0 , p = es->text + s ; i < strl ; i++)
2431                         p[i] = lpsz_replace[i];
2432                 if(es->style & ES_UPPERCASE)
2433                         CharUpperBuffW(p, strl);
2434                 else if(es->style & ES_LOWERCASE)
2435                         CharLowerBuffW(p, strl);
2436                 text_buffer_changed(es);
2437         }
2438         if (es->style & ES_MULTILINE)
2439         {
2440                 INT st = min(es->selection_start, es->selection_end);
2441                 INT vlc = get_vertical_line_count(es);
2442
2443                 hrgn = CreateRectRgn(0, 0, 0, 0);
2444                 EDIT_BuildLineDefs_ML(es, st, st + strl,
2445                                 strl - abs(es->selection_end - es->selection_start), hrgn);
2446                 /* if text is too long undo all changes */
2447                 if (honor_limit && !(es->style & ES_AUTOVSCROLL) && (es->line_count > vlc)) {
2448                         if (strl)
2449                                 strcpyW(es->text + e, es->text + e + strl);
2450                         if (e != s)
2451                                 for (i = 0 , p = es->text ; i < e - s ; i++)
2452                                         p[i + s] = buf[i];
2453                         text_buffer_changed(es);
2454                         EDIT_BuildLineDefs_ML(es, s, e, 
2455                                 abs(es->selection_end - es->selection_start) - strl, hrgn);
2456                         strl = 0;
2457                         e = s;
2458                         hrgn = CreateRectRgn(0, 0, 0, 0);
2459                         EDIT_NOTIFY_PARENT(es, EN_MAXTEXT);
2460                 }
2461         }
2462         else {
2463                 INT fw = es->format_rect.right - es->format_rect.left;
2464                 EDIT_CalcLineWidth_SL(es);
2465                 /* remove chars that don't fit */
2466                 if (honor_limit && !(es->style & ES_AUTOHSCROLL) && (es->text_width > fw)) {
2467                         while ((es->text_width > fw) && s + strl >= s) {
2468                                 strcpyW(es->text + s + strl - 1, es->text + s + strl);
2469                                 strl--;
2470                                 EDIT_CalcLineWidth_SL(es);
2471                         }
2472                         text_buffer_changed(es);
2473                         EDIT_NOTIFY_PARENT(es, EN_MAXTEXT);
2474                 }
2475         }
2476         
2477         if (e != s) {
2478                 if (can_undo) {
2479                         utl = strlenW(es->undo_text);
2480                         if (!es->undo_insert_count && (*es->undo_text && (s == es->undo_position))) {
2481                                 /* undo-buffer is extended to the right */
2482                                 EDIT_MakeUndoFit(es, utl + e - s);
2483                                 memcpy(es->undo_text + utl, buf, (e - s)*sizeof(WCHAR));
2484                                 (es->undo_text + utl)[e - s] = 0; /* ensure 0 termination */
2485                         } else if (!es->undo_insert_count && (*es->undo_text && (e == es->undo_position))) {
2486                                 /* undo-buffer is extended to the left */
2487                                 EDIT_MakeUndoFit(es, utl + e - s);
2488                                 for (p = es->undo_text + utl ; p >= es->undo_text ; p--)
2489                                         p[e - s] = p[0];
2490                                 for (i = 0 , p = es->undo_text ; i < e - s ; i++)
2491                                         p[i] = buf[i];
2492                                 es->undo_position = s;
2493                         } else {
2494                                 /* new undo-buffer */
2495                                 EDIT_MakeUndoFit(es, e - s);
2496                                 memcpy(es->undo_text, buf, (e - s)*sizeof(WCHAR));
2497                                 es->undo_text[e - s] = 0; /* ensure 0 termination */
2498                                 es->undo_position = s;
2499                         }
2500                         /* any deletion makes the old insertion-undo invalid */
2501                         es->undo_insert_count = 0;
2502                 } else
2503                         EDIT_EM_EmptyUndoBuffer(es);
2504         }
2505         if (strl) {
2506                 if (can_undo) {
2507                         if ((s == es->undo_position) ||
2508                                 ((es->undo_insert_count) &&
2509                                 (s == es->undo_position + es->undo_insert_count)))
2510                                 /*
2511                                  * insertion is new and at delete position or
2512                                  * an extension to either left or right
2513                                  */
2514                                 es->undo_insert_count += strl;
2515                         else {
2516                                 /* new insertion undo */
2517                                 es->undo_position = s;
2518                                 es->undo_insert_count = strl;
2519                                 /* new insertion makes old delete-buffer invalid */
2520                                 *es->undo_text = '\0';
2521                         }
2522                 } else
2523                         EDIT_EM_EmptyUndoBuffer(es);
2524         }
2525
2526         if (bufl)
2527                 HeapFree(GetProcessHeap(), 0, buf);
2528  
2529         s += strl;
2530
2531         /* If text has been deleted and we're right or center aligned then scroll rightward */
2532         if (es->style & (ES_RIGHT | ES_CENTER))
2533         {
2534                 INT delta = strl - abs(es->selection_end - es->selection_start);
2535
2536                 if (delta < 0 && es->x_offset)
2537                 {
2538                         if (abs(delta) > es->x_offset)
2539                                 es->x_offset = 0;
2540                         else
2541                                 es->x_offset += delta;
2542                 }
2543         }
2544
2545         EDIT_EM_SetSel(es, s, s, FALSE);
2546         es->flags |= EF_MODIFIED;
2547         if (send_update) es->flags |= EF_UPDATE;
2548         if (hrgn)
2549         {
2550                 EDIT_UpdateTextRegion(es, hrgn, TRUE);
2551                 DeleteObject(hrgn);
2552         }
2553         else
2554             EDIT_UpdateText(es, NULL, TRUE);
2555
2556         EDIT_EM_ScrollCaret(es);
2557
2558         /* force scroll info update */
2559         EDIT_UpdateScrollInfo(es);
2560
2561
2562         if(send_update || (es->flags & EF_UPDATE))
2563         {
2564             es->flags &= ~EF_UPDATE;
2565             EDIT_NOTIFY_PARENT(es, EN_CHANGE);
2566         }
2567 }
2568
2569
2570 /*********************************************************************
2571  *
2572  *      EM_SETHANDLE
2573  *
2574  *      FIXME:  ES_LOWERCASE, ES_UPPERCASE, ES_OEMCONVERT, ES_NUMBER ???
2575  *
2576  */
2577 static void EDIT_EM_SetHandle(EDITSTATE *es, HLOCAL hloc)
2578 {
2579         if (!(es->style & ES_MULTILINE))
2580                 return;
2581
2582         if (!hloc) {
2583                 WARN("called with NULL handle\n");
2584                 return;
2585         }
2586
2587         EDIT_UnlockBuffer(es, TRUE);
2588
2589         if(es->is_unicode)
2590         {
2591             if(es->hloc32A)
2592             {
2593                 LocalFree(es->hloc32A);
2594                 es->hloc32A = NULL;
2595             }
2596             es->hloc32W = hloc;
2597         }
2598         else
2599         {
2600             INT countW, countA;
2601             HLOCAL hloc32W_new;
2602             WCHAR *textW;
2603             CHAR *textA;
2604
2605             countA = LocalSize(hloc);
2606             textA = LocalLock(hloc);
2607             countW = MultiByteToWideChar(CP_ACP, 0, textA, countA, NULL, 0);
2608             if(!(hloc32W_new = LocalAlloc(LMEM_MOVEABLE | LMEM_ZEROINIT, countW * sizeof(WCHAR))))
2609             {
2610                 ERR("Could not allocate new unicode buffer\n");
2611                 return;
2612             }
2613             textW = LocalLock(hloc32W_new);
2614             MultiByteToWideChar(CP_ACP, 0, textA, countA, textW, countW);
2615             LocalUnlock(hloc32W_new);
2616             LocalUnlock(hloc);
2617
2618             if(es->hloc32W)
2619                 LocalFree(es->hloc32W);
2620
2621             es->hloc32W = hloc32W_new;
2622             es->hloc32A = hloc;
2623         }
2624
2625         es->buffer_size = LocalSize(es->hloc32W)/sizeof(WCHAR) - 1;
2626
2627         es->flags |= EF_APP_HAS_HANDLE;
2628         EDIT_LockBuffer(es);
2629
2630         es->x_offset = es->y_offset = 0;
2631         es->selection_start = es->selection_end = 0;
2632         EDIT_EM_EmptyUndoBuffer(es);
2633         es->flags &= ~EF_MODIFIED;
2634         es->flags &= ~EF_UPDATE;
2635         EDIT_BuildLineDefs_ML(es, 0, get_text_length(es), 0, NULL);
2636         EDIT_UpdateText(es, NULL, TRUE);
2637         EDIT_EM_ScrollCaret(es);
2638         /* force scroll info update */
2639         EDIT_UpdateScrollInfo(es);
2640 }
2641
2642
2643 /*********************************************************************
2644  *
2645  *      EM_SETLIMITTEXT
2646  *
2647  *      NOTE: this version currently implements WinNT limits
2648  *
2649  */
2650 static void EDIT_EM_SetLimitText(EDITSTATE *es, UINT limit)
2651 {
2652     if (!limit) limit = ~0u;
2653     if (!(es->style & ES_MULTILINE)) limit = min(limit, 0x7ffffffe);
2654     es->buffer_limit = limit;
2655 }
2656
2657
2658 /*********************************************************************
2659  *
2660  *      EM_SETMARGINS
2661  *
2662  * EC_USEFONTINFO is used as a left or right value i.e. lParam and not as an
2663  * action wParam despite what the docs say. EC_USEFONTINFO calculates the
2664  * margin according to the textmetrics of the current font.
2665  *
2666  * FIXME - With TrueType or vector fonts EC_USEFONTINFO currently sets one third
2667  * of the char's width as the margin, but this is not how Windows handles this.
2668  * For all other fonts Windows sets the margins to zero.
2669  *
2670  * FIXME - When EC_USEFONTINFO is used the margins only change if the
2671  * edit control is equal to or larger than a certain size.
2672  * Interestingly if one subtracts both the left and right margins from
2673  * this size one always seems to get an even number.  The extents of
2674  * the (four character) string "'**'" match this quite closely, so
2675  * we'll use this until we come up with a better idea.
2676  */
2677 static int calc_min_set_margin_size(HDC dc, INT left, INT right)
2678 {
2679     WCHAR magic_string[] = {'\'','*','*','\'', 0};
2680     SIZE sz;
2681
2682     GetTextExtentPointW(dc, magic_string, sizeof(magic_string)/sizeof(WCHAR) - 1, &sz);
2683     return sz.cx + left + right;
2684 }
2685
2686 static void EDIT_EM_SetMargins(EDITSTATE *es, INT action,
2687                                WORD left, WORD right, BOOL repaint)
2688 {
2689         TEXTMETRICW tm;
2690         INT default_left_margin  = 0; /* in pixels */
2691         INT default_right_margin = 0; /* in pixels */
2692
2693         /* Set the default margins depending on the font */
2694         if (es->font && (left == EC_USEFONTINFO || right == EC_USEFONTINFO)) {
2695             HDC dc = GetDC(es->hwndSelf);
2696             HFONT old_font = SelectObject(dc, es->font);
2697             GetTextMetricsW(dc, &tm);
2698             /* The default margins are only non zero for TrueType or Vector fonts */
2699             if (tm.tmPitchAndFamily & ( TMPF_VECTOR | TMPF_TRUETYPE )) {
2700                 int min_size;
2701                 RECT rc;
2702                 /* This must be calculated more exactly! But how? */
2703                 default_left_margin = tm.tmAveCharWidth / 2;
2704                 default_right_margin = tm.tmAveCharWidth / 2;
2705                 min_size = calc_min_set_margin_size(dc, default_left_margin, default_right_margin);
2706                 GetClientRect(es->hwndSelf, &rc);
2707                 if(rc.right - rc.left < min_size) {
2708                     default_left_margin = es->left_margin;
2709                     default_right_margin = es->right_margin;
2710                 }
2711             }
2712             SelectObject(dc, old_font);
2713             ReleaseDC(es->hwndSelf, dc);
2714         }
2715
2716         if (action & EC_LEFTMARGIN) {
2717                 es->format_rect.left -= es->left_margin;
2718                 if (left != EC_USEFONTINFO)
2719                         es->left_margin = left;
2720                 else
2721                         es->left_margin = default_left_margin;
2722                 es->format_rect.left += es->left_margin;
2723         }
2724
2725         if (action & EC_RIGHTMARGIN) {
2726                 es->format_rect.right += es->right_margin;
2727                 if (right != EC_USEFONTINFO)
2728                         es->right_margin = right;
2729                 else
2730                         es->right_margin = default_right_margin;
2731                 es->format_rect.right -= es->right_margin;
2732         }
2733         
2734         if (action & (EC_LEFTMARGIN | EC_RIGHTMARGIN)) {
2735                 EDIT_AdjustFormatRect(es);
2736                 if (repaint) EDIT_UpdateText(es, NULL, TRUE);
2737         }
2738         
2739         TRACE("left=%d, right=%d\n", es->left_margin, es->right_margin);
2740 }
2741
2742
2743 /*********************************************************************
2744  *
2745  *      EM_SETPASSWORDCHAR
2746  *
2747  */
2748 static void EDIT_EM_SetPasswordChar(EDITSTATE *es, WCHAR c)
2749 {
2750         LONG style;
2751
2752         if (es->style & ES_MULTILINE)
2753                 return;
2754
2755         if (es->password_char == c)
2756                 return;
2757
2758         style = GetWindowLongW( es->hwndSelf, GWL_STYLE );
2759         es->password_char = c;
2760         if (c) {
2761             SetWindowLongW( es->hwndSelf, GWL_STYLE, style | ES_PASSWORD );
2762             es->style |= ES_PASSWORD;
2763         } else {
2764             SetWindowLongW( es->hwndSelf, GWL_STYLE, style & ~ES_PASSWORD );
2765             es->style &= ~ES_PASSWORD;
2766         }
2767         EDIT_UpdateText(es, NULL, TRUE);
2768 }
2769
2770
2771 /*********************************************************************
2772  *
2773  *      EM_SETTABSTOPS
2774  *
2775  */
2776 static BOOL EDIT_EM_SetTabStops(EDITSTATE *es, INT count, const INT *tabs)
2777 {
2778         if (!(es->style & ES_MULTILINE))
2779                 return FALSE;
2780         HeapFree(GetProcessHeap(), 0, es->tabs);
2781         es->tabs_count = count;
2782         if (!count)
2783                 es->tabs = NULL;
2784         else {
2785                 es->tabs = HeapAlloc(GetProcessHeap(), 0, count * sizeof(INT));
2786                 memcpy(es->tabs, tabs, count * sizeof(INT));
2787         }
2788         return TRUE;
2789 }
2790
2791
2792 /*********************************************************************
2793  *
2794  *      EM_SETWORDBREAKPROC
2795  *
2796  */
2797 static void EDIT_EM_SetWordBreakProc(EDITSTATE *es, void *wbp)
2798 {
2799         if (es->word_break_proc == wbp)
2800                 return;
2801
2802         es->word_break_proc = wbp;
2803
2804         if ((es->style & ES_MULTILINE) && !(es->style & ES_AUTOHSCROLL)) {
2805                 EDIT_BuildLineDefs_ML(es, 0, get_text_length(es), 0, NULL);
2806                 EDIT_UpdateText(es, NULL, TRUE);
2807         }
2808 }
2809
2810
2811 /*********************************************************************
2812  *
2813  *      EM_UNDO / WM_UNDO
2814  *
2815  */
2816 static BOOL EDIT_EM_Undo(EDITSTATE *es)
2817 {
2818         INT ulength;
2819         LPWSTR utext;
2820
2821         /* As per MSDN spec, for a single-line edit control,
2822            the return value is always TRUE */
2823         if( es->style & ES_READONLY )
2824             return !(es->style & ES_MULTILINE);
2825
2826         ulength = strlenW(es->undo_text);
2827
2828         utext = HeapAlloc(GetProcessHeap(), 0, (ulength + 1) * sizeof(WCHAR));
2829
2830         strcpyW(utext, es->undo_text);
2831
2832         TRACE("before UNDO:insertion length = %d, deletion buffer = %s\n",
2833                      es->undo_insert_count, debugstr_w(utext));
2834
2835         EDIT_EM_SetSel(es, es->undo_position, es->undo_position + es->undo_insert_count, FALSE);
2836         EDIT_EM_EmptyUndoBuffer(es);
2837         EDIT_EM_ReplaceSel(es, TRUE, utext, TRUE, TRUE);
2838         EDIT_EM_SetSel(es, es->undo_position, es->undo_position + es->undo_insert_count, FALSE);
2839         /* send the notification after the selection start and end are set */
2840         EDIT_NOTIFY_PARENT(es, EN_CHANGE);
2841         EDIT_EM_ScrollCaret(es);
2842         HeapFree(GetProcessHeap(), 0, utext);
2843
2844         TRACE("after UNDO:insertion length = %d, deletion buffer = %s\n",
2845                         es->undo_insert_count, debugstr_w(es->undo_text));
2846         return TRUE;
2847 }
2848
2849
2850 /* Helper function for WM_CHAR
2851  *
2852  * According to an MSDN blog article titled "Just because you're a control
2853  * doesn't mean that you're necessarily inside a dialog box," multiline edit
2854  * controls without ES_WANTRETURN would attempt to detect whether it is inside
2855  * a dialog box or not.
2856  */
2857 static inline BOOL EDIT_IsInsideDialog(EDITSTATE *es)
2858 {
2859     return (es->flags & EF_DIALOGMODE);
2860 }
2861
2862
2863 /*********************************************************************
2864  *
2865  *      WM_PASTE
2866  *
2867  */
2868 static void EDIT_WM_Paste(EDITSTATE *es)
2869 {
2870         HGLOBAL hsrc;
2871         LPWSTR src;
2872
2873         /* Protect read-only edit control from modification */
2874         if(es->style & ES_READONLY)
2875             return;
2876
2877         OpenClipboard(es->hwndSelf);
2878         if ((hsrc = GetClipboardData(CF_UNICODETEXT))) {
2879                 src = GlobalLock(hsrc);
2880                 EDIT_EM_ReplaceSel(es, TRUE, src, TRUE, TRUE);
2881                 GlobalUnlock(hsrc);
2882         }
2883         else if (es->style & ES_PASSWORD) {
2884             /* clear selected text in password edit box even with empty clipboard */
2885             EDIT_EM_ReplaceSel(es, TRUE, empty_stringW, TRUE, TRUE);
2886         }
2887         CloseClipboard();
2888 }
2889
2890
2891 /*********************************************************************
2892  *
2893  *      WM_COPY
2894  *
2895  */
2896 static void EDIT_WM_Copy(EDITSTATE *es)
2897 {
2898         INT s = min(es->selection_start, es->selection_end);
2899         INT e = max(es->selection_start, es->selection_end);
2900         HGLOBAL hdst;
2901         LPWSTR dst;
2902         DWORD len;
2903
2904         if (e == s) return;
2905
2906         len = e - s;
2907         hdst = GlobalAlloc(GMEM_MOVEABLE | GMEM_DDESHARE, (len + 1) * sizeof(WCHAR));
2908         dst = GlobalLock(hdst);
2909         memcpy(dst, es->text + s, len * sizeof(WCHAR));
2910         dst[len] = 0; /* ensure 0 termination */
2911         TRACE("%s\n", debugstr_w(dst));
2912         GlobalUnlock(hdst);
2913         OpenClipboard(es->hwndSelf);
2914         EmptyClipboard();
2915         SetClipboardData(CF_UNICODETEXT, hdst);
2916         CloseClipboard();
2917 }
2918
2919
2920 /*********************************************************************
2921  *
2922  *      WM_CLEAR
2923  *
2924  */
2925 static inline void EDIT_WM_Clear(EDITSTATE *es)
2926 {
2927         /* Protect read-only edit control from modification */
2928         if(es->style & ES_READONLY)
2929             return;
2930
2931         EDIT_EM_ReplaceSel(es, TRUE, empty_stringW, TRUE, TRUE);
2932 }
2933
2934
2935 /*********************************************************************
2936  *
2937  *      WM_CUT
2938  *
2939  */
2940 static inline void EDIT_WM_Cut(EDITSTATE *es)
2941 {
2942         EDIT_WM_Copy(es);
2943         EDIT_WM_Clear(es);
2944 }
2945
2946
2947 /*********************************************************************
2948  *
2949  *      WM_CHAR
2950  *
2951  */
2952 static LRESULT EDIT_WM_Char(EDITSTATE *es, WCHAR c)
2953 {
2954         BOOL control;
2955
2956         control = GetKeyState(VK_CONTROL) & 0x8000;
2957
2958         switch (c) {
2959         case '\r':
2960             /* If it's not a multiline edit box, it would be ignored below.
2961              * For multiline edit without ES_WANTRETURN, we have to make a
2962              * special case.
2963              */
2964             if ((es->style & ES_MULTILINE) && !(es->style & ES_WANTRETURN))
2965                 if (EDIT_IsInsideDialog(es))
2966                     break;
2967         case '\n':
2968                 if (es->style & ES_MULTILINE) {
2969                         if (es->style & ES_READONLY) {
2970                                 EDIT_MoveHome(es, FALSE, FALSE);
2971                                 EDIT_MoveDown_ML(es, FALSE);
2972                         } else {
2973                                 static const WCHAR cr_lfW[] = {'\r','\n',0};
2974                                 EDIT_EM_ReplaceSel(es, TRUE, cr_lfW, TRUE, TRUE);
2975                         }
2976                 }
2977                 break;
2978         case '\t':
2979                 if ((es->style & ES_MULTILINE) && !(es->style & ES_READONLY))
2980                 {
2981                         static const WCHAR tabW[] = {'\t',0};
2982                         if (EDIT_IsInsideDialog(es))
2983                             break;
2984                         EDIT_EM_ReplaceSel(es, TRUE, tabW, TRUE, TRUE);
2985                 }
2986                 break;
2987         case VK_BACK:
2988                 if (!(es->style & ES_READONLY) && !control) {
2989                         if (es->selection_start != es->selection_end)
2990                                 EDIT_WM_Clear(es);
2991                         else {
2992                                 /* delete character left of caret */
2993                                 EDIT_EM_SetSel(es, (UINT)-1, 0, FALSE);
2994                                 EDIT_MoveBackward(es, TRUE);
2995                                 EDIT_WM_Clear(es);
2996                         }
2997                 }
2998                 break;
2999         case 0x03: /* ^C */
3000                 if (!(es->style & ES_PASSWORD))
3001                     SendMessageW(es->hwndSelf, WM_COPY, 0, 0);
3002                 break;
3003         case 0x16: /* ^V */
3004                 if (!(es->style & ES_READONLY))
3005                     SendMessageW(es->hwndSelf, WM_PASTE, 0, 0);
3006                 break;
3007         case 0x18: /* ^X */
3008                 if (!((es->style & ES_READONLY) || (es->style & ES_PASSWORD)))
3009                     SendMessageW(es->hwndSelf, WM_CUT, 0, 0);
3010                 break;
3011         case 0x1A: /* ^Z */
3012                 if (!(es->style & ES_READONLY))
3013                     SendMessageW(es->hwndSelf, WM_UNDO, 0, 0);
3014                 break;
3015
3016         default:
3017                 /*If Edit control style is ES_NUMBER allow users to key in only numeric values*/
3018                 if( (es->style & ES_NUMBER) && !( c >= '0' && c <= '9') )
3019                         break;
3020                         
3021                 if (!(es->style & ES_READONLY) && (c >= ' ') && (c != 127)) {
3022                         WCHAR str[2];
3023                         str[0] = c;
3024                         str[1] = '\0';
3025                         EDIT_EM_ReplaceSel(es, TRUE, str, TRUE, TRUE);
3026                 }
3027                 break;
3028         }
3029     return 1;
3030 }
3031
3032
3033 /*********************************************************************
3034  *
3035  *      WM_COMMAND
3036  *
3037  */
3038 static void EDIT_WM_Command(EDITSTATE *es, INT code, INT id, HWND control)
3039 {
3040         if (code || control)
3041                 return;
3042
3043         switch (id) {
3044                 case EM_UNDO:
3045                         SendMessageW(es->hwndSelf, WM_UNDO, 0, 0);
3046                         break;
3047                 case WM_CUT:
3048                         SendMessageW(es->hwndSelf, WM_CUT, 0, 0);
3049                         break;
3050                 case WM_COPY:
3051                         SendMessageW(es->hwndSelf, WM_COPY, 0, 0);
3052                         break;
3053                 case WM_PASTE:
3054                         SendMessageW(es->hwndSelf, WM_PASTE, 0, 0);
3055                         break;
3056                 case WM_CLEAR:
3057                         SendMessageW(es->hwndSelf, WM_CLEAR, 0, 0);
3058                         break;
3059                 case EM_SETSEL:
3060                         EDIT_EM_SetSel(es, 0, (UINT)-1, FALSE);
3061                         EDIT_EM_ScrollCaret(es);
3062                         break;
3063                 default:
3064                         ERR("unknown menu item, please report\n");
3065                         break;
3066         }
3067 }
3068
3069
3070 /*********************************************************************
3071  *
3072  *      WM_CONTEXTMENU
3073  *
3074  *      Note: the resource files resource/sysres_??.rc cannot define a
3075  *              single popup menu.  Hence we use a (dummy) menubar
3076  *              containing the single popup menu as its first item.
3077  *
3078  *      FIXME: the message identifiers have been chosen arbitrarily,
3079  *              hence we use MF_BYPOSITION.
3080  *              We might as well use the "real" values (anybody knows ?)
3081  *              The menu definition is in resources/sysres_??.rc.
3082  *              Once these are OK, we better use MF_BYCOMMAND here
3083  *              (as we do in EDIT_WM_Command()).
3084  *
3085  */
3086 static void EDIT_WM_ContextMenu(EDITSTATE *es, INT x, INT y)
3087 {
3088         HMENU menu = LoadMenuA(user32_module, "EDITMENU");
3089         HMENU popup = GetSubMenu(menu, 0);
3090         UINT start = es->selection_start;
3091         UINT end = es->selection_end;
3092
3093         ORDER_UINT(start, end);
3094
3095         /* undo */
3096         EnableMenuItem(popup, 0, MF_BYPOSITION | (EDIT_EM_CanUndo(es) && !(es->style & ES_READONLY) ? MF_ENABLED : MF_GRAYED));
3097         /* cut */
3098         EnableMenuItem(popup, 2, MF_BYPOSITION | ((end - start) && !(es->style & ES_PASSWORD) && !(es->style & ES_READONLY) ? MF_ENABLED : MF_GRAYED));
3099         /* copy */
3100         EnableMenuItem(popup, 3, MF_BYPOSITION | ((end - start) && !(es->style & ES_PASSWORD) ? MF_ENABLED : MF_GRAYED));
3101         /* paste */
3102         EnableMenuItem(popup, 4, MF_BYPOSITION | (IsClipboardFormatAvailable(CF_UNICODETEXT) && !(es->style & ES_READONLY) ? MF_ENABLED : MF_GRAYED));
3103         /* delete */
3104         EnableMenuItem(popup, 5, MF_BYPOSITION | ((end - start) && !(es->style & ES_READONLY) ? MF_ENABLED : MF_GRAYED));
3105         /* select all */
3106         EnableMenuItem(popup, 7, MF_BYPOSITION | (start || (end != get_text_length(es)) ? MF_ENABLED : MF_GRAYED));
3107
3108         if (x == -1 && y == -1) /* passed via VK_APPS press/release */
3109         {
3110             RECT rc;
3111             /* Windows places the menu at the edit's center in this case */
3112             WIN_GetRectangles( es->hwndSelf, COORDS_SCREEN, NULL, &rc );
3113             x = rc.left + (rc.right - rc.left) / 2;
3114             y = rc.top + (rc.bottom - rc.top) / 2;
3115         }
3116
3117         if (!(es->flags & EF_FOCUSED))
3118             SetFocus(es->hwndSelf);
3119
3120         TrackPopupMenu(popup, TPM_LEFTALIGN | TPM_RIGHTBUTTON, x, y, 0, es->hwndSelf, NULL);
3121         DestroyMenu(menu);
3122 }
3123
3124
3125 /*********************************************************************
3126  *
3127  *      WM_GETTEXT
3128  *
3129  */
3130 static INT EDIT_WM_GetText(const EDITSTATE *es, INT count, LPWSTR dst, BOOL unicode)
3131 {
3132     if(!count) return 0;
3133
3134     if(unicode)
3135     {
3136         lstrcpynW(dst, es->text, count);
3137         return strlenW(dst);
3138     }
3139     else
3140     {
3141         LPSTR textA = (LPSTR)dst;
3142         if (!WideCharToMultiByte(CP_ACP, 0, es->text, -1, textA, count, NULL, NULL))
3143             textA[count - 1] = 0; /* ensure 0 termination */
3144         return strlen(textA);
3145     }
3146 }
3147
3148 /*********************************************************************
3149  *
3150  *      EDIT_CheckCombo
3151  *
3152  */
3153 static BOOL EDIT_CheckCombo(EDITSTATE *es, UINT msg, INT key)
3154 {
3155    HWND hLBox = es->hwndListBox;
3156    HWND hCombo;
3157    BOOL bDropped;
3158    int  nEUI;
3159
3160    if (!hLBox)
3161       return FALSE;
3162
3163    hCombo   = GetParent(es->hwndSelf);
3164    bDropped = TRUE;
3165    nEUI     = 0;
3166
3167    TRACE_(combo)("[%p]: handling msg %x (%x)\n", es->hwndSelf, msg, key);
3168
3169    if (key == VK_UP || key == VK_DOWN)
3170    {
3171       if (SendMessageW(hCombo, CB_GETEXTENDEDUI, 0, 0))
3172          nEUI = 1;
3173
3174       if (msg == WM_KEYDOWN || nEUI)
3175           bDropped = (BOOL)SendMessageW(hCombo, CB_GETDROPPEDSTATE, 0, 0);
3176    }
3177
3178    switch (msg)
3179    {
3180       case WM_KEYDOWN:
3181          if (!bDropped && nEUI && (key == VK_UP || key == VK_DOWN))
3182          {
3183             /* make sure ComboLBox pops up */
3184             SendMessageW(hCombo, CB_SETEXTENDEDUI, FALSE, 0);
3185             key = VK_F4;
3186             nEUI = 2;
3187          }
3188
3189          SendMessageW(hLBox, WM_KEYDOWN, key, 0);
3190          break;
3191
3192       case WM_SYSKEYDOWN: /* Handle Alt+up/down arrows */
3193          if (nEUI)
3194             SendMessageW(hCombo, CB_SHOWDROPDOWN, bDropped ? FALSE : TRUE, 0);
3195          else
3196             SendMessageW(hLBox, WM_KEYDOWN, VK_F4, 0);
3197          break;
3198    }
3199
3200    if(nEUI == 2)
3201       SendMessageW(hCombo, CB_SETEXTENDEDUI, TRUE, 0);
3202
3203    return TRUE;
3204 }
3205
3206
3207 /*********************************************************************
3208  *
3209  *      WM_KEYDOWN
3210  *
3211  *      Handling of special keys that don't produce a WM_CHAR
3212  *      (i.e. non-printable keys) & Backspace & Delete
3213  *
3214  */
3215 static LRESULT EDIT_WM_KeyDown(EDITSTATE *es, INT key)
3216 {
3217         BOOL shift;
3218         BOOL control;
3219
3220         if (GetKeyState(VK_MENU) & 0x8000)
3221                 return 0;
3222
3223         shift = GetKeyState(VK_SHIFT) & 0x8000;
3224         control = GetKeyState(VK_CONTROL) & 0x8000;
3225
3226         switch (key) {
3227         case VK_F4:
3228         case VK_UP:
3229                 if (EDIT_CheckCombo(es, WM_KEYDOWN, key) || key == VK_F4)
3230                         break;
3231
3232                 /* fall through */
3233         case VK_LEFT:
3234                 if ((es->style & ES_MULTILINE) && (key == VK_UP))
3235                         EDIT_MoveUp_ML(es, shift);
3236                 else
3237                         if (control)
3238                                 EDIT_MoveWordBackward(es, shift);
3239                         else
3240                                 EDIT_MoveBackward(es, shift);
3241                 break;
3242         case VK_DOWN:
3243                 if (EDIT_CheckCombo(es, WM_KEYDOWN, key))
3244                         break;
3245                 /* fall through */
3246         case VK_RIGHT:
3247                 if ((es->style & ES_MULTILINE) && (key == VK_DOWN))
3248                         EDIT_MoveDown_ML(es, shift);
3249                 else if (control)
3250                         EDIT_MoveWordForward(es, shift);
3251                 else
3252                         EDIT_MoveForward(es, shift);
3253                 break;
3254         case VK_HOME:
3255                 EDIT_MoveHome(es, shift, control);
3256                 break;
3257         case VK_END:
3258                 EDIT_MoveEnd(es, shift, control);
3259                 break;
3260         case VK_PRIOR:
3261                 if (es->style & ES_MULTILINE)
3262                         EDIT_MovePageUp_ML(es, shift);
3263                 else
3264                         EDIT_CheckCombo(es, WM_KEYDOWN, key);
3265                 break;
3266         case VK_NEXT:
3267                 if (es->style & ES_MULTILINE)
3268                         EDIT_MovePageDown_ML(es, shift);
3269                 else
3270                         EDIT_CheckCombo(es, WM_KEYDOWN, key);
3271                 break;
3272         case VK_DELETE:
3273                 if (!(es->style & ES_READONLY) && !(shift && control)) {
3274                         if (es->selection_start != es->selection_end) {
3275                                 if (shift)
3276                                         EDIT_WM_Cut(es);
3277                                 else
3278                                         EDIT_WM_Clear(es);
3279                         } else {
3280                                 if (shift) {
3281                                         /* delete character left of caret */
3282                                         EDIT_EM_SetSel(es, (UINT)-1, 0, FALSE);
3283                                         EDIT_MoveBackward(es, TRUE);
3284                                         EDIT_WM_Clear(es);
3285                                 } else if (control) {
3286                                         /* delete to end of line */
3287                                         EDIT_EM_SetSel(es, (UINT)-1, 0, FALSE);
3288                                         EDIT_MoveEnd(es, TRUE, FALSE);
3289                                         EDIT_WM_Clear(es);
3290                                 } else {
3291                                         /* delete character right of caret */
3292                                         EDIT_EM_SetSel(es, (UINT)-1, 0, FALSE);
3293                                         EDIT_MoveForward(es, TRUE);
3294                                         EDIT_WM_Clear(es);
3295                                 }
3296                         }
3297                 }
3298                 break;
3299         case VK_INSERT:
3300                 if (shift) {
3301                         if (!(es->style & ES_READONLY))
3302                                 EDIT_WM_Paste(es);
3303                 } else if (control)
3304                         EDIT_WM_Copy(es);
3305                 break;
3306         case VK_RETURN:
3307             /* If the edit doesn't want the return send a message to the default object */
3308             if(!(es->style & ES_MULTILINE) || !(es->style & ES_WANTRETURN))
3309             {
3310                 DWORD dw;
3311
3312                 if (!EDIT_IsInsideDialog(es)) break;
3313                 if (control) break;
3314                 dw = SendMessageW(es->hwndParent, DM_GETDEFID, 0, 0);
3315                 if (HIWORD(dw) == DC_HASDEFID)
3316                 {
3317                     HWND hwDefCtrl = GetDlgItem(es->hwndParent, LOWORD(dw));
3318                     if (hwDefCtrl)
3319                     {
3320                         SendMessageW(es->hwndParent, WM_NEXTDLGCTL, (WPARAM)hwDefCtrl, TRUE);
3321                         PostMessageW(hwDefCtrl, WM_KEYDOWN, VK_RETURN, 0);
3322                     }
3323                 }
3324             }
3325             break;
3326         case VK_ESCAPE:
3327             if ((es->style & ES_MULTILINE) && EDIT_IsInsideDialog(es))
3328                 PostMessageW(es->hwndParent, WM_CLOSE, 0, 0);
3329             break;
3330         case VK_TAB:
3331             if ((es->style & ES_MULTILINE) && EDIT_IsInsideDialog(es))
3332                 SendMessageW(es->hwndParent, WM_NEXTDLGCTL, shift, 0);
3333             break;
3334         }
3335         return TRUE;
3336 }
3337
3338
3339 /*********************************************************************
3340  *
3341  *      WM_KILLFOCUS
3342  *
3343  */
3344 static LRESULT EDIT_WM_KillFocus(EDITSTATE *es)
3345 {
3346         es->flags &= ~EF_FOCUSED;
3347         DestroyCaret();
3348         if(!(es->style & ES_NOHIDESEL))
3349                 EDIT_InvalidateText(es, es->selection_start, es->selection_end);
3350         EDIT_NOTIFY_PARENT(es, EN_KILLFOCUS);
3351         return 0;
3352 }
3353
3354
3355 /*********************************************************************
3356  *
3357  *      WM_LBUTTONDBLCLK
3358  *
3359  *      The caret position has been set on the WM_LBUTTONDOWN message
3360  *
3361  */
3362 static LRESULT EDIT_WM_LButtonDblClk(EDITSTATE *es)
3363 {
3364         INT s;
3365         INT e = es->selection_end;
3366         INT l;
3367         INT li;
3368         INT ll;
3369
3370         es->bCaptureState = TRUE;
3371         SetCapture(es->hwndSelf);
3372
3373         l = EDIT_EM_LineFromChar(es, e);
3374         li = EDIT_EM_LineIndex(es, l);
3375         ll = EDIT_EM_LineLength(es, e);
3376         s = li + EDIT_CallWordBreakProc(es, li, e - li, ll, WB_LEFT);
3377         e = li + EDIT_CallWordBreakProc(es, li, e - li, ll, WB_RIGHT);
3378         EDIT_EM_SetSel(es, s, e, FALSE);
3379         EDIT_EM_ScrollCaret(es);
3380         es->region_posx = es->region_posy = 0;
3381         SetTimer(es->hwndSelf, 0, 100, NULL);
3382         return 0;
3383 }
3384
3385
3386 /*********************************************************************
3387  *
3388  *      WM_LBUTTONDOWN
3389  *
3390  */
3391 static LRESULT EDIT_WM_LButtonDown(EDITSTATE *es, DWORD keys, INT x, INT y)
3392 {
3393         INT e;
3394         BOOL after_wrap;
3395
3396         es->bCaptureState = TRUE;
3397         SetCapture(es->hwndSelf);
3398         EDIT_ConfinePoint(es, &x, &y);
3399         e = EDIT_CharFromPos(es, x, y, &after_wrap);
3400         EDIT_EM_SetSel(es, (keys & MK_SHIFT) ? es->selection_start : e, e, after_wrap);
3401         EDIT_EM_ScrollCaret(es);
3402         es->region_posx = es->region_posy = 0;
3403         SetTimer(es->hwndSelf, 0, 100, NULL);
3404
3405         if (!(es->flags & EF_FOCUSED))
3406             SetFocus(es->hwndSelf);
3407
3408         return 0;
3409 }
3410
3411
3412 /*********************************************************************
3413  *
3414  *      WM_LBUTTONUP
3415  *
3416  */
3417 static LRESULT EDIT_WM_LButtonUp(EDITSTATE *es)
3418 {
3419         if (es->bCaptureState) {
3420                 KillTimer(es->hwndSelf, 0);
3421                 if (GetCapture() == es->hwndSelf) ReleaseCapture();
3422         }
3423         es->bCaptureState = FALSE;
3424         return 0;
3425 }
3426
3427
3428 /*********************************************************************
3429  *
3430  *      WM_MBUTTONDOWN
3431  *
3432  */
3433 static LRESULT EDIT_WM_MButtonDown(EDITSTATE *es)
3434 {
3435     SendMessageW(es->hwndSelf, WM_PASTE, 0, 0);
3436     return 0;
3437 }
3438
3439
3440 /*********************************************************************
3441  *
3442  *      WM_MOUSEMOVE
3443  *
3444  */
3445 static LRESULT EDIT_WM_MouseMove(EDITSTATE *es, INT x, INT y)
3446 {
3447         INT e;
3448         BOOL after_wrap;
3449         INT prex, prey;
3450
3451         /* If the mouse has been captured by process other than the edit control itself,
3452          * the windows edit controls will not select the strings with mouse move.
3453          */
3454         if (!es->bCaptureState || GetCapture() != es->hwndSelf)
3455                 return 0;
3456
3457         /*
3458          *      FIXME: gotta do some scrolling if outside client
3459          *              area.  Maybe reset the timer ?
3460          */
3461         prex = x; prey = y;
3462         EDIT_ConfinePoint(es, &x, &y);
3463         es->region_posx = (prex < x) ? -1 : ((prex > x) ? 1 : 0);
3464         es->region_posy = (prey < y) ? -1 : ((prey > y) ? 1 : 0);
3465         e = EDIT_CharFromPos(es, x, y, &after_wrap);
3466         EDIT_EM_SetSel(es, es->selection_start, e, after_wrap);
3467         EDIT_SetCaretPos(es,es->selection_end,es->flags & EF_AFTER_WRAP);
3468         return 0;
3469 }
3470
3471
3472 /*********************************************************************
3473  *
3474  *      WM_PAINT
3475  *
3476  */
3477 static void EDIT_WM_Paint(EDITSTATE *es, HDC hdc)
3478 {
3479         PAINTSTRUCT ps;
3480         INT i;
3481         HDC dc;
3482         HFONT old_font = 0;
3483         RECT rc;
3484         RECT rcClient;
3485         RECT rcLine;
3486         RECT rcRgn;
3487         HBRUSH brush;
3488         HBRUSH old_brush;
3489         INT bw, bh;
3490         BOOL rev = es->bEnableState &&
3491                                 ((es->flags & EF_FOCUSED) ||
3492                                         (es->style & ES_NOHIDESEL));
3493         dc = hdc ? hdc : BeginPaint(es->hwndSelf, &ps);
3494
3495         GetClientRect(es->hwndSelf, &rcClient);
3496
3497         /* get the background brush */
3498         brush = EDIT_NotifyCtlColor(es, dc);
3499
3500         /* paint the border and the background */
3501         IntersectClipRect(dc, rcClient.left, rcClient.top, rcClient.right, rcClient.bottom);
3502         
3503         if(es->style & WS_BORDER) {
3504                 bw = GetSystemMetrics(SM_CXBORDER);
3505                 bh = GetSystemMetrics(SM_CYBORDER);
3506                 rc = rcClient;
3507                 if(es->style & ES_MULTILINE) {
3508                         if(es->style & WS_HSCROLL) rc.bottom+=bh;
3509                         if(es->style & WS_VSCROLL) rc.right+=bw;
3510                 }
3511                 
3512                 /* Draw the frame. Same code as in nonclient.c */
3513                 old_brush = SelectObject(dc, GetSysColorBrush(COLOR_WINDOWFRAME));
3514                 PatBlt(dc, rc.left, rc.top, rc.right - rc.left, bh, PATCOPY);
3515                 PatBlt(dc, rc.left, rc.top, bw, rc.bottom - rc.top, PATCOPY);
3516                 PatBlt(dc, rc.left, rc.bottom - 1, rc.right - rc.left, -bw, PATCOPY);
3517                 PatBlt(dc, rc.right - 1, rc.top, -bw, rc.bottom - rc.top, PATCOPY);
3518                 SelectObject(dc, old_brush);
3519                 
3520                 /* Keep the border clean */
3521                 IntersectClipRect(dc, rc.left+bw, rc.top+bh,
3522                     max(rc.right-bw, rc.left+bw), max(rc.bottom-bh, rc.top+bh));
3523         }
3524         
3525         GetClipBox(dc, &rc);
3526         FillRect(dc, &rc, brush);
3527
3528         IntersectClipRect(dc, es->format_rect.left,
3529                                 es->format_rect.top,
3530                                 es->format_rect.right,
3531                                 es->format_rect.bottom);
3532         if (es->style & ES_MULTILINE) {
3533                 rc = rcClient;
3534                 IntersectClipRect(dc, rc.left, rc.top, rc.right, rc.bottom);
3535         }
3536         if (es->font)
3537                 old_font = SelectObject(dc, es->font);
3538
3539         if (!es->bEnableState)
3540                 SetTextColor(dc, GetSysColor(COLOR_GRAYTEXT));
3541         GetClipBox(dc, &rcRgn);
3542         if (es->style & ES_MULTILINE) {
3543                 INT vlc = get_vertical_line_count(es);
3544                 for (i = es->y_offset ; i <= min(es->y_offset + vlc, es->y_offset + es->line_count - 1) ; i++) {
3545                         EDIT_GetLineRect(es, i, 0, -1, &rcLine);
3546                         if (IntersectRect(&rc, &rcRgn, &rcLine))
3547                                 EDIT_PaintLine(es, dc, i, rev);
3548                 }
3549         } else {
3550                 EDIT_GetLineRect(es, 0, 0, -1, &rcLine);
3551                 if (IntersectRect(&rc, &rcRgn, &rcLine))
3552                         EDIT_PaintLine(es, dc, 0, rev);
3553         }
3554         if (es->font)
3555                 SelectObject(dc, old_font);
3556
3557         if (!hdc)
3558             EndPaint(es->hwndSelf, &ps);
3559 }
3560
3561
3562 /*********************************************************************
3563  *
3564  *      WM_SETFOCUS
3565  *
3566  */
3567 static void EDIT_WM_SetFocus(EDITSTATE *es)
3568 {
3569         es->flags |= EF_FOCUSED;
3570
3571         if (!(es->style & ES_NOHIDESEL))
3572             EDIT_InvalidateText(es, es->selection_start, es->selection_end);
3573
3574         /* single line edit updates itself */
3575         if (!(es->style & ES_MULTILINE))
3576         {
3577             HDC hdc = GetDC(es->hwndSelf);
3578             EDIT_WM_Paint(es, hdc);
3579             ReleaseDC(es->hwndSelf, hdc);
3580         }
3581
3582         CreateCaret(es->hwndSelf, 0, 1, es->line_height);
3583         EDIT_SetCaretPos(es, es->selection_end,
3584                          es->flags & EF_AFTER_WRAP);
3585         ShowCaret(es->hwndSelf);
3586         EDIT_NOTIFY_PARENT(es, EN_SETFOCUS);
3587 }
3588
3589
3590 /*********************************************************************
3591  *
3592  *      WM_SETFONT
3593  *
3594  * With Win95 look the margins are set to default font value unless
3595  * the system font (font == 0) is being set, in which case they are left
3596  * unchanged.
3597  *
3598  */
3599 static void EDIT_WM_SetFont(EDITSTATE *es, HFONT font, BOOL redraw)
3600 {
3601         TEXTMETRICW tm;
3602         HDC dc;
3603         HFONT old_font = 0;
3604         RECT clientRect;
3605
3606         es->font = font;
3607         dc = GetDC(es->hwndSelf);
3608         if (font)
3609                 old_font = SelectObject(dc, font);
3610         GetTextMetricsW(dc, &tm);
3611         es->line_height = tm.tmHeight;
3612         es->char_width = tm.tmAveCharWidth;
3613         if (font)
3614                 SelectObject(dc, old_font);
3615         ReleaseDC(es->hwndSelf, dc);
3616         
3617         /* Reset the format rect and the margins */
3618         GetClientRect(es->hwndSelf, &clientRect);
3619         EDIT_SetRectNP(es, &clientRect);
3620         EDIT_EM_SetMargins(es, EC_LEFTMARGIN | EC_RIGHTMARGIN,
3621                            EC_USEFONTINFO, EC_USEFONTINFO, FALSE);
3622
3623         if (es->style & ES_MULTILINE)
3624                 EDIT_BuildLineDefs_ML(es, 0, get_text_length(es), 0, NULL);
3625         else
3626             EDIT_CalcLineWidth_SL(es);
3627
3628         if (redraw)
3629                 EDIT_UpdateText(es, NULL, TRUE);
3630         if (es->flags & EF_FOCUSED) {
3631                 DestroyCaret();
3632                 CreateCaret(es->hwndSelf, 0, 1, es->line_height);
3633                 EDIT_SetCaretPos(es, es->selection_end,
3634                                  es->flags & EF_AFTER_WRAP);
3635                 ShowCaret(es->hwndSelf);
3636         }
3637 }
3638
3639
3640 /*********************************************************************
3641  *
3642  *      WM_SETTEXT
3643  *
3644  * NOTES
3645  *  For multiline controls (ES_MULTILINE), reception of WM_SETTEXT triggers:
3646  *  The modified flag is reset. No notifications are sent.
3647  *
3648  *  For single-line controls, reception of WM_SETTEXT triggers:
3649  *  The modified flag is reset. EN_UPDATE and EN_CHANGE notifications are sent.
3650  *
3651  */
3652 static void EDIT_WM_SetText(EDITSTATE *es, LPCWSTR text, BOOL unicode)
3653 {
3654     LPWSTR textW = NULL;
3655     if (!unicode && text)
3656     {
3657         LPCSTR textA = (LPCSTR)text;
3658         INT countW = MultiByteToWideChar(CP_ACP, 0, textA, -1, NULL, 0);
3659         textW = HeapAlloc(GetProcessHeap(), 0, countW * sizeof(WCHAR));
3660         if (textW)
3661             MultiByteToWideChar(CP_ACP, 0, textA, -1, textW, countW);
3662         text = textW;
3663     }
3664
3665     if (es->flags & EF_UPDATE)
3666         /* fixed this bug once; complain if we see it about to happen again. */
3667         ERR("SetSel may generate UPDATE message whose handler may reset "
3668             "selection.\n");
3669
3670     EDIT_EM_SetSel(es, 0, (UINT)-1, FALSE);
3671     if (text) 
3672     {
3673         TRACE("%s\n", debugstr_w(text));
3674         EDIT_EM_ReplaceSel(es, FALSE, text, FALSE, FALSE);
3675         if(!unicode)
3676             HeapFree(GetProcessHeap(), 0, textW);
3677     } 
3678     else 
3679     {
3680         TRACE("<NULL>\n");
3681         EDIT_EM_ReplaceSel(es, FALSE, empty_stringW, FALSE, FALSE);
3682     }
3683     es->x_offset = 0;
3684     es->flags &= ~EF_MODIFIED;
3685     EDIT_EM_SetSel(es, 0, 0, FALSE);
3686
3687     /* Send the notification after the selection start and end have been set
3688      * edit control doesn't send notification on WM_SETTEXT
3689      * if it is multiline, or it is part of combobox
3690      */
3691     if( !((es->style & ES_MULTILINE) || es->hwndListBox))
3692     {
3693         EDIT_NOTIFY_PARENT(es, EN_UPDATE);
3694         EDIT_NOTIFY_PARENT(es, EN_CHANGE);
3695     }
3696     EDIT_EM_ScrollCaret(es);
3697     EDIT_UpdateScrollInfo(es);    
3698 }
3699
3700
3701 /*********************************************************************
3702  *
3703  *      WM_SIZE
3704  *
3705  */
3706 static void EDIT_WM_Size(EDITSTATE *es, UINT action, INT width, INT height)
3707 {
3708         if ((action == SIZE_MAXIMIZED) || (action == SIZE_RESTORED)) {
3709                 RECT rc;
3710                 TRACE("width = %d, height = %d\n", width, height);
3711                 SetRect(&rc, 0, 0, width, height);
3712                 EDIT_SetRectNP(es, &rc);
3713                 EDIT_UpdateText(es, NULL, TRUE);
3714         }
3715 }
3716
3717
3718 /*********************************************************************
3719  *
3720  *      WM_STYLECHANGED
3721  *
3722  * This message is sent by SetWindowLong on having changed either the Style
3723  * or the extended style.
3724  *
3725  * We ensure that the window's version of the styles and the EDITSTATE's agree.
3726  *
3727  * See also EDIT_WM_NCCreate
3728  *
3729  * It appears that the Windows version of the edit control allows the style
3730  * (as retrieved by GetWindowLong) to be any value and maintains an internal
3731  * style variable which will generally be different.  In this function we
3732  * update the internal style based on what changed in the externally visible
3733  * style.
3734  *
3735  * Much of this content as based upon the MSDN, especially:
3736  *  Platform SDK Documentation -> User Interface Services ->
3737  *      Windows User Interface -> Edit Controls -> Edit Control Reference ->
3738  *      Edit Control Styles
3739  */
3740 static LRESULT  EDIT_WM_StyleChanged ( EDITSTATE *es, WPARAM which, const STYLESTRUCT *style)
3741 {
3742         if (GWL_STYLE == which) {
3743                 DWORD style_change_mask;
3744                 DWORD new_style;
3745                 /* Only a subset of changes can be applied after the control
3746                  * has been created.
3747                  */
3748                 style_change_mask = ES_UPPERCASE | ES_LOWERCASE |
3749                                     ES_NUMBER;
3750                 if (es->style & ES_MULTILINE)
3751                         style_change_mask |= ES_WANTRETURN;
3752
3753                 new_style = style->styleNew & style_change_mask;
3754
3755                 /* Number overrides lowercase overrides uppercase (at least it
3756                  * does in Win95).  However I'll bet that ES_NUMBER would be
3757                  * invalid under Win 3.1.
3758                  */
3759                 if (new_style & ES_NUMBER) {
3760                         ; /* do not override the ES_NUMBER */
3761                 }  else if (new_style & ES_LOWERCASE) {
3762                         new_style &= ~ES_UPPERCASE;
3763                 }
3764
3765                 es->style = (es->style & ~style_change_mask) | new_style;
3766         } else if (GWL_EXSTYLE == which) {
3767                 ; /* FIXME - what is needed here */
3768         } else {
3769                 WARN ("Invalid style change %ld\n",which);
3770         }
3771
3772         return 0;
3773 }
3774
3775 /*********************************************************************
3776  *
3777  *      WM_SYSKEYDOWN
3778  *
3779  */
3780 static LRESULT EDIT_WM_SysKeyDown(EDITSTATE *es, INT key, DWORD key_data)
3781 {
3782         if ((key == VK_BACK) && (key_data & 0x2000)) {
3783                 if (EDIT_EM_CanUndo(es))
3784                         EDIT_EM_Undo(es);
3785                 return 0;
3786         } else if (key == VK_UP || key == VK_DOWN) {
3787                 if (EDIT_CheckCombo(es, WM_SYSKEYDOWN, key))
3788                         return 0;
3789         }
3790         return DefWindowProcW(es->hwndSelf, WM_SYSKEYDOWN, key, key_data);
3791 }
3792
3793
3794 /*********************************************************************
3795  *
3796  *      WM_TIMER
3797  *
3798  */
3799 static void EDIT_WM_Timer(EDITSTATE *es)
3800 {
3801         if (es->region_posx < 0) {
3802                 EDIT_MoveBackward(es, TRUE);
3803         } else if (es->region_posx > 0) {
3804                 EDIT_MoveForward(es, TRUE);
3805         }
3806 /*
3807  *      FIXME: gotta do some vertical scrolling here, like
3808  *              EDIT_EM_LineScroll(hwnd, 0, 1);
3809  */
3810 }
3811
3812 /*********************************************************************
3813  *
3814  *      WM_HSCROLL
3815  *
3816  */
3817 static LRESULT EDIT_WM_HScroll(EDITSTATE *es, INT action, INT pos)
3818 {
3819         INT dx;
3820         INT fw;
3821
3822         if (!(es->style & ES_MULTILINE))
3823                 return 0;
3824
3825         if (!(es->style & ES_AUTOHSCROLL))
3826                 return 0;
3827
3828         dx = 0;
3829         fw = es->format_rect.right - es->format_rect.left;
3830         switch (action) {
3831         case SB_LINELEFT:
3832                 TRACE("SB_LINELEFT\n");
3833                 if (es->x_offset)
3834                         dx = -es->char_width;
3835                 break;
3836         case SB_LINERIGHT:
3837                 TRACE("SB_LINERIGHT\n");
3838                 if (es->x_offset < es->text_width)
3839                         dx = es->char_width;
3840                 break;
3841         case SB_PAGELEFT:
3842                 TRACE("SB_PAGELEFT\n");
3843                 if (es->x_offset)
3844                         dx = -fw / HSCROLL_FRACTION / es->char_width * es->char_width;
3845                 break;
3846         case SB_PAGERIGHT:
3847                 TRACE("SB_PAGERIGHT\n");
3848                 if (es->x_offset < es->text_width)
3849                         dx = fw / HSCROLL_FRACTION / es->char_width * es->char_width;
3850                 break;
3851         case SB_LEFT:
3852                 TRACE("SB_LEFT\n");
3853                 if (es->x_offset)
3854                         dx = -es->x_offset;
3855                 break;
3856         case SB_RIGHT:
3857                 TRACE("SB_RIGHT\n");
3858                 if (es->x_offset < es->text_width)
3859                         dx = es->text_width - es->x_offset;
3860                 break;
3861         case SB_THUMBTRACK:
3862                 TRACE("SB_THUMBTRACK %d\n", pos);
3863                 es->flags |= EF_HSCROLL_TRACK;
3864                 if(es->style & WS_HSCROLL)
3865                     dx = pos - es->x_offset;
3866                 else
3867                 {
3868                     INT fw, new_x;
3869                     /* Sanity check */
3870                     if(pos < 0 || pos > 100) return 0;
3871                     /* Assume default scroll range 0-100 */
3872                     fw = es->format_rect.right - es->format_rect.left;
3873                     new_x = pos * (es->text_width - fw) / 100;
3874                     dx = es->text_width ? (new_x - es->x_offset) : 0;
3875                 }
3876                 break;
3877         case SB_THUMBPOSITION:
3878                 TRACE("SB_THUMBPOSITION %d\n", pos);
3879                 es->flags &= ~EF_HSCROLL_TRACK;
3880                 if(GetWindowLongW( es->hwndSelf, GWL_STYLE ) & WS_HSCROLL)
3881                     dx = pos - es->x_offset;
3882                 else
3883                 {
3884                     INT fw, new_x;
3885                     /* Sanity check */
3886                     if(pos < 0 || pos > 100) return 0;
3887                     /* Assume default scroll range 0-100 */
3888                     fw = es->format_rect.right - es->format_rect.left;
3889                     new_x = pos * (es->text_width - fw) / 100;
3890                     dx = es->text_width ? (new_x - es->x_offset) : 0;
3891                 }
3892                 if (!dx) {
3893                         /* force scroll info update */
3894                         EDIT_UpdateScrollInfo(es);
3895                         EDIT_NOTIFY_PARENT(es, EN_HSCROLL);
3896                 }
3897                 break;
3898         case SB_ENDSCROLL:
3899                 TRACE("SB_ENDSCROLL\n");
3900                 break;
3901         /*
3902          *      FIXME : the next two are undocumented !
3903          *      Are we doing the right thing ?
3904          *      At least Win 3.1 Notepad makes use of EM_GETTHUMB this way,
3905          *      although it's also a regular control message.
3906          */
3907         case EM_GETTHUMB: /* this one is used by NT notepad */
3908         {
3909                 LRESULT ret;
3910                 if(GetWindowLongW( es->hwndSelf, GWL_STYLE ) & WS_HSCROLL)
3911                     ret = GetScrollPos(es->hwndSelf, SB_HORZ);
3912                 else
3913                 {
3914                     /* Assume default scroll range 0-100 */
3915                     INT fw = es->format_rect.right - es->format_rect.left;
3916                     ret = es->text_width ? es->x_offset * 100 / (es->text_width - fw) : 0;
3917                 }
3918                 TRACE("EM_GETTHUMB: returning %ld\n", ret);
3919                 return ret;
3920         }
3921         case EM_LINESCROLL:
3922                 TRACE("EM_LINESCROLL16\n");
3923                 dx = pos;
3924                 break;
3925
3926         default:
3927                 ERR("undocumented WM_HSCROLL action %d (0x%04x), please report\n",
3928                     action, action);
3929                 return 0;
3930         }
3931         if (dx)
3932         {
3933             INT fw = es->format_rect.right - es->format_rect.left;
3934             /* check if we are going to move too far */
3935             if(es->x_offset + dx + fw > es->text_width)
3936                 dx = es->text_width - fw - es->x_offset;
3937             if(dx)
3938                 EDIT_EM_LineScroll_internal(es, dx, 0);
3939         }
3940         return 0;
3941 }
3942
3943
3944 /*********************************************************************
3945  *
3946  *      WM_VSCROLL
3947  *
3948  */
3949 static LRESULT EDIT_WM_VScroll(EDITSTATE *es, INT action, INT pos)
3950 {
3951         INT dy;
3952
3953         if (!(es->style & ES_MULTILINE))
3954                 return 0;
3955
3956         if (!(es->style & ES_AUTOVSCROLL))
3957                 return 0;
3958
3959         dy = 0;
3960         switch (action) {
3961         case SB_LINEUP:
3962         case SB_LINEDOWN:
3963         case SB_PAGEUP:
3964         case SB_PAGEDOWN:
3965                 TRACE("action %d (%s)\n", action, (action == SB_LINEUP ? "SB_LINEUP" :
3966                                                    (action == SB_LINEDOWN ? "SB_LINEDOWN" :
3967                                                     (action == SB_PAGEUP ? "SB_PAGEUP" :
3968                                                      "SB_PAGEDOWN"))));
3969                 EDIT_EM_Scroll(es, action);
3970                 return 0;
3971         case SB_TOP:
3972                 TRACE("SB_TOP\n");
3973                 dy = -es->y_offset;
3974                 break;
3975         case SB_BOTTOM:
3976                 TRACE("SB_BOTTOM\n");
3977                 dy = es->line_count - 1 - es->y_offset;
3978                 break;
3979         case SB_THUMBTRACK:
3980                 TRACE("SB_THUMBTRACK %d\n", pos);
3981                 es->flags |= EF_VSCROLL_TRACK;
3982                 if(es->style & WS_VSCROLL)
3983                     dy = pos - es->y_offset;
3984                 else
3985                 {
3986                     /* Assume default scroll range 0-100 */
3987                     INT vlc, new_y;
3988                     /* Sanity check */
3989                     if(pos < 0 || pos > 100) return 0;
3990                     vlc = get_vertical_line_count(es);
3991                     new_y = pos * (es->line_count - vlc) / 100;
3992                     dy = es->line_count ? (new_y - es->y_offset) : 0;
3993                     TRACE("line_count=%d, y_offset=%d, pos=%d, dy = %d\n",
3994                             es->line_count, es->y_offset, pos, dy);
3995                 }
3996                 break;
3997         case SB_THUMBPOSITION:
3998                 TRACE("SB_THUMBPOSITION %d\n", pos);
3999                 es->flags &= ~EF_VSCROLL_TRACK;
4000                 if(es->style & WS_VSCROLL)
4001                     dy = pos - es->y_offset;
4002                 else
4003                 {
4004                     /* Assume default scroll range 0-100 */
4005                     INT vlc, new_y;
4006                     /* Sanity check */
4007                     if(pos < 0 || pos > 100) return 0;
4008                     vlc = get_vertical_line_count(es);
4009                     new_y = pos * (es->line_count - vlc) / 100;
4010                     dy = es->line_count ? (new_y - es->y_offset) : 0;
4011                     TRACE("line_count=%d, y_offset=%d, pos=%d, dy = %d\n",
4012                             es->line_count, es->y_offset, pos, dy);
4013                 }
4014                 if (!dy)
4015                 {
4016                         /* force scroll info update */
4017                         EDIT_UpdateScrollInfo(es);
4018                         EDIT_NOTIFY_PARENT(es, EN_VSCROLL);
4019                 }
4020                 break;
4021         case SB_ENDSCROLL:
4022                 TRACE("SB_ENDSCROLL\n");
4023                 break;
4024         /*
4025          *      FIXME : the next two are undocumented !
4026          *      Are we doing the right thing ?
4027          *      At least Win 3.1 Notepad makes use of EM_GETTHUMB this way,
4028          *      although it's also a regular control message.
4029          */
4030         case EM_GETTHUMB: /* this one is used by NT notepad */
4031         {
4032                 LRESULT ret;
4033                 if(GetWindowLongW( es->hwndSelf, GWL_STYLE ) & WS_VSCROLL)
4034                     ret = GetScrollPos(es->hwndSelf, SB_VERT);
4035                 else
4036                 {
4037                     /* Assume default scroll range 0-100 */
4038                     INT vlc = get_vertical_line_count(es);
4039                     ret = es->line_count ? es->y_offset * 100 / (es->line_count - vlc) : 0;
4040                 }
4041                 TRACE("EM_GETTHUMB: returning %ld\n", ret);
4042                 return ret;
4043         }
4044         case EM_LINESCROLL:
4045                 TRACE("EM_LINESCROLL %d\n", pos);
4046                 dy = pos;
4047                 break;
4048
4049         default:
4050                 ERR("undocumented WM_VSCROLL action %d (0x%04x), please report\n",
4051                     action, action);
4052                 return 0;
4053         }
4054         if (dy)
4055                 EDIT_EM_LineScroll(es, 0, dy);
4056         return 0;
4057 }
4058
4059 /*********************************************************************
4060  *
4061  *      EM_GETTHUMB
4062  *
4063  *      FIXME: is this right ?  (or should it be only VSCROLL)
4064  *      (and maybe only for edit controls that really have their
4065  *      own scrollbars) (and maybe only for multiline controls ?)
4066  *      All in all: very poorly documented
4067  *
4068  */
4069 static LRESULT EDIT_EM_GetThumb(EDITSTATE *es)
4070 {
4071         return MAKELONG(EDIT_WM_VScroll(es, EM_GETTHUMB, 0),
4072                         EDIT_WM_HScroll(es, EM_GETTHUMB, 0));
4073 }
4074
4075
4076 /********************************************************************
4077  * 
4078  * The Following code is to handle inline editing from IMEs
4079  */
4080
4081 static void EDIT_GetCompositionStr(HIMC hIMC, LPARAM CompFlag, EDITSTATE *es)
4082 {
4083     LONG buflen;
4084     LPWSTR lpCompStr = NULL;
4085     LPSTR lpCompStrAttr = NULL;
4086     DWORD dwBufLenAttr;
4087
4088     buflen = ImmGetCompositionStringW(hIMC, GCS_COMPSTR, NULL, 0);
4089
4090     if (buflen < 0)
4091     {
4092         return;
4093     }
4094
4095     lpCompStr = HeapAlloc(GetProcessHeap(),0,buflen + sizeof(WCHAR));
4096     if (!lpCompStr)
4097     {
4098         ERR("Unable to allocate IME CompositionString\n");
4099         return;
4100     }
4101
4102     if (buflen)
4103         ImmGetCompositionStringW(hIMC, GCS_COMPSTR, lpCompStr, buflen);
4104     lpCompStr[buflen/sizeof(WCHAR)] = 0;
4105
4106     if (CompFlag & GCS_COMPATTR)
4107     {
4108         /* 
4109          * We do not use the attributes yet. it would tell us what characters
4110          * are in transition and which are converted or decided upon
4111          */
4112         dwBufLenAttr = ImmGetCompositionStringW(hIMC, GCS_COMPATTR, NULL, 0);
4113         if (dwBufLenAttr)
4114         {
4115             dwBufLenAttr ++;
4116             lpCompStrAttr = HeapAlloc(GetProcessHeap(),0,dwBufLenAttr+1);
4117             if (!lpCompStrAttr)
4118             {
4119                 ERR("Unable to allocate IME Attribute String\n");
4120                 HeapFree(GetProcessHeap(),0,lpCompStr);
4121                 return;
4122             }
4123             ImmGetCompositionStringW(hIMC,GCS_COMPATTR, lpCompStrAttr, 
4124                     dwBufLenAttr);
4125             lpCompStrAttr[dwBufLenAttr] = 0;
4126         }
4127         else
4128             lpCompStrAttr = NULL;
4129     }
4130
4131     /* check for change in composition start */
4132     if (es->selection_end < es->composition_start)
4133         es->composition_start = es->selection_end;
4134     
4135     /* replace existing selection string */
4136     es->selection_start = es->composition_start;
4137
4138     if (es->composition_len > 0)
4139         es->selection_end = es->composition_start + es->composition_len;
4140     else
4141         es->selection_end = es->selection_start;
4142
4143     EDIT_EM_ReplaceSel(es, FALSE, lpCompStr, TRUE, TRUE);
4144     es->composition_len = abs(es->composition_start - es->selection_end);
4145
4146     es->selection_start = es->composition_start;
4147     es->selection_end = es->selection_start + es->composition_len;
4148
4149     HeapFree(GetProcessHeap(),0,lpCompStrAttr);
4150     HeapFree(GetProcessHeap(),0,lpCompStr);
4151 }
4152
4153 static void EDIT_GetResultStr(HIMC hIMC, EDITSTATE *es)
4154 {
4155     LONG buflen;
4156     LPWSTR lpResultStr;
4157
4158     buflen = ImmGetCompositionStringW(hIMC, GCS_RESULTSTR, NULL, 0);
4159     if (buflen <= 0)
4160     {
4161         return;
4162     }
4163
4164     lpResultStr = HeapAlloc(GetProcessHeap(),0, buflen+sizeof(WCHAR));
4165     if (!lpResultStr)
4166     {
4167         ERR("Unable to alloc buffer for IME string\n");
4168         return;
4169     }
4170
4171     ImmGetCompositionStringW(hIMC, GCS_RESULTSTR, lpResultStr, buflen);
4172     lpResultStr[buflen/sizeof(WCHAR)] = 0;
4173
4174     /* check for change in composition start */
4175     if (es->selection_end < es->composition_start)
4176         es->composition_start = es->selection_end;
4177
4178     es->selection_start = es->composition_start;
4179     es->selection_end = es->composition_start + es->composition_len;
4180     EDIT_EM_ReplaceSel(es, TRUE, lpResultStr, TRUE, TRUE);
4181     es->composition_start = es->selection_end;
4182     es->composition_len = 0;
4183
4184     HeapFree(GetProcessHeap(),0,lpResultStr);
4185 }
4186
4187 static void EDIT_ImeComposition(HWND hwnd, LPARAM CompFlag, EDITSTATE *es)
4188 {
4189     HIMC hIMC;
4190     int cursor;
4191
4192     if (es->composition_len == 0 && es->selection_start != es->selection_end)
4193     {
4194         EDIT_EM_ReplaceSel(es, TRUE, empty_stringW, TRUE, TRUE);
4195         es->composition_start = es->selection_end;
4196     }
4197
4198     hIMC = ImmGetContext(hwnd);
4199     if (!hIMC)
4200         return;
4201
4202     if (CompFlag & GCS_RESULTSTR)
4203         EDIT_GetResultStr(hIMC, es);
4204     if (CompFlag & GCS_COMPSTR)
4205         EDIT_GetCompositionStr(hIMC, CompFlag, es);
4206     cursor = ImmGetCompositionStringW(hIMC, GCS_CURSORPOS, 0, 0);
4207     ImmReleaseContext(hwnd, hIMC);
4208     EDIT_SetCaretPos(es, es->selection_start + cursor, es->flags & EF_AFTER_WRAP);
4209 }
4210
4211
4212 /*********************************************************************
4213  *
4214  *      WM_NCCREATE
4215  *
4216  * See also EDIT_WM_StyleChanged
4217  */
4218 static LRESULT EDIT_WM_NCCreate(HWND hwnd, LPCREATESTRUCTW lpcs, BOOL unicode)
4219 {
4220         EDITSTATE *es;
4221         UINT alloc_size;
4222
4223         TRACE("Creating %s edit control, style = %08x\n",
4224                 unicode ? "Unicode" : "ANSI", lpcs->style);
4225
4226         if (!(es = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(*es))))
4227                 return FALSE;
4228         SetWindowLongPtrW( hwnd, 0, (LONG_PTR)es );
4229
4230        /*
4231         *      Note: since the EDITSTATE has not been fully initialized yet,
4232         *            we can't use any API calls that may send
4233         *            WM_XXX messages before WM_NCCREATE is completed.
4234         */
4235
4236         es->is_unicode = unicode;
4237         es->style = lpcs->style;
4238
4239         es->bEnableState = !(es->style & WS_DISABLED);
4240
4241         es->hwndSelf = hwnd;
4242         /* Save parent, which will be notified by EN_* messages */
4243         es->hwndParent = lpcs->hwndParent;
4244
4245         if (es->style & ES_COMBO)
4246            es->hwndListBox = GetDlgItem(es->hwndParent, ID_CB_LISTBOX);
4247
4248         /* FIXME: should we handle changes to WS_EX_RIGHT style after creation? */
4249         if (lpcs->dwExStyle & WS_EX_RIGHT) es->style |= ES_RIGHT;
4250
4251         /* Number overrides lowercase overrides uppercase (at least it
4252          * does in Win95).  However I'll bet that ES_NUMBER would be
4253          * invalid under Win 3.1.
4254          */
4255         if (es->style & ES_NUMBER) {
4256                 ; /* do not override the ES_NUMBER */
4257         }  else if (es->style & ES_LOWERCASE) {
4258                 es->style &= ~ES_UPPERCASE;
4259         }
4260         if (es->style & ES_MULTILINE) {
4261                 es->buffer_limit = BUFLIMIT_INITIAL;
4262                 if (es->style & WS_VSCROLL)
4263                         es->style |= ES_AUTOVSCROLL;
4264                 if (es->style & WS_HSCROLL)
4265                         es->style |= ES_AUTOHSCROLL;
4266                 es->style &= ~ES_PASSWORD;
4267                 if ((es->style & ES_CENTER) || (es->style & ES_RIGHT)) {
4268                         /* Confirmed - RIGHT overrides CENTER */
4269                         if (es->style & ES_RIGHT)
4270                                 es->style &= ~ES_CENTER;
4271                         es->style &= ~WS_HSCROLL;
4272                         es->style &= ~ES_AUTOHSCROLL;
4273                 }
4274         } else {
4275                 es->buffer_limit = BUFLIMIT_INITIAL;
4276                 if ((es->style & ES_RIGHT) && (es->style & ES_CENTER))
4277                         es->style &= ~ES_CENTER;
4278                 es->style &= ~WS_HSCROLL;
4279                 es->style &= ~WS_VSCROLL;
4280                 if (es->style & ES_PASSWORD)
4281                         es->password_char = '*';
4282         }
4283
4284         alloc_size = ROUND_TO_GROW((es->buffer_size + 1) * sizeof(WCHAR));
4285         if(!(es->hloc32W = LocalAlloc(LMEM_MOVEABLE | LMEM_ZEROINIT, alloc_size)))
4286             goto cleanup;
4287         es->buffer_size = LocalSize(es->hloc32W)/sizeof(WCHAR) - 1;
4288
4289         if (!(es->undo_text = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, (es->buffer_size + 1) * sizeof(WCHAR))))
4290                 goto cleanup;
4291         es->undo_buffer_size = es->buffer_size;
4292
4293         if (es->style & ES_MULTILINE)
4294                 if (!(es->first_line_def = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(LINEDEF))))
4295                         goto cleanup;
4296         es->line_count = 1;
4297
4298         /*
4299          * In Win95 look and feel, the WS_BORDER style is replaced by the
4300          * WS_EX_CLIENTEDGE style for the edit control. This gives the edit
4301          * control a nonclient area so we don't need to draw the border.
4302          * If WS_BORDER without WS_EX_CLIENTEDGE is specified we shouldn't have
4303          * a nonclient area and we should handle painting the border ourselves.
4304          *
4305          * When making modifications please ensure that the code still works
4306          * for edit controls created directly with style 0x50800000, exStyle 0
4307          * (which should have a single pixel border)
4308          */
4309         if (lpcs->dwExStyle & WS_EX_CLIENTEDGE)
4310                 es->style &= ~WS_BORDER;
4311         else if (es->style & WS_BORDER)
4312                 SetWindowLongW(hwnd, GWL_STYLE, es->style & ~WS_BORDER);
4313
4314         return TRUE;
4315
4316 cleanup:
4317         SetWindowLongPtrW(es->hwndSelf, 0, 0);
4318         HeapFree(GetProcessHeap(), 0, es->first_line_def);
4319         HeapFree(GetProcessHeap(), 0, es->undo_text);
4320         if (es->hloc32W) LocalFree(es->hloc32W);
4321         HeapFree(GetProcessHeap(), 0, es);
4322         return FALSE;
4323 }
4324
4325
4326 /*********************************************************************
4327  *
4328  *      WM_CREATE
4329  *
4330  */
4331 static LRESULT EDIT_WM_Create(EDITSTATE *es, LPCWSTR name)
4332 {
4333         RECT clientRect;
4334
4335         TRACE("%s\n", debugstr_w(name));
4336        /*
4337         *       To initialize some final structure members, we call some helper
4338         *       functions.  However, since the EDITSTATE is not consistent (i.e.
4339         *       not fully initialized), we should be very careful which
4340         *       functions can be called, and in what order.
4341         */
4342         EDIT_WM_SetFont(es, 0, FALSE);
4343         EDIT_EM_EmptyUndoBuffer(es);
4344
4345         /* We need to calculate the format rect
4346            (applications may send EM_SETMARGINS before the control gets visible) */
4347         GetClientRect(es->hwndSelf, &clientRect);
4348         EDIT_SetRectNP(es, &clientRect);
4349
4350        if (name && *name) {
4351            EDIT_EM_ReplaceSel(es, FALSE, name, FALSE, FALSE);
4352            /* if we insert text to the editline, the text scrolls out
4353             * of the window, as the caret is placed after the insert
4354             * pos normally; thus we reset es->selection... to 0 and
4355             * update caret
4356             */
4357            es->selection_start = es->selection_end = 0;
4358            /* Adobe Photoshop does NOT like this. and MSDN says that EN_CHANGE
4359             * Messages are only to be sent when the USER does something to
4360             * change the contents. So I am removing this EN_CHANGE
4361             *
4362             * EDIT_NOTIFY_PARENT(es, EN_CHANGE);
4363             */
4364            EDIT_EM_ScrollCaret(es);
4365        }
4366        /* force scroll info update */
4367        EDIT_UpdateScrollInfo(es);
4368        /* The rule seems to return 1 here for success */
4369        /* Power Builder masked edit controls will crash  */
4370        /* if not. */
4371        /* FIXME: is that in all cases so ? */
4372        return 1;
4373 }
4374
4375
4376 /*********************************************************************
4377  *
4378  *      WM_NCDESTROY
4379  *
4380  */
4381 static LRESULT EDIT_WM_NCDestroy(EDITSTATE *es)
4382 {
4383         LINEDEF *pc, *pp;
4384
4385         if (es->hloc32W) {
4386                 LocalFree(es->hloc32W);
4387         }
4388         if (es->hloc32A) {
4389                 LocalFree(es->hloc32A);
4390         }
4391         pc = es->first_line_def;
4392         while (pc)
4393         {
4394                 pp = pc->next;
4395                 HeapFree(GetProcessHeap(), 0, pc);
4396                 pc = pp;
4397         }
4398
4399         SetWindowLongPtrW( es->hwndSelf, 0, 0 );
4400         HeapFree(GetProcessHeap(), 0, es->undo_text);
4401         HeapFree(GetProcessHeap(), 0, es);
4402
4403         return 0;
4404 }
4405
4406
4407 static inline LRESULT DefWindowProcT(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam, BOOL unicode)
4408 {
4409         if(unicode)
4410                 return DefWindowProcW(hwnd, msg, wParam, lParam);
4411         else
4412                 return DefWindowProcA(hwnd, msg, wParam, lParam);
4413 }
4414
4415 /*********************************************************************
4416  *
4417  *      EditWndProc_common
4418  *
4419  *      The messages are in the order of the actual integer values
4420  *      (which can be found in include/windows.h)
4421  */
4422 LRESULT EditWndProc_common( HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam, BOOL unicode )
4423 {
4424         EDITSTATE *es = (EDITSTATE *)GetWindowLongPtrW( hwnd, 0 );
4425         LRESULT result = 0;
4426
4427         TRACE("hwnd=%p msg=%x (%s) wparam=%lx lparam=%lx\n", hwnd, msg, SPY_GetMsgName(msg, hwnd), wParam, lParam);
4428
4429         if (!es && msg != WM_NCCREATE)
4430                 return DefWindowProcT(hwnd, msg, wParam, lParam, unicode);
4431
4432         if (es && (msg != WM_NCDESTROY)) EDIT_LockBuffer(es);
4433
4434         switch (msg) {
4435         case EM_GETSEL:
4436                 result = EDIT_EM_GetSel(es, (PUINT)wParam, (PUINT)lParam);
4437                 break;
4438
4439         case EM_SETSEL:
4440                 EDIT_EM_SetSel(es, wParam, lParam, FALSE);
4441                 EDIT_EM_ScrollCaret(es);
4442                 result = 1;
4443                 break;
4444
4445         case EM_GETRECT:
4446                 if (lParam)
4447                         CopyRect((LPRECT)lParam, &es->format_rect);
4448                 break;
4449
4450         case EM_SETRECT:
4451                 if ((es->style & ES_MULTILINE) && lParam) {
4452                         EDIT_SetRectNP(es, (LPRECT)lParam);
4453                         EDIT_UpdateText(es, NULL, TRUE);
4454                 }
4455                 break;
4456
4457         case EM_SETRECTNP:
4458                 if ((es->style & ES_MULTILINE) && lParam)
4459                         EDIT_SetRectNP(es, (LPRECT)lParam);
4460                 break;
4461
4462         case EM_SCROLL:
4463                 result = EDIT_EM_Scroll(es, (INT)wParam);
4464                 break;
4465
4466         case EM_LINESCROLL:
4467                 result = (LRESULT)EDIT_EM_LineScroll(es, (INT)wParam, (INT)lParam);
4468                 break;
4469
4470         case EM_SCROLLCARET:
4471                 EDIT_EM_ScrollCaret(es);
4472                 result = 1;
4473                 break;
4474
4475         case EM_GETMODIFY:
4476                 result = ((es->flags & EF_MODIFIED) != 0);
4477                 break;
4478
4479         case EM_SETMODIFY:
4480                 if (wParam)
4481                         es->flags |= EF_MODIFIED;
4482                 else
4483                         es->flags &= ~(EF_MODIFIED | EF_UPDATE);  /* reset pending updates */
4484                 break;
4485
4486         case EM_GETLINECOUNT:
4487                 result = (es->style & ES_MULTILINE) ? es->line_count : 1;
4488                 break;
4489
4490         case EM_LINEINDEX:
4491                 result = (LRESULT)EDIT_EM_LineIndex(es, (INT)wParam);
4492                 break;
4493
4494         case EM_SETHANDLE:
4495                 EDIT_EM_SetHandle(es, (HLOCAL)wParam);
4496                 break;
4497
4498         case EM_GETHANDLE:
4499                 result = (LRESULT)EDIT_EM_GetHandle(es);
4500                 break;
4501
4502         case EM_GETTHUMB:
4503                 result = EDIT_EM_GetThumb(es);
4504                 break;
4505
4506         /* these messages missing from specs */
4507         case 0x00bf:
4508         case 0x00c0:
4509         case 0x00c3:
4510         case 0x00ca:
4511                 FIXME("undocumented message 0x%x, please report\n", msg);
4512                 result = DefWindowProcW(hwnd, msg, wParam, lParam);
4513                 break;
4514
4515         case EM_LINELENGTH:
4516                 result = (LRESULT)EDIT_EM_LineLength(es, (INT)wParam);
4517                 break;
4518
4519         case EM_REPLACESEL:
4520         {
4521                 LPWSTR textW;
4522
4523                 if(unicode)
4524                     textW = (LPWSTR)lParam;
4525                 else
4526                 {
4527                     LPSTR textA = (LPSTR)lParam;
4528                     INT countW = MultiByteToWideChar(CP_ACP, 0, textA, -1, NULL, 0);
4529                     if (!(textW = HeapAlloc(GetProcessHeap(), 0, countW * sizeof(WCHAR)))) break;
4530                     MultiByteToWideChar(CP_ACP, 0, textA, -1, textW, countW);
4531                 }
4532
4533                 EDIT_EM_ReplaceSel(es, (BOOL)wParam, textW, TRUE, TRUE);
4534                 result = 1;
4535
4536                 if(!unicode)
4537                     HeapFree(GetProcessHeap(), 0, textW);
4538                 break;
4539         }
4540
4541         case EM_GETLINE:
4542                 result = (LRESULT)EDIT_EM_GetLine(es, (INT)wParam, (LPWSTR)lParam, unicode);
4543                 break;
4544
4545         case EM_SETLIMITTEXT:
4546                 EDIT_EM_SetLimitText(es, wParam);
4547                 break;
4548
4549         case EM_CANUNDO:
4550                 result = (LRESULT)EDIT_EM_CanUndo(es);
4551                 break;
4552
4553         case EM_UNDO:
4554         case WM_UNDO:
4555                 result = (LRESULT)EDIT_EM_Undo(es);
4556                 break;
4557
4558         case EM_FMTLINES:
4559                 result = (LRESULT)EDIT_EM_FmtLines(es, (BOOL)wParam);
4560                 break;
4561
4562         case EM_LINEFROMCHAR:
4563                 result = (LRESULT)EDIT_EM_LineFromChar(es, (INT)wParam);
4564                 break;
4565
4566         case EM_SETTABSTOPS:
4567                 result = (LRESULT)EDIT_EM_SetTabStops(es, (INT)wParam, (LPINT)lParam);
4568                 break;
4569
4570         case EM_SETPASSWORDCHAR:
4571         {
4572                 WCHAR charW = 0;
4573
4574                 if(unicode)
4575                     charW = (WCHAR)wParam;
4576                 else
4577                 {
4578                     CHAR charA = wParam;
4579                     MultiByteToWideChar(CP_ACP, 0, &charA, 1, &charW, 1);
4580                 }
4581
4582                 EDIT_EM_SetPasswordChar(es, charW);
4583                 break;
4584         }
4585
4586         case EM_EMPTYUNDOBUFFER:
4587                 EDIT_EM_EmptyUndoBuffer(es);
4588                 break;
4589
4590         case EM_GETFIRSTVISIBLELINE:
4591                 result = (es->style & ES_MULTILINE) ? es->y_offset : es->x_offset;
4592                 break;
4593
4594         case EM_SETREADONLY:
4595         {
4596                 DWORD old_style = es->style;
4597
4598                 if (wParam) {
4599                     SetWindowLongW( hwnd, GWL_STYLE,
4600                                     GetWindowLongW( hwnd, GWL_STYLE ) | ES_READONLY );
4601                     es->style |= ES_READONLY;
4602                 } else {
4603                     SetWindowLongW( hwnd, GWL_STYLE,
4604                                     GetWindowLongW( hwnd, GWL_STYLE ) & ~ES_READONLY );
4605                     es->style &= ~ES_READONLY;
4606                 }
4607
4608                 if (old_style ^ es->style)
4609                     InvalidateRect(es->hwndSelf, NULL, TRUE);
4610
4611                 result = 1;
4612                 break;
4613         }
4614
4615         case EM_SETWORDBREAKPROC:
4616                 EDIT_EM_SetWordBreakProc(es, (void *)lParam);
4617                 break;
4618
4619         case EM_GETWORDBREAKPROC:
4620                 result = (LRESULT)es->word_break_proc;
4621                 break;
4622
4623         case EM_GETPASSWORDCHAR:
4624         {
4625                 if(unicode)
4626                     result = es->password_char;
4627                 else
4628                 {
4629                     WCHAR charW = es->password_char;
4630                     CHAR charA = 0;
4631                     WideCharToMultiByte(CP_ACP, 0, &charW, 1, &charA, 1, NULL, NULL);
4632                     result = charA;
4633                 }
4634                 break;
4635         }
4636
4637         case EM_SETMARGINS:
4638                 EDIT_EM_SetMargins(es, (INT)wParam, LOWORD(lParam), HIWORD(lParam), TRUE);
4639                 break;
4640
4641         case EM_GETMARGINS:
4642                 result = MAKELONG(es->left_margin, es->right_margin);
4643                 break;
4644
4645         case EM_GETLIMITTEXT:
4646                 result = es->buffer_limit;
4647                 break;
4648
4649         case EM_POSFROMCHAR:
4650                 if ((INT)wParam >= get_text_length(es)) result = -1;
4651                 else result = EDIT_EM_PosFromChar(es, (INT)wParam, FALSE);
4652                 break;
4653
4654         case EM_CHARFROMPOS:
4655                 result = EDIT_EM_CharFromPos(es, (short)LOWORD(lParam), (short)HIWORD(lParam));
4656                 break;
4657
4658         /* End of the EM_ messages which were in numerical order; what order
4659          * are these in?  vaguely alphabetical?
4660          */
4661
4662         case WM_NCCREATE:
4663                 result = EDIT_WM_NCCreate(hwnd, (LPCREATESTRUCTW)lParam, unicode);
4664                 break;
4665
4666         case WM_NCDESTROY:
4667                 result = EDIT_WM_NCDestroy(es);
4668                 es = NULL;
4669                 break;
4670
4671         case WM_GETDLGCODE:
4672                 result = DLGC_HASSETSEL | DLGC_WANTCHARS | DLGC_WANTARROWS;
4673
4674                 if (es->style & ES_MULTILINE)
4675                    result |= DLGC_WANTALLKEYS;
4676
4677                 if (lParam)
4678                 {
4679                     es->flags|=EF_DIALOGMODE;
4680
4681                     if (((LPMSG)lParam)->message == WM_KEYDOWN)
4682                     {
4683                         int vk = (int)((LPMSG)lParam)->wParam;
4684
4685                         if (es->hwndListBox)
4686                         {
4687                             if (vk == VK_RETURN || vk == VK_ESCAPE)
4688                                 if (SendMessageW(GetParent(hwnd), CB_GETDROPPEDSTATE, 0, 0))
4689                                     result |= DLGC_WANTMESSAGE;
4690                         }
4691                   }
4692                 }
4693                 break;
4694
4695         case WM_IME_CHAR:
4696             if (!unicode)
4697             {
4698                 WCHAR charW;
4699                 CHAR  strng[2];
4700
4701                 strng[0] = wParam >> 8;
4702                 strng[1] = wParam & 0xff;
4703                 if (strng[0]) MultiByteToWideChar(CP_ACP, 0, strng, 2, &charW, 1);
4704                 else MultiByteToWideChar(CP_ACP, 0, &strng[1], 1, &charW, 1);
4705                 result = EDIT_WM_Char(es, charW);
4706                 break;
4707             }
4708             /* fall through */
4709         case WM_CHAR:
4710         {
4711                 WCHAR charW;
4712
4713                 if(unicode)
4714                     charW = wParam;
4715                 else
4716                 {
4717                     CHAR charA = wParam;
4718                     MultiByteToWideChar(CP_ACP, 0, &charA, 1, &charW, 1);
4719                 }
4720
4721                 if (es->hwndListBox)
4722                 {
4723                     if (charW == VK_RETURN || charW == VK_ESCAPE)
4724                     {
4725                         if (SendMessageW(GetParent(hwnd), CB_GETDROPPEDSTATE, 0, 0))
4726                             SendMessageW(GetParent(hwnd), WM_KEYDOWN, charW, 0);
4727                         break;
4728                     }
4729                 }
4730                 result = EDIT_WM_Char(es, charW);
4731                 break;
4732         }
4733
4734         case WM_UNICHAR:
4735                 if (unicode)
4736                 {
4737                     if (wParam == UNICODE_NOCHAR) return TRUE;
4738                     if (wParam <= 0x000fffff)
4739                     {
4740                         if(wParam > 0xffff) /* convert to surrogates */
4741                         {
4742                             wParam -= 0x10000;
4743                             EDIT_WM_Char(es, (wParam >> 10) + 0xd800);
4744                             EDIT_WM_Char(es, (wParam & 0x03ff) + 0xdc00);
4745                         }
4746                         else EDIT_WM_Char(es, wParam);
4747                     }
4748                     return 0;
4749                 }
4750                 break;
4751
4752         case WM_CLEAR:
4753                 EDIT_WM_Clear(es);
4754                 break;
4755
4756         case WM_COMMAND:
4757                 EDIT_WM_Command(es, HIWORD(wParam), LOWORD(wParam), (HWND)lParam);
4758                 break;
4759
4760         case WM_CONTEXTMENU:
4761                 EDIT_WM_ContextMenu(es, (short)LOWORD(lParam), (short)HIWORD(lParam));
4762                 break;
4763
4764         case WM_COPY:
4765                 EDIT_WM_Copy(es);
4766                 break;
4767
4768         case WM_CREATE:
4769                 if(unicode)
4770                     result = EDIT_WM_Create(es, ((LPCREATESTRUCTW)lParam)->lpszName);
4771                 else
4772                 {
4773                     LPCSTR nameA = ((LPCREATESTRUCTA)lParam)->lpszName;
4774                     LPWSTR nameW = NULL;
4775                     if(nameA)
4776                     {
4777                         INT countW = MultiByteToWideChar(CP_ACP, 0, nameA, -1, NULL, 0);
4778                         if((nameW = HeapAlloc(GetProcessHeap(), 0, countW * sizeof(WCHAR))))
4779                             MultiByteToWideChar(CP_ACP, 0, nameA, -1, nameW, countW);
4780                     }
4781                     result = EDIT_WM_Create(es, nameW);
4782                     HeapFree(GetProcessHeap(), 0, nameW);
4783                 }
4784                 break;
4785
4786         case WM_CUT:
4787                 EDIT_WM_Cut(es);
4788                 break;
4789
4790         case WM_ENABLE:
4791                 es->bEnableState = (BOOL) wParam;
4792                 EDIT_UpdateText(es, NULL, TRUE);
4793                 break;
4794
4795         case WM_ERASEBKGND:
4796                 /* we do the proper erase in EDIT_WM_Paint */
4797                 result = 1;
4798                 break;
4799
4800         case WM_GETFONT:
4801                 result = (LRESULT)es->font;
4802                 break;
4803
4804         case WM_GETTEXT:
4805                 result = (LRESULT)EDIT_WM_GetText(es, (INT)wParam, (LPWSTR)lParam, unicode);
4806                 break;
4807
4808         case WM_GETTEXTLENGTH:
4809                 if (unicode) result = get_text_length(es);
4810                 else result = WideCharToMultiByte( CP_ACP, 0, es->text, get_text_length(es),
4811                                                    NULL, 0, NULL, NULL );
4812                 break;
4813
4814         case WM_HSCROLL:
4815                 result = EDIT_WM_HScroll(es, LOWORD(wParam), (short)HIWORD(wParam));
4816                 break;
4817
4818         case WM_KEYDOWN:
4819                 result = EDIT_WM_KeyDown(es, (INT)wParam);
4820                 break;
4821
4822         case WM_KILLFOCUS:
4823                 result = EDIT_WM_KillFocus(es);
4824                 break;
4825
4826         case WM_LBUTTONDBLCLK:
4827                 result = EDIT_WM_LButtonDblClk(es);
4828                 break;
4829
4830         case WM_LBUTTONDOWN:
4831                 result = EDIT_WM_LButtonDown(es, wParam, (short)LOWORD(lParam), (short)HIWORD(lParam));
4832                 break;
4833
4834         case WM_LBUTTONUP:
4835                 result = EDIT_WM_LButtonUp(es);
4836                 break;
4837
4838         case WM_MBUTTONDOWN:
4839                 result = EDIT_WM_MButtonDown(es);
4840                 break;
4841
4842         case WM_MOUSEMOVE:
4843                 result = EDIT_WM_MouseMove(es, (short)LOWORD(lParam), (short)HIWORD(lParam));
4844                 break;
4845
4846         case WM_PRINTCLIENT:
4847         case WM_PAINT:
4848                 EDIT_WM_Paint(es, (HDC)wParam);
4849                 break;
4850
4851         case WM_PASTE:
4852                 EDIT_WM_Paste(es);
4853                 break;
4854
4855         case WM_SETFOCUS:
4856                 EDIT_WM_SetFocus(es);
4857                 break;
4858
4859         case WM_SETFONT:
4860                 EDIT_WM_SetFont(es, (HFONT)wParam, LOWORD(lParam) != 0);
4861                 break;
4862
4863         case WM_SETREDRAW:
4864                 /* FIXME: actually set an internal flag and behave accordingly */
4865                 break;
4866
4867         case WM_SETTEXT:
4868                 EDIT_WM_SetText(es, (LPCWSTR)lParam, unicode);
4869                 result = TRUE;
4870                 break;
4871
4872         case WM_SIZE:
4873                 EDIT_WM_Size(es, (UINT)wParam, LOWORD(lParam), HIWORD(lParam));
4874                 break;
4875
4876         case WM_STYLECHANGED:
4877                 result = EDIT_WM_StyleChanged(es, wParam, (const STYLESTRUCT *)lParam);
4878                 break;
4879
4880         case WM_STYLECHANGING:
4881                 result = 0; /* See EDIT_WM_StyleChanged */
4882                 break;
4883
4884         case WM_SYSKEYDOWN:
4885                 result = EDIT_WM_SysKeyDown(es, (INT)wParam, (DWORD)lParam);
4886                 break;
4887
4888         case WM_TIMER:
4889                 EDIT_WM_Timer(es);
4890                 break;
4891
4892         case WM_VSCROLL:
4893                 result = EDIT_WM_VScroll(es, LOWORD(wParam), (short)HIWORD(wParam));
4894                 break;
4895
4896         case WM_MOUSEWHEEL:
4897                 {
4898                     int gcWheelDelta = 0;
4899                     UINT pulScrollLines = 3;
4900                     SystemParametersInfoW(SPI_GETWHEELSCROLLLINES,0, &pulScrollLines, 0);
4901
4902                     if (wParam & (MK_SHIFT | MK_CONTROL)) {
4903                         result = DefWindowProcW(hwnd, msg, wParam, lParam);
4904                         break;
4905                     }
4906                     gcWheelDelta -= GET_WHEEL_DELTA_WPARAM(wParam);
4907                     if (abs(gcWheelDelta) >= WHEEL_DELTA && pulScrollLines)
4908                     {
4909                         int cLineScroll= (int) min((UINT) es->line_count, pulScrollLines);
4910                         cLineScroll *= (gcWheelDelta / WHEEL_DELTA);
4911                         result = EDIT_EM_LineScroll(es, 0, cLineScroll);
4912                     }
4913                 }
4914                 break;
4915
4916
4917         /* IME messages to make the edit control IME aware */
4918         case WM_IME_SETCONTEXT:
4919                 break;
4920
4921         case WM_IME_STARTCOMPOSITION:
4922                 es->composition_start = es->selection_end;
4923                 es->composition_len = 0;
4924                 break;
4925
4926         case WM_IME_COMPOSITION:
4927                 EDIT_ImeComposition(hwnd, lParam, es);
4928                 break;
4929
4930         case WM_IME_ENDCOMPOSITION:
4931                 if (es->composition_len > 0)
4932                 {
4933                         EDIT_EM_ReplaceSel(es, TRUE, empty_stringW, TRUE, TRUE);
4934                         es->selection_end = es->selection_start;
4935                         es->composition_len= 0;
4936                 }
4937                 break;
4938
4939         case WM_IME_COMPOSITIONFULL:
4940                 break;
4941
4942         case WM_IME_SELECT:
4943                 break;
4944
4945         case WM_IME_CONTROL:
4946                 break;
4947
4948         default:
4949                 result = DefWindowProcT(hwnd, msg, wParam, lParam, unicode);
4950                 break;
4951         }
4952
4953         if (IsWindow(hwnd) && es) EDIT_UnlockBuffer(es, FALSE);
4954
4955         TRACE("hwnd=%p msg=%x (%s) -- 0x%08lx\n", hwnd, msg, SPY_GetMsgName(msg, hwnd), result);
4956
4957         return result;
4958 }
4959
4960
4961 /*********************************************************************
4962  * edit class descriptor
4963  */
4964 static const WCHAR editW[] = {'E','d','i','t',0};
4965 const struct builtin_class_descr EDIT_builtin_class =
4966 {
4967     editW,                /* name */
4968     CS_DBLCLKS | CS_PARENTDC,   /* style */
4969     WINPROC_EDIT,         /* proc */
4970 #ifdef __i386__
4971     sizeof(EDITSTATE *) + sizeof(WORD), /* extra */
4972 #else
4973     sizeof(EDITSTATE *),  /* extra */
4974 #endif
4975     IDC_IBEAM,            /* cursor */
4976     0                     /* brush */
4977 };