Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=123729&view=findpost&p=931272 Mon, 28 Nov 2005 21:12:18 +0000 Подобрать цвет шрифта под цвет фона https://forum.sources.ru/index.php?showtopic=123729&view=findpost&p=931272 В зависимости от яркости фона выбирается либо черный либо белый цвет.
Небольшой код:
    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
]]> SCINER Разное (кодинг)