Moved in win32
[reactos.git] / reactos / dll / win32 / comdlg32 / colordlg16.c
1 /*
2 * COMMDLG - Color Dialog
3 *
4 * Copyright 1994 Martin Ayotte
5 * Copyright 1996 Albrecht Kleine
6 *
7 * This library is free software; you can redistribute it and/or
8 * modify it under the terms of the GNU Lesser General Public
9 * License as published by the Free Software Foundation; either
10 * version 2.1 of the License, or (at your option) any later version.
11 *
12 * This library is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 * Lesser General Public License for more details.
16 *
17 * You should have received a copy of the GNU Lesser General Public
18 * License along with this library; if not, write to the Free Software
19 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
20 */
21
22 /* BUGS : still seems to not refresh correctly
23 sometimes, especially when 2 instances of the
24 dialog are loaded at the same time */
25
26 #include <ctype.h>
27 #include <stdlib.h>
28 #include <stdarg.h>
29 #include <stdio.h>
30 #include <string.h>
31 #include "windef.h"
32 #include "winbase.h"
33 #include "wingdi.h"
34 #include "wine/winbase16.h"
35 #include "wine/winuser16.h"
36 #include "winuser.h"
37 #include "commdlg.h"
38 #include "dlgs.h"
39 #include "wine/debug.h"
40 #include "cderr.h"
41 #include "cdlg.h"
42 #include "cdlg16.h"
43
44 WINE_DEFAULT_DEBUG_CHANNEL(commdlg);
45
46 /* Chose Color PRIVATE Structure:
47 *
48 * This is a duplicate of the 32bit code with
49 * an extra member
50 */
51 typedef struct CCPRIVATE
52 {
53 LPCHOOSECOLORW lpcc; /* points to public known data structure */
54 LPCHOOSECOLOR16 lpcc16; /* save the 16 bits pointer */
55 int nextuserdef; /* next free place in user defined color array */
56 HDC hdcMem; /* color graph used for BitBlt() */
57 HBITMAP hbmMem; /* color graph bitmap */
58 RECT fullsize; /* original dialog window size */
59 UINT msetrgb; /* # of SETRGBSTRING message (today not used) */
60 RECT old3angle; /* last position of l-marker */
61 RECT oldcross; /* last position of color/satuation marker */
62 BOOL updating; /* to prevent recursive WM_COMMAND/EN_UPDATE processing */
63 int h;
64 int s;
65 int l; /* for temporary storing of hue,sat,lum */
66 int capturedGraph; /* control mouse captured */
67 RECT focusRect; /* rectangle last focused item */
68 HWND hwndFocus; /* handle last focused item */
69 } *LCCPRIV;
70
71 /***********************************************************************
72 * CC_WMInitDialog16 [internal]
73 */
74 static LONG CC_WMInitDialog16( HWND hDlg, WPARAM wParam, LPARAM lParam )
75 {
76 int i, res;
77 int r, g, b;
78 HWND hwnd;
79 RECT rect;
80 POINT point;
81 LCCPRIV lpp;
82 CHOOSECOLORW *ch32;
83 CHOOSECOLOR16 *ch16 = (CHOOSECOLOR16 *) lParam;
84
85 TRACE("WM_INITDIALOG lParam=%08lX\n", lParam);
86 lpp = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(struct CCPRIVATE) );
87
88 if (ch16->lStructSize != sizeof(CHOOSECOLOR16) )
89 {
90 HeapFree(GetProcessHeap(), 0, lpp);
91 EndDialog (hDlg, 0) ;
92 return FALSE;
93 }
94 ch32 = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(CHOOSECOLORW) );
95 lpp->lpcc = ch32;
96 lpp->lpcc16 = ch16;
97 ch32->lStructSize = sizeof(CHOOSECOLORW);
98 ch32->hwndOwner = HWND_32(ch16->hwndOwner);
99 /* Should be an HINSTANCE but MS made a typo */
100 ch32->hInstance = HWND_32(ch16->hInstance);
101 ch32->lpCustColors = MapSL(ch16->lpCustColors);
102 ch32->lpfnHook = (LPCCHOOKPROC) ch16->lpfnHook; /* only used as flag */
103 ch32->Flags = ch16->Flags;
104
105 SetWindowLongPtrW(hDlg, DWLP_USER, (LONG_PTR)lpp);
106
107 if (!(lpp->lpcc->Flags & CC_SHOWHELP))
108 ShowWindow( GetDlgItem(hDlg,0x40e), SW_HIDE);
109 lpp->msetrgb = RegisterWindowMessageA(SETRGBSTRINGA);
110
111 #if 0
112 cpos = MAKELONG(5,7); /* init */
113 if (lpp->lpcc->Flags & CC_RGBINIT)
114 {
115 for (i = 0; i < 6; i++)
116 for (j = 0; j < 8; j++)
117 if (predefcolors[i][j] == lpp->lpcc->rgbResult)
118 {
119 cpos = MAKELONG(i,j);
120 goto found;
121 }
122 }
123 found:
124 /* FIXME: Draw_a_focus_rect & set_init_values */
125 #endif
126
127 GetWindowRect(hDlg, &lpp->fullsize);
128 if (lpp->lpcc->Flags & CC_FULLOPEN || lpp->lpcc->Flags & CC_PREVENTFULLOPEN)
129 {
130 hwnd = GetDlgItem(hDlg, 0x2cf);
131 EnableWindow(hwnd, FALSE);
132 }
133 if (!(lpp->lpcc->Flags & CC_FULLOPEN ) || lpp->lpcc->Flags & CC_PREVENTFULLOPEN)
134 {
135 rect = lpp->fullsize;
136 res = rect.bottom - rect.top;
137 hwnd = GetDlgItem(hDlg, 0x2c6); /* cut at left border */
138 point.x = point.y = 0;
139 ClientToScreen(hwnd, &point);
140 ScreenToClient(hDlg,&point);
141 GetClientRect(hDlg, &rect);
142 point.x += GetSystemMetrics(SM_CXDLGFRAME);
143 SetWindowPos(hDlg, 0, 0, 0, point.x, res, SWP_NOMOVE|SWP_NOZORDER);
144
145 for (i = 0x2bf; i < 0x2c5; i++)
146 ShowWindow( GetDlgItem(hDlg, i), SW_HIDE);
147 for (i = 0x2d3; i < 0x2d9; i++)
148 ShowWindow( GetDlgItem(hDlg, i), SW_HIDE);
149 ShowWindow( GetDlgItem(hDlg, 0x2c9), SW_HIDE);
150 ShowWindow( GetDlgItem(hDlg, 0x2c8), SW_HIDE);
151 ShowWindow( GetDlgItem(hDlg, 0x2c6), SW_HIDE);
152 ShowWindow( GetDlgItem(hDlg, 0x2c5), SW_HIDE);
153 ShowWindow( GetDlgItem(hDlg, 1090 ), SW_HIDE);
154 }
155 else
156 CC_SwitchToFullSize(hDlg, lpp->lpcc->rgbResult, NULL);
157 res = TRUE;
158 for (i = 0x2bf; i < 0x2c5; i++)
159 SendMessageA( GetDlgItem(hDlg, i), EM_LIMITTEXT, 3, 0); /* max 3 digits: xyz */
160 if (CC_HookCallChk(lpp->lpcc))
161 {
162 res = CallWindowProc16( (WNDPROC16)lpp->lpcc16->lpfnHook,
163 HWND_16(hDlg), WM_INITDIALOG, wParam, lParam);
164 }
165
166 /* Set the initial values of the color chooser dialog */
167 r = GetRValue(lpp->lpcc->rgbResult);
168 g = GetGValue(lpp->lpcc->rgbResult);
169 b = GetBValue(lpp->lpcc->rgbResult);
170
171 CC_PaintSelectedColor(hDlg, lpp->lpcc->rgbResult);
172 lpp->h = CC_RGBtoHSL('H', r, g, b);
173 lpp->s = CC_RGBtoHSL('S', r, g, b);
174 lpp->l = CC_RGBtoHSL('L', r, g, b);
175
176 /* Doing it the long way because CC_EditSetRGB/HSL doesn't seem to work */
177 SetDlgItemInt(hDlg, 703, lpp->h, TRUE);
178 SetDlgItemInt(hDlg, 704, lpp->s, TRUE);
179 SetDlgItemInt(hDlg, 705, lpp->l, TRUE);
180 SetDlgItemInt(hDlg, 706, r, TRUE);
181 SetDlgItemInt(hDlg, 707, g, TRUE);
182 SetDlgItemInt(hDlg, 708, b, TRUE);
183
184 CC_PaintCross(hDlg, lpp->h, lpp->s);
185 CC_PaintTriangle(hDlg, lpp->l);
186
187 return res;
188 }
189
190 /***********************************************************************
191 * CC_WMCommand16 [internal]
192 */
193 static LRESULT CC_WMCommand16( HWND hDlg, WPARAM wParam, LPARAM lParam, WORD notifyCode, HWND hwndCtl )
194 {
195 int r, g, b, i, xx;
196 UINT cokmsg;
197 HDC hdc;
198 COLORREF *cr;
199 LCCPRIV lpp = (LCCPRIV)GetWindowLongPtrW(hDlg, DWLP_USER);
200 TRACE("CC_WMCommand wParam=%x lParam=%lx\n", wParam, lParam);
201 switch (wParam)
202 {
203 case 0x2c2: /* edit notify RGB */
204 case 0x2c3:
205 case 0x2c4:
206 if (notifyCode == EN_UPDATE && !lpp->updating)
207 {
208 i = CC_CheckDigitsInEdit(hwndCtl, 255);
209 r = GetRValue(lpp->lpcc->rgbResult);
210 g = GetGValue(lpp->lpcc->rgbResult);
211 b= GetBValue(lpp->lpcc->rgbResult);
212 xx = 0;
213 switch (wParam)
214 {
215 case 0x2c2: if ((xx = (i != r))) r = i; break;
216 case 0x2c3: if ((xx = (i != g))) g = i; break;
217 case 0x2c4: if ((xx = (i != b))) b = i; break;
218 }
219 if (xx) /* something has changed */
220 {
221 lpp->lpcc->rgbResult = RGB(r, g, b);
222 CC_PaintSelectedColor(hDlg, lpp->lpcc->rgbResult);
223 lpp->h = CC_RGBtoHSL('H', r, g, b);
224 lpp->s = CC_RGBtoHSL('S', r, g, b);
225 lpp->l = CC_RGBtoHSL('L', r, g, b);
226 CC_EditSetHSL(hDlg, lpp->h, lpp->s, lpp->l);
227 CC_PaintCross(hDlg, lpp->h, lpp->s);
228 CC_PaintTriangle(hDlg, lpp->l);
229 }
230 }
231 break;
232
233 case 0x2bf: /* edit notify HSL */
234 case 0x2c0:
235 case 0x2c1:
236 if (notifyCode == EN_UPDATE && !lpp->updating)
237 {
238 i = CC_CheckDigitsInEdit(hwndCtl , wParam == 0x2bf ? 239:240);
239 xx = 0;
240 switch (wParam)
241 {
242 case 0x2bf: if ((xx = ( i != lpp->h))) lpp->h = i; break;
243 case 0x2c0: if ((xx = ( i != lpp->s))) lpp->s = i; break;
244 case 0x2c1: if ((xx = ( i != lpp->l))) lpp->l = i; break;
245 }
246 if (xx) /* something has changed */
247 {
248 r = CC_HSLtoRGB('R', lpp->h, lpp->s, lpp->l);
249 g = CC_HSLtoRGB('G', lpp->h, lpp->s, lpp->l);
250 b = CC_HSLtoRGB('B', lpp->h, lpp->s, lpp->l);
251 lpp->lpcc->rgbResult = RGB(r, g, b);
252 CC_PaintSelectedColor(hDlg, lpp->lpcc->rgbResult);
253 CC_EditSetRGB(hDlg, lpp->lpcc->rgbResult);
254 CC_PaintCross(hDlg, lpp->h, lpp->s);
255 CC_PaintTriangle(hDlg, lpp->l);
256 }
257 }
258 break;
259
260 case 0x2cf:
261 CC_SwitchToFullSize(hDlg, lpp->lpcc->rgbResult, &lpp->fullsize);
262 SetFocus( GetDlgItem(hDlg, 0x2bf));
263 break;
264
265 case 0x2c8: /* add colors ... column by column */
266 cr = lpp->lpcc->lpCustColors;
267 cr[(lpp->nextuserdef % 2) * 8 + lpp->nextuserdef / 2] = lpp->lpcc->rgbResult;
268 if (++lpp->nextuserdef == 16)
269 lpp->nextuserdef = 0;
270 CC_PaintUserColorArray(hDlg, 2, 8, lpp->lpcc->lpCustColors);
271 break;
272
273 case 0x2c9: /* resulting color */
274 hdc = GetDC(hDlg);
275 lpp->lpcc->rgbResult = GetNearestColor(hdc, lpp->lpcc->rgbResult);
276 ReleaseDC(hDlg, hdc);
277 CC_EditSetRGB(hDlg, lpp->lpcc->rgbResult);
278 CC_PaintSelectedColor(hDlg, lpp->lpcc->rgbResult);
279 r = GetRValue(lpp->lpcc->rgbResult);
280 g = GetGValue(lpp->lpcc->rgbResult);
281 b = GetBValue(lpp->lpcc->rgbResult);
282 lpp->h = CC_RGBtoHSL('H', r, g, b);
283 lpp->s = CC_RGBtoHSL('S', r, g, b);
284 lpp->l = CC_RGBtoHSL('L', r, g, b);
285 CC_EditSetHSL(hDlg, lpp->h, lpp->s, lpp->l);
286 CC_PaintCross(hDlg, lpp->h, lpp->s);
287 CC_PaintTriangle(hDlg, lpp->l);
288 break;
289
290 case 0x40e: /* Help! */ /* The Beatles, 1965 ;-) */
291 i = RegisterWindowMessageA(HELPMSGSTRINGA);
292 if (lpp->lpcc16)
293 {
294 if (lpp->lpcc->hwndOwner)
295 SendMessageA(lpp->lpcc->hwndOwner, i, 0, (LPARAM)lpp->lpcc16);
296 if ( CC_HookCallChk(lpp->lpcc))
297 CallWindowProc16( (WNDPROC16) lpp->lpcc16->lpfnHook,
298 HWND_16(hDlg), WM_COMMAND, psh15,
299 (LPARAM)lpp->lpcc16);
300 }
301 break;
302
303 case IDOK :
304 cokmsg = RegisterWindowMessageA(COLOROKSTRINGA);
305 if (lpp->lpcc16)
306 {
307 if (lpp->lpcc->hwndOwner)
308 if (SendMessageA(lpp->lpcc->hwndOwner, cokmsg, 0, (LPARAM)lpp->lpcc16))
309 break; /* do NOT close */
310 }
311 if (lpp->lpcc16)
312 {
313 BYTE *ptr = MapSL(lpp->lpcc16->lpCustColors);
314 memcpy(ptr, lpp->lpcc->lpCustColors, sizeof(COLORREF)*16);
315 lpp->lpcc16->rgbResult = lpp->lpcc->rgbResult;
316 }
317 EndDialog(hDlg, 1) ;
318 return TRUE ;
319
320 case IDCANCEL :
321 EndDialog(hDlg, 0) ;
322 return TRUE ;
323
324 }
325 return FALSE;
326 }
327
328 /***********************************************************************
329 * ColorDlgProc (COMMDLG.8)
330 */
331 BOOL16 CALLBACK ColorDlgProc16( HWND16 hDlg16, UINT16 message,
332 WPARAM16 wParam, LONG lParam )
333 {
334 BOOL16 res;
335 HWND hDlg = HWND_32(hDlg16);
336
337 LCCPRIV lpp = (LCCPRIV)GetWindowLongPtrW(hDlg, DWLP_USER);
338 if (message != WM_INITDIALOG)
339 {
340 if (!lpp)
341 return FALSE;
342 res=0;
343 if (CC_HookCallChk(lpp->lpcc))
344 res = CallWindowProc16( (WNDPROC16)lpp->lpcc16->lpfnHook, hDlg16, message, wParam, lParam);
345 if (res)
346 return res;
347 }
348
349 /* FIXME: SetRGB message
350 if (message && message == msetrgb)
351 return HandleSetRGB(hDlg, lParam);
352 */
353
354 switch (message)
355 {
356 case WM_INITDIALOG:
357 return CC_WMInitDialog16(hDlg, wParam, lParam);
358 case WM_NCDESTROY:
359 DeleteDC(lpp->hdcMem);
360 DeleteObject(lpp->hbmMem);
361 HeapFree(GetProcessHeap(), 0, lpp->lpcc);
362 HeapFree(GetProcessHeap(), 0, lpp);
363 SetWindowLongPtrW(hDlg, DWLP_USER, 0); /* we don't need it anymore */
364 break;
365 case WM_COMMAND:
366 if (CC_WMCommand16(hDlg, wParam, lParam,
367 HIWORD(lParam), HWND_32(LOWORD(lParam))))
368 return TRUE;
369 break;
370 case WM_PAINT:
371 if (CC_WMPaint(hDlg, wParam, lParam))
372 return TRUE;
373 break;
374 case WM_LBUTTONDBLCLK:
375 if (CC_MouseCheckResultWindow(hDlg,lParam))
376 return TRUE;
377 break;
378 case WM_MOUSEMOVE:
379 if (CC_WMMouseMove(hDlg, lParam))
380 return TRUE;
381 break;
382 case WM_LBUTTONUP: /* FIXME: ClipCursor off (if in color graph)*/
383 if (CC_WMLButtonUp(hDlg, wParam, lParam))
384 return TRUE;
385 break;
386 case WM_LBUTTONDOWN:/* FIXME: ClipCursor on (if in color graph)*/
387 if (CC_WMLButtonDown(hDlg, wParam, lParam))
388 return TRUE;
389 break;
390 }
391 return FALSE ;
392 }
393
394 /***********************************************************************
395 * ChooseColor (COMMDLG.5)
396 */
397 BOOL16 WINAPI ChooseColor16( LPCHOOSECOLOR16 lpChCol )
398 {
399 HINSTANCE16 hInst;
400 HANDLE16 hDlgTmpl16 = 0, hResource16 = 0;
401 HGLOBAL16 hGlobal16 = 0;
402 BOOL16 bRet = FALSE;
403 LPCVOID template;
404 FARPROC16 ptr;
405
406 TRACE("ChooseColor\n");
407 if (!lpChCol) return FALSE;
408
409 if (lpChCol->Flags & CC_ENABLETEMPLATEHANDLE)
410 hDlgTmpl16 = lpChCol->hInstance;
411 else if (lpChCol->Flags & CC_ENABLETEMPLATE)
412 {
413 HANDLE16 hResInfo;
414 if (!(hResInfo = FindResource16(lpChCol->hInstance,
415 MapSL(lpChCol->lpTemplateName),
416 (LPSTR)RT_DIALOG)))
417 {
418 COMDLG32_SetCommDlgExtendedError(CDERR_FINDRESFAILURE);
419 return FALSE;
420 }
421 if (!(hDlgTmpl16 = LoadResource16(lpChCol->hInstance, hResInfo)))
422 {
423 COMDLG32_SetCommDlgExtendedError(CDERR_LOADRESFAILURE);
424 return FALSE;
425 }
426 hResource16 = hDlgTmpl16;
427 }
428 else
429 {
430 HRSRC hResInfo;
431 HGLOBAL hDlgTmpl32;
432 LPCVOID template32;
433 DWORD size;
434 if (!(hResInfo = FindResourceA(COMDLG32_hInstance, "CHOOSE_COLOR", (LPSTR)RT_DIALOG)))
435 {
436 COMDLG32_SetCommDlgExtendedError(CDERR_FINDRESFAILURE);
437 return FALSE;
438 }
439 if (!(hDlgTmpl32 = LoadResource(COMDLG32_hInstance, hResInfo)) ||
440 !(template32 = LockResource(hDlgTmpl32)))
441 {
442 COMDLG32_SetCommDlgExtendedError(CDERR_LOADRESFAILURE);
443 return FALSE;
444 }
445 size = SizeofResource(COMDLG32_hInstance, hResInfo);
446 hGlobal16 = GlobalAlloc16(0, size);
447 if (!hGlobal16)
448 {
449 COMDLG32_SetCommDlgExtendedError(CDERR_MEMALLOCFAILURE);
450 ERR("alloc failure for %ld bytes\n", size);
451 return FALSE;
452 }
453 template = GlobalLock16(hGlobal16);
454 if (!template)
455 {
456 COMDLG32_SetCommDlgExtendedError(CDERR_MEMLOCKFAILURE);
457 ERR("global lock failure for %x handle\n", hDlgTmpl16);
458 GlobalFree16(hGlobal16);
459 return FALSE;
460 }
461 ConvertDialog32To16((LPVOID)template32, size, (LPVOID)template);
462 hDlgTmpl16 = hGlobal16;
463 }
464
465 ptr = GetProcAddress16(GetModuleHandle16("COMMDLG"), (LPCSTR) 8);
466 hInst = GetWindowLongPtrA(HWND_32(lpChCol->hwndOwner), GWLP_HINSTANCE);
467 bRet = DialogBoxIndirectParam16(hInst, hDlgTmpl16, lpChCol->hwndOwner,
468 (DLGPROC16) ptr, (DWORD)lpChCol);
469 if (hResource16) FreeResource16(hDlgTmpl16);
470 if (hGlobal16)
471 {
472 GlobalUnlock16(hGlobal16);
473 GlobalFree16(hGlobal16);
474 }
475 return bRet;
476 }