[Izhic]

Нашёл такой текст, а как этим пользоваться понять не могу. У меня при передвижении с multiselect'om происходят ужасные полосы. Вероятно да так и есть когда происходит exchange сначала становится фоновым цвет, а далее я снова выделяю. Как вариант может как то отключить снятие селектов при exchange'е можно?

Предположим ListBox имеет в своем списке два элемента, элемент 0 имеет фокус, активен другой компонент и вы щелкаете на элементе 1. При этом происходит *ПЯТИКРАТНЫЙ* вызов OnDrawItem, смотрите сами изменения состояний двух элементов:

Index State
0 [odSelected, odFocused]
0 [odSelected]
0 []
1 [odSelected]
1 [odSelected, odFocused]

В случае единственного элемента в списке ListBox получается конфуз, поскольку при щелчке на нем вы получаете тот же самый сценарий, только вместо двух индексов присутствует один, нулевой.
Имея эту информацию, вы можете минимизировать количество вызовов процедуры отрисовки. Для примера, в не-multi-select ListBox, элемент не нужно отрисовывать, если его состояние = [odSelected], поскольку это состояние всегда сопровождается НЕ selected НЕ focused, или ОДНОВРЕМЕННО selected и focused. В этом вам поможет технология отслеживания в обработчике OnDrawItem предыдущего отрисованного элемента, и если предыдущий запомненный элемент равен текущему, то отрисовывать его необязательно, например:

...
const
LastIndex: LongInt = -1;
begin
IF Index = LastIndex THEN
...
ELSE
...
LastIndex := Index;
end;

Я покавот так вот сделал, в принципе тоже самое что и вообще ни чего не писать:

with (Control as TListBox).Canvas do
begin

if odSelected in State then
begin
Brush.Color:=rgb(88,88,255);
end
else
begin

Brush.Color:=clBlack;
Font.Color:=rgb(0,255,0);
end;
Windows.FillRect(Handle,Rect,Brush.Handle);
TextOut(Rect.Left,Rect.Top,(Control as TListBox).Items[Index]);
end;