VPF::Выделение цветом нужного item в Listview

Solne4naya

Дата 8.11.2007, 14:44 (ссылка)

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

Загрузка ...

Новичок

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

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

У меня вопрос :
В цикле необходимо двигаться по строкам listview. Порядок следования задается произвольно.
Ту строку, на которой находимся, необходимо выдлить цветом.
Как это сделать!??????
Пробовала

Код


procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean); 
begin 
defaultdraw:=false;
if item.Index=nom
then ListView1.Canvas.Brush.Color:= clred;
defaultdraw:=true;
end;

где nom- индекс нужного итема. объявлен глобально и считывается с поля edit.
Работает как-то странно.... Запуталась совсем smile

Помогите разобраться

Это сообщение отредактировал(а) Solne4naya - 8.11.2007, 14:48

ama_kid

Дата 8.11.2007, 17:06 (ссылка)

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

Загрузка ...

АСУТП-кодер

Профиль
Группа: Комодератор
Сообщений: 1460
Регистрация: 5.3.2007
Где: Москва

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

Solne4naya, может что-нить типа такого:

Код

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
var
 OldColor:TColor;
 ARect:TRect;
begin
 DefaultDraw:=true;
  if Item.Index = 2 then    // Здесь задаем номер нужного итема
   begin
    DefaultDraw:=false;
    OldColor:=Canvas.Brush.Color;
    (Sender as TCustomListView).Canvas.Brush.Color:=clYellow;
    ARect:=Item.DisplayRect(drLabel);
    (Sender as TCustomListView).Canvas.Rectangle(ARect);
    (Sender as TCustomListView).Canvas.TextRect(ARect,ARect.Left+1,ARect.Top,Item.Caption);
    (Sender as TCustomListView).Canvas.Brush.Color:=OldColor;
   end;
end;

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

самурай без меча подобен самураю с мечом, но только без меча

Rennigth

Дата 8.11.2007, 17:11 (ссылка)

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

Загрузка ...

Эксперт

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

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

ama_kid,
А зачем это (Sender as TCustomListView) преобразование? smile

тайный смысл или по привык что Sender в виде TObject-а приходит? ;)

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

(* Honesta mors turpi vita potior *)

ama_kid

Дата 8.11.2007, 17:18 (ссылка)

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

Загрузка ...

АСУТП-кодер

Профиль
Группа: Комодератор
Сообщений: 1460
Регистрация: 5.3.2007
Где: Москва

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

Rennigth, а, ну да smile

Привычка...

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

самурай без меча подобен самураю с мечом, но только без меча

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