dlls/commdlg/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 "colordlg.h"
  43
  44 WINE_DEFAULT_DEBUG_CHANNEL(commdlg);
  45
  46 /***********************************************************************
  47  *                              CC_WMInitDialog16                  [internal]
  48  */
  49 LONG CC_WMInitDialog16( HWND hDlg, WPARAM wParam, LPARAM lParam )
  50 {
  51    int i, res;
  52    int r, g, b;
  53    HWND hwnd;
  54    RECT rect;
  55    POINT point;
  56    LCCPRIV lpp;
  57    CHOOSECOLORW *ch32;
  58    CHOOSECOLOR16 *ch16 = (CHOOSECOLOR16 *) lParam;
  59
  60    TRACE("WM_INITDIALOG lParam=%08lX\n", lParam);
  61    lpp = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(struct CCPRIVATE) );
  62
  63    if (ch16->lStructSize != sizeof(CHOOSECOLOR16) )
  64    {
  65        HeapFree(GetProcessHeap(), 0, lpp);
  66        EndDialog (hDlg, 0) ;
  67        return FALSE;
  68    }
  69    ch32 = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(CHOOSECOLORW) );
  70    lpp->lpcc = ch32;
  71    lpp->lpcc16 = ch16;
  72    ch32->lStructSize = sizeof(CHOOSECOLORW);
  73    ch32->hwndOwner = HWND_32(ch16->hwndOwner);
  74    /* Should be an HINSTANCE but MS made a typo */
  75    ch32->hInstance = HWND_32(ch16->hInstance);
  76    ch32->lpCustColors = MapSL(ch16->lpCustColors);
  77    ch32->lpfnHook = (LPCCHOOKPROC) ch16->lpfnHook; /* only used as flag */
  78    ch32->Flags = ch16->Flags;
  79
  80    SetWindowLongA(hDlg, DWL_USER, (LONG)lpp);
  81
  82    if (!(lpp->lpcc->Flags & CC_SHOWHELP))
  83       ShowWindow( GetDlgItem(hDlg,0x40e), SW_HIDE);
  84    lpp->msetrgb = RegisterWindowMessageA(SETRGBSTRINGA);
  85
  86 #if 0
  87    cpos = MAKELONG(5,7); /* init */
  88    if (lpp->lpcc->Flags & CC_RGBINIT)
  89    {
  90      for (i = 0; i < 6; i++)
  91        for (j = 0; j < 8; j++)
  92         if (predefcolors[i][j] == lpp->lpcc->rgbResult)
  93         {
  94           cpos = MAKELONG(i,j);
  95           goto found;
  96         }
  97    }
  98    found:
  99    /* FIXME: Draw_a_focus_rect & set_init_values */
 100 #endif
 101
 102    GetWindowRect(hDlg, &lpp->fullsize);
 103    if (lpp->lpcc->Flags & CC_FULLOPEN || lpp->lpcc->Flags & CC_PREVENTFULLOPEN)
 104    {
 105       hwnd = GetDlgItem(hDlg, 0x2cf);
 106       EnableWindow(hwnd, FALSE);
 107    }
 108    if (!(lpp->lpcc->Flags & CC_FULLOPEN ) || lpp->lpcc->Flags & CC_PREVENTFULLOPEN)
 109    {
 110       rect = lpp->fullsize;
 111       res = rect.bottom - rect.top;
 112       hwnd = GetDlgItem(hDlg, 0x2c6); /* cut at left border */
 113       point.x = point.y = 0;
 114       ClientToScreen(hwnd, &point);
 115       ScreenToClient(hDlg,&point);
 116       GetClientRect(hDlg, &rect);
 117       point.x += GetSystemMetrics(SM_CXDLGFRAME);
 118       SetWindowPos(hDlg, 0, 0, 0, point.x, res, SWP_NOMOVE|SWP_NOZORDER);
 119
 120       for (i = 0x2bf; i < 0x2c5; i++)
 121          ShowWindow( GetDlgItem(hDlg, i), SW_HIDE);
 122       for (i = 0x2d3; i < 0x2d9; i++)
 123          ShowWindow( GetDlgItem(hDlg, i), SW_HIDE);
 124       ShowWindow( GetDlgItem(hDlg, 0x2c9), SW_HIDE);
 125       ShowWindow( GetDlgItem(hDlg, 0x2c8), SW_HIDE);
 126       ShowWindow( GetDlgItem(hDlg, 0x2c6), SW_HIDE);
 127       ShowWindow( GetDlgItem(hDlg, 0x2c5), SW_HIDE);
 128       ShowWindow( GetDlgItem(hDlg, 1090 ), SW_HIDE);
 129    }
 130    else
 131       CC_SwitchToFullSize(hDlg, lpp->lpcc->rgbResult, NULL);
 132    res = TRUE;
 133    for (i = 0x2bf; i < 0x2c5; i++)
 134      SendMessageA( GetDlgItem(hDlg, i), EM_LIMITTEXT, 3, 0);  /* max 3 digits:  xyz  */
 135    if (CC_HookCallChk(lpp->lpcc))
 136    {
 137           res = CallWindowProc16( (WNDPROC16)lpp->lpcc16->lpfnHook,
 138                                   HWND_16(hDlg), WM_INITDIALOG, wParam, lParam);
 139    }
 140
 141    /* Set the initial values of the color chooser dialog */
 142    r = GetRValue(lpp->lpcc->rgbResult);
 143    g = GetGValue(lpp->lpcc->rgbResult);
 144    b = GetBValue(lpp->lpcc->rgbResult);
 145
 146    CC_PaintSelectedColor(hDlg, lpp->lpcc->rgbResult);
 147    lpp->h = CC_RGBtoHSL('H', r, g, b);
 148    lpp->s = CC_RGBtoHSL('S', r, g, b);
 149    lpp->l = CC_RGBtoHSL('L', r, g, b);
 150
 151    /* Doing it the long way because CC_EditSetRGB/HSL doesn't seem to work */
 152    SetDlgItemInt(hDlg, 703, lpp->h, TRUE);
 153    SetDlgItemInt(hDlg, 704, lpp->s, TRUE);
 154    SetDlgItemInt(hDlg, 705, lpp->l, TRUE);
 155    SetDlgItemInt(hDlg, 706, r, TRUE);
 156    SetDlgItemInt(hDlg, 707, g, TRUE);
 157    SetDlgItemInt(hDlg, 708, b, TRUE);
 158
 159    CC_PaintCross(hDlg, lpp->h, lpp->s);
 160    CC_PaintTriangle(hDlg, lpp->l);
 161
 162    return res;
 163 }
 164
 165 /***********************************************************************
 166  *                              CC_WMCommand16                  [internal]
 167  */
 168 LRESULT CC_WMCommand16( HWND hDlg, WPARAM wParam, LPARAM lParam, WORD notifyCode, HWND hwndCtl )
 169 {
 170     int  r, g, b, i, xx;
 171     UINT cokmsg;
 172     HDC hdc;
 173     COLORREF *cr;
 174     LCCPRIV lpp = (LCCPRIV)GetWindowLongA(hDlg, DWL_USER);
 175     TRACE("CC_WMCommand wParam=%x lParam=%lx\n", wParam, lParam);
 176     switch (wParam)
 177     {
 178           case 0x2c2:  /* edit notify RGB */
 179           case 0x2c3:
 180           case 0x2c4:
 181                if (notifyCode == EN_UPDATE && !lpp->updating)
 182                          {
 183                            i = CC_CheckDigitsInEdit(hwndCtl, 255);
 184                            r = GetRValue(lpp->lpcc->rgbResult);
 185                            g = GetGValue(lpp->lpcc->rgbResult);
 186                            b= GetBValue(lpp->lpcc->rgbResult);
 187                            xx = 0;
 188                            switch (wParam)
 189                            {
 190                             case 0x2c2: if ((xx = (i != r))) r = i; break;
 191                             case 0x2c3: if ((xx = (i != g))) g = i; break;
 192                             case 0x2c4: if ((xx = (i != b))) b = i; break;
 193                            }
 194                            if (xx) /* something has changed */
 195                            {
 196                             lpp->lpcc->rgbResult = RGB(r, g, b);
 197                             CC_PaintSelectedColor(hDlg, lpp->lpcc->rgbResult);
 198                             lpp->h = CC_RGBtoHSL('H', r, g, b);
 199                             lpp->s = CC_RGBtoHSL('S', r, g, b);
 200                             lpp->l = CC_RGBtoHSL('L', r, g, b);
 201                             CC_EditSetHSL(hDlg, lpp->h, lpp->s, lpp->l);
 202                             CC_PaintCross(hDlg, lpp->h, lpp->s);
 203                             CC_PaintTriangle(hDlg, lpp->l);
 204                            }
 205                          }
 206                  break;
 207
 208           case 0x2bf:  /* edit notify HSL */
 209           case 0x2c0:
 210           case 0x2c1:
 211                if (notifyCode == EN_UPDATE && !lpp->updating)
 212                          {
 213                            i = CC_CheckDigitsInEdit(hwndCtl , wParam == 0x2bf ? 239:240);
 214                            xx = 0;
 215                            switch (wParam)
 216                            {
 217                             case 0x2bf: if ((xx = ( i != lpp->h))) lpp->h = i; break;
 218                             case 0x2c0: if ((xx = ( i != lpp->s))) lpp->s = i; break;
 219                             case 0x2c1: if ((xx = ( i != lpp->l))) lpp->l = i; break;
 220                            }
 221                            if (xx) /* something has changed */
 222                            {
 223                             r = CC_HSLtoRGB('R', lpp->h, lpp->s, lpp->l);
 224                             g = CC_HSLtoRGB('G', lpp->h, lpp->s, lpp->l);
 225                             b = CC_HSLtoRGB('B', lpp->h, lpp->s, lpp->l);
 226                             lpp->lpcc->rgbResult = RGB(r, g, b);
 227                             CC_PaintSelectedColor(hDlg, lpp->lpcc->rgbResult);
 228                             CC_EditSetRGB(hDlg, lpp->lpcc->rgbResult);
 229                             CC_PaintCross(hDlg, lpp->h, lpp->s);
 230                             CC_PaintTriangle(hDlg, lpp->l);
 231                            }
 232                          }
 233                break;
 234
 235           case 0x2cf:
 236                CC_SwitchToFullSize(hDlg, lpp->lpcc->rgbResult, &lpp->fullsize);
 237                SetFocus( GetDlgItem(hDlg, 0x2bf));
 238                break;
 239
 240           case 0x2c8:    /* add colors ... column by column */
 241                cr = lpp->lpcc->lpCustColors;
 242                cr[(lpp->nextuserdef % 2) * 8 + lpp->nextuserdef / 2] = lpp->lpcc->rgbResult;
 243                if (++lpp->nextuserdef == 16)
 244                    lpp->nextuserdef = 0;
 245                CC_PaintUserColorArray(hDlg, 2, 8, lpp->lpcc->lpCustColors);
 246                break;
 247
 248           case 0x2c9:              /* resulting color */
 249                hdc = GetDC(hDlg);
 250                lpp->lpcc->rgbResult = GetNearestColor(hdc, lpp->lpcc->rgbResult);
 251                ReleaseDC(hDlg, hdc);
 252                CC_EditSetRGB(hDlg, lpp->lpcc->rgbResult);
 253                CC_PaintSelectedColor(hDlg, lpp->lpcc->rgbResult);
 254                r = GetRValue(lpp->lpcc->rgbResult);
 255                g = GetGValue(lpp->lpcc->rgbResult);
 256                b = GetBValue(lpp->lpcc->rgbResult);
 257                lpp->h = CC_RGBtoHSL('H', r, g, b);
 258                lpp->s = CC_RGBtoHSL('S', r, g, b);
 259                lpp->l = CC_RGBtoHSL('L', r, g, b);
 260                CC_EditSetHSL(hDlg, lpp->h, lpp->s, lpp->l);
 261                CC_PaintCross(hDlg, lpp->h, lpp->s);
 262                CC_PaintTriangle(hDlg, lpp->l);
 263                break;
 264
 265           case 0x40e:           /* Help! */ /* The Beatles, 1965  ;-) */
 266                i = RegisterWindowMessageA(HELPMSGSTRINGA);
 267                if (lpp->lpcc16)
 268                {
 269                    if (lpp->lpcc->hwndOwner)
 270                        SendMessageA(lpp->lpcc->hwndOwner, i, 0, (LPARAM)lpp->lpcc16);
 271                    if ( CC_HookCallChk(lpp->lpcc))
 272                        CallWindowProc16( (WNDPROC16) lpp->lpcc16->lpfnHook,
 273                                          HWND_16(hDlg), WM_COMMAND, psh15,
 274                                          (LPARAM)lpp->lpcc16);
 275                }
 276                break;
 277
 278           case IDOK :
 279                 cokmsg = RegisterWindowMessageA(COLOROKSTRINGA);
 280                 if (lpp->lpcc16)
 281                 {
 282                     if (lpp->lpcc->hwndOwner)
 283                         if (SendMessageA(lpp->lpcc->hwndOwner, cokmsg, 0, (LPARAM)lpp->lpcc16))
 284                            break;    /* do NOT close */
 285                 }
 286                 if (lpp->lpcc16)
 287                 {
 288                     BYTE *ptr = MapSL(lpp->lpcc16->lpCustColors);
 289                     memcpy(ptr, lpp->lpcc->lpCustColors, sizeof(COLORREF)*16);
 290                     lpp->lpcc16->rgbResult = lpp->lpcc->rgbResult;
 291                 }
 292                 EndDialog(hDlg, 1) ;
 293                 return TRUE ;
 294
 295           case IDCANCEL :
 296                 EndDialog(hDlg, 0) ;
 297                 return TRUE ;
 298
 299        }
 300        return FALSE;
 301 }
 302
 303 /***********************************************************************
 304  *           ColorDlgProc   (COMMDLG.8)
 305  */
 306 BOOL16 CALLBACK ColorDlgProc16( HWND16 hDlg16, UINT16 message,
 307                             WPARAM16 wParam, LONG lParam )
 308 {
 309     BOOL16 res;
 310     HWND hDlg = HWND_32(hDlg16);
 311
 312     LCCPRIV lpp = (LCCPRIV)GetWindowLongA(hDlg, DWL_USER);
 313     if (message != WM_INITDIALOG)
 314     {
 315         if (!lpp)
 316             return FALSE;
 317         res=0;
 318         if (CC_HookCallChk(lpp->lpcc))
 319             res = CallWindowProc16( (WNDPROC16)lpp->lpcc16->lpfnHook, hDlg16, message, wParam, lParam);
 320         if (res)
 321             return res;
 322     }
 323
 324     /* FIXME: SetRGB message
 325        if (message && message == msetrgb)
 326        return HandleSetRGB(hDlg, lParam);
 327     */
 328
 329     switch (message)
 330     {
 331           case WM_INITDIALOG:
 332                         return CC_WMInitDialog16(hDlg, wParam, lParam);
 333           case WM_NCDESTROY:
 334                         DeleteDC(lpp->hdcMem);
 335                         DeleteObject(lpp->hbmMem);
 336                         HeapFree(GetProcessHeap(), 0, lpp->lpcc);
 337                         HeapFree(GetProcessHeap(), 0, lpp);
 338                         SetWindowLongA(hDlg, DWL_USER, 0L); /* we don't need it anymore */
 339                         break;
 340           case WM_COMMAND:
 341                         if (CC_WMCommand16(hDlg, wParam, lParam,
 342                                          HIWORD(lParam), HWND_32(LOWORD(lParam))))
 343                            return TRUE;
 344                         break;
 345           case WM_PAINT:
 346                         if (CC_WMPaint(hDlg, wParam, lParam))
 347                            return TRUE;
 348                         break;
 349           case WM_LBUTTONDBLCLK:
 350                         if (CC_MouseCheckResultWindow(hDlg,lParam))
 351                           return TRUE;
 352                         break;
 353           case WM_MOUSEMOVE:
 354                         if (CC_WMMouseMove(hDlg, lParam))
 355                           return TRUE;
 356                         break;
 357           case WM_LBUTTONUP:  /* FIXME: ClipCursor off (if in color graph)*/
 358                         if (CC_WMLButtonUp(hDlg, wParam, lParam))
 359                            return TRUE;
 360                         break;
 361           case WM_LBUTTONDOWN:/* FIXME: ClipCursor on  (if in color graph)*/
 362                         if (CC_WMLButtonDown(hDlg, wParam, lParam))
 363                            return TRUE;
 364                         break;
 365     }
 366     return FALSE ;
 367 }
 368
 369 /***********************************************************************
 370  *            ChooseColor  (COMMDLG.5)
 371  */
 372 BOOL16 WINAPI ChooseColor16( LPCHOOSECOLOR16 lpChCol )
 373 {
 374     HINSTANCE16 hInst;
 375     HANDLE16 hDlgTmpl16 = 0, hResource16 = 0;
 376     HGLOBAL16 hGlobal16 = 0;
 377     BOOL16 bRet = FALSE;
 378     LPCVOID template;
 379     FARPROC16 ptr;
 380
 381     TRACE("ChooseColor\n");
 382     if (!lpChCol) return FALSE;
 383
 384     if (lpChCol->Flags & CC_ENABLETEMPLATEHANDLE)
 385         hDlgTmpl16 = lpChCol->hInstance;
 386     else if (lpChCol->Flags & CC_ENABLETEMPLATE)
 387     {
 388         HANDLE16 hResInfo;
 389         if (!(hResInfo = FindResource16(lpChCol->hInstance,
 390                                         MapSL(lpChCol->lpTemplateName),
 391                                         (LPSTR)RT_DIALOG)))
 392         {
 393             COMDLG32_SetCommDlgExtendedError(CDERR_FINDRESFAILURE);
 394             return FALSE;
 395         }
 396         if (!(hDlgTmpl16 = LoadResource16(lpChCol->hInstance, hResInfo)))
 397         {
 398             COMDLG32_SetCommDlgExtendedError(CDERR_LOADRESFAILURE);
 399             return FALSE;
 400         }
 401         hResource16 = hDlgTmpl16;
 402     }
 403     else
 404     {
 405         HRSRC hResInfo;
 406         HGLOBAL hDlgTmpl32;
 407         LPCVOID template32;
 408         DWORD size;
 409         if (!(hResInfo = FindResourceA(COMDLG32_hInstance, "CHOOSE_COLOR", (LPSTR)RT_DIALOG)))
 410         {
 411             COMDLG32_SetCommDlgExtendedError(CDERR_FINDRESFAILURE);
 412             return FALSE;
 413         }
 414         if (!(hDlgTmpl32 = LoadResource(COMDLG32_hInstance, hResInfo)) ||
 415             !(template32 = LockResource(hDlgTmpl32)))
 416         {
 417             COMDLG32_SetCommDlgExtendedError(CDERR_LOADRESFAILURE);
 418             return FALSE;
 419         }
 420         size = SizeofResource(GetModuleHandleA("COMDLG32"), hResInfo);
 421         hGlobal16 = GlobalAlloc16(0, size);
 422         if (!hGlobal16)
 423         {
 424             COMDLG32_SetCommDlgExtendedError(CDERR_MEMALLOCFAILURE);
 425             ERR("alloc failure for %ld bytes\n", size);
 426             return FALSE;
 427         }
 428         template = GlobalLock16(hGlobal16);
 429         if (!template)
 430         {
 431             COMDLG32_SetCommDlgExtendedError(CDERR_MEMLOCKFAILURE);
 432             ERR("global lock failure for %x handle\n", hDlgTmpl16);
 433             GlobalFree16(hGlobal16);
 434             return FALSE;
 435         }
 436         ConvertDialog32To16((LPVOID)template32, size, (LPVOID)template);
 437         hDlgTmpl16 = hGlobal16;
 438     }
 439
 440     ptr = GetProcAddress16(GetModuleHandle16("COMMDLG"), (LPCSTR) 8);
 441     hInst = GetWindowLongA(HWND_32(lpChCol->hwndOwner), GWL_HINSTANCE);
 442     bRet = DialogBoxIndirectParam16(hInst, hDlgTmpl16, lpChCol->hwndOwner,
 443                      (DLGPROC16) ptr, (DWORD)lpChCol);
 444     if (hResource16) FreeResource16(hDlgTmpl16);
 445     if (hGlobal16)
 446     {
 447         GlobalUnlock16(hGlobal16);
 448         GlobalFree16(hGlobal16);
 449     }
 450     return bRet;
 451 }