CHOOSECOLOR и дополнительные цвета

[A.A.Z.]

Использую код из AG:

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

Dim cc As CHOOSECOLOR, CustomColors() As Byte
cc.lStructSize = Len(cc)
cc.hwndOwner = frmOptions.hWnd
cc.hInstance = App.hInstance
cc.lpCustColors = StrConv(CustomColors, vbUnicode)
cc.flags = 0
If CHOOSECOLOR(cc) <> 0 Then
GetColor = cc.rgbResult
CustomColors = StrConv(cc.lpCustColors, vbFromUnicode)
Else
GetColor = -1
End If

Но получается какая-то ерунда Цвета страшно колбасит, и при этом, иногда, если выбрать один из них, то выдает ошибку (цвет ячейки больше 16777216 ). Помогите, плиз!

[GSerg]

COLORREF - это DWORD. Поэтому объявляй массив из 16 лонгов, а в lpCustColors сувай varptr(lbound)...

[A.A.Z.]

Понял, вроде Спасибо, ща будем пробовать

[A.A.Z.]

Сделал так:

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

Dim cc As CHOOSECOLOR, CustomColors() As Byte
Static Colors(&HF) As Long
cc.lStructSize = Len(cc)
cc.hwndOwner = frmOptions.hWnd
cc.hInstance = App.hInstance
cc.lpCustColors = StrConv(VarPtr(LBound(Colors)), vbUnicode)
cc.flags = 0
If CHOOSECOLOR(cc) <> 0 Then
GetColor = cc.rgbResult
CustomColors = StrConv(cc.lpCustColors, vbFromUnicode)
Else
GetColor = -1
End If

Теперб цвета не колбасит, но ошибка с очень большим числом возникает... Что я не так делаю?

[GSerg]

Ты, вредный человек, почему байты юзаешь, да ещё и через strconv?

[A.A.Z.]

Это не я, это не я, это API-Guide все

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

    Dim CustomColors() As Byte
    Dim cc As CHOOSECOLOR
    Dim Custcolor(16) As Long
    Dim lReturn As Long

    'set the structure size
    cc.lStructSize = Len(cc)
    'Set the owner
    cc.hwndOwner = Me.hwnd
    'set the application's instance
    cc.hInstance = App.hInstance
    'set the custom colors (converted to Unicode)
    cc.lpCustColors = StrConv(CustomColors, vbUnicode)
    'no extra flags
    cc.flags = 0

    'Show the 'Select Color'-dialog
    If CHOOSECOLOR(cc) <> 0 Then
        ShowColor = cc.rgbResult
        CustomColors = StrConv(cc.lpCustColors, vbFromUnicode)
    Else
        ShowColor = -1
    End If

[GSerg]

Кончай фигнёй страдать, а?

[A.A.Z.]

А как надо?

[GSerg]

Dim Custcolor(1 To 16) As Long '(а не 0 To 16 - неужели ты это пропустил? )

cc.lpCustColors as long - переобъявить

cc.lpCustColors = varptr(lbound(custcolor)) - юзать.

[A.A.Z.]

1) в API-Guid'е вверху было Option Base 1
2) OK
3) OK

[Алексей К.]

А как этот диалог засавить по центу формы появляться?
Делал на форме кнопку (по центру формы)
cc.hwndOwner = кнопка.hwnd
все равно в левом верхнем углу появляется.

[alibek]

А причем тут кнопка? Форму родителем объявляй, а не кнопку.

[Алексей К.]

Делал родителем форму (form1.hwnd) - диалог появляется в верхнем в левом углу формы. Возможно ли сделать так, что бы диалог по центру появлялся (centerscreen) и как?