Как вызвать стандартную форму для выбора цвета?..

[cashman]

Как вызвать стандартную форму для выбора цвета?..

[ALX_2002]

Через стандартный Common Dialog

Тема обсуждалась миллионы раз...

[Ramzes]

Код: Выделить всё

Commondialog1.showcolor

А потом для примера зададим цвет лебы

Код: Выделить всё

label1.BackColor = CommonDialog1.Color


[A.A.Z.]

CommonDialog suxxx

Код: Выделить всё

Private Declare Function CHOOSECOLOR Lib "comdlg32.dll" Alias "ChooseColorA" (pChoosecolor As CHOOSECOLOR) As Long

Private Type CHOOSECOLOR
    lStructSize As Long
    hwndOwner As Long
    hInstance As Long
    rgbResult As Long
    lpCustColors As String
    flags As Long
    CustData As Long
    lpfnHook As Long
    lpTemplateName As String
End Type

Private Function ShowColor() As Long
    Dim cc As CHOOSECOLOR
    Dim Custcolor(16) As Long
    Dim lReturn As Long
    cc.lStructSize = Len(cc)
    cc.hwndOwner = Me.hwnd
    cc.hInstance = App.hInstance
    cc.lpCustColors = StrConv(CustomColors, vbUnicode)
    cc.flags = 0
    If CHOOSECOLOR(cc) <> 0 Then
        ShowColor = cc.rgbResult
        CustomColors = StrConv(cc.lpCustColors, vbFromUnicode)
    Else
        ShowColor = -1
    End If
End Function

Sub Form_Load()
    Dim NC&
    NC = ShowColor
    If NC = -1 Then MsgBox "Отмена" Else MsgBox NC
End Sub

[Александр80]

Как вызвать стандартную форму для выбора цвета?..

Мне кажется лучше через Commondialog1.showcolor
A.A.Z. - API дело хорошее, но Commondialog1 ничем не хуже...

[Ramzes]

Как вызвать стандартную форму для выбора цвета?..

Мне кажется лучше через Commondialog1.showcolor
A.A.Z. - API дело хорошее, но Commondialog1 ничем не хуже...

полностью согласен

[Александр80]

[Amed]

Common Dialog sucks, и я согласен с A.A.Z.!
Контролы, ocx'ы... Бр-р...

Теб более, что и кода-то всего ничего! )

[Ramzes]

О вкусах спорят

[A.A.Z.]

1) Приходится таскать за собой контрол
2) Comdlg жутко глючный. Однажды на CD1.ShowFont он мне мило так сказал "Шрифты не установлены. Для их установки воспользуйтесь папкой Fonts" и вырубил прогу С API такого не происходит

[Александр80]

2) A.A.Z. - а так не пробовал...

me.CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects
me.CommonDialog1.ShowFont
И этого "Шрифты не установлены. Для их установки воспользуйтесь папкой Fonts" не будет

1) Если лень таскать контрол, то можно и через API...

[A.A.Z.]

2) Пробовал, пробовал Не совсем уж тупой

[Александр80]

2) Пробовал, пробовал Не совсем уж тупой

Не обижайся, я знаю, что ты не тупой... По идее должно было помочь... Я почти всегда использую CommonDialog1. Мне он нравится...

[Amed]

1) Приходится таскать за собой контрол

В какой версии Windows MsCDC 6.0 уже стоят? C 98 или всё-таки позже? Думаю, что 90-95% случаев можно и не таскать... Кстати, COMDLG32.ocx всего 138 кб весит... А в раре всего 55...

[Александр80]

Точно...

[A.A.Z.]

И все равно, если можно обойтись без контрола (тем более, таким небольшим куском кода), почему бы этого не сделать?

[Amed]

Я полностью согласен

[Eugenio]

Есть предложение. Контрол - это все-таки как-то... Таскать его, действительно. И изменить в нем ничего нельзя. А я вот давно нашел и юзаю класс, в котором инкапсулированы все эти API - до полной совместимости с кодом, использующим контрол! Но при этом - меняй что хочешь!
Это было в приложении к книге Getz'а и Gilbert'а. Вот:

[A.A.Z.]

А это есть в любом API-Guid'е

[cashman]

По большому счету, мне нужно сделать выбор из 3-х основных цветов + "без цвета".
Может для этого Common Dialog - более чем нужно...
Может есть проще контролл (или другая реальзация), или как альтернатива только API?...

[Amed]

Оно?

[cashman]

Почти:
цветов слишком много и основное нет "без цвета" (т.е. устанавливается по умолчанию).
Да, у меня не получилось изменить размера основного окна контрола.