valuelisteditor 如何实现改变行的颜色

Question

是要任意改变某行的颜色。

Answer 1

procedure TForm1.ValueListEditor1DrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
  if ARow mod 2 = 0 then
  begin
    ValueListEditor1.Canvas.Brush.Color := clYellow;
    ValueListEditor1.Canvas.FillRect(Rect);
  end;
end;

Answer 2

还有一个问题是：valuelisteditor 如何实现想Delphi的 Object inspector 那样伸缩的功能呢？