VPF::Окраска ListView - Форум программистов

andrey_post

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

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

Загрузка ...

Шустрый

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

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

Вообщем есть у меня ListView, есть постоянно изменяющееся значение N от 1 до ListView.Items.Count.

Мне необходимо, что бы все items и SubItems до N оставались окрашены прежним цветом, item со значением N выделялось желтым цветом, а все от Item[N] до Items.Count серым.
Как сие воплотить в жизнь?

ListView Style = Report

Это сообщение отредактировал(а) andrey_post - 7.4.2004, 12:13

--------------------

И что бы там не происходило, не стоит воспринимать жизнь слишком всерьёз, всё равно нам из неё живыми не выбраться!!!

z-END

Дата 8.4.2004, 01:56 (ссылка)

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

Загрузка ...

прафесар™

Профиль
Группа: Комодератор
Сообщений: 3014
Регистрация: 13.3.2003
Где: Венья, Пиетари

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

ну наверное вот такой вариант будет самый простой

Код

procedure TForm1.ListBox1DrawItem (Control: TWinControl; Index: Integer;  Rect: TRect; State: TOwnerDrawState);
begin
 with ListBox1.Canvas do begin
   If Index<N then Font.Color:=clWindowText;
   if Index=N then Font.Color:=clYellow
   if Index >N then Font.Color:=clGray;
   TextRect (Rect, Rect.Left, Rect.Top, ListBox1.Items [Index]);
 end;
end;

ps вообще на форуме этот вопрос неоднократно обсуждался

--------------------

Каждый чилавек пасвоему праф...а памоему НЕТ!

z-END

Дата 8.4.2004, 02:38 (ссылка)

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

Загрузка ...

прафесар™

Профиль
Группа: Комодератор
Сообщений: 3014
Регистрация: 13.3.2003
Где: Венья, Пиетари

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

Упс незнаметил что ListView:)
ну тогда можно так: (но это уже не лучишй вариант) ставиш OwnerDraw:=true и событии OnDrawItem такой код суешь:

Код

procedure TForm1.ListView1DrawItem(Sender: TCustomListView;
  Item: TListItem; Rect: TRect; State: TOwnerDrawState);
var 
 x: Integer;
 S: String;
 L: Integer;
begin
with ListVIew1.Canvas do begin
  If Item.Index < N then Font.Color:=clWindowText;
  if Item.Index = N then Font.Color:=clYellow;
  if Item.Index > N then Font.Color:=clGray;
  TextOut (Rect.Left, Rect.Top, Item.Caption);
  L := 0;
  for x := 0 to   ListVIew1.Columns.Count-1 do
   begin
    if x < Item.SubItems.Count then
    S := Item.SubItems[x] else S:='';
    L := L+ListVIew1.Columns.Items[x].Width;
    TextOut (L, Rect.Top,S);
   end;
end;
end;

ps и все равно че-то похожее на форуме было

блин спать мне уже пора так что может код еще и не рабочий...
че точно не будет работать так это подсветка выделенного элемента (ну это можно обыграть if Item.Selected then ... )

--------------------

Каждый чилавек пасвоему праф...а памоему НЕТ!

andrey_post

Дата 8.4.2004, 06:19 (ссылка)

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

Загрузка ...

Шустрый

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

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

nJIaKca.spb

Огромное спасибо! Код полностью рабочий!!!

--------------------

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