[ListBox] строки разной высоты

[Ship_1]

Здравствуйте всем.
Как многим (или всем) известно, у ListBox есть Style. Этот Style может принимать, в том числе, значения

lbOwnerDrawFixed (список с элементами фиксированной высоты, устанавливаемой свойством ItemHeight);
lbOwnerDrawVariable (список с элементами, которые могут иметь разную высоту).

Так вот. Что-то у меня никак не получается найти: как сделать так, чтобы у этих элементов была разная высота? Киньте, пожалуйста, ссылочку на пример (без лишних наворотов) или скажите, пожалуйста, своими словами где задаётся высота отдельной строки ListBox'а?

[Аватар]

стиль lbOwnerDrawVariable и иже с ним

[Ship_1]

Это-то я понимаю, я не понимаю где задать ширину конкретной строки. Есть ItemHeight, но он задаёт ширину всех строк, даже если стиль lbOwnerDrawVariable.

[evg_m]

Delphi7 Help

lbOwnerDrawVariable The list box is owner-drawn, and items in the list box can be of varying heights. Each time an item is displayed in an lbOwnerDrawVariable list box, two events occur. The first is the OnMeasureItem event. The code for the OnMeasureItem handler can set the height of each item. Then the OnDrawItem event occurs. The code for the OnDrawItem handler draws each item in the list box using the size specified by the OnMeasureItem handler.

type TMeasureItemEvent = procedure(Control: TWinControl; Index: Integer; var Height: Integer) of object;

[Ship_1]

Странная штука. Но работает. Спасибо!