Авторазмер столбцов для TListView

Question

Я хочу автоматически изменить размер всех столбцов в TListView.Я использую приведенный ниже код, но он ничего не делает.

ListView1.Columns.Add.Caption := 'Field Name';
ListView1.Columns.Items[0].Autosize := True;

Как я могу автоматически изменять размер столбцов TListView в Delphi.

Я установил ViewStyle to vsReport.

Заранее спасибо

Answer 1

Я получил ответ.Задание ширины столбца равным -1 или -2 решило проблему.

Используйте настройку -1, чтобы задать для заголовка столбца размер самого большого текста подпункта в столбце,

и a -2 для установки размера заголовка столбца в соответствии с размером текста в заголовке столбца.

ListView1.Columns[0].Width := -1 or -2;

Answer 2

Попробуйте это:

// Assign vsReport;    
ListView1.ViewStyle := vsReport; 

  { // Add your items  }

// Assign vsList again;
ListView1.ViewStyle := vsList;