/* * Window procedure callbacks * * Copyright 1995 Martin von Loewis * Copyright 1996 Alexandre Julliard */ #include #include "config.h" #include "windef.h" #include "winbase.h" #include "wingdi.h" #include "wine/winbase16.h" #include "wine/winuser16.h" #include "stackframe.h" #include "builtin16.h" #include "controls.h" #include "heap.h" #include "struct32.h" #include "win.h" #include "winproc.h" #include "debugtools.h" #include "spy.h" #include "task.h" #include "thread.h" DECLARE_DEBUG_CHANNEL(msg); DECLARE_DEBUG_CHANNEL(relay); DECLARE_DEBUG_CHANNEL(win); /* Window procedure 16-to-32-bit thunk, * see BuildSpec16File() in tools/build.c */ #include "pshpack1.h" typedef struct { WORD pushw_bp; /* pushw %bp */ BYTE pushl_func; /* pushl $proc */ WNDPROC proc; WORD pushw_ax; /* pushw %ax */ BYTE pushl_relay; /* pushl $relay */ void (*relay)(); /* WINPROC_Thunk16To32A/W() */ BYTE lcall; /* lcall cs:glue */ void (*glue)(); /* __wine_call_from_16_long */ WORD cs; /* __FLATCS */ WORD lret; /* lret $10 */ WORD nArgs; } WINPROC_THUNK_FROM16; #include "poppack.h" /* Window procedure 32-to-16-bit thunk, * see BuildSpec32File() in tools/build.c */ typedef struct { BYTE popl_eax; /* popl %eax (return address) */ BYTE pushl_func; /* pushl $proc */ WNDPROC16 proc WINE_PACKED; BYTE pushl_eax; /* pushl %eax */ BYTE jmp; /* jmp relay (relative jump)*/ void (*relay)() WINE_PACKED; /* WINPROC_CallProc32ATo16() */ } WINPROC_THUNK_FROM32; /* Simple jmp to call 32-bit procedure directly */ typedef struct { BYTE jmp; /* jmp proc (relative jump) */ WNDPROC proc WINE_PACKED; } WINPROC_JUMP; typedef union { WINPROC_THUNK_FROM16 t_from16; WINPROC_THUNK_FROM32 t_from32; } WINPROC_THUNK; typedef struct tagWINDOWPROC { WINPROC_THUNK thunk; /* Thunk */ WINPROC_JUMP jmp; /* Jump */ struct tagWINDOWPROC *next; /* Next window proc */ UINT magic; /* Magic number */ WINDOWPROCTYPE type; /* Function type */ WINDOWPROCUSER user; /* Function user */ } WINDOWPROC; #define WINPROC_MAGIC ('W' | ('P' << 8) | ('R' << 16) | ('C' << 24)) #define WINPROC_THUNKPROC(pproc) \ (((pproc)->type == WIN_PROC_16) ? \ (WNDPROC16)((pproc)->thunk.t_from32.proc) : \ (WNDPROC16)((pproc)->thunk.t_from16.proc)) static LRESULT WINAPI WINPROC_CallProc32ATo16( WNDPROC16 func, HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam ); static LRESULT WINAPI WINPROC_CallProc32WTo16( WNDPROC16 func, HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam ); static LRESULT WINAPI WINPROC_Thunk16To32A( WNDPROC func, LPBYTE args ); static LRESULT WINAPI WINPROC_Thunk16To32W( WNDPROC func, LPBYTE args ); static HANDLE WinProcHeap; /********************************************************************** * WINPROC_Init */ BOOL WINPROC_Init(void) { WinProcHeap = HeapCreate( HEAP_WINE_SEGPTR | HEAP_WINE_CODESEG, 0, 0 ); if (!WinProcHeap) { WARN_(relay)("Unable to create winproc heap\n" ); return FALSE; } return TRUE; } #ifdef __i386__ /* Some window procedures modify register they shouldn't, or are not * properly declared stdcall; so we need a small assembly wrapper to * call them. */ extern LRESULT WINPROC_wrapper( WNDPROC proc, HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam ); __ASM_GLOBAL_FUNC( WINPROC_wrapper, "pushl %ebp\n\t" "movl %esp,%ebp\n\t" "pushl %edi\n\t" "pushl %esi\n\t" "pushl %ebx\n\t" "pushl 24(%ebp)\n\t" "pushl 20(%ebp)\n\t" "pushl 16(%ebp)\n\t" "pushl 12(%ebp)\n\t" "movl 8(%ebp),%eax\n\t" "call *%eax\n\t" "leal -12(%ebp),%esp\n\t" "popl %ebx\n\t" "popl %esi\n\t" "popl %edi\n\t" "leave\n\t" "ret" ); #else static inline LRESULT WINPROC_wrapper( WNDPROC proc, HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam ) { return proc( hwnd, msg, wParam, lParam ); } #endif /* __i386__ */ /********************************************************************** * WINPROC_CallWndProc32 * * Call a 32-bit WndProc. */ static LRESULT WINPROC_CallWndProc( WNDPROC proc, HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam ) { LRESULT retvalue; int iWndsLocks; TRACE_(relay)("(wndproc=%p,hwnd=%08x,msg=%s,wp=%08x,lp=%08lx)\n", proc, hwnd, SPY_GetMsgName(msg), wParam, lParam ); /* To avoid any deadlocks, all the locks on the windows structures must be suspended before the control is passed to the application */ iWndsLocks = WIN_SuspendWndsLock(); retvalue = WINPROC_wrapper( proc, hwnd, msg, wParam, lParam ); WIN_RestoreWndsLock(iWndsLocks); TRACE_(relay)("(wndproc=%p,hwnd=%08x,msg=%s,wp=%08x,lp=%08lx) retval=%08lx\n", proc, hwnd, SPY_GetMsgName(msg), wParam, lParam, retvalue ); return retvalue; } /*********************************************************************** * WINPROC_CallWndProc16 * * Call a 16-bit window procedure */ static LRESULT WINAPI WINPROC_CallWndProc16( WNDPROC16 proc, HWND16 hwnd, UINT16 msg, WPARAM16 wParam, LPARAM lParam ) { CONTEXT86 context; LRESULT ret; WORD *args; WND *wndPtr = WIN_FindWndPtr( hwnd ); DWORD offset = 0; TEB *teb = NtCurrentTeb(); int iWndsLocks; /* Window procedures want ax = hInstance, ds = es = ss */ memset(&context, '\0', sizeof(context)); context.SegDs = context.SegEs = SELECTOROF(teb->cur_stack); context.Eax = wndPtr ? wndPtr->hInstance : context.SegDs; context.SegCs = SELECTOROF(proc); context.Eip = OFFSETOF(proc); context.Ebp = OFFSETOF(teb->cur_stack) + (WORD)&((STACK16FRAME*)0)->bp; WIN_ReleaseWndPtr(wndPtr); if (lParam) { /* Some programs (eg. the "Undocumented Windows" examples, JWP) only work if structures passed in lParam are placed in the stack/data segment. Programmers easily make the mistake of converting lParam to a near rather than a far pointer, since Windows apparently allows this. We copy the structures to the 16 bit stack; this is ugly but makes these programs work. */ switch (msg) { case WM_CREATE: case WM_NCCREATE: offset = sizeof(CREATESTRUCT16); break; case WM_DRAWITEM: offset = sizeof(DRAWITEMSTRUCT16); break; case WM_COMPAREITEM: offset = sizeof(COMPAREITEMSTRUCT16); break; } if (offset) { void *s = MapSL(lParam); lParam = stack16_push( offset ); memcpy( MapSL(lParam), s, offset ); } } iWndsLocks = WIN_SuspendWndsLock(); args = (WORD *)THREAD_STACK16(teb) - 5; args[0] = LOWORD(lParam); args[1] = HIWORD(lParam); args[2] = wParam; args[3] = msg; args[4] = hwnd; wine_call_to_16_regs_short( &context, 5 * sizeof(WORD) ); ret = MAKELONG( LOWORD(context.Eax), LOWORD(context.Edx) ); if (offset) stack16_pop( offset ); WIN_RestoreWndsLock(iWndsLocks); return ret; } /********************************************************************** * WINPROC_GetPtr * * Return a pointer to the win proc. */ static WINDOWPROC *WINPROC_GetPtr( WNDPROC16 handle ) { BYTE *ptr; WINDOWPROC *proc; /* ptr cannot be < 64K */ if (!HIWORD(handle)) return NULL; /* Check for a linear pointer */ ptr = (BYTE *)handle; /* First check if it is the jmp address */ proc = (WINDOWPROC *)(ptr - (int)&((WINDOWPROC *)0)->jmp); if (HeapValidate( WinProcHeap, 0, proc ) && (proc->magic == WINPROC_MAGIC)) return proc; /* Now it must be the thunk address */ proc = (WINDOWPROC *)(ptr - (int)&((WINDOWPROC *)0)->thunk); if (HeapValidate( WinProcHeap, 0, proc ) && (proc->magic == WINPROC_MAGIC)) return proc; /* Check for a segmented pointer */ if (!IsBadReadPtr16( (SEGPTR)handle, sizeof(proc->thunk) )) { ptr = MapSL( (SEGPTR)handle ); /* It must be the thunk address */ proc = (WINDOWPROC *)(ptr - (int)&((WINDOWPROC *)0)->thunk); if (HeapValidate( WinProcHeap, 0, proc ) && (proc->magic == WINPROC_MAGIC)) return proc; } return NULL; } /********************************************************************** * WINPROC_AllocWinProc * * Allocate a new window procedure. */ static WINDOWPROC *WINPROC_AllocWinProc( WNDPROC16 func, WINDOWPROCTYPE type, WINDOWPROCUSER user ) { WINDOWPROC *proc, *oldproc; /* Allocate a window procedure */ if (!(proc = HeapAlloc( WinProcHeap, 0, sizeof(WINDOWPROC) ))) return 0; /* Check if the function is already a win proc */ if ((oldproc = WINPROC_GetPtr( func ))) { *proc = *oldproc; } else { switch(type) { case WIN_PROC_16: proc->thunk.t_from32.popl_eax = 0x58; /* popl %eax */ proc->thunk.t_from32.pushl_func = 0x68; /* pushl $proc */ proc->thunk.t_from32.proc = func; proc->thunk.t_from32.pushl_eax = 0x50; /* pushl %eax */ proc->thunk.t_from32.jmp = 0xe9; /* jmp relay*/ proc->thunk.t_from32.relay = /* relative jump */ (void(*)())((DWORD)WINPROC_CallProc32ATo16 - (DWORD)(&proc->thunk.t_from32.relay + 1)); break; case WIN_PROC_32A: case WIN_PROC_32W: proc->thunk.t_from16.pushw_bp = 0x5566; /* pushw %bp */ proc->thunk.t_from16.pushl_func = 0x68; /* pushl $proc */ proc->thunk.t_from16.proc = (WNDPROC)func; proc->thunk.t_from16.pushw_ax = 0x5066; /* pushw %ax */ proc->thunk.t_from16.pushl_relay = 0x68; /* pushl $relay */ proc->thunk.t_from16.relay = (type == WIN_PROC_32A) ? (void(*)())WINPROC_Thunk16To32A : (void(*)())WINPROC_Thunk16To32W; proc->thunk.t_from16.lcall = 0x9a; /* lcall cs:glue */ proc->thunk.t_from16.glue = (void*)__wine_call_from_16_long; proc->thunk.t_from16.cs = __get_cs(); proc->thunk.t_from16.lret = 0xca66; proc->thunk.t_from16.nArgs = 10; proc->jmp.jmp = 0xe9; /* Fixup relative jump */ proc->jmp.proc = (WNDPROC)((DWORD)func - (DWORD)(&proc->jmp.proc + 1)); break; default: /* Should not happen */ break; } proc->magic = WINPROC_MAGIC; proc->type = type; proc->user = user; } proc->next = NULL; TRACE_(win)("(%08x,%d): returning %08x\n", (UINT)func, type, (UINT)proc ); return proc; } /********************************************************************** * WINPROC_GetProc * * Get a window procedure pointer that can be passed to the Windows program. */ WNDPROC16 WINPROC_GetProc( HWINDOWPROC proc, WINDOWPROCTYPE type ) { if (!proc) return NULL; if (type == WIN_PROC_16) /* We want a 16:16 address */ { if (((WINDOWPROC *)proc)->type == WIN_PROC_16) return ((WINDOWPROC *)proc)->thunk.t_from32.proc; else return (WNDPROC16)HEAP_GetSegptr( WinProcHeap, 0, &((WINDOWPROC *)proc)->thunk ); } else /* We want a 32-bit address */ { if (((WINDOWPROC *)proc)->type == WIN_PROC_16) return (WNDPROC16)&((WINDOWPROC *)proc)->thunk; else if (type != ((WINDOWPROC *)proc)->type) /* Have to return the jmp address if types don't match */ return (WNDPROC16)&((WINDOWPROC *)proc)->jmp; else /* Some Win16 programs want to get back the proc they set */ return (WNDPROC16)((WINDOWPROC *)proc)->thunk.t_from16.proc; } } /********************************************************************** * WINPROC_SetProc * * Set the window procedure for a window or class. There are * three tree classes of winproc callbacks: * * 1) class -> wp - not subclassed * class -> wp -> wp -> wp -> wp - SetClassLong() * / / * 2) window -' / - not subclassed * window -> wp -> wp ' - SetWindowLong() * * 3) timer -> wp - SetTimer() * * Initially, winproc of the window points to the current winproc * thunk of its class. Subclassing prepends a new thunk to the * window winproc chain at the head of the list. Thus, window thunk * list includes class thunks and the latter are preserved when the * window is destroyed. * */ BOOL WINPROC_SetProc( HWINDOWPROC *pFirst, WNDPROC16 func, WINDOWPROCTYPE type, WINDOWPROCUSER user ) { BOOL bRecycle = FALSE; WINDOWPROC *proc, **ppPrev; /* Check if function is already in the list */ ppPrev = (WINDOWPROC **)pFirst; proc = WINPROC_GetPtr( func ); while (*ppPrev) { if (proc) { if (*ppPrev == proc) { if ((*ppPrev)->user != user) { /* terminal thunk is being restored */ WINPROC_FreeProc( *pFirst, (*ppPrev)->user ); *(WINDOWPROC **)pFirst = *ppPrev; return TRUE; } bRecycle = TRUE; break; } } else { if (((*ppPrev)->type == type) && (func == WINPROC_THUNKPROC(*ppPrev))) { bRecycle = TRUE; break; } } /* WPF_CLASS thunk terminates window thunk list */ if ((*ppPrev)->user != user) break; ppPrev = &(*ppPrev)->next; } if (bRecycle) { /* Extract this thunk from the list */ proc = *ppPrev; *ppPrev = proc->next; } else /* Allocate a new one */ { if (proc) /* Was already a win proc */ { type = proc->type; func = WINPROC_THUNKPROC(proc); } proc = WINPROC_AllocWinProc( func, type, user ); if (!proc) return FALSE; } /* Add the win proc at the head of the list */ TRACE_(win)("(%08x,%08x,%d): res=%08x\n", (UINT)*pFirst, (UINT)func, type, (UINT)proc ); proc->next = *(WINDOWPROC **)pFirst; *(WINDOWPROC **)pFirst = proc; return TRUE; } /********************************************************************** * WINPROC_FreeProc * * Free a list of win procs. */ void WINPROC_FreeProc( HWINDOWPROC proc, WINDOWPROCUSER user ) { while (proc) { WINDOWPROC *next = ((WINDOWPROC *)proc)->next; if (((WINDOWPROC *)proc)->user != user) break; TRACE_(win)("freeing %08x\n", (UINT)proc); HeapFree( WinProcHeap, 0, proc ); proc = next; } } /********************************************************************** * WINPROC_GetProcType * * Return the window procedure type. */ WINDOWPROCTYPE WINPROC_GetProcType( HWINDOWPROC proc ) { if (!proc || (((WINDOWPROC *)proc)->magic != WINPROC_MAGIC)) return WIN_PROC_INVALID; return ((WINDOWPROC *)proc)->type; } /********************************************************************** * WINPROC_TestCBForStr * * Return TRUE if the lparam is a string */ static BOOL WINPROC_TestCBForStr ( HWND hwnd ) { BOOL retvalue; WND * wnd = WIN_FindWndPtr(hwnd); retvalue = ( !(LOWORD(wnd->dwStyle) & (CBS_OWNERDRAWFIXED | CBS_OWNERDRAWVARIABLE)) || (LOWORD(wnd->dwStyle) & CBS_HASSTRINGS) ); WIN_ReleaseWndPtr(wnd); return retvalue; } /********************************************************************** * WINPROC_TestLBForStr * * Return TRUE if the lparam is a string */ static BOOL WINPROC_TestLBForStr ( HWND hwnd ) { BOOL retvalue; WND * wnd = WIN_FindWndPtr(hwnd); retvalue = ( !(LOWORD(wnd->dwStyle) & (LBS_OWNERDRAWFIXED | LBS_OWNERDRAWVARIABLE)) || (LOWORD(wnd->dwStyle) & LBS_HASSTRINGS) ); WIN_ReleaseWndPtr(wnd); return retvalue; } /********************************************************************** * WINPROC_MapMsg32ATo32W * * Map a message from Ansi to Unicode. * Return value is -1 on error, 0 if OK, 1 if an UnmapMsg call is needed. * * FIXME: * WM_CHARTOITEM, WM_MENUCHAR * * FIXME: * WM_GETTEXT/WM_SETTEXT and static control with SS_ICON style: * the first four bytes are the handle of the icon * when the WM_SETTEXT message has been used to set the icon */ INT WINPROC_MapMsg32ATo32W( HWND hwnd, UINT msg, WPARAM *pwparam, LPARAM *plparam ) { switch(msg) { case WM_GETTEXT: { LPARAM *ptr = (LPARAM *)HeapAlloc( GetProcessHeap(), 0, *pwparam * sizeof(WCHAR) + sizeof(LPARAM) ); if (!ptr) return -1; *ptr++ = *plparam; /* Store previous lParam */ *plparam = (LPARAM)ptr; } return 1; /* lparam is string (0-terminated) */ case WM_SETTEXT: case WM_WININICHANGE: case CB_DIR: case CB_FINDSTRING: case CB_FINDSTRINGEXACT: case CB_SELECTSTRING: case LB_DIR: case LB_ADDFILE: case LB_FINDSTRING: case LB_FINDSTRINGEXACT: case LB_SELECTSTRING: case EM_REPLACESEL: *plparam = (LPARAM)HEAP_strdupAtoW( GetProcessHeap(), 0, (LPCSTR)*plparam ); return (*plparam ? 1 : -1); case WM_NCCREATE: case WM_CREATE: { struct s { CREATESTRUCTW cs; /* new structure */ LPCWSTR lpszName; /* allocated Name */ LPCWSTR lpszClass; /* allocated Class */ }; struct s *xs = HeapAlloc( GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(struct s)); if (!xs) return -1; xs->cs = *(CREATESTRUCTW *)*plparam; if (HIWORD(xs->cs.lpszName)) xs->lpszName = xs->cs.lpszName = HEAP_strdupAtoW( GetProcessHeap(), 0, (LPCSTR)xs->cs.lpszName ); if (HIWORD(xs->cs.lpszClass)) xs->lpszClass = xs->cs.lpszClass = HEAP_strdupAtoW( GetProcessHeap(), 0, (LPCSTR)xs->cs.lpszClass ); *plparam = (LPARAM)xs; } return 1; case WM_MDICREATE: { MDICREATESTRUCTW *cs = (MDICREATESTRUCTW *)HeapAlloc( GetProcessHeap(), 0, sizeof(*cs) ); if (!cs) return -1; *cs = *(MDICREATESTRUCTW *)*plparam; if (HIWORD(cs->szClass)) cs->szClass = HEAP_strdupAtoW( GetProcessHeap(), 0, (LPCSTR)cs->szClass ); if (HIWORD(cs->szTitle)) cs->szTitle = HEAP_strdupAtoW( GetProcessHeap(), 0, (LPCSTR)cs->szTitle ); *plparam = (LPARAM)cs; } return 1; /* Listbox */ case LB_ADDSTRING: case LB_INSERTSTRING: if ( WINPROC_TestLBForStr( hwnd )) *plparam = (LPARAM)HEAP_strdupAtoW( GetProcessHeap(), 0, (LPCSTR)*plparam ); return (*plparam ? 1 : -1); case LB_GETTEXT: /* fixme: fixed sized buffer */ { if ( WINPROC_TestLBForStr( hwnd )) { LPARAM *ptr = (LPARAM *)HeapAlloc( GetProcessHeap(), 0, 256 * sizeof(WCHAR) + sizeof(LPARAM) ); if (!ptr) return -1; *ptr++ = *plparam; /* Store previous lParam */ *plparam = (LPARAM)ptr; } } return 1; /* Combobox */ case CB_ADDSTRING: case CB_INSERTSTRING: if ( WINPROC_TestCBForStr( hwnd )) *plparam = (LPARAM)HEAP_strdupAtoW( GetProcessHeap(), 0, (LPCSTR)*plparam ); return (*plparam ? 1 : -1); case CB_GETLBTEXT: /* fixme: fixed sized buffer */ { if ( WINPROC_TestCBForStr( hwnd )) { LPARAM *ptr = (LPARAM *)HeapAlloc( GetProcessHeap(), 0, 256 * sizeof(WCHAR) + sizeof(LPARAM) ); if (!ptr) return -1; *ptr++ = *plparam; /* Store previous lParam */ *plparam = (LPARAM)ptr; } } return 1; /* Multiline edit */ case EM_GETLINE: { WORD len = (WORD)*plparam; LPARAM *ptr = (LPARAM *) HeapAlloc( GetProcessHeap(), 0, sizeof(LPARAM) + sizeof (WORD) + len*sizeof(WCHAR) ); if (!ptr) return -1; *ptr++ = *plparam; /* Store previous lParam */ *((WORD *) ptr) = len; /* Store the length */ *plparam = (LPARAM)ptr; } return 1; case WM_CHAR: case WM_DEADCHAR: case WM_SYSCHAR: case WM_SYSDEADCHAR: case EM_SETPASSWORDCHAR: { char ch = *pwparam; WCHAR wch; MultiByteToWideChar(CP_ACP, 0, &ch, 1, &wch, 1); *pwparam = wch; } return 0; case WM_ASKCBFORMATNAME: case WM_DEVMODECHANGE: case WM_PAINTCLIPBOARD: case WM_SIZECLIPBOARD: FIXME_(msg)("message %s (0x%x) needs translation, please report\n", SPY_GetMsgName(msg), msg ); return -1; default: /* No translation needed */ return 0; } } /********************************************************************** * WINPROC_UnmapMsg32ATo32W * * Unmap a message that was mapped from Ansi to Unicode. */ void WINPROC_UnmapMsg32ATo32W( HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam ) { switch(msg) { case WM_GETTEXT: { LPARAM *ptr = (LPARAM *)lParam - 1; if (wParam > 0 && !WideCharToMultiByte( CP_ACP, 0, (LPWSTR)lParam, -1, (LPSTR)*ptr, wParam, NULL, NULL )) ((LPSTR)*ptr)[wParam-1] = 0; HeapFree( GetProcessHeap(), 0, ptr ); } break; case WM_NCCREATE: case WM_CREATE: { struct s { CREATESTRUCTW cs; /* new structure */ LPWSTR lpszName; /* allocated Name */ LPWSTR lpszClass; /* allocated Class */ }; struct s *xs = (struct s *)lParam; if (xs->lpszName) HeapFree( GetProcessHeap(), 0, xs->lpszName ); if (xs->lpszClass) HeapFree( GetProcessHeap(), 0, xs->lpszClass ); HeapFree( GetProcessHeap(), 0, xs ); } break; case WM_MDICREATE: { MDICREATESTRUCTW *cs = (MDICREATESTRUCTW *)lParam; if (HIWORD(cs->szTitle)) HeapFree( GetProcessHeap(), 0, (LPVOID)cs->szTitle ); if (HIWORD(cs->szClass)) HeapFree( GetProcessHeap(), 0, (LPVOID)cs->szClass ); HeapFree( GetProcessHeap(), 0, cs ); } break; case WM_SETTEXT: case WM_WININICHANGE: case CB_DIR: case CB_FINDSTRING: case CB_FINDSTRINGEXACT: case CB_SELECTSTRING: case LB_DIR: case LB_ADDFILE: case LB_FINDSTRING: case LB_FINDSTRINGEXACT: case LB_SELECTSTRING: case EM_REPLACESEL: HeapFree( GetProcessHeap(), 0, (void *)lParam ); break; /* Listbox */ case LB_ADDSTRING: case LB_INSERTSTRING: if ( WINPROC_TestLBForStr( hwnd )) HeapFree( GetProcessHeap(), 0, (void *)lParam ); break; case LB_GETTEXT: { if ( WINPROC_TestLBForStr( hwnd )) { LPARAM *ptr = (LPARAM *)lParam - 1; WideCharToMultiByte( CP_ACP, 0, (LPWSTR)lParam, -1, (LPSTR)*ptr, 0x7fffffff, NULL, NULL ); HeapFree( GetProcessHeap(), 0, ptr ); } } break; /* Combobox */ case CB_ADDSTRING: case CB_INSERTSTRING: if ( WINPROC_TestCBForStr( hwnd )) HeapFree( GetProcessHeap(), 0, (void *)lParam ); break; case CB_GETLBTEXT: { if ( WINPROC_TestCBForStr( hwnd )) { LPARAM *ptr = (LPARAM *)lParam - 1; WideCharToMultiByte( CP_ACP, 0, (LPWSTR)lParam, -1, (LPSTR)*ptr, 0x7fffffff, NULL, NULL ); HeapFree( GetProcessHeap(), 0, ptr ); } } break; /* Multiline edit */ case EM_GETLINE: { LPARAM * ptr = (LPARAM *)lParam - 1; /* get the old lParam */ WORD len = *(WORD *) lParam; if (len > 0 && !WideCharToMultiByte( CP_ACP, 0, (LPWSTR)lParam, -1, (LPSTR)*ptr, len, NULL, NULL )) ((LPSTR)*ptr)[len-1] = 0; HeapFree( GetProcessHeap(), 0, ptr ); } break; } } /********************************************************************** * WINPROC_MapMsg32WTo32A * * Map a message from Unicode to Ansi. * Return value is -1 on error, 0 if OK, 1 if an UnmapMsg call is needed. */ INT WINPROC_MapMsg32WTo32A( HWND hwnd, UINT msg, WPARAM *pwparam, LPARAM *plparam ) { switch(msg) { case WM_GETTEXT: { LPARAM *ptr = (LPARAM *)HeapAlloc( GetProcessHeap(), 0, *pwparam + sizeof(LPARAM) ); if (!ptr) return -1; *ptr++ = *plparam; /* Store previous lParam */ *plparam = (LPARAM)ptr; } return 1; case WM_SETTEXT: case WM_WININICHANGE: case CB_DIR: case CB_FINDSTRING: case CB_FINDSTRINGEXACT: case CB_SELECTSTRING: case LB_DIR: case LB_ADDFILE: case LB_FINDSTRING: case LB_FINDSTRINGEXACT: case LB_SELECTSTRING: case EM_REPLACESEL: *plparam = (LPARAM)HEAP_strdupWtoA( GetProcessHeap(), 0, (LPCWSTR)*plparam ); return (*plparam ? 1 : -1); case WM_NCCREATE: case WM_CREATE: { CREATESTRUCTA *cs = (CREATESTRUCTA *)HeapAlloc( GetProcessHeap(), 0, sizeof(*cs) ); if (!cs) return -1; *cs = *(CREATESTRUCTA *)*plparam; if (HIWORD(cs->lpszName)) cs->lpszName = HEAP_strdupWtoA( GetProcessHeap(), 0, (LPCWSTR)cs->lpszName ); if (HIWORD(cs->lpszClass)) cs->lpszClass = HEAP_strdupWtoA( GetProcessHeap(), 0, (LPCWSTR)cs->lpszClass); *plparam = (LPARAM)cs; } return 1; case WM_MDICREATE: { MDICREATESTRUCTA *cs = (MDICREATESTRUCTA *)HeapAlloc( GetProcessHeap(), 0, sizeof(*cs) ); if (!cs) return -1; *cs = *(MDICREATESTRUCTA *)*plparam; if (HIWORD(cs->szTitle)) cs->szTitle = HEAP_strdupWtoA( GetProcessHeap(), 0, (LPCWSTR)cs->szTitle ); if (HIWORD(cs->szClass)) cs->szClass = HEAP_strdupWtoA( GetProcessHeap(), 0, (LPCWSTR)cs->szClass ); *plparam = (LPARAM)cs; } return 1; /* Listbox */ case LB_ADDSTRING: case LB_INSERTSTRING: if ( WINPROC_TestLBForStr( hwnd )) *plparam = (LPARAM)HEAP_strdupWtoA( GetProcessHeap(), 0, (LPCWSTR)*plparam ); return (*plparam ? 1 : -1); case LB_GETTEXT: /* fixme: fixed sized buffer */ { if ( WINPROC_TestLBForStr( hwnd )) { LPARAM *ptr = (LPARAM *)HeapAlloc( GetProcessHeap(), 0, 256 + sizeof(LPARAM) ); if (!ptr) return -1; *ptr++ = *plparam; /* Store previous lParam */ *plparam = (LPARAM)ptr; } } return 1; /* Combobox */ case CB_ADDSTRING: case CB_INSERTSTRING: if ( WINPROC_TestCBForStr( hwnd )) *plparam = (LPARAM)HEAP_strdupWtoA( GetProcessHeap(), 0, (LPCWSTR)*plparam ); return (*plparam ? 1 : -1); case CB_GETLBTEXT: /* fixme: fixed sized buffer */ { if ( WINPROC_TestCBForStr( hwnd )) { LPARAM *ptr = (LPARAM *)HeapAlloc( GetProcessHeap(), 0, 256 + sizeof(LPARAM) ); if (!ptr) return -1; *ptr++ = *plparam; /* Store previous lParam */ *plparam = (LPARAM)ptr; } } return 1; /* Multiline edit */ case EM_GETLINE: { WORD len = (WORD)*plparam; LPARAM *ptr = (LPARAM *) HeapAlloc( GetProcessHeap(), 0, sizeof(LPARAM) + sizeof (WORD) + len*sizeof(CHAR) ); if (!ptr) return -1; *ptr++ = *plparam; /* Store previous lParam */ *((WORD *) ptr) = len; /* Store the length */ *plparam = (LPARAM)ptr; } return 1; case WM_CHAR: case WM_DEADCHAR: case WM_SYSCHAR: case WM_SYSDEADCHAR: case EM_SETPASSWORDCHAR: { WCHAR wch = *pwparam; char ch; WideCharToMultiByte( CP_ACP, 0, &wch, 1, &ch, 1, NULL, NULL ); *pwparam = ch; } return 0; case WM_ASKCBFORMATNAME: case WM_DEVMODECHANGE: case WM_PAINTCLIPBOARD: case WM_SIZECLIPBOARD: FIXME_(msg)("message %s (%04x) needs translation, please report\n",SPY_GetMsgName(msg),msg ); return -1; default: /* No translation needed */ return 0; } } /********************************************************************** * WINPROC_UnmapMsg32WTo32A * * Unmap a message that was mapped from Unicode to Ansi. */ void WINPROC_UnmapMsg32WTo32A( HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam ) { switch(msg) { case WM_GETTEXT: { LPARAM *ptr = (LPARAM *)lParam - 1; if (wParam) { if (!MultiByteToWideChar( CP_ACP, 0, (LPSTR)lParam, -1, (LPWSTR)*ptr, wParam )) ((LPWSTR)*ptr)[wParam-1] = 0; } HeapFree( GetProcessHeap(), 0, ptr ); } break; case WM_SETTEXT: case WM_WININICHANGE: case CB_DIR: case CB_FINDSTRING: case CB_FINDSTRINGEXACT: case CB_SELECTSTRING: case LB_DIR: case LB_ADDFILE: case LB_FINDSTRING: case LB_FINDSTRINGEXACT: case LB_SELECTSTRING: case EM_REPLACESEL: HeapFree( GetProcessHeap(), 0, (void *)lParam ); break; case WM_NCCREATE: case WM_CREATE: { CREATESTRUCTA *cs = (CREATESTRUCTA *)lParam; if (HIWORD(cs->lpszName)) HeapFree( GetProcessHeap(), 0, (LPVOID)cs->lpszName ); if (HIWORD(cs->lpszClass)) HeapFree( GetProcessHeap(), 0, (LPVOID)cs->lpszClass ); HeapFree( GetProcessHeap(), 0, cs ); } break; case WM_MDICREATE: { MDICREATESTRUCTA *cs = (MDICREATESTRUCTA *)lParam; if (HIWORD(cs->szTitle)) HeapFree( GetProcessHeap(), 0, (LPVOID)cs->szTitle ); if (HIWORD(cs->szClass)) HeapFree( GetProcessHeap(), 0, (LPVOID)cs->szClass ); HeapFree( GetProcessHeap(), 0, cs ); } break; /* Listbox */ case LB_ADDSTRING: case LB_INSERTSTRING: if ( WINPROC_TestLBForStr( hwnd )) HeapFree( GetProcessHeap(), 0, (void *)lParam ); break; case LB_GETTEXT: if ( WINPROC_TestLBForStr( hwnd )) { LPARAM *ptr = (LPARAM *)lParam - 1; MultiByteToWideChar( CP_ACP, 0, (LPSTR)lParam, -1, (LPWSTR)*ptr, 0x7fffffff ); HeapFree( GetProcessHeap(), 0, ptr ); } break; /* Combobox */ case CB_ADDSTRING: case CB_INSERTSTRING: if ( WINPROC_TestCBForStr( hwnd )) HeapFree( GetProcessHeap(), 0, (void *)lParam ); break; case CB_GETLBTEXT: if ( WINPROC_TestCBForStr( hwnd )) { LPARAM *ptr = (LPARAM *)lParam - 1; MultiByteToWideChar( CP_ACP, 0, (LPSTR)lParam, -1, (LPWSTR)*ptr, 0x7fffffff ); HeapFree( GetProcessHeap(), 0, ptr ); } break; /* Multiline edit */ case EM_GETLINE: { LPARAM * ptr = (LPARAM *)lParam - 1; /* get the old lparam */ WORD len = *(WORD *)ptr; if (len) { if (!MultiByteToWideChar( CP_ACP, 0, (LPSTR)lParam, -1, (LPWSTR)*ptr, len )) ((LPWSTR)*ptr)[len-1] = 0; } HeapFree( GetProcessHeap(), 0, ptr ); } break; } } /********************************************************************** * WINPROC_MapMsg16To32A * * Map a message from 16- to 32-bit Ansi. * Return value is -1 on error, 0 if OK, 1 if an UnmapMsg call is needed. */ INT WINPROC_MapMsg16To32A( UINT16 msg16, WPARAM16 wParam16, UINT *pmsg32, WPARAM *pwparam32, LPARAM *plparam ) { *pmsg32 = (UINT)msg16; *pwparam32 = (WPARAM)wParam16; switch(msg16) { case WM_ACTIVATE: case WM_CHARTOITEM: case WM_COMMAND: case WM_VKEYTOITEM: *pwparam32 = MAKEWPARAM( wParam16, HIWORD(*plparam) ); *plparam = (LPARAM)(HWND)LOWORD(*plparam); return 0; case WM_HSCROLL: case WM_VSCROLL: *pwparam32 = MAKEWPARAM( wParam16, LOWORD(*plparam) ); *plparam = (LPARAM)(HWND)HIWORD(*plparam); return 0; case WM_CTLCOLOR: if ( HIWORD(*plparam) > CTLCOLOR_STATIC ) return -1; *pmsg32 = WM_CTLCOLORMSGBOX + HIWORD(*plparam); *pwparam32 = (WPARAM)(HDC)wParam16; *plparam = (LPARAM)(HWND)LOWORD(*plparam); return 0; case WM_COMPAREITEM: { COMPAREITEMSTRUCT16* cis16 = MapSL(*plparam); COMPAREITEMSTRUCT *cis = (COMPAREITEMSTRUCT *) HeapAlloc(GetProcessHeap(), 0, sizeof(*cis)); if (!cis) return -1; cis->CtlType = cis16->CtlType; cis->CtlID = cis16->CtlID; cis->hwndItem = cis16->hwndItem; cis->itemID1 = cis16->itemID1; cis->itemData1 = cis16->itemData1; cis->itemID2 = cis16->itemID2; cis->itemData2 = cis16->itemData2; cis->dwLocaleId = 0; /* FIXME */ *plparam = (LPARAM)cis; } return 1; case WM_DELETEITEM: { DELETEITEMSTRUCT16* dis16 = MapSL(*plparam); DELETEITEMSTRUCT *dis = (DELETEITEMSTRUCT *) HeapAlloc(GetProcessHeap(), 0, sizeof(*dis)); if (!dis) return -1; dis->CtlType = dis16->CtlType; dis->CtlID = dis16->CtlID; dis->hwndItem = dis16->hwndItem; dis->itemData = dis16->itemData; *plparam = (LPARAM)dis; } return 1; case WM_MEASUREITEM: { MEASUREITEMSTRUCT16* mis16 = MapSL(*plparam); MEASUREITEMSTRUCT *mis = (MEASUREITEMSTRUCT *) HeapAlloc(GetProcessHeap(), 0, sizeof(*mis) + sizeof(LPARAM)); if (!mis) return -1; mis->CtlType = mis16->CtlType; mis->CtlID = mis16->CtlID; mis->itemID = mis16->itemID; mis->itemWidth = mis16->itemWidth; mis->itemHeight = mis16->itemHeight; mis->itemData = mis16->itemData; *(LPARAM *)(mis + 1) = *plparam; /* Store the previous lParam */ *plparam = (LPARAM)mis; } return 1; case WM_DRAWITEM: { DRAWITEMSTRUCT16* dis16 = MapSL(*plparam); DRAWITEMSTRUCT *dis = (DRAWITEMSTRUCT*)HeapAlloc(GetProcessHeap(), 0, sizeof(*dis)); if (!dis) return -1; dis->CtlType = dis16->CtlType; dis->CtlID = dis16->CtlID; dis->itemID = dis16->itemID; dis->itemAction = dis16->itemAction; dis->itemState = dis16->itemState; dis->hwndItem = dis16->hwndItem; dis->hDC = dis16->hDC; dis->itemData = dis16->itemData; CONV_RECT16TO32( &dis16->rcItem, &dis->rcItem ); *plparam = (LPARAM)dis; } return 1; case WM_GETMINMAXINFO: { MINMAXINFO *mmi = (MINMAXINFO *)HeapAlloc( GetProcessHeap(), 0, sizeof(*mmi) + sizeof(LPARAM)); if (!mmi) return -1; STRUCT32_MINMAXINFO16to32( MapSL(*plparam), mmi ); *(LPARAM *)(mmi + 1) = *plparam; /* Store the previous lParam */ *plparam = (LPARAM)mmi; } return 1; case WM_GETTEXT: case WM_SETTEXT: *plparam = (LPARAM)MapSL(*plparam); return 0; case WM_MDICREATE: { MDICREATESTRUCT16 *cs16 = MapSL(*plparam); MDICREATESTRUCTA *cs = HeapAlloc( GetProcessHeap(), 0, sizeof(*cs) + sizeof(LPARAM) ); if (!cs) return -1; STRUCT32_MDICREATESTRUCT16to32A( cs16, cs ); cs->szTitle = MapSL(cs16->szTitle); cs->szClass = MapSL(cs16->szClass); *(LPARAM *)(cs + 1) = *plparam; /* Store the previous lParam */ *plparam = (LPARAM)cs; } return 1; case WM_MDIGETACTIVE: *plparam = (LPARAM)HeapAlloc( GetProcessHeap(), 0, sizeof(BOOL) ); *(BOOL*)(*plparam) = 0; return 1; case WM_MDISETMENU: if(wParam16==TRUE) *pmsg32=WM_MDIREFRESHMENU; *pwparam32 = (WPARAM)(HMENU)LOWORD(*plparam); *plparam = (LPARAM)(HMENU)HIWORD(*plparam); return 0; case WM_MENUCHAR: *pwparam32 = MAKEWPARAM( wParam16, LOWORD(*plparam) ); *plparam = (LPARAM)(HMENU)HIWORD(*plparam); return 0; case WM_MENUSELECT: if((LOWORD(*plparam) & MF_POPUP) && (LOWORD(*plparam) != 0xFFFF)) { HMENU hmenu=(HMENU)HIWORD(*plparam); UINT Pos=MENU_FindSubMenu( &hmenu, wParam16); if(Pos==0xFFFF) Pos=0; /* NO_SELECTED_ITEM */ *pwparam32 = MAKEWPARAM( Pos, LOWORD(*plparam) ); } else *pwparam32 = MAKEWPARAM( wParam16, LOWORD(*plparam) ); *plparam = (LPARAM)(HMENU)HIWORD(*plparam); return 0; case WM_MDIACTIVATE: if( *plparam ) { *pwparam32 = (WPARAM)(HWND)HIWORD(*plparam); *plparam = (LPARAM)(HWND)LOWORD(*plparam); } else /* message sent to MDI client */ *pwparam32 = wParam16; return 0; case WM_NCCALCSIZE: { NCCALCSIZE_PARAMS16 *nc16; NCCALCSIZE_PARAMS *nc; nc = (NCCALCSIZE_PARAMS *)HeapAlloc( GetProcessHeap(), 0, sizeof(*nc) + sizeof(LPARAM) ); if (!nc) return -1; nc16 = MapSL(*plparam); CONV_RECT16TO32( &nc16->rgrc[0], &nc->rgrc[0] ); if (wParam16) { nc->lppos = (WINDOWPOS *)HeapAlloc( GetProcessHeap(), 0, sizeof(*nc->lppos) ); CONV_RECT16TO32( &nc16->rgrc[1], &nc->rgrc[1] ); CONV_RECT16TO32( &nc16->rgrc[2], &nc->rgrc[2] ); if (nc->lppos) STRUCT32_WINDOWPOS16to32( MapSL(nc16->lppos), nc->lppos ); } *(LPARAM *)(nc + 1) = *plparam; /* Store the previous lParam */ *plparam = (LPARAM)nc; } return 1; case WM_NCCREATE: case WM_CREATE: { CREATESTRUCT16 *cs16 = MapSL(*plparam); CREATESTRUCTA *cs = (CREATESTRUCTA *)HeapAlloc( GetProcessHeap(), 0, sizeof(*cs) + sizeof(LPARAM) ); if (!cs) return -1; STRUCT32_CREATESTRUCT16to32A( cs16, cs ); cs->lpszName = MapSL(cs16->lpszName); cs->lpszClass = MapSL(cs16->lpszClass); *(LPARAM *)(cs + 1) = *plparam; /* Store the previous lParam */ *plparam = (LPARAM)cs; } return 1; case WM_PARENTNOTIFY: if ((wParam16 == WM_CREATE) || (wParam16 == WM_DESTROY)) { *pwparam32 = MAKEWPARAM( wParam16, HIWORD(*plparam) ); *plparam = (LPARAM)(HWND)LOWORD(*plparam); } return 0; case WM_WINDOWPOSCHANGING: case WM_WINDOWPOSCHANGED: { WINDOWPOS *wp = (WINDOWPOS *)HeapAlloc( GetProcessHeap(), 0, sizeof(*wp) + sizeof(LPARAM) ); if (!wp) return -1; STRUCT32_WINDOWPOS16to32( MapSL(*plparam), wp ); *(LPARAM *)(wp + 1) = *plparam; /* Store the previous lParam */ *plparam = (LPARAM)wp; } return 1; case WM_GETDLGCODE: if (*plparam) { LPMSG16 msg16 = MapSL(*plparam); LPMSG msg32 = (LPMSG)HeapAlloc( GetProcessHeap(), 0, sizeof(MSG) ); if (!msg32) return -1; msg32->hwnd = msg16->hwnd; msg32->lParam = msg16->lParam; msg32->time = msg16->time; CONV_POINT16TO32(&msg16->pt,&msg32->pt); /* this is right, right? */ if (WINPROC_MapMsg16To32A(msg16->message,msg16->wParam, &msg32->message,&msg32->wParam, &msg32->lParam)<0) { HeapFree( GetProcessHeap(), 0, msg32 ); return -1; } *plparam = (LPARAM)msg32; return 1; } else return 0; case WM_NOTIFY: *plparam = (LPARAM)MapSL(*plparam); return 1; case WM_ACTIVATEAPP: if (*plparam) { /* We need this when SetActiveWindow sends a Sendmessage16() to a 32bit window. Might be superflous with 32bit interprocess message queues. */ HTASK16 htask = (HTASK16) *plparam; DWORD idThread = (DWORD)((TDB*)GlobalLock16(htask))->teb->tid; *plparam = (LPARAM) idThread; } return 1; case WM_ASKCBFORMATNAME: case WM_DEVMODECHANGE: case WM_PAINTCLIPBOARD: case WM_SIZECLIPBOARD: case WM_WININICHANGE: FIXME_(msg)("message %04x needs translation\n",msg16 ); return -1; default: /* No translation needed */ return 0; } } /********************************************************************** * WINPROC_UnmapMsg16To32A * * Unmap a message that was mapped from 16- to 32-bit Ansi. */ LRESULT WINPROC_UnmapMsg16To32A( HWND16 hwnd, UINT msg, WPARAM wParam, LPARAM lParam, LRESULT result ) { switch(msg) { case WM_COMPAREITEM: case WM_DELETEITEM: case WM_DRAWITEM: HeapFree( GetProcessHeap(), 0, (LPVOID)lParam ); break; case WM_MEASUREITEM: { MEASUREITEMSTRUCT16 *mis16; MEASUREITEMSTRUCT *mis = (MEASUREITEMSTRUCT *)lParam; lParam = *(LPARAM *)(mis + 1); mis16 = MapSL(lParam); mis16->itemWidth = (UINT16)mis->itemWidth; mis16->itemHeight = (UINT16)mis->itemHeight; HeapFree( GetProcessHeap(), 0, mis ); } break; case WM_GETMINMAXINFO: { MINMAXINFO *mmi = (MINMAXINFO *)lParam; lParam = *(LPARAM *)(mmi + 1); STRUCT32_MINMAXINFO32to16( mmi, MapSL(lParam)); HeapFree( GetProcessHeap(), 0, mmi ); } break; case WM_MDICREATE: { MDICREATESTRUCTA *cs = (MDICREATESTRUCTA *)lParam; lParam = *(LPARAM *)(cs + 1); STRUCT32_MDICREATESTRUCT32Ato16( cs, MapSL(lParam) ); HeapFree( GetProcessHeap(), 0, cs ); } break; case WM_MDIGETACTIVE: result = MAKELONG( LOWORD(result), (BOOL16)(*(BOOL *)lParam) ); HeapFree( GetProcessHeap(), 0, (BOOL *)lParam ); break; case WM_NCCALCSIZE: { NCCALCSIZE_PARAMS16 *nc16; NCCALCSIZE_PARAMS *nc = (NCCALCSIZE_PARAMS *)lParam; lParam = *(LPARAM *)(nc + 1); nc16 = MapSL(lParam); CONV_RECT32TO16( &nc->rgrc[0], &nc16->rgrc[0] ); if (wParam) { CONV_RECT32TO16( &nc->rgrc[1], &nc16->rgrc[1] ); CONV_RECT32TO16( &nc->rgrc[2], &nc16->rgrc[2] ); if (nc->lppos) { STRUCT32_WINDOWPOS32to16( nc->lppos, MapSL(nc16->lppos)); HeapFree( GetProcessHeap(), 0, nc->lppos ); } } HeapFree( GetProcessHeap(), 0, nc ); } break; case WM_NCCREATE: case WM_CREATE: { CREATESTRUCTA *cs = (CREATESTRUCTA *)lParam; lParam = *(LPARAM *)(cs + 1); STRUCT32_CREATESTRUCT32Ato16( cs, MapSL(lParam) ); HeapFree( GetProcessHeap(), 0, cs ); } break; case WM_WINDOWPOSCHANGING: case WM_WINDOWPOSCHANGED: { WINDOWPOS *wp = (WINDOWPOS *)lParam; lParam = *(LPARAM *)(wp + 1); STRUCT32_WINDOWPOS32to16(wp, MapSL(lParam)); HeapFree( GetProcessHeap(), 0, wp ); } break; case WM_GETDLGCODE: if (lParam) { LPMSG msg32 = (LPMSG)lParam; WINPROC_UnmapMsg16To32A( hwnd, msg32->message, msg32->wParam, msg32->lParam, result); HeapFree( GetProcessHeap(), 0, msg32 ); } break; } return result; } /********************************************************************** * WINPROC_MapMsg16To32W * * Map a message from 16- to 32-bit Unicode. * Return value is -1 on error, 0 if OK, 1 if an UnmapMsg call is needed. */ INT WINPROC_MapMsg16To32W( HWND16 hwnd, UINT16 msg16, WPARAM16 wParam16, UINT *pmsg32, WPARAM *pwparam32, LPARAM *plparam ) { *pmsg32=(UINT)msg16; *pwparam32 = (WPARAM)wParam16; switch(msg16) { case EM_GETLINE16: { WORD len = (WORD)*plparam; LPARAM *ptr = (LPARAM *)HeapAlloc(GetProcessHeap(), 0, sizeof(LPARAM) + sizeof(WORD) + len * sizeof(WCHAR)); if(!ptr) return -1; *ptr++ = *plparam; /* Store previous lParam */ *((WORD *)ptr) = len; /* Store the length */ *plparam = (LPARAM)ptr; } return 1; case EM_REPLACESEL16: { WCHAR *str; INT len; *plparam = (LPARAM)MapSL(*plparam); len = MultiByteToWideChar(CP_ACP, 0, (LPCSTR)*plparam, -1, NULL, 0); str = HeapAlloc(GetProcessHeap(), 0, len * sizeof(WCHAR)); if(!str) return -1; MultiByteToWideChar(CP_ACP, 0, (LPCSTR)*plparam, -1, str, len); *plparam = (LPARAM)str; } return 1; case WM_GETTEXT: case WM_SETTEXT: *plparam = (LPARAM)MapSL(*plparam); return WINPROC_MapMsg32ATo32W( hwnd, *pmsg32, pwparam32, plparam ); case WM_NCCREATE: case WM_CREATE: { CREATESTRUCT16 *cs16 = MapSL(*plparam); CREATESTRUCTW *cs = (CREATESTRUCTW *)HeapAlloc( GetProcessHeap(), 0, sizeof(*cs) + sizeof(LPARAM) ); if (!cs) return -1; STRUCT32_CREATESTRUCT16to32A( cs16, (CREATESTRUCTA *)cs ); cs->lpszName = MapSL(cs16->lpszName); cs->lpszClass = MapSL(cs16->lpszClass); if (HIWORD(cs->lpszName)) cs->lpszName = HEAP_strdupAtoW( GetProcessHeap(), 0, (LPCSTR)cs->lpszName ); if (HIWORD(cs->lpszClass)) cs->lpszClass = HEAP_strdupAtoW( GetProcessHeap(), 0, (LPCSTR)cs->lpszClass ); *(LPARAM *)(cs + 1) = *plparam; /* Store the previous lParam */ *plparam = (LPARAM)cs; } return 1; case WM_MDICREATE: { MDICREATESTRUCT16 *cs16 = MapSL(*plparam); MDICREATESTRUCTW *cs = (MDICREATESTRUCTW *)HeapAlloc( GetProcessHeap(), 0, sizeof(*cs) + sizeof(LPARAM) ); if (!cs) return -1; STRUCT32_MDICREATESTRUCT16to32A( cs16, (MDICREATESTRUCTA *)cs ); cs->szTitle = MapSL(cs16->szTitle); cs->szClass = MapSL(cs16->szClass); if (HIWORD(cs->szTitle)) cs->szTitle = HEAP_strdupAtoW( GetProcessHeap(), 0, (LPCSTR)cs->szTitle ); if (HIWORD(cs->szClass)) cs->szClass = HEAP_strdupAtoW( GetProcessHeap(), 0, (LPCSTR)cs->szClass ); *(LPARAM *)(cs + 1) = *plparam; /* Store the previous lParam */ *plparam = (LPARAM)cs; } return 1; case WM_GETDLGCODE: if (*plparam) { LPMSG16 msg16 = MapSL(*plparam); LPMSG msg32 = (LPMSG)HeapAlloc( GetProcessHeap(), 0, sizeof(MSG) ); if (!msg32) return -1; msg32->hwnd = msg16->hwnd; msg32->lParam = msg16->lParam; msg32->time = msg16->time; CONV_POINT16TO32(&msg16->pt,&msg32->pt); /* this is right, right? */ if (WINPROC_MapMsg16To32W(hwnd, msg16->message,msg16->wParam, &msg32->message,&msg32->wParam, &msg32->lParam)<0) { HeapFree( GetProcessHeap(), 0, msg32 ); return -1; } *plparam = (LPARAM)msg32; return 1; } else return 0; case WM_CHAR: case WM_DEADCHAR: case WM_SYSCHAR: case WM_SYSDEADCHAR: case EM_SETPASSWORDCHAR16: { char ch = wParam16; WCHAR wch; MultiByteToWideChar( CP_ACP, 0, &ch, 1, &wch, 1); *pwparam32 = wch; } return 0; default: /* No Unicode translation needed */ return WINPROC_MapMsg16To32A( msg16, wParam16, pmsg32, pwparam32, plparam ); } } /********************************************************************** * WINPROC_UnmapMsg16To32W * * Unmap a message that was mapped from 16- to 32-bit Unicode. */ LRESULT WINPROC_UnmapMsg16To32W( HWND16 hwnd, UINT msg, WPARAM wParam, LPARAM lParam, LRESULT result ) { switch(msg) { case EM_GETLINE16: { LPARAM *ptr = (LPARAM *)lParam - 1; /* get the old lParam */ WORD len = *(WORD *)lParam; *ptr = (LPARAM)MapSL(*ptr); if(len > 0 && !WideCharToMultiByte(CP_ACP, 0, (LPWSTR)lParam, -1, (LPSTR)*ptr, len, NULL, NULL)) ((LPSTR)*ptr)[len-1] = 0; HeapFree(GetProcessHeap(), 0, ptr); } break; case EM_REPLACESEL16: HeapFree(GetProcessHeap(), 0, (void *)lParam); break; case WM_GETTEXT: case WM_SETTEXT: WINPROC_UnmapMsg32ATo32W( hwnd, msg, wParam, lParam ); break; case WM_NCCREATE: case WM_CREATE: { CREATESTRUCTW *cs = (CREATESTRUCTW *)lParam; lParam = *(LPARAM *)(cs + 1); STRUCT32_CREATESTRUCT32Ato16( (CREATESTRUCTA *)cs, MapSL(lParam) ); if (HIWORD(cs->lpszName)) HeapFree( GetProcessHeap(), 0, (LPVOID)cs->lpszName ); if (HIWORD(cs->lpszClass)) HeapFree( GetProcessHeap(), 0, (LPVOID)cs->lpszClass ); HeapFree( GetProcessHeap(), 0, cs ); } break; case WM_MDICREATE: { MDICREATESTRUCTW *cs = (MDICREATESTRUCTW *)lParam; lParam = *(LPARAM *)(cs + 1); STRUCT32_MDICREATESTRUCT32Ato16( (MDICREATESTRUCTA *)cs, MapSL(lParam) ); if (HIWORD(cs->szTitle)) HeapFree( GetProcessHeap(), 0, (LPVOID)cs->szTitle ); if (HIWORD(cs->szClass)) HeapFree( GetProcessHeap(), 0, (LPVOID)cs->szClass ); HeapFree( GetProcessHeap(), 0, cs ); } break; case WM_GETDLGCODE: if (lParam) { LPMSG msg32 = (LPMSG)lParam; WINPROC_UnmapMsg16To32W( hwnd, msg32->message, msg32->wParam, msg32->lParam, result); HeapFree( GetProcessHeap(), 0, msg32 ); } break; default: return WINPROC_UnmapMsg16To32A( hwnd, msg, wParam, lParam, result ); } return result; } /********************************************************************** * WINPROC_MapMsg32ATo16 * * Map a message from 32-bit Ansi to 16-bit. * Return value is -1 on error, 0 if OK, 1 if an UnmapMsg call is needed. */ INT WINPROC_MapMsg32ATo16( HWND hwnd, UINT msg32, WPARAM wParam32, UINT16 *pmsg16, WPARAM16 *pwparam16, LPARAM *plparam ) { *pmsg16 = (UINT16)msg32; *pwparam16 = (WPARAM16)LOWORD(wParam32); switch(msg32) { case BM_GETCHECK: case BM_SETCHECK: case BM_GETSTATE: case BM_SETSTATE: case BM_SETSTYLE: *pmsg16 = (UINT16)msg32 + (BM_GETCHECK16 - BM_GETCHECK); return 0; case EM_GETSEL: case EM_GETRECT: case EM_SETRECT: case EM_SETRECTNP: case EM_SCROLL: case EM_LINESCROLL: case EM_SCROLLCARET: case EM_GETMODIFY: case EM_SETMODIFY: case EM_GETLINECOUNT: case EM_LINEINDEX: case EM_SETHANDLE: case EM_GETHANDLE: case EM_GETTHUMB: case EM_LINELENGTH: case EM_REPLACESEL: case EM_GETLINE: case EM_LIMITTEXT: case EM_CANUNDO: case EM_UNDO: case EM_FMTLINES: case EM_LINEFROMCHAR: case EM_SETTABSTOPS: case EM_SETPASSWORDCHAR: case EM_EMPTYUNDOBUFFER: case EM_GETFIRSTVISIBLELINE: case EM_SETREADONLY: case EM_SETWORDBREAKPROC: case EM_GETWORDBREAKPROC: case EM_GETPASSWORDCHAR: *pmsg16 = (UINT16)msg32 + (EM_GETSEL16 - EM_GETSEL); return 0; case LB_CARETOFF: case LB_CARETON: case LB_DELETESTRING: case LB_GETANCHORINDEX: case LB_GETCARETINDEX: case LB_GETCOUNT: case LB_GETCURSEL: case LB_GETHORIZONTALEXTENT: case LB_GETITEMDATA: case LB_GETITEMHEIGHT: case LB_GETSEL: case LB_GETSELCOUNT: case LB_GETTEXTLEN: case LB_GETTOPINDEX: case LB_RESETCONTENT: case LB_SELITEMRANGE: case LB_SELITEMRANGEEX: case LB_SETANCHORINDEX: case LB_SETCARETINDEX: case LB_SETCOLUMNWIDTH: case LB_SETCURSEL: case LB_SETHORIZONTALEXTENT: case LB_SETITEMDATA: case LB_SETITEMHEIGHT: case LB_SETSEL: case LB_SETTOPINDEX: *pmsg16 = (UINT16)msg32 + (LB_ADDSTRING16 - LB_ADDSTRING); return 0; case CB_DELETESTRING: case CB_GETCOUNT: case CB_GETLBTEXTLEN: case CB_LIMITTEXT: case CB_RESETCONTENT: case CB_SETEDITSEL: case CB_GETCURSEL: case CB_SETCURSEL: case CB_SHOWDROPDOWN: case CB_SETITEMDATA: case CB_SETITEMHEIGHT: case CB_GETITEMHEIGHT: case CB_SETEXTENDEDUI: case CB_GETEXTENDEDUI: case CB_GETDROPPEDSTATE: *pmsg16 = (UINT16)msg32 + (CB_GETEDITSEL16 - CB_GETEDITSEL); return 0; case CB_GETEDITSEL: *pmsg16 = CB_GETEDITSEL16; return 1; case LB_ADDSTRING: case LB_FINDSTRING: case LB_FINDSTRINGEXACT: case LB_INSERTSTRING: case LB_SELECTSTRING: case LB_DIR: case LB_ADDFILE: { LPSTR str = SEGPTR_STRDUP( (LPSTR)*plparam ); if (!str) return -1; *plparam = (LPARAM)SEGPTR_GET(str); } *pmsg16 = (UINT16)msg32 + (LB_ADDSTRING16 - LB_ADDSTRING); return 1; case CB_ADDSTRING: case CB_FINDSTRING: case CB_FINDSTRINGEXACT: case CB_INSERTSTRING: case CB_SELECTSTRING: case CB_DIR: { LPSTR str = SEGPTR_STRDUP( (LPSTR)*plparam ); if (!str) return -1; *plparam = (LPARAM)SEGPTR_GET(str); } *pmsg16 = (UINT16)msg32 + (CB_GETEDITSEL16 - CB_GETEDITSEL); return 1; case LB_GETITEMRECT: { RECT16 *rect; rect = (RECT16 *)SEGPTR_ALLOC( sizeof(RECT16) + sizeof(LPARAM) ); if (!rect) return -1; *(LPARAM *)(rect + 1) = *plparam; /* Store the previous lParam */ *plparam = (LPARAM)SEGPTR_GET(rect); } *pmsg16 = LB_GETITEMRECT16; return 1; case LB_GETSELITEMS: { LPINT16 items; *pwparam16 = (WPARAM16)min( wParam32, 0x7f80 ); /* Must be < 64K */ if (!(items = SEGPTR_ALLOC( *pwparam16 * sizeof(INT16) + sizeof(LPARAM)))) return -1; *((LPARAM *)items)++ = *plparam; /* Store the previous lParam */ *plparam = (LPARAM)SEGPTR_GET(items); } *pmsg16 = LB_GETSELITEMS16; return 1; case LB_SETTABSTOPS: if (wParam32) { INT i; LPINT16 stops; *pwparam16 = (WPARAM16)min( wParam32, 0x7f80 ); /* Must be < 64K */ if (!(stops = SEGPTR_ALLOC( *pwparam16 * sizeof(INT16) + sizeof(LPARAM)))) return -1; for (i = 0; i < *pwparam16; i++) stops[i] = *((LPINT)*plparam+i); *plparam = (LPARAM)SEGPTR_GET(stops); return 1; } *pmsg16 = LB_SETTABSTOPS16; return 0; case CB_GETDROPPEDCONTROLRECT: { RECT16 *rect; rect = (RECT16 *)SEGPTR_ALLOC( sizeof(RECT16) + sizeof(LPARAM) ); if (!rect) return -1; *(LPARAM *)(rect + 1) = *plparam; /* Store the previous lParam */ *plparam = (LPARAM)SEGPTR_GET(rect); } *pmsg16 = CB_GETDROPPEDCONTROLRECT16; return 1; case LB_GETTEXT: *plparam = (LPARAM)MapLS( (LPVOID)(*plparam) ); *pmsg16 = LB_GETTEXT16; return 1; case CB_GETLBTEXT: *plparam = (LPARAM)MapLS( (LPVOID)(*plparam) ); *pmsg16 = CB_GETLBTEXT16; return 1; case EM_SETSEL: *pwparam16 = 0; *plparam = MAKELONG( (INT16)(INT)wParam32, (INT16)*plparam ); *pmsg16 = EM_SETSEL16; return 0; case WM_ACTIVATE: case WM_CHARTOITEM: case WM_COMMAND: case WM_VKEYTOITEM: *plparam = MAKELPARAM( (HWND16)*plparam, HIWORD(wParam32) ); return 0; case WM_HSCROLL: case WM_VSCROLL: *plparam = MAKELPARAM( HIWORD(wParam32), (HWND16)*plparam ); return 0; case WM_CTLCOLORMSGBOX: case WM_CTLCOLOREDIT: case WM_CTLCOLORLISTBOX: case WM_CTLCOLORBTN: case WM_CTLCOLORDLG: case WM_CTLCOLORSCROLLBAR: case WM_CTLCOLORSTATIC: *pmsg16 = WM_CTLCOLOR; *plparam = MAKELPARAM( (HWND16)*plparam, (WORD)msg32 - WM_CTLCOLORMSGBOX ); return 0; case WM_COMPAREITEM: { COMPAREITEMSTRUCT *cis32 = (COMPAREITEMSTRUCT *)*plparam; COMPAREITEMSTRUCT16 *cis = SEGPTR_NEW(COMPAREITEMSTRUCT16); if (!cis) return -1; cis->CtlType = (UINT16)cis32->CtlType; cis->CtlID = (UINT16)cis32->CtlID; cis->hwndItem = (HWND16)cis32->hwndItem; cis->itemID1 = (UINT16)cis32->itemID1; cis->itemData1 = cis32->itemData1; cis->itemID2 = (UINT16)cis32->itemID2; cis->itemData2 = cis32->itemData2; *plparam = (LPARAM)SEGPTR_GET(cis); } return 1; case WM_DELETEITEM: { DELETEITEMSTRUCT *dis32 = (DELETEITEMSTRUCT *)*plparam; DELETEITEMSTRUCT16 *dis = SEGPTR_NEW(DELETEITEMSTRUCT16); if (!dis) return -1; dis->CtlType = (UINT16)dis32->CtlType; dis->CtlID = (UINT16)dis32->CtlID; dis->itemID = (UINT16)dis32->itemID; dis->hwndItem = (HWND16)dis32->hwndItem; dis->itemData = dis32->itemData; *plparam = (LPARAM)SEGPTR_GET(dis); } return 1; case WM_DRAWITEM: { DRAWITEMSTRUCT *dis32 = (DRAWITEMSTRUCT *)*plparam; DRAWITEMSTRUCT16 *dis = SEGPTR_NEW(DRAWITEMSTRUCT16); if (!dis) return -1; dis->CtlType = (UINT16)dis32->CtlType; dis->CtlID = (UINT16)dis32->CtlID; dis->itemID = (UINT16)dis32->itemID; dis->itemAction = (UINT16)dis32->itemAction; dis->itemState = (UINT16)dis32->itemState; dis->hwndItem = (HWND16)dis32->hwndItem; dis->hDC = (HDC16)dis32->hDC; dis->itemData = dis32->itemData; CONV_RECT32TO16( &dis32->rcItem, &dis->rcItem ); *plparam = (LPARAM)SEGPTR_GET(dis); } return 1; case WM_MEASUREITEM: { MEASUREITEMSTRUCT *mis32 = (MEASUREITEMSTRUCT *)*plparam; MEASUREITEMSTRUCT16 *mis = (MEASUREITEMSTRUCT16 *) SEGPTR_ALLOC(sizeof(*mis)+sizeof(LPARAM)); if (!mis) return -1; mis->CtlType = (UINT16)mis32->CtlType; mis->CtlID = (UINT16)mis32->CtlID; mis->itemID = (UINT16)mis32->itemID; mis->itemWidth = (UINT16)mis32->itemWidth; mis->itemHeight = (UINT16)mis32->itemHeight; mis->itemData = mis32->itemData; *(LPARAM *)(mis + 1) = *plparam; /* Store the previous lParam */ *plparam = (LPARAM)SEGPTR_GET(mis); } return 1; case WM_GETMINMAXINFO: { MINMAXINFO16 *mmi = (MINMAXINFO16 *)SEGPTR_ALLOC( sizeof(*mmi) + sizeof(LPARAM) ); if (!mmi) return -1; STRUCT32_MINMAXINFO32to16( (MINMAXINFO *)*plparam, mmi ); *(LPARAM *)(mmi + 1) = *plparam; /* Store the previous lParam */ *plparam = (LPARAM)SEGPTR_GET(mmi); } return 1; case WM_GETTEXT: { LPSTR str; *pwparam16 = (WPARAM16)min( wParam32, 0xff80 ); /* Must be < 64K */ if (!(str = SEGPTR_ALLOC(*pwparam16 + sizeof(LPARAM)))) return -1; *((LPARAM *)str)++ = *plparam; /* Store the previous lParam */ *plparam = (LPARAM)SEGPTR_GET(str); } return 1; case WM_MDICREATE: { MDICREATESTRUCT16 *cs; MDICREATESTRUCTA *cs32 = (MDICREATESTRUCTA *)*plparam; LPSTR name, cls; if (!(cs = SEGPTR_NEW(MDICREATESTRUCT16))) return -1; STRUCT32_MDICREATESTRUCT32Ato16( cs32, cs ); name = SEGPTR_STRDUP( cs32->szTitle ); cls = SEGPTR_STRDUP( cs32->szClass ); cs->szTitle = SEGPTR_GET(name); cs->szClass = SEGPTR_GET(cls); *plparam = (LPARAM)SEGPTR_GET(cs); } return 1; case WM_MDIGETACTIVE: return 1; case WM_MDISETMENU: *plparam = MAKELPARAM( (HMENU16)LOWORD(wParam32), (HMENU16)LOWORD(*plparam) ); *pwparam16 = (*plparam == 0); return 0; case WM_MENUSELECT: if(HIWORD(wParam32) & MF_POPUP) { UINT16 hmenu; if (((UINT)HIWORD(wParam32) != 0xFFFF) || (*plparam)) { if((hmenu = GetSubMenu((HMENU16)*plparam, *pwparam16))) *pwparam16=hmenu; } } /* fall through */ case WM_MENUCHAR: *plparam = MAKELPARAM( HIWORD(wParam32), (HMENU16)*plparam ); return 0; case WM_MDIACTIVATE: if (GetWindowLongA( hwnd, GWL_EXSTYLE ) & WS_EX_MDICHILD) { *pwparam16 = ((HWND)*plparam == hwnd); *plparam = MAKELPARAM( (HWND16)LOWORD(*plparam), (HWND16)LOWORD(wParam32) ); } else { *pwparam16 = (HWND)wParam32; *plparam = 0; } return 0; case WM_NCCALCSIZE: { NCCALCSIZE_PARAMS *nc32 = (NCCALCSIZE_PARAMS *)*plparam; NCCALCSIZE_PARAMS16 *nc = (NCCALCSIZE_PARAMS16 *)SEGPTR_ALLOC( sizeof(*nc) + sizeof(LPARAM) ); if (!nc) return -1; CONV_RECT32TO16( &nc32->rgrc[0], &nc->rgrc[0] ); if (wParam32) { WINDOWPOS16 *wp; CONV_RECT32TO16( &nc32->rgrc[1], &nc->rgrc[1] ); CONV_RECT32TO16( &nc32->rgrc[2], &nc->rgrc[2] ); if (!(wp = SEGPTR_NEW(WINDOWPOS16))) { SEGPTR_FREE(nc); return -1; } STRUCT32_WINDOWPOS32to16( nc32->lppos, wp ); nc->lppos = SEGPTR_GET(wp); } *(LPARAM *)(nc + 1) = *plparam; /* Store the previous lParam */ *plparam = (LPARAM)SEGPTR_GET(nc); } return 1; case WM_NCCREATE: case WM_CREATE: { CREATESTRUCT16 *cs; CREATESTRUCTA *cs32 = (CREATESTRUCTA *)*plparam; LPSTR name, cls; if (!(cs = SEGPTR_NEW(CREATESTRUCT16))) return -1; STRUCT32_CREATESTRUCT32Ato16( cs32, cs ); name = SEGPTR_STRDUP( cs32->lpszName ); cls = SEGPTR_STRDUP( cs32->lpszClass ); cs->lpszName = SEGPTR_GET(name); cs->lpszClass = SEGPTR_GET(cls); *plparam = (LPARAM)SEGPTR_GET(cs); } return 1; case WM_PARENTNOTIFY: if ((LOWORD(wParam32)==WM_CREATE) || (LOWORD(wParam32)==WM_DESTROY)) *plparam = MAKELPARAM( (HWND16)*plparam, HIWORD(wParam32)); /* else nothing to do */ return 0; case WM_NOTIFY: *plparam = MapLS( (NMHDR *)*plparam ); /* NMHDR is already 32-bit */ return 1; case WM_SETTEXT: { LPSTR str = SEGPTR_STRDUP( (LPSTR)*plparam ); if (!str) return -1; *plparam = (LPARAM)SEGPTR_GET(str); } return 1; case WM_WINDOWPOSCHANGING: case WM_WINDOWPOSCHANGED: { WINDOWPOS16 *wp = (WINDOWPOS16 *)SEGPTR_ALLOC( sizeof(*wp) + sizeof(LPARAM) ); if (!wp) return -1; STRUCT32_WINDOWPOS32to16( (WINDOWPOS *)*plparam, wp ); *(LPARAM *)(wp + 1) = *plparam; /* Store the previous lParam */ *plparam = (LPARAM)SEGPTR_GET(wp); } return 1; case WM_GETDLGCODE: if (*plparam) { LPMSG msg32 = (LPMSG) *plparam; LPMSG16 msg16 = (LPMSG16) SEGPTR_NEW( MSG16 ); if (!msg16) return -1; msg16->hwnd = msg32->hwnd; msg16->lParam = msg32->lParam; msg16->time = msg32->time; CONV_POINT32TO16(&msg32->pt,&msg16->pt); /* this is right, right? */ if (WINPROC_MapMsg32ATo16(msg32->hwnd,msg32->message,msg32->wParam, &msg16->message,&msg16->wParam, &msg16->lParam)<0) { SEGPTR_FREE( msg16 ); return -1; } *plparam = (LPARAM)SEGPTR_GET(msg16); return 1; } return 0; case WM_ACTIVATEAPP: if (*plparam) { *plparam = (LPARAM)THREAD_IdToTEB((DWORD) *plparam)->htask16; } return 1; case WM_ASKCBFORMATNAME: case WM_DEVMODECHANGE: case WM_PAINTCLIPBOARD: case WM_SIZECLIPBOARD: case WM_WININICHANGE: FIXME_(msg)("message %04x needs translation\n", msg32 ); return -1; case WM_SIZING: /* should not be send to 16-bit apps */ return -1; default: /* No translation needed */ return 0; } } /********************************************************************** * WINPROC_UnmapMsg32ATo16 * * Unmap a message that was mapped from 32-bit Ansi to 16-bit. */ void WINPROC_UnmapMsg32ATo16( HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam, MSGPARAM16* p16 ) { switch(msg) { case LB_ADDFILE: case LB_ADDSTRING: case LB_DIR: case LB_FINDSTRING: case LB_FINDSTRINGEXACT: case LB_INSERTSTRING: case LB_SELECTSTRING: case LB_SETTABSTOPS: case CB_ADDSTRING: case CB_FINDSTRING: case CB_FINDSTRINGEXACT: case CB_INSERTSTRING: case CB_SELECTSTRING: case CB_DIR: case WM_COMPAREITEM: case WM_DELETEITEM: case WM_DRAWITEM: case WM_SETTEXT: SEGPTR_FREE( MapSL(p16->lParam) ); break; case CB_GETDROPPEDCONTROLRECT: case LB_GETITEMRECT: { RECT16 *rect = MapSL(p16->lParam); p16->lParam = *(LPARAM *)(rect + 1); CONV_RECT16TO32( rect, (RECT *)(p16->lParam)); SEGPTR_FREE( rect ); } break; case LB_GETSELITEMS: { INT i; LPINT16 items = MapSL(lParam); p16->lParam = *((LPARAM *)items - 1); for (i = 0; i < p16->wParam; i++) *((LPINT)(p16->lParam) + i) = items[i]; SEGPTR_FREE( (LPARAM *)items - 1 ); } break; case CB_GETEDITSEL: if( wParam ) *((LPUINT)(wParam)) = LOWORD(p16->lResult); if( lParam ) *((LPUINT)(lParam)) = HIWORD(p16->lResult); /* FIXME: substract 1? */ break; case LB_GETTEXT: case CB_GETLBTEXT: UnMapLS( (SEGPTR)(p16->lParam) ); break; case WM_MEASUREITEM: { MEASUREITEMSTRUCT16 *mis = MapSL(p16->lParam); MEASUREITEMSTRUCT *mis32 = *(MEASUREITEMSTRUCT **)(mis + 1); mis32->itemWidth = mis->itemWidth; mis32->itemHeight = mis->itemHeight; SEGPTR_FREE(mis); } break; case WM_GETMINMAXINFO: { MINMAXINFO16 *mmi = MapSL(p16->lParam); p16->lParam = *(LPARAM *)(mmi + 1); STRUCT32_MINMAXINFO16to32( mmi, (MINMAXINFO *)(p16->lParam) ); SEGPTR_FREE(mmi); } break; case WM_GETTEXT: { LPSTR str = MapSL(p16->lParam); p16->lParam = *((LPARAM *)str - 1); lstrcpynA( (LPSTR)(p16->lParam), str, p16->wParam ); SEGPTR_FREE( (LPARAM *)str - 1 ); } break; case WM_MDICREATE: { MDICREATESTRUCT16 *cs = MapSL(p16->lParam); SEGPTR_FREE( MapSL(cs->szTitle) ); SEGPTR_FREE( MapSL(cs->szClass) ); SEGPTR_FREE( cs ); } break; case WM_MDIGETACTIVE: if (lParam) *(BOOL *)lParam = (BOOL16)HIWORD(p16->lResult); p16->lResult = (HWND)LOWORD(p16->lResult); break; case WM_NCCALCSIZE: { NCCALCSIZE_PARAMS *nc32; NCCALCSIZE_PARAMS16 *nc = MapSL(p16->lParam); p16->lParam = *(LPARAM *)(nc + 1); nc32 = (NCCALCSIZE_PARAMS *)(p16->lParam); CONV_RECT16TO32( &nc->rgrc[0], &nc32->rgrc[0] ); if (p16->wParam) { CONV_RECT16TO32( &nc->rgrc[1], &nc32->rgrc[1] ); CONV_RECT16TO32( &nc->rgrc[2], &nc32->rgrc[2] ); STRUCT32_WINDOWPOS16to32( MapSL(nc->lppos), nc32->lppos ); SEGPTR_FREE( MapSL(nc->lppos) ); } SEGPTR_FREE(nc); } break; case WM_NCCREATE: case WM_CREATE: { CREATESTRUCT16 *cs = MapSL(p16->lParam); SEGPTR_FREE( MapSL(cs->lpszName) ); SEGPTR_FREE( MapSL(cs->lpszClass) ); SEGPTR_FREE( cs ); } break; case WM_WINDOWPOSCHANGING: case WM_WINDOWPOSCHANGED: { WINDOWPOS16 *wp = MapSL(p16->lParam); p16->lParam = *(LPARAM *)(wp + 1); STRUCT32_WINDOWPOS16to32( wp, (WINDOWPOS *)p16->lParam ); SEGPTR_FREE(wp); } break; case WM_NOTIFY: UnMapLS(p16->lParam); break; case WM_GETDLGCODE: if (p16->lParam) { LPMSG16 msg16 = MapSL(p16->lParam); MSGPARAM16 msgp16; msgp16.wParam=msg16->wParam; msgp16.lParam=msg16->lParam; WINPROC_UnmapMsg32ATo16(((LPMSG)lParam)->hwnd, ((LPMSG)lParam)->message, ((LPMSG)lParam)->wParam, ((LPMSG)lParam)->lParam, &msgp16 ); SEGPTR_FREE(msg16); } break; } } /********************************************************************** * WINPROC_MapMsg32WTo16 * * Map a message from 32-bit Unicode to 16-bit. * Return value is -1 on error, 0 if OK, 1 if an UnmapMsg call is needed. */ INT WINPROC_MapMsg32WTo16( HWND hwnd, UINT msg32, WPARAM wParam32, UINT16 *pmsg16, WPARAM16 *pwparam16, LPARAM *plparam ) { *pmsg16 = LOWORD(msg32); *pwparam16 = LOWORD(wParam32); switch(msg32) { case LB_ADDSTRING: case LB_FINDSTRING: case LB_FINDSTRINGEXACT: case LB_INSERTSTRING: case LB_SELECTSTRING: case LB_DIR: case LB_ADDFILE: { LPSTR str = SEGPTR_STRDUP_WtoA( (LPWSTR)*plparam ); if (!str) return -1; *plparam = (LPARAM)SEGPTR_GET(str); } *pmsg16 = (UINT16)msg32 + (LB_ADDSTRING16 - LB_ADDSTRING); return 1; case CB_ADDSTRING: case CB_FINDSTRING: case CB_FINDSTRINGEXACT: case CB_INSERTSTRING: case CB_SELECTSTRING: case CB_DIR: { LPSTR str = SEGPTR_STRDUP_WtoA( (LPWSTR)*plparam ); if (!str) return -1; *plparam = (LPARAM)SEGPTR_GET(str); } *pmsg16 = (UINT16)msg32 + (CB_ADDSTRING16 - CB_ADDSTRING); return 1; case WM_NCCREATE: case WM_CREATE: { CREATESTRUCT16 *cs; CREATESTRUCTW *cs32 = (CREATESTRUCTW *)*plparam; LPSTR name, cls; if (!(cs = SEGPTR_NEW(CREATESTRUCT16))) return -1; STRUCT32_CREATESTRUCT32Ato16( (CREATESTRUCTA *)cs32, cs ); name = SEGPTR_STRDUP_WtoA( cs32->lpszName ); cls = SEGPTR_STRDUP_WtoA( cs32->lpszClass ); cs->lpszName = SEGPTR_GET(name); cs->lpszClass = SEGPTR_GET(cls); *plparam = (LPARAM)SEGPTR_GET(cs); } return 1; case WM_MDICREATE: { MDICREATESTRUCT16 *cs; MDICREATESTRUCTW *cs32 = (MDICREATESTRUCTW *)*plparam; LPSTR name, cls; if (!(cs = SEGPTR_NEW(MDICREATESTRUCT16))) return -1; STRUCT32_MDICREATESTRUCT32Ato16( (MDICREATESTRUCTA *)cs32, cs ); name = SEGPTR_STRDUP_WtoA( cs32->szTitle ); cls = SEGPTR_STRDUP_WtoA( cs32->szClass ); cs->szTitle = SEGPTR_GET(name); cs->szClass = SEGPTR_GET(cls); *plparam = (LPARAM)SEGPTR_GET(cs); } return 1; case WM_SETTEXT: { LPSTR str = SEGPTR_STRDUP_WtoA( (LPWSTR)*plparam ); if (!str) return -1; *plparam = (LPARAM)SEGPTR_GET(str); } return 1; case LB_GETTEXT: case CB_GETLBTEXT: if ( WINPROC_TestLBForStr( hwnd )) { LPSTR str = (LPSTR) SEGPTR_ALLOC( 256 ); /* fixme: fixed sized buffer */ if (!str) return -1; *pmsg16 = (msg32 == LB_GETTEXT)? LB_GETTEXT16 : CB_GETLBTEXT16; *plparam = (LPARAM)SEGPTR_GET(str); } return 1; case WM_CHAR: case WM_DEADCHAR: case WM_SYSCHAR: case WM_SYSDEADCHAR: { WCHAR wch = wParam32; char ch; WideCharToMultiByte( CP_ACP, 0, &wch, 1, &ch, 1, NULL, NULL); *pwparam16 = ch; } return 0; default: /* No Unicode translation needed (?) */ return WINPROC_MapMsg32ATo16( hwnd, msg32, wParam32, pmsg16, pwparam16, plparam ); } } /********************************************************************** * WINPROC_UnmapMsg32WTo16 * * Unmap a message that was mapped from 32-bit Unicode to 16-bit. */ void WINPROC_UnmapMsg32WTo16( HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam, MSGPARAM16* p16 ) { switch(msg) { case WM_GETTEXT: { LPSTR str = MapSL(p16->lParam); p16->lParam = *((LPARAM *)str - 1); MultiByteToWideChar( CP_ACP, 0, str, -1, (LPWSTR)p16->lParam, 0x7fffffff ); SEGPTR_FREE( (LPARAM *)str - 1 ); } break; case LB_GETTEXT: case CB_GETLBTEXT: if ( WINPROC_TestLBForStr( hwnd )) { LPSTR str = MapSL(p16->lParam); MultiByteToWideChar( CP_ACP, 0, str, -1, (LPWSTR)lParam, 0x7fffffff ); SEGPTR_FREE( (LPARAM *) str ); } break; default: WINPROC_UnmapMsg32ATo16( hwnd, msg, wParam, lParam, p16 ); break; } } /********************************************************************** * WINPROC_CallProc32ATo32W * * Call a window procedure, translating args from Ansi to Unicode. */ static LRESULT WINPROC_CallProc32ATo32W( WNDPROC func, HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam ) { LRESULT result; if (WINPROC_MapMsg32ATo32W( hwnd, msg, &wParam, &lParam ) == -1) return 0; result = WINPROC_CallWndProc( func, hwnd, msg, wParam, lParam ); WINPROC_UnmapMsg32ATo32W( hwnd, msg, wParam, lParam ); return result; } /********************************************************************** * WINPROC_CallProc32WTo32A * * Call a window procedure, translating args from Unicode to Ansi. */ static LRESULT WINPROC_CallProc32WTo32A( WNDPROC func, HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam ) { LRESULT result; if (WINPROC_MapMsg32WTo32A( hwnd, msg, &wParam, &lParam ) == -1) return 0; result = WINPROC_CallWndProc( func, hwnd, msg, wParam, lParam ); WINPROC_UnmapMsg32WTo32A( hwnd, msg, wParam, lParam ); return result; } /********************************************************************** * WINPROC_CallProc16To32A * * Call a 32-bit window procedure, translating the 16-bit args. */ static LRESULT WINPROC_CallProc16To32A( WNDPROC func, HWND16 hwnd, UINT16 msg, WPARAM16 wParam, LPARAM lParam ) { LRESULT result; UINT msg32; WPARAM wParam32; if (WINPROC_MapMsg16To32A( msg, wParam, &msg32, &wParam32, &lParam ) == -1) return 0; result = WINPROC_CallWndProc( func, hwnd, msg32, wParam32, lParam ); return WINPROC_UnmapMsg16To32A( hwnd, msg32, wParam32, lParam, result ); } /********************************************************************** * WINPROC_Thunk16To32A */ static LRESULT WINAPI WINPROC_Thunk16To32A( WNDPROC func, LPBYTE args ) { HWND16 hwnd = *(HWND16 *)( args+8 ); UINT16 msg = *(HWND16 *)( args+6 ); WPARAM16 wParam = *(HWND16 *)( args+4 ); LPARAM lParam = *(LPARAM *)( args+0 ); return WINPROC_CallProc16To32A( func, hwnd, msg, wParam, lParam ); } /********************************************************************** * WINPROC_CallProc16To32W * * Call a 32-bit window procedure, translating the 16-bit args. */ static LRESULT WINPROC_CallProc16To32W( WNDPROC func, HWND16 hwnd, UINT16 msg, WPARAM16 wParam, LPARAM lParam ) { LRESULT result; UINT msg32; WPARAM wParam32; if (WINPROC_MapMsg16To32W( hwnd, msg, wParam, &msg32, &wParam32, &lParam ) == -1) return 0; result = WINPROC_CallWndProc( func, hwnd, msg32, wParam32, lParam ); return WINPROC_UnmapMsg16To32W( hwnd, msg32, wParam32, lParam, result ); } /********************************************************************** * WINPROC_Thunk16To32W */ static LRESULT WINAPI WINPROC_Thunk16To32W( WNDPROC func, LPBYTE args ) { HWND16 hwnd = *(HWND16 *)( args+8 ); UINT16 msg = *(HWND16 *)( args+6 ); WPARAM16 wParam = *(HWND16 *)( args+4 ); LPARAM lParam = *(LPARAM *)( args+0 ); return WINPROC_CallProc16To32W( func, hwnd, msg, wParam, lParam ); } /********************************************************************** * WINPROC_CallProc32ATo16 * * Call a 16-bit window procedure, translating the 32-bit args. */ static LRESULT WINAPI WINPROC_CallProc32ATo16( WNDPROC16 func, HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam ) { UINT16 msg16; MSGPARAM16 mp16; mp16.lParam = lParam; if (WINPROC_MapMsg32ATo16( hwnd, msg, wParam, &msg16, &mp16.wParam, &mp16.lParam ) == -1) return 0; mp16.lResult = WINPROC_CallWndProc16( func, hwnd, msg16, mp16.wParam, mp16.lParam ); WINPROC_UnmapMsg32ATo16( hwnd, msg, wParam, lParam, &mp16 ); return mp16.lResult; } /********************************************************************** * WINPROC_CallProc32WTo16 * * Call a 16-bit window procedure, translating the 32-bit args. */ static LRESULT WINAPI WINPROC_CallProc32WTo16( WNDPROC16 func, HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam ) { UINT16 msg16; MSGPARAM16 mp16; mp16.lParam = lParam; if (WINPROC_MapMsg32WTo16( hwnd, msg, wParam, &msg16, &mp16.wParam, &mp16.lParam ) == -1) return 0; mp16.lResult = WINPROC_CallWndProc16( func, hwnd, msg16, mp16.wParam, mp16.lParam ); WINPROC_UnmapMsg32WTo16( hwnd, msg, wParam, lParam, &mp16 ); return mp16.lResult; } /********************************************************************** * CallWindowProc (USER.122) * CallWindowProc16 (USER32.@) */ LRESULT WINAPI CallWindowProc16( WNDPROC16 func, HWND16 hwnd, UINT16 msg, WPARAM16 wParam, LPARAM lParam ) { WINDOWPROC *proc = WINPROC_GetPtr( func ); if (!proc) return WINPROC_CallWndProc16( func, hwnd, msg, wParam, lParam ); #if testing func = WINPROC_GetProc( (HWINDOWPROC)proc, WIN_PROC_16 ); return WINPROC_CallWndProc16( func, hwnd, msg, wParam, lParam ); #endif switch(proc->type) { case WIN_PROC_16: if (!proc->thunk.t_from32.proc) return 0; return WINPROC_CallWndProc16( proc->thunk.t_from32.proc, hwnd, msg, wParam, lParam ); case WIN_PROC_32A: if (!proc->thunk.t_from16.proc) return 0; return WINPROC_CallProc16To32A( proc->thunk.t_from16.proc, hwnd, msg, wParam, lParam ); case WIN_PROC_32W: if (!proc->thunk.t_from16.proc) return 0; return WINPROC_CallProc16To32W( proc->thunk.t_from16.proc, hwnd, msg, wParam, lParam ); default: WARN_(relay)("Invalid proc %p\n", proc ); return 0; } } /********************************************************************** * CallWindowProcA (USER32.@) * * The CallWindowProc() function invokes the windows procedure _func_, * with _hwnd_ as the target window, the message specified by _msg_, and * the message parameters _wParam_ and _lParam_. * * Some kinds of argument conversion may be done, I'm not sure what. * * CallWindowProc() may be used for windows subclassing. Use * SetWindowLong() to set a new windows procedure for windows of the * subclass, and handle subclassed messages in the new windows * procedure. The new windows procedure may then use CallWindowProc() * with _func_ set to the parent class's windows procedure to dispatch * the message to the superclass. * * RETURNS * * The return value is message dependent. * * CONFORMANCE * * ECMA-234, Win32 */ LRESULT WINAPI CallWindowProcA( WNDPROC func, /* [in] window procedure */ HWND hwnd, /* [in] target window */ UINT msg, /* [in] message */ WPARAM wParam, /* [in] message dependent parameter */ LPARAM lParam /* [in] message dependent parameter */ ) { WINDOWPROC *proc = WINPROC_GetPtr( (WNDPROC16)func ); if (!proc) return WINPROC_CallWndProc( func, hwnd, msg, wParam, lParam ); #if testing func = WINPROC_GetProc( (HWINDOWPROC)proc, WIN_PROC_32A ); return WINPROC_CallWndProc( func, hwnd, msg, wParam, lParam ); #endif switch(proc->type) { case WIN_PROC_16: if (!proc->thunk.t_from32.proc) return 0; return WINPROC_CallProc32ATo16( proc->thunk.t_from32.proc, hwnd, msg, wParam, lParam ); case WIN_PROC_32A: if (!proc->thunk.t_from16.proc) return 0; return WINPROC_CallWndProc( proc->thunk.t_from16.proc, hwnd, msg, wParam, lParam ); case WIN_PROC_32W: if (!proc->thunk.t_from16.proc) return 0; return WINPROC_CallProc32ATo32W( proc->thunk.t_from16.proc, hwnd, msg, wParam, lParam ); default: WARN_(relay)("Invalid proc %p\n", proc ); return 0; } } /********************************************************************** * CallWindowProcW (USER32.@) */ LRESULT WINAPI CallWindowProcW( WNDPROC func, HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam ) { WINDOWPROC *proc = WINPROC_GetPtr( (WNDPROC16)func ); if (!proc) return WINPROC_CallWndProc( func, hwnd, msg, wParam, lParam ); #if testing func = WINPROC_GetProc( (HWINDOWPROC)proc, WIN_PROC_32W ); return WINPROC_CallWndProc( func, hwnd, msg, wParam, lParam ); #endif switch(proc->type) { case WIN_PROC_16: if (!proc->thunk.t_from32.proc) return 0; return WINPROC_CallProc32WTo16( proc->thunk.t_from32.proc, hwnd, msg, wParam, lParam ); case WIN_PROC_32A: if (!proc->thunk.t_from16.proc) return 0; return WINPROC_CallProc32WTo32A( proc->thunk.t_from16.proc, hwnd, msg, wParam, lParam ); case WIN_PROC_32W: if (!proc->thunk.t_from16.proc) return 0; return WINPROC_CallWndProc( proc->thunk.t_from16.proc, hwnd, msg, wParam, lParam ); default: WARN_(relay)("Invalid proc %p\n", proc ); return 0; } }