VPF::строчки разного цвета в TListView - Форум программистов

Fly1410

Дата 27.4.2007, 15:09 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 113
Регистрация: 15.7.2006

Репутация: нет
Всего: нет

Сделал что в TListView разные строчки разного цвета(в зависимости от значения в определённом столбце). И хочу ещё что бы при выделении определённой строчки(когда на неё становиться фокус)
цвет строчки становился более ярким/тусклым или ещё как. т.е. я должен видеть и что на данной строчке находиться фокус и видеть какого бы она цвета было если бы на ней фокуса не было.
Я пытался к RGB значению цвета добавлять какое-нибудь число или ноборот отнимать, но ничего не получилось. Как можно это сделать. Вроде кроме RGB(red, green, blue) есть ещё другие цветовые схемы. что за они? и как называются?

Fly1410

Дата 30.4.2007, 12:46 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 113
Регистрация: 15.7.2006

Репутация: нет
Всего: нет

искал что-то типа этого

функция делает цвет более тёмным

Код


function lightUpColor(InputColor:TColor):TColor;
var
   r,g,b: extended;
begin
 r := GetRValue(InputColor);
   g := GetGValue(InputColor);
   b := GetBValue(InputColor);
   // Do the operation
   r := r-((r/255)*50);
   g := g-((g/255)*50);
   b := b-((b/255)*50);
   // Check whether result is in range
  if r > 255 then r := 255;
   if r < 0 then r := 0;
   if g > 255 then g := 255;
   if g < 0 then g := 0;
   if b > 255 then b := 255;
   if b < 0 then b := 0;
   // Send it out
  Result := RGB(byte(Round(r)),byte(Round(g)),byte(Round(b)));
end;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »