перерисовка listbox

← →
John (2005-07-26 17:23) [0]

Значит 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:27) [1]

Неверно делаешь. Нужно таким образом:
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);

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

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

перерисовка listbox Найти похожие ветки