Split out some more 16-bit code.
[wine] / dlls / user / user16.c
1 /*
2  * Misc 16-bit USER functions
3  *
4  * Copyright 2002 Patrik Stridvall
5  *
6  * This library is free software; you can redistribute it and/or
7  * modify it under the terms of the GNU Lesser General Public
8  * License as published by the Free Software Foundation; either
9  * version 2.1 of the License, or (at your option) any later version.
10  *
11  * This library is distributed in the hope that it will be useful,
12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
14  * Lesser General Public License for more details.
15  *
16  * You should have received a copy of the GNU Lesser General Public
17  * License along with this library; if not, write to the Free Software
18  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
19  */
20
21 #include "wine/winuser16.h"
22 #include "winbase.h"
23 #include "wownt32.h"
24 #include "user.h"
25 #include "win.h"
26
27 /* handle to handle 16 conversions */
28 #define HANDLE_16(h32)          (LOWORD(h32))
29
30 /* handle16 to handle conversions */
31 #define HANDLE_32(h16)          ((HANDLE)(ULONG_PTR)(h16))
32 #define HINSTANCE_32(h16)       ((HINSTANCE)(ULONG_PTR)(h16))
33
34 WORD WINAPI DestroyIcon32(HGLOBAL16, UINT16);
35
36
37 /***********************************************************************
38  *              SetCursor (USER.69)
39  */
40 HCURSOR16 WINAPI SetCursor16(HCURSOR16 hCursor)
41 {
42   return HCURSOR_16(SetCursor(HCURSOR_32(hCursor)));
43 }
44
45 /***********************************************************************
46  *              ShowCursor (USER.71)
47  */
48 INT16 WINAPI ShowCursor16(BOOL16 bShow)
49 {
50   return ShowCursor(bShow);
51 }
52
53 /***********************************************************************
54  *              DrawIcon (USER.84)
55  */
56 BOOL16 WINAPI DrawIcon16(HDC16 hdc, INT16 x, INT16 y, HICON16 hIcon)
57 {
58   return DrawIcon(HDC_32(hdc), x, y, HICON_32(hIcon));
59 }
60
61 /***********************************************************************
62  *              IconSize (USER.86)
63  *
64  * See "Undocumented Windows". Used by W2.0 paint.exe.
65  */
66 DWORD WINAPI IconSize16(void)
67 {
68   return MAKELONG(GetSystemMetrics(SM_CYICON), GetSystemMetrics(SM_CXICON));
69 }
70
71 /***********************************************************************
72  *              LoadCursor (USER.173)
73  */
74 HCURSOR16 WINAPI LoadCursor16(HINSTANCE16 hInstance, LPCSTR name)
75 {
76   return HCURSOR_16(LoadCursorA(HINSTANCE_32(hInstance), name));
77 }
78
79
80 /***********************************************************************
81  *              LoadIcon (USER.174)
82  */
83 HICON16 WINAPI LoadIcon16(HINSTANCE16 hInstance, LPCSTR name)
84 {
85   return HICON_16(LoadIconA(HINSTANCE_32(hInstance), name));
86 }
87
88 /**********************************************************************
89  *              LoadBitmap (USER.175)
90  */
91 HBITMAP16 WINAPI LoadBitmap16(HINSTANCE16 hInstance, LPCSTR name)
92 {
93   return HBITMAP_16(LoadBitmapA(HINSTANCE_32(hInstance), name));
94 }
95
96 /*************************************************************************
97  *              ScrollDC (USER.221)
98  */
99 BOOL16 WINAPI ScrollDC16( HDC16 hdc, INT16 dx, INT16 dy, const RECT16 *rect,
100                           const RECT16 *cliprc, HRGN16 hrgnUpdate,
101                           LPRECT16 rcUpdate )
102 {
103     RECT rect32, clipRect32, rcUpdate32;
104     BOOL16 ret;
105
106     if (rect) CONV_RECT16TO32( rect, &rect32 );
107     if (cliprc) CONV_RECT16TO32( cliprc, &clipRect32 );
108     ret = ScrollDC( HDC_32(hdc), dx, dy, rect ? &rect32 : NULL,
109                     cliprc ? &clipRect32 : NULL, HRGN_32(hrgnUpdate),
110                     &rcUpdate32 );
111     if (rcUpdate) CONV_RECT32TO16( &rcUpdate32, rcUpdate );
112     return ret;
113 }
114
115 /***********************************************************************
116  *              GetCursor (USER.247)
117  */
118 HCURSOR16 WINAPI GetCursor16(void)
119 {
120   return HCURSOR_16(GetCursor());
121 }
122
123 /***********************************************************************
124  *              GlobalAddAtom (USER.268)
125  */
126 ATOM WINAPI GlobalAddAtom16(LPCSTR lpString)
127 {
128   return GlobalAddAtomA(lpString);
129 }
130
131 /***********************************************************************
132  *              GlobalDeleteAtom (USER.269)
133  */
134 ATOM WINAPI GlobalDeleteAtom16(ATOM nAtom)
135 {
136   return GlobalDeleteAtom(nAtom);
137 }
138
139 /***********************************************************************
140  *              GlobalFindAtom (USER.270)
141  */
142 ATOM WINAPI GlobalFindAtom16(LPCSTR lpString)
143 {
144   return GlobalFindAtomA(lpString);
145 }
146
147 /***********************************************************************
148  *              GlobalGetAtomName (USER.271)
149  */
150 UINT16 WINAPI GlobalGetAtomName16(ATOM nAtom, LPSTR lpBuffer, INT16 nSize)
151 {
152   return GlobalGetAtomNameA(nAtom, lpBuffer, nSize);
153 }
154
155 /***********************************************************************
156  *              SelectPalette (USER.282)
157  */
158 HPALETTE16 WINAPI SelectPalette16( HDC16 hdc, HPALETTE16 hpal, BOOL16 bForceBackground )
159 {
160     return HPALETTE_16( SelectPalette( HDC_32(hdc), HPALETTE_32(hpal), bForceBackground ));
161 }
162
163 /***********************************************************************
164  *              RealizePalette (USER.283)
165  */
166 UINT16 WINAPI RealizePalette16( HDC16 hdc )
167 {
168     return UserRealizePalette( HDC_32(hdc) );
169 }
170
171 /***********************************************************************
172  *              LoadImage (USER.389)
173  *
174  */
175 HANDLE16 WINAPI LoadImage16(HINSTANCE16 hinst, LPCSTR name, UINT16 type,
176                             INT16 desiredx, INT16 desiredy, UINT16 loadflags)
177 {
178   return HANDLE_16(LoadImageA(HINSTANCE_32(hinst), name, type, desiredx,
179                               desiredy, loadflags));
180 }
181
182 /******************************************************************************
183  *              CopyImage (USER.390) Creates new image and copies attributes to it
184  *
185  */
186 HICON16 WINAPI CopyImage16(HANDLE16 hnd, UINT16 type, INT16 desiredx,
187                            INT16 desiredy, UINT16 flags)
188 {
189   return HICON_16(CopyImage(HANDLE_32(hnd), (UINT)type, (INT)desiredx,
190                             (INT)desiredy, (UINT)flags));
191 }
192
193 /**********************************************************************
194  *              DrawIconEx (USER.394)
195  */
196 BOOL16 WINAPI DrawIconEx16(HDC16 hdc, INT16 xLeft, INT16 yTop, HICON16 hIcon,
197                            INT16 cxWidth, INT16 cyWidth, UINT16 istep,
198                            HBRUSH16 hbr, UINT16 flags)
199 {
200   return DrawIconEx(HDC_32(hdc), xLeft, yTop, HICON_32(hIcon), cxWidth, cyWidth,
201                     istep, HBRUSH_32(hbr), flags);
202 }
203
204 /**********************************************************************
205  *              GetIconInfo (USER.395)
206  */
207 BOOL16 WINAPI GetIconInfo16(HICON16 hIcon, LPICONINFO16 iconinfo)
208 {
209   ICONINFO ii32;
210   BOOL16 ret = GetIconInfo(HICON_32(hIcon), &ii32);
211
212   iconinfo->fIcon = ii32.fIcon;
213   iconinfo->xHotspot = ii32.xHotspot;
214   iconinfo->yHotspot = ii32.yHotspot;
215   iconinfo->hbmMask  = HBITMAP_16(ii32.hbmMask);
216   iconinfo->hbmColor = HBITMAP_16(ii32.hbmColor);
217   return ret;
218 }
219
220 /***********************************************************************
221  *              CreateCursor (USER.406)
222  */
223 HCURSOR16 WINAPI CreateCursor16(HINSTANCE16 hInstance,
224                                 INT16 xHotSpot, INT16 yHotSpot,
225                                 INT16 nWidth, INT16 nHeight,
226                                 LPCVOID lpANDbits, LPCVOID lpXORbits)
227 {
228   CURSORICONINFO info;
229
230   info.ptHotSpot.x = xHotSpot;
231   info.ptHotSpot.y = yHotSpot;
232   info.nWidth = nWidth;
233   info.nHeight = nHeight;
234   info.nWidthBytes = 0;
235   info.bPlanes = 1;
236   info.bBitsPerPixel = 1;
237
238   return CreateCursorIconIndirect16(hInstance, &info, lpANDbits, lpXORbits);
239 }
240
241 /**********************************************************************
242  *              CreateIconFromResourceEx (USER.450)
243  *
244  * FIXME: not sure about exact parameter types
245  */
246 HICON16 WINAPI CreateIconFromResourceEx16(LPBYTE bits, UINT16 cbSize,
247                                           BOOL16 bIcon, DWORD dwVersion,
248                                           INT16 width, INT16 height,
249                                           UINT16 cFlag)
250 {
251   return HICON_16(CreateIconFromResourceEx(bits, cbSize, bIcon, dwVersion,
252                                            width, height, cFlag));
253 }
254
255 /***********************************************************************
256  *              DestroyIcon (USER.457)
257  */
258 BOOL16 WINAPI DestroyIcon16(HICON16 hIcon)
259 {
260   return DestroyIcon32(hIcon, 0);
261 }
262
263 /***********************************************************************
264  *              DestroyCursor (USER.458)
265  */
266 BOOL16 WINAPI DestroyCursor16(HCURSOR16 hCursor)
267 {
268   return DestroyIcon32(hCursor, 0);
269 }
270
271 /*******************************************************************
272  *                      DRAG_QueryUpdate16
273  *
274  * Recursively find a child that contains spDragInfo->pt point
275  * and send WM_QUERYDROPOBJECT. Helper for DragObject16.
276  */
277 static BOOL DRAG_QueryUpdate16( HWND hQueryWnd, SEGPTR spDragInfo )
278 {
279     BOOL bResult = 0;
280     WPARAM wParam;
281     POINT pt, old_pt;
282     LPDRAGINFO16 ptrDragInfo = MapSL(spDragInfo);
283     RECT tempRect;
284     HWND child;
285
286     if (!IsWindowEnabled(hQueryWnd)) return FALSE;
287
288     old_pt.x = ptrDragInfo->pt.x;
289     old_pt.y = ptrDragInfo->pt.y;
290     pt = old_pt;
291     ScreenToClient( hQueryWnd, &pt );
292     child = ChildWindowFromPointEx( hQueryWnd, pt, CWP_SKIPINVISIBLE );
293     if (!child) return FALSE;
294
295     if (child != hQueryWnd)
296     {
297         wParam = 0;
298         if (DRAG_QueryUpdate16( child, spDragInfo )) return TRUE;
299     }
300     else
301     {
302         GetClientRect( hQueryWnd, &tempRect );
303         wParam = !PtInRect( &tempRect, pt );
304     }
305
306     ptrDragInfo->pt.x = pt.x;
307     ptrDragInfo->pt.y = pt.y;
308     ptrDragInfo->hScope = HWND_16(hQueryWnd);
309
310     bResult = SendMessage16( HWND_16(hQueryWnd), WM_QUERYDROPOBJECT, wParam, spDragInfo );
311
312     if (!bResult)
313     {
314         ptrDragInfo->pt.x = old_pt.x;
315         ptrDragInfo->pt.y = old_pt.y;
316     }
317     return bResult;
318 }
319
320
321 /******************************************************************************
322  *              DragObject (USER.464)
323  */
324 DWORD WINAPI DragObject16( HWND16 hwndScope, HWND16 hWnd, UINT16 wObj,
325                            HANDLE16 hOfStruct, WORD szList, HCURSOR16 hCursor )
326 {
327     MSG msg;
328     LPDRAGINFO16 lpDragInfo;
329     SEGPTR      spDragInfo;
330     HCURSOR     hOldCursor=0, hBummer=0;
331     HGLOBAL16   hDragInfo  = GlobalAlloc16( GMEM_SHARE | GMEM_ZEROINIT, 2*sizeof(DRAGINFO16));
332     HCURSOR     hCurrentCursor = 0;
333     HWND16      hCurrentWnd = 0;
334
335     lpDragInfo = (LPDRAGINFO16) GlobalLock16(hDragInfo);
336     spDragInfo = K32WOWGlobalLock16(hDragInfo);
337
338     if( !lpDragInfo || !spDragInfo ) return 0L;
339
340     if (!(hBummer = LoadCursorA(0, MAKEINTRESOURCEA(OCR_NO))))
341     {
342         GlobalFree16(hDragInfo);
343         return 0L;
344     }
345
346     if(hCursor) hOldCursor = SetCursor(HCURSOR_32(hCursor));
347
348     lpDragInfo->hWnd   = hWnd;
349     lpDragInfo->hScope = 0;
350     lpDragInfo->wFlags = wObj;
351     lpDragInfo->hList  = szList; /* near pointer! */
352     lpDragInfo->hOfStruct = hOfStruct;
353     lpDragInfo->l = 0L;
354
355     SetCapture( HWND_32(hWnd) );
356     ShowCursor( TRUE );
357
358     do
359     {
360         GetMessageW( &msg, 0, WM_MOUSEFIRST, WM_MOUSELAST );
361
362        *(lpDragInfo+1) = *lpDragInfo;
363
364         lpDragInfo->pt.x = msg.pt.x;
365         lpDragInfo->pt.y = msg.pt.y;
366
367         /* update DRAGINFO struct */
368         if( DRAG_QueryUpdate16(WIN_Handle32(hwndScope), spDragInfo) > 0 )
369             hCurrentCursor = HCURSOR_32(hCursor);
370         else
371         {
372             hCurrentCursor = hBummer;
373             lpDragInfo->hScope = 0;
374         }
375         if( hCurrentCursor )
376             SetCursor(hCurrentCursor);
377
378         /* send WM_DRAGLOOP */
379         SendMessage16( hWnd, WM_DRAGLOOP, (WPARAM16)(hCurrentCursor != hBummer),
380                                           (LPARAM) spDragInfo );
381         /* send WM_DRAGSELECT or WM_DRAGMOVE */
382         if( hCurrentWnd != lpDragInfo->hScope )
383         {
384             if( hCurrentWnd )
385                 SendMessage16( hCurrentWnd, WM_DRAGSELECT, 0,
386                        (LPARAM)MAKELONG(LOWORD(spDragInfo)+sizeof(DRAGINFO16),
387                                         HIWORD(spDragInfo)) );
388             hCurrentWnd = lpDragInfo->hScope;
389             if( hCurrentWnd )
390                 SendMessage16( hCurrentWnd, WM_DRAGSELECT, 1, (LPARAM)spDragInfo);
391         }
392         else
393             if( hCurrentWnd )
394                 SendMessage16( hCurrentWnd, WM_DRAGMOVE, 0, (LPARAM)spDragInfo);
395
396     } while( msg.message != WM_LBUTTONUP && msg.message != WM_NCLBUTTONUP );
397
398     ReleaseCapture();
399     ShowCursor( FALSE );
400
401     if( hCursor ) SetCursor(hOldCursor);
402
403     if( hCurrentCursor != hBummer )
404         msg.lParam = SendMessage16( lpDragInfo->hScope, WM_DROPOBJECT,
405                                    (WPARAM16)hWnd, (LPARAM)spDragInfo );
406     else
407         msg.lParam = 0;
408     GlobalFree16(hDragInfo);
409
410     return (DWORD)(msg.lParam);
411 }
412
413
414 /**********************************************************************
415  *          DrawFrameControl  (USER.656)
416  */
417 BOOL16 WINAPI DrawFrameControl16( HDC16 hdc, LPRECT16 rc, UINT16 uType, UINT16 uState )
418 {
419     RECT rect32;
420     BOOL ret;
421
422     CONV_RECT16TO32( rc, &rect32 );
423     ret = DrawFrameControl( HDC_32(hdc), &rect32, uType, uState );
424     CONV_RECT32TO16( &rect32, rc );
425     return ret;
426 }
427
428 /**********************************************************************
429  *          DrawEdge   (USER.659)
430  */
431 BOOL16 WINAPI DrawEdge16( HDC16 hdc, LPRECT16 rc, UINT16 edge, UINT16 flags )
432 {
433     RECT rect32;
434     BOOL ret;
435
436     CONV_RECT16TO32( rc, &rect32 );
437     ret = DrawEdge( HDC_32(hdc), &rect32, edge, flags );
438     CONV_RECT32TO16( &rect32, rc );
439     return ret;
440 }