listbox - изменение цвета выделеной строки(drawitem)

[Karych]

нужно изменить цвет выделяемой строки в листбоксе

пишим так:

procedure TMainF.sListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
  var
  z,i:integer;

  begin
  i:=strtoint(sLabel3.Caption);
  if i<0 then exit else
  begin
  with slistbox1 do begin
     if selected[i]=true then   begin
       sListBox1.Canvas.Font.Color := clWhite;
       sListBox1.Canvas.Brush.Color := clBlack;
       Canvas.FillRect(Rect);
       Canvas.TextOut(Rect.Left, Rect.Top, (Control as TListBox).Items[index]);
     end;
     end;

     for z:=0 to sListBox1.Items.Count-1 do
         if sListBox1.selected[z]=false then
          begin
       sListBox1.Canvas.Font.Color := clBlack;
       sListBox1.Canvas.Brush.Color := clWhite;
       sListBox1.Canvas.FillRect(Rect);
       sListBox1.Canvas.TextOut(Rect.Left, Rect.Top, (Control as TListBox).Items[index]);
       end;
end;
end;

код работает полность не коректно - при открытии список белый, букв не видно. при выборе записи в листбоксе, шрифт меняется на черный - но посути при выборе следующей строки остается не изменым(те список прорисуется если прогнать выбор по всему списку)

как быть? что у мня не правильно-с рисованием ваще не дружу...

[Аватар]

Анализируйте State. Не понял причем здесь sLabel3 и зачем цикл по всем строкам бокса. Событие вызывается при прорисовке каждой строки бокса и не один раз

[Karych]

sLabel3 хранит у меня выбраную строку(проста там заморочка с ЛистБоксом-нельзя было просто получить итем индекс)

как понять state?

....
i:=strtoint(sLabel3.Caption);
  sListBox1.Canvas.Font.Color := clBlack;
  sListBox1.Canvas.Brush.Color := clWhite;
  sListBox1.Canvas.FillRect(Rect);
  sListBox1.Canvas.TextOut(Rect.Left, Rect.Top, (Control as TListBox).Items[index]);
  with slistbox1 do begin
  if (i>-1) and (selected[i]=true) then
  begin
  sListBox1.Canvas.Font.Color := clWhite;
  sListBox1.Canvas.Brush.Color := clBlack;
  sListBox1.Canvas.FillRect(Rect);
  sListBox1.Canvas.TextOut(Rect.Left, Rect.Top, (Control as TListBox).Items[index]);
  end;
  end;
....

я так переделал, получилось что список сразу прорисовывается, но выбраная строка так и останется черной если выберешь другую(выбрав поочередно все строки, список становиться весь черный) как заставить заново перерисовываться после смены выбраной строки?

[Аватар]

odSelected in State означает, что это выделенная строка. Именно для нее и делать фон и цвет отличным от основного фона и цвета. И sLabel3 не нужно

[Karych]

Вы имеете ввиду

if odSelected in State then
begin
  Canvas.Font.Color := clWhite;
  Canvas.Brush.Color := clBlack;
  Canvas.FillRect(Rect);
  Canvas.TextOut(Rect.Left, Rect.Top, (Control as TListBox).Items[index]);
end;

Так листбокс нечего не отображает и не выбирает...
Ксати есть маленький ньюанс - Листбокс не получает фокуса!

[Аватар]

Листбокс не получает фокуса

Не важно, он все равно прорисовывается. Вы хоть гляньте на стандартный листбокс, какими цветами прорисовываются обычные его строки и выделенная строка, когда фокус на нем. И прорисовывать нужно КАЖДУЮ строку, а не только с odSelected in State. Для этой строки еще можно манипулировать цветом в зависимости от наличия фокуса ввода на контроле

[Аватар]

http://programmersforum.ru/showthrea...hlight=ListBox

[Karych]

спасибо за разъяснения все заработало, только почемуто не могу вам в репу благодарность поставить...