Подобрать цвет шрифта под цвет фона -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [3.147.73.35]

Модераторы: SCINER, B.V.

Подобрать цвет шрифта под цвет фона

SCINER

Сообщ. #1 , 28.11.05, 21:12

Moderator

Рейтинг (т): 228

Думаю может пригодиться.
В зависимости от яркости фона выбирается либо черный либо белый цвет.
Небольшой код:

Function GetRColor(ByVal Color As Long) As Long

Dim R&, G&, B&

R = Color Mod 256

G = (Color \ 256) Mod 256

B = Int(Color / 256 / 256)

'RGB в YUV

Y = 0.299 * R + 0.587 * G + 0.114 * B

U = -(0.147) * R - 0.289 * G + 0.436 * B '+ 128

V = 0.615 * R - 0.515 * G - 0.1 * B '+ 128

GetRColor = IIf(Y < 129, vbWhite, 0)

''YUV в RGB

'R = Y + 1.14 * V

'G = Y - 0.395 * U - 0.581 * V

'B = Y + 2.032 * U

End Function

Если оставить только нужное, получается:

Function GetRColor(ByVal Color As Long) As Long

Dim R&, G&, B&

R = Color Mod 256

G = (Color \ 256) Mod 256

B = Int(Color / 256 / 256)

GetRColor = IIf(0.299 * R + 0.587 * G + 0.114 * B < 129, vbWhite, vbBlack)

End Function

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0982 ] [ 16 queries used ] [ Generated: 26.04.24, 04:15 GMT ]