Полный исходный текст на языке C++ для библиотеки (DLL) с моделью блока, открывающего модальное окно выбора цвета средствами Windows API.

  // Открытие модального окна средствами Windows
  #include <windows.h>
  #include <math.h>
  #include <RdsDef.h>
  // Подготовка описаний сервисных функций
  #define RDS_SERV_FUNC_BODY GetInterfaceFunctions
  #include <RdsFunc.h>

  //========== Главная функция DLL ==========
  int WINAPI DllMain(HINSTANCE /*hinst*/,
                           unsigned long reason,
                           void* /*lpReserved*/)
  { if(reason==DLL_PROCESS_ATTACH) // Загрузка DLL
      { // Получение доступа к функциям RDS
        if(!GetInterfaceFunctions())
          RDS_SERV_ERROR_MSGW // Сообщение: старая версия RDS
      }
    return 1;
  }
  //========= Конец главной функции =========


  //============= Модель блока ==============
  extern "C" __declspec(dllexport)
    int RDSCALL ModalWindowTest(int CallMode,
                                RDS_PBLOCKDATA BlockData,
                                LPVOID ExtParam)
  {
  // Макроопределения для статических переменных
  #define pStart ((char *)(BlockData->VarTreeData))
  #define Start (*((char *)(pStart)))
  #define Ready (*((char *)(pStart+RDS_VSZ_S)))
  #define Color (*((RDSINT32 *)(pStart+2*RDS_VSZ_S)))
    // Вспомогательная структура для работы с диалогом цвета
    CHOOSECOLOR cc;
    // Массив дополнительных цветов для диалога
    static COLORREF CustomColors[16]=
                    {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0};
    // Возвращаемое функцией модели значение
    int result=RDS_BFR_DONE;
    // Вспомогательная переменная – результат вызова диалога
    BOOL ok;

    switch(CallMode)
      { // Проверка типа переменных
        case RDS_BFM_VARCHECK:
          if(strcmp((char*)ExtParam,"{SSI}")==0)
            return RDS_BFR_DONE;
          return RDS_BFR_BADVARSMSG;

        // Функция настройки
        case RDS_BFM_SETUP:
          // Установка параметров структуры для работы с диалогом
          memset(&cc,0,sizeof(cc));
          cc.lStructSize=sizeof(cc);
          cc.hwndOwner=rdsGetAppWindowHandle();
          cc.lpCustColors=CustomColors;
          cc.rgbResult=Color;
          cc.Flags=CC_RGBINIT;
          // Уведомление RDS об открытии модального окна
          rdsBlockModalWinOpen(NULL);
          // Вызов диалога
          ok=ChooseColor(&cc);
          // Уведомление RDS о закрытии модального окна
          rdsBlockModalWinClose(NULL);
          if(ok) // Пользователь выбрал цвет
            { // Запись цвета в Color
              Color=cc.rgbResult;
              // Установка этого значения Color по умолчанию
              // (2 – порядковый номер переменной Color в блоке)
              rdsSetBlockVarDefValueByCur(BlockData->Block,2);
              // Возвращаемое значение должно сигнализировать
              // о наличии изменений в схеме
              result=RDS_BFR_MODIFIED;
            }
          break;
      }
    return result;
  // Отмена макроопределений
  #undef Color
  #undef Ready
  #undef Start
  #undef pStart
  }
  //=========================================