parsers.info - программирование на delphi, парсеры и программы д Голосов: 1 Адрес блога: http://parsers.info Добавлен: 2009-04-21 10:00:26

Модуль MyItems

2012-04-22 13:42:08 (читать в оригинале)

Писал для себя, поэтому долго не думал, как назвать :) В модуле описан класс 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); procedure AddItemToList(List: TListView); procedure ApplyColumnsToList(List: TListView); procedure ItemToMyItem(List: TListView; ItemIndex: Integer); procedure CaptionToMyItem(List: [...]