Reference TDrawTextList

  TDrawTextList = class(TCustomDrawList)
  protected
    procedure FontChanged(Sender: TObject); override;
    procedure DrawItem(Index: Integer; var Rect: TRectI; State: TDrawState); override;
  public
    { Create a new text list }
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    { The text of the item index }
    property SelectedText: string read GetSelectedText;
    property Surface;
    property Canvas;
    property MouseDisabled;
    property TopIndex;
    property ItemIndex;
    property SelectCount;
    property Selected;
  published
    { When true the item height follows the font }
    property AutoHeight: Boolean read FAutoHeight write SetAutoHeight default True;
    { The lines of text }
    property Items: TStrings read FItems write SetItems;
    property Align;
    property Anchors;
    property AutoScroll;
    property BorderStyle;
    property Color;
    property DesktopFont;
    property DragKind;
    property DragCursor;
    property DragMode;
    property Enabled;
    property Font;
    property HotTrack;
    property ItemHeight;
    property MultiSelect;
    property ParentBiDiMode;
    property ParentColor;
    property ParentFont;
    property ParentShowHint;
    property PopupMenu;
    property TabOrder;
    property TabStop;
    property OnClick;
    property OnConstrainedResize;
    property OnContextPopup;
    property OnDblClick;
    property OnDragDrop;
    property OnDragOver;
    property OnDrawBackground;
    property OnDrawItem;
    property OnEndDock;
    property OnEndDrag;
    property OnMouseDown;
    property OnMouseMove;
    property OnMouseUp;
    property OnSelectItem;
    property OnResize;
    property OnStartDock;
    property OnStartDrag;
  end;