Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > строчки разного цвета в TListView

Автор: Fly1410 27.4.2007, 15:09

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

Автор: Fly1410 30.4.2007, 12:46

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

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

Код


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;