أعمدة لحزينة Autosize لـ 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 إعداد لتعيين رأس العمود على حجم أكبر نص فرعي في العمود ،

وإعداد -2 لضبط رأس العمود على حجم النص في رأس العمود.

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

Answer 2

جرب هذا:

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

  { // Add your items  }

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