ColorRequester

Color ››
Parent Previous Next

ColorRequester

Синтаксис

Function ColorRequester(ByVal rgbCurrentUSER As Integer=0, ByVal flag As Integer=2, ByVal hwnd As HWND=0) As COLORREF

Описание

Дает возможность выбирать цвет из диалогового окна.

Параметры

rgbCurrentUSER - Если флажок CC_RGBINIT установлен, член rgbResult определяет выбранный первоначально цвет, когда создается диалоговое окно. Если заданного значения цвета среди доступных цветов нет, система выбирает самый близкий доступный чистый цвет. Если rgbResult - нуль или CC_RGBINIT не установлен, первоначально выбранный цвет черный. Если пользователь щелкает мышью по кнопке OK, член rgbResult устанавливает цвет выбранный пользователем.

flag - Установка битов флажков, которые вы можете использовать, чтобы инициализировать диалоговое окно Цвет (Color). Когда блок диалога возвращает значение, он устанавливает эти флажки, чтобы обозначить ввод данных пользователем. Этот член может быть комбинацией следующих флажков (Для Linux можно использовать только CC_RGBINIT):

hwnd - Указывает родительское окно для диалогового окна

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As long event
Dim As hwnd hwnd=OpenWindow("1",30,30,500,500)
WindowColor(hwnd, ColorRequester() )
Do
  event=WaitEvent()
  If event=EventClose Then End
Loop

Результат

Created with the Personal Edition of HelpNDoc: Full featured Kindle eBooks generator