TListBox.Stye := lbOwnerDrawVariable
procedure TForm2.ListBox1MeasureItem(Control: TWinControl; Index: integer;
var Height: integer);
begin
if Index mod 2 = 0 then
Height := 30
else
Height := 20;
end;
TListBox.Stye := lbOwnerDrawVariable
procedure TForm2.ListBox1MeasureItem(Control: TWinControl; Index: integer;
var Height: integer);
begin
if Index mod 2 = 0 then
Height := 30
else
Height := 20;
end;