Pasek wyboru w ListBox

Czy jest możliwość zmiany wysokości paska podświetlającego w ListBox? Mam Tam ustawione zdarzenie OnDrawItem które rysuje tekst i po zmianie wielkości czcionki pasek przycina tekst.

procedure TForm1.ListBox1MeasureItem(Control: TWinControl; Index: Integer;
  var : Integer);
begin
  Height:= 50;
end;

dzięki, ale coś nie działa.

Jak nie działa musi działać to jest zdarzenie OnMeasureItem

Coś jednak nie działa.

Przed:

Po:

Ja również potwierdzić mogę, że działa. I dlatego @parasol45: trzeba przeczytać chociażby wbudowany w IDE help, a nie od razu "smarować" na forum, że nie działa.

Ustaw

ListBox1.Style:=lbOwnerDrawFixed

i teraz możesz sobie dowolnie ustawić ListBox1.ItemHeight

A ponadto

Use OnMeasureItem to write a handler to measure items to be drawn in a list box with a Style property value of lbOwnerDrawVariable.