Color Wheel control / Использование ColorSelectClass

ColorSelect control

Так вот. Я думаю, многие из читающих сей текст (а их я думаю не меньше 99%) видели этот замечательный контрол при выборе цвета чего либо, например при изменении цвета в Палитре Цветов или Схем. Представляет он собой некую окружность заполненную всеми возможными оттенками цветов (на самом деле, не всеми, а только лишь различными комбинациями rgb). Кроме того, эта окружность пересечена двумя перпендикулярными линиями, на их пересечении находится выбранный оттенок цвета. Справа же мы видим прямоугольник с градациями этого цвета. По понятным причинам, мне очень захотелось использовать этот контрол в программе SysColors.

После некоторого шаманства с XRay я выяснил что зовут его, как и следовало догататься, ColorSelectClass. Дальнейшие попытки выяснить, что это за класс такой и где он обитает, привели меня в Undocumented features of OS/2 (os2undoc.inf|63661|15/06/98). Оттуда я узнал что: The color wheel control used by the Solid and Mixed Color Palette object is a publicly registered window class within OS/2, but is undocumented, что подразумевает примерно следующее:

Выбор цвета является публично (?) зарегистрированным классом, используется в Палитре Смешанных и Чистых цветов, но недокументирован.

#define CLM_SETCOLOR    0x0602 // 0x1384
#define CLN_USERCOLOR   0x0601 // 0x130C

Использование ColorSelect

Теперь, когда все точки над i расставлены, мы можем использовать Выбор Цвета в наших программах. Как наиболее логичный путь, мы определим этот контрол в качестве элемента диалога и предоставим ему (диалогу) самому разбиратся с ним (Выбором Цвета).
А определим мы его так:

CONTROL "Text?", IDD_COLORSELECT, 1, 1, 200, 120,
"ColorSelectClass", WS_VISIBLE

А теперь представим себе, как мы будем управлять Выбором цвета:

MRESULT EXPENTRY MainDialogProc( HWND hwnd,
                                 ULONG msg,
                                 MPARAM mp1,
                                 MPARAM mp2)
{
   switch (msg)
   {
   case WM_INITDLG:
      /*      ...       */
      WinSendDlgItemMsg( hwnd, IDD_COLORSELECT,
           CLM_SETCOLOR, (MPARAM)aSysClr[0], (MPARAM)0L );
      /*      ...       */
      break;
   case CLN_USERCOLOR:
      if( iClrNumber < 0 ) break;
      aSysClr[iClrNumber] = (LONG)mp1;
      /*       ...       */
      break;
   /*    ...     */
   }
   return ( WinDefDlgProc( hwnd, msg, mp1, mp2 ) );
}

HAB      hab; /* ОН нам нужен здесь. */

int main()
{
    HMQ          hmq;
    QMSG         qmsg;
    HMODULE      hmWpConfig;
    CHAR         szError[256];
    HWND         hwndFrame;

    hab = WinInitialize( 0 );
	if( !hab ) return ( -1 );
    hmq = WinCreateMsgQueue( hab, 0 );
	if( !hmq ) return ( -1 );

/* Загружаем... */
    DosLoadModule( szError, 256, "WPCONFIG", &hmWpConfig );

/* Запускаем... */
    hwndFrame = WinLoadDlg( HWND_DESKTOP,
                            HWND_DESKTOP,
                            ( PFNWP )MainDialogProc,
                            NULLHANDLE,
                            IDR_MAINDIALOG,
                            NULL );

    if( !hwndFrame ) return ( -1 );

    while ( WinGetMsg( hab, &qmsg, NULL, 0, 0 ) )
            WinDispatchMsg( hab, &qmsg );

/* Выгружаем... */
    DosFreeModule ( hmWpConfig );

    WinDestroyWindow( hwndFrame );
    WinDestroyMsgQueue( hmq );
    WinTerminate( hab );
    return ( 0 );
}

SYSCLR.C
SYSCLR.RC
SYSCLR.H
SYSCLR.DEF
SYSCLR.MAK