Разложение цвета на R,G,B

[Ruslan Demidow]

Подскажите плиз (а ещё лучше покажите ) алгоритм/процедуру разложения значения цвета (Long) на цвета R,G,B.

[RayShade]

Поиском по old.vbstreets.org

Там это обсуждалось.

[GAGArin]

Оно кажется просто переменная состоящая из трез байтов. Которые соответственно и помнят каждый цвет. Разложить можно смещением байтов, или просто мат. операциями.
Где какой цвет будешь разбираться сам.
Я только обьясню как вычленить все три.

Делим число на 65536 (кажется) нацело естественно. И получаем первый байт с первым цветом.

Теперь множим полученное число на 65536 и вычитаем из данного числа. Полученое число (это два оставшихся байта) делим на 256 (нацело) и получаем второй байт.

Из того числа которое означает два последних байта вычитаем второй бай помноженный на 256. получаем третий байт.

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

'rgb as long искомый цвет
r = rgb/65536
g = (rgb-r*65536)/256
b = (rgb-r*65536)-g*256


Я давно не пишу на VB так что могут быть ошибки, в коде "/" это целочисленное деление. Так что как и что пусть поправят профи, а опщая суть такая.

[Ruslan Demidow]

Всем ответившим - спасибо.

[alibek]

GAGArin, красивее и быстрее использовать маску, cGreen = (cColor And &h00ff00&) / 256&

[Ruslan Demidow]

GAGArin, красивее и быстрее использовать маску, cGreen = (cColor And &h00ff00&) / 256&

Alibek, а покажи, плиз, свой код для ражложения на цвета с использованием маски.
Спасибо.

[Ruslan Demidow]

Я всё это к чему спрашиваю?
Мне хочется в richtextbox'е сделать инверсию выбранного участка текста. Если есть более лёгкий способ сделать цвет инверсным в контроле (без преобразования в RGB и обратно), то буду рад узнать об этом.

[alibek]

Color = (Not (Color)) And &h00FFFFFF& - инвертирование

Red = (Color And &h0000FF&)
Green = (Color And &h00FF00&) / 256&
Blue = (Color And &hFF0000&) / 65536&

[Ruslan Demidow]

Color = (Not (Color)) And &h00FFFFFF& - инвертирование

Red = (Color And &h0000FF&)
Green = (Color And &h00FF00&) / 256&
Blue = (Color And &hFF0000&) / 65536&

Спасибо большое, самое то!
Только вот загвоздка у меня с BackColor выделенного текста.
Нашёл только .BackColor, но это свойство всего текста, а мне надо выделенного текста. Как сделать?

[GAGArin]

GAGArin, красивее и быстрее использовать маску, cGreen = (cColor And &h00ff00&) / 256&

Alibek, а покажи, плиз, свой код для ражложения на цвета с использованием маски.
Спасибо.

Да я знал что можно цвет выделить так, но не знал как

[Faust]

Я всё это к чему спрашиваю?
Мне хочется в richtextbox'е сделать инверсию выбранного участка текста. Если есть более лёгкий способ сделать цвет инверсным в контроле (без преобразования в RGB и обратно), то буду рад узнать об этом.

Я так понял, в данном случае необходима инверсия "как в блоке" - т.е. цвет текста заменить цветом фона, и наоборот? Тогда если A=ActiveColor, B=BackColor, то определяешь C=A Xor B и рисуешь им соответственно как XOR Pen'ом в нужном месте.[/code]

[Ruslan Demidow]

Ты не понял. Мне не рисовать нужно, а чтобы слово, которое я захочу, отображалось инверсным.

[tyomitch]

Кстати, самый простой способ инвертировать цвет Color - это Color Xor vbWhite. Безо всяких масок и т.п.

[Ruslan Demidow]

Кстати, самый простой способ инвертировать цвет Color - это Color Xor vbWhite. Безо всяких масок и т.п.

А если пользователь у меня может менять в установках по умолчанию не только цвет шрифта текста, но и фон для richtextedit'а?
Т.е. например если фон белый, цвет шрифта чёрный - то пойдёт.
А если юзеру нравится читать текст белыми буквами на чёрном фоне?
То, мне кажется инвертированного текста он не увидит.

[TEH3OP]

Кстати, самый простой способ инвертировать цвет Color - это Color Xor vbWhite. Безо всяких масок и т.п.

А если пользователь у меня может менять в установках по умолчанию не только цвет шрифта текста, но и фон для richtextedit'а?
Т.е. например если фон белый, цвет шрифта чёрный - то пойдёт.

Дык, тады вместе с цветом текста, и цвет фона инвертируй.
А если у тебя отдельно мона цвет фона и цвет текста менять, то уж простите, если твой юзверь додумается чёрный шрифт на белый поменять при белом цвете фона -- это его проблемма, а не твоя!!! ;-)

А вот разложить цвет на составляющие, можно и так (кстати это наиболее быстрый способ):

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

'Создай проект без форм с одним модулем. И встав в него этот код.

Option Explicit
Public Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (ByRef Destination As Any, ByRef Source As Any, ByVal Length As Long)

Public Type RGBColors
    rgbRed As Byte
    rgbGreen As Byte
    rgbBlue As Byte
    rgbReserved As Byte
End Type

Public Sub Main()
    Dim lngColor As OLE_COLOR
    Dim udtRGB As RGBColors
   
    lngColor = VBA.RGB(188, 81, 204)
   
    CopyMemory udtRGB, lngColor, 8
   
    'В Immediate будет это: "188 | 81 | 204"
    Debug.Print udtRGB.rgbRed; "|"; udtRGB.rgbGreen; "|"; udtRGB.rgbBlue
End Sub



[tyomitch]

Кстати, самый простой способ инвертировать цвет Color - это Color Xor vbWhite. Безо всяких масок и т.п.

А если пользователь у меня может менять в установках по умолчанию не только цвет шрифта текста, но и фон для richtextedit'а?
Т.е. например если фон белый, цвет шрифта чёрный - то пойдёт.

Дык, тады вместе с цветом текста, и цвет фона инвертируй.

Собственно, по-моему так изначально задача и ставилась: проинвертировать весь регион текста, т.е. и шрифт, и фон.

А вот разложить цвет на составляющие, можно и так (кстати это наиболее быстрый способ):

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

'Создай проект без форм с одним модулем. И встав в него этот код.

Option Explicit
Public Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (ByRef Destination As Any, ByRef Source As Any, ByVal Length As Long)

Public Type RGBColors
    rgbRed As Byte
    rgbGreen As Byte
    rgbBlue As Byte
    rgbReserved As Byte
End Type

Public Sub Main()
    Dim lngColor As OLE_COLOR
    Dim udtRGB As RGBColors
   
    lngColor = VBA.RGB(188, 81, 204)
   
    CopyMemory udtRGB, lngColor, 8
   
    'В Immediate будет это: "188 | 81 | 204"
    Debug.Print udtRGB.rgbRed; "|"; udtRGB.rgbGreen; "|"; udtRGB.rgbBlue
End Sub



Не наиболее быстрый. С PutMem4 точно быстрее, а с LSet, скорее всего, ещё быстрее.
И ещё: тут CopyMemory udtRGB, lngColor, 8 - должна быть четвёрка вместо восьмёрки.

[Ruslan Demidow]

Цвет фона можно задать только общий, не для отдельного слова, а мне нужно отдельного. Но я уже решил эту задачу с помощью tyomitch'а, за что ему ещё раз спасибо.