| Вопрос: Контрол выбора цвета | Добавлено: 10.08.04 11:43 |
Автор вопроса:  Nord
|
| Ответы | Всего ответов: 18 |
|
Номер ответа: 16 Автор ответа: night-roll Вопросов: 36 Ответов: 326 |
Профиль | | #16 | Добавлено: 11.08.04 20:18 |
|
дейсвительно, канетель развели....
для Nord: ты яснее выражайся, а то получиться как плохой поиск в Яндаксе (!) например, это должен быть стандартный диалог выбора цвета, но с примочками, и какими ... Тогда и людям будет понятно, и тебе будет проще 
|
||
|
Номер ответа: 17 Автор ответа: Александр Разработчик Offline Client ICQ: 204034 Вопросов: 106 Ответов: 1919 |
Профиль | | #17 | Добавлено: 12.08.04 09:49 |
| CColorPickerXP | ||
|
Номер ответа: 18 Автор ответа: wishco Вопросов: 17 Ответов: 21 |
Профиль | | #18 | Добавлено: 15.08.04 15:19 |
|
Private Type ChooseColor
lStructSize As Long hwndOwner As Long hInstance As Long rgbResult As Long lpCustColors As String flags As Long lCustData As Long lpfnHook As Long lpTemplateName As String End Type Private Declare Function ChooseColor Lib "comdlg32.dll" Alias "ChooseColorA" (pChoosecolor As ChooseColor) As Long Public Function cvet()  im cc As ChooseColor
im ret As Long
cc.lStructSize = Len(cc) 'При указании хендела доступ к форме временно блокируется, до закрытия вызванного диалога(выбор цвета). cc.hwndOwner = frmSleep.hwnd 'Хендел вызывающей формы. cc.hInstance = App.hInstance cc.flags = 0 'Состояния вызываемого окна. 0-default state. (0-14) шагом = 2 cc.lpCustColors = String$(16 * 4, 0) ret = ChooseColor(cc) 'Вызываем диалог If (ret) Then 'Если была нажата кнопка ОК cvet = cc.rgbResult 'Меняем цвет фона формы на выбранный нами цвет Else cvet = -1 End If End Function |
||