Autosize columns for TListView

Question

I want to auto-size all the columns in the TListView. I am using below code, but its not doing any thing.

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

How can i auto-size the columns of TListView in Delphi.

I set my ViewStyle to vsReport.

Thanks in advance

score 24 · Accepted Answer · edited Dec 02 '21 at 07:02

24

I got the answer. Setting the column width to LVSCW_AUTOSIZE or LVSCW_AUTOSIZE_USEHEADER solved the problem.

Use LVSCW_AUTOSIZE setting to set the column header to the size of the largest subitem text in the column,

and a LVSCW_AUTOSIZE_USEHEADER setting to set the column header to the size of the text in the column header.

uses CommCtrl;

ListView1.Columns[0].Width := LVSCW_AUTOSIZE or LVSCW_AUTOSIZE_USEHEADER;

edited Dec 02 '21 at 07:02

dan-gph

answered Dec 03 '10 at 12:24

Bharat

18

Of course, it's better to use the appropriate constants: `ColumnHeaderWidth = LVSCW_AUTOSIZE_USEHEADER;` or `ColumnTextWidth = LVSCW_AUTOSIZE;`. – Uli Gerhardt Dec 03 '10 at 14:03
3

Just wanted to add that this doesn't work if you set the width from the Object Inspector. – Aaron Dec 11 '13 at 17:02
Unfortunately, this overrides the **MinWidth** property. It should be vice versa. – user1580348 Jun 24 '18 at 10:05
should this size be set after every time I add an item or just once? – Armin Taghavizad Jan 16 '19 at 11:01
I've updated the answer to use the constants. – dan-gph Dec 02 '21 at 07:02
I think you just need `LVSCW_AUTOSIZE_USEHEADER`. That will auto-size the column to fit the largest of the header or the items. Or-ing the two constants doesn't appear to work. – dan-gph Dec 09 '21 at 02:37

score 0 · Answer 2 · answered Mar 08 '23 at 15:19

0

Just set columns width to -1

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

answered Mar 08 '23 at 15:19

Zen Of Kursat

score -4 · Answer 3 · edited Mar 19 '16 at 14:27

-4

Try this:

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

  { // Add your items  }

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

edited Mar 19 '16 at 14:27

Undo

answered Mar 18 '16 at 15:43

Churry

This has absolutely nothing to do with the question asked. – Ken White Mar 18 '16 at 17:17

3 Answers3