List Box. Owner Draw.

← →
Маркыч (2003-03-08 09:04) [0]

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); begin TListBox(Control).Canvas.Brush.Style:=bsSolid; if index=TListBox(Control).ItemIndex then TListBox(Control).Canvas.Brush.Color:=clLime else TListBox(Control).Canvas.Brush.Color:=clBlue; TListBox(Control).Canvas.FillRect(rect); Caption:=IntToStr(index)+" of " +IntToStr(TListBox(Control).ItemIndex);

примерно так я издеваюсь над листбоксом, пытаюсь рисовать итемы в ручную. Выделеную зеленым цветом не выделеную синим. и вроде бы работает, но я выбираю одну итему все ровно, выбираю следущую - предыдущая не меняет цвет, i.e. остается зеленой. пожалста подскажите мне где ошибка.

← →
Song (2003-03-08 09:07) [1]

Дык а где ты сам итем рисуешь ? Я вот только вижу смену цвета и очистку клиентской области итема.

← →
Маркыч (2003-03-08 09:19) [2]

ну, блин, я пока тока цвет итема и меняю. пойму в чем мой ерор - исправлю и поду дальше.

← →
Song (2003-03-08 09:45) [3]

Ну дак чтобы было видно что у тебя меняются цвета, надо ещё итемы рисовать этими изменёнными цветами :)

← →
Intell (2003-03-08 15:34) [4]

А ты обойди функцию
if index=TListBox(Control).ItemIndex
then TListBox(Control).Canvas.Brush.Color:=clLime
else TListBox(Control).Canvas.Brush.Color:=clBlue;

или попробуй поработать с ItemIndex - сделай так, что если Index поменялся, то прошлая Index закрашивается.

List Box. Owner Draw. Найти похожие ветки