Модуль MyItems
Писал для себя, поэтому долго не думал, как назвать :) В модуле описан класс TMyItem, упрощающий работу с TListView в режиме таблицы (ViewStyle - vsReport). type TMyItem=Class(TObject) Caption: String; SubItems: TStrings; constructor Create; destructor Destroy; override; procedure AddValueToItem(Value: String); procedure ApplyColumnWidthsToList(List: TListView); ...more»