Изменение цвета рисунка-шаблона

[Георгий2]

Здравствуйте, уважаемые.

Имеется картинка, пользователь должен иметь возможность изменять её цвет двигая слайдеры R,G и B. Как это реализовать?

Заранее спасибо
Георгий

[Хакер]

Ответ на вопрос "Как это реализовать" зависит от того, как изменения слайдеров влияет на картинку.

В общем случае, рекоммендую посмотреть "Коллекцию филтров" от BV.

[udpn]

самое грустное, что никто не знает, что такое "Коллекция фильтров" от BV )
изменения цвета картинки производится ее разложением в HSV, изменением Hue и сложением обратно в RGB.

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

' ïðåîáðàçóåò RGB â HSV
Private Sub CalcHSV()
    Dim sngRed As Single
    Dim sngGreen As Single
    Dim sngBlue As Single
    Dim sngMx As Single
    Dim sngMn As Single
    Dim sngDelta As Single
    Dim sngVa As Single
    Dim sngSa As Single
    Dim sngRc As Single
    Dim sngGc As Single
    Dim sngBc As Single
    sngRed = mintRed / 255
    sngGreen = mintGreen / 255
    sngBlue = mintBlue / 255
    sngMx = sngRed
    If sngGreen > sngMx Then sngMx = sngGreen
    If sngBlue > sngMx Then sngMx = sngBlue
    sngMn = sngRed
    If sngGreen < sngMn Then sngMn = sngGreen
    If sngBlue < sngMn Then sngMn = sngBlue
    sngDelta = sngMx - sngMn
    sngVa = sngMx
    If sngMx Then
        sngSa = sngDelta / sngMx
    Else
        sngSa = 0
    End If
    If sngSa = 0 Then
        msngHue = 0
    Else
        sngRc = (sngMx - sngRed) / sngDelta
        sngGc = (sngMx - sngGreen) / sngDelta
        sngBc = (sngMx - sngBlue) / sngDelta
        Select Case sngMx
            Case sngRed
                msngHue = sngBc - sngGc
            Case sngGreen
                msngHue = 2 + sngRc - sngBc
            Case sngBlue
                msngHue = 4 + sngGc - sngRc
        End Select
       
        msngHue = msngHue * 60
        If msngHue < 0 Then msngHue = msngHue + 360
    End If
    msngSaturation = sngSa * 100
    msngValue = sngVa * 100
End Sub

' ïðåîáðàçóåò HSV â RGB
Private Sub CalcRGB()
    Dim sngSaturation As Single
    Dim sngValue As Single
    Dim sngHue As Single
    Dim intl As Integer
    Dim sngF As Single
    Dim sngP As Single
    Dim sngQ As Single
    Dim sngT As Single
    Dim sngRed As Single
    Dim sngGreen As Single
    Dim sngBlue As Single
    sngSaturation = msngSaturation / 100
    sngValue = msngValue / 100
    If msngSaturation = 0 Then
        sngRed = sngValue
        sngGreen = sngValue
        sngBlue = sngValue
    Else
        sngHue = msngHue / 60
        If sngHue = 6 Then sngHue = 0
        intl = Int(sngHue)
        sngF = sngHue - intl
        sngP = sngValue * (1! - sngSaturation)
        sngQ = sngValue * (1! - (sngSaturation * sngF))
        sngT = sngValue * (1! - (sngSaturation * (1! - sngF)))
        Select Case intl
            Case 0
                sngRed = sngValue
                sngGreen = sngT
                sngBlue = sngP
            Case 1
                sngRed = sngQ
                sngGreen = sngValue
                sngBlue = sngP
            Case 2
                sngRed = sngP
                sngGreen = sngValue
                sngBlue = sngT
            Case 3
                sngRed = sngP
                sngGreen = sngQ
                sngBlue = sngValue
            Case 4
                sngRed = sngT
                sngGreen = sngP
                sngBlue = sngValue
            Case 5
                sngRed = sngValue
                sngGreen = sngP
                sngBlue = sngQ
        End Select
    End If
    mintRed = Int(255.9999 * sngRed)
    mintGreen = Int(255.9999 * sngGreen)
    mintBlue = Int(255.9999 * sngBlue)
End Sub


код взят из книги
Крейг Дж. К. И Уэбб Дж.
Microsoft Visual Basic 6.0. Мастерская разработчика/Пер. с англ. - М.: Издательский отдел "Русская редакция" ТОО "Channel Trading Ltd.", 1998. - 648 c.: ил. ISBN 5-7502-0127-9

[tyomitch]

Могу посоветовать поставить эту книгу обратно на полку, и заюзать стандартные АПИ ColorRGBToHLS и ColorHLSToRGB

[Денис]

udpn
BV - это один из посетителей этого форума (старожил и модер) Коллекцию фильтров глянь в кирпичах или в его блоге, хотя в блоге врядли ИМХО... В любом случае ты можешь написать ему в личку и спросить про эту коллекцию.

[Хакер]

Денис
Иногда лучше жевать.

http://bbs.vbstreets.ru/viewtopic.php?t=24078 - на первой же странице форума. BV модерит только раздел "Наши проекты" (где и лежит топик), и уже давно здесь почти не появляется. А жаль.

[udpn]

заюзать стандартные АПИ ColorRGBToHLS и ColorHLSToRGB

Балин, книжка Microsoft Press, я и не думал что они могут соврать... ) Да, кстати какие они там стандартные я не знаю, но в API Viewer их нет ) Сейчас посмотрю модули для PowerBasic, но очень сомневаюсь что они будут и там.

[tyomitch]

udpn, а ты лучше на этом форуме посмотри. Тут они есть.

[Георгий2]

Прошёлся по приведённым ссылкам и ColorRGBToHLS в поиске, плюс инфа с этого топика - для меня, ламера, куча сложной информации, буду мучительно разбираться. Всем огромное спасибо! Если возникнут конкретные вопросы, позволю себе побеспокоить общество ещё раз. Спасибо!!!
Георгий