Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.04;
Скачать: [xml.tar.bz2];




Вниз

ПРИВЕТ ВСЕМ! Не подскажите алгоритмик... 


@andrew   (2002-03-25 16:53) [0]

..., может кто сталкивался: есть панель, цвет которой можно менять, и есть текст на этой панели, цвет которого должен вычислятся в зависимости от цвета панели: либо белый, либо черный (по принципу чтоб был читабильным). Вот собственно алгоритм вычисления цвета текста не подскажите. Всем Спасибо!



Виктор Щербаков   (2002-03-25 17:02) [1]

Примерно так, но глюки с серым цветом. Их надо отдельно убирать.
Label1.Font.Color := RGB(not GetRValue(cl), not GetGValue(cl), not GetBValue(cl));
cl - цвет панели.



Andrews   (2002-03-25 17:05) [2]

Используй RGB-каналы для задания цвета по-идее должно работать, т.е. если цвет плашки R31 G26 B23 то цвет текста вычисляется так R=255-31 G255-26 B255-23



MBo   (2002-03-25 17:07) [3]

просто
Label1.Font.Color:=Panel.color Xor #FFFFFF;



MBo   (2002-03-25 17:09) [4]

пардон $FFFFFF



Виктор Щербаков   (2002-03-25 17:10) [5]

Это всё одно и то же, лучше скажите как ему быть со значениями цвета близкими к (128, 128, 128)



MBo   (2002-03-25 17:19) [6]

ну как-нибудь так
j:=Panel.color;
i:=j Xor $FFFFFF;
k:=i xor j;
if (k and $FF)+((k shr 2) and $FF)+((k shr 4) and $FF)>60
then label1.font.color:=i
else label1.font.color:=clBlack;



AFROLOV   (2002-03-25 17:22) [7]

Можно наложить еще условие чтобы метрика разности цвета фона и цвета текста была больше некоторой величины. В качестве метрики можно взять например |Rf-Rt|+|Gf-Gt|+|Bf-Bt|. В случаях если вышепредложенные подходы не обеспечат должной величины метрики можно в качестве приемлемого решения взять первое полученное с помощью random и удовлетворяющее условию.




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.04;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.021 c
3-9400            koks                  2002-03-04 17:51  2002.04.04  
TQuery.Filter


1-9475            Dimedrol              2002-03-21 10:38  2002.04.04  
Настраиваемый интерфейс


14-9638           1234                  2002-02-23 21:47  2002.04.04  
Очень простая задачка


1-9525            Alex_LG               2002-03-18 06:18  2002.04.04  
Где взять исходники *.pas для стандартных юнитов Дельфи?


1-9564            Sound                 2002-03-23 17:52  2002.04.04  
Как передать данные из одной формы в другую?