| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

перерисовка listbox [D7, WinXP]

John ©   (2005-07-26 17:23:00) 

Значит listbox co стилем  lbOwnerDrawVariable
MultiSelect- false

При selecte которого строка закрашивается в цвет

with Control as TListBox, Canvas do
begin
if selected[index]=true then
 Brush.Color:=clReD;
 Canvas.FillRect(Rect);
 Canvas.TextOut(Rect.Left, Rect.Top,Items[Index]);
end;

Как при этом очистить остальные строки( не в смысле данные
а привести к исходному цвету).

В событие Onclick
используя  Repaint Refresh
сильно мерцает

Или как устронить это мерцание ?

---

Джо   (2005-07-26 17:28:00) [1]

>  [1] Джо ©   (26.07.05 17:27)

То есть, еще, при необходимости добавить проверку на другие состояния в State.
Да, OnDrawItem вызывается, когда это необходимо, в том числе, и для "остальных" строк.

---

Джо   (2005-07-26 17:27:00) [2]

Неверно делаешь. Нужно таким образом:

   Brush.Style := bsSolid;
   if odSelected in State then
   begin
     Brush.Color := clHighlight;
     Font.Color := clHighlightText
   end
   else
   begin
     Brush.Color := clWindow;
     Font.Color := clWindowText
   end;
   FillRect (Rect);


---

Наверх