Отрисовка ListBox: при нажатии на элемент не происходит выделение

@artemka2008 · Регистрация: 27.09.2013

Author24 — интернет-сервис помощи студентам

почему при нажатии на элемент ListBox'a не происходит выделение?

Delphi

procedure TForm1.pl1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
 
with (Control as TListBox).Canvas do
 begin
   brush.Color := clBtnFace;
   font.Color := $00B1B1B1;
   font.Style := [];
   font.Name := 'tahoma';
   font.Size := 8;
   pl1.ItemHeight := 15;
   fillrect(rect);
   textout(rect.Left+5, rect.Top,inttostr(index+1)+'  '+
            pl1.Items[index]);
 
    if ((State = [odSelected, odfocused]) or (State = [odSelected])) then
    begin
 
   brush.Color := clBtnFace;
   font.Color := clblack;
   font.Style := [fsbold];
   font.Name := 'tahoma';
   font.Size := 8;
  textout(rect.Left+5, rect.Top,inttostr(index+1)+'  '+
            pl1.Items[index]);
 
 end
end;
end;

Добавлено через 16 минут
исправил, можно удалять

@FIL · 06.10.2013, 14:59

У меня работает.
pl1.Style -> lbOwnerDrawFixed установлено?

@artemka2008 · 06.10.2013, 15:01 **[ТС]**

Сообщение от FIL

У меня работает.
pl1.Style -> lbOwnerDrawFixed установлено?

это разумеется установлено, проблема была в том, что не всегда срабатывало выделение, выделенный итем так и оставался серым, просто переписал условие и все заработало

@FIL · 06.10.2013, 15:02

Можно так записать:

Delphi

1	if (odFocused in State) or (odSelected in State) then

@artemka2008 · 06.10.2013, 15:03 **[ТС]**

Сообщение от FIL

Можно так записать:

Delphi

1	if (odFocused in State) or (odSelected in State) then

я так и сделал:

Delphi

1 2	if ((odSelected in State) and (odfocused in state)) or (odselected in state) then

@FIL Модератор 3490 / 2613 / 741 Регистрация: 19.09.2012 Сообщений: 7,974
	06.10.2013, 14:59	2
	У меня работает. pl1.Style -> lbOwnerDrawFixed установлено? 0

@artemka2008 191 / 50 / 10 Регистрация: 27.09.2013 Сообщений: 516 Записей в блоге: 4
	06.10.2013, 15:01 [ТС]	3
	Сообщение от FIL У меня работает. pl1.Style -> lbOwnerDrawFixed установлено? это разумеется установлено, проблема была в том, что не всегда срабатывало выделение, выделенный итем так и оставался серым, просто переписал условие и все заработало 0

	06.10.2013, 15:03