Клонирование TListView

[Евгений Корепов]

Задача следующая: есть ListView настроенный в дизайнтайме, во время работы приложения необходимо создавать в runtime и использовать несколько копий ListView. В каждом будет свой контент. 

Не могу придумать элегантное решение. Первый вариант - тупо создавать в runtime и кучей кода настраивать ListView до нужного состояния. Но это лениво ;-) Второй вариант - оставить в приложении настроенный вручную ListView и клонировать его по мере надобности, как то так наверное ListViewDestination.Assign(ListViewSource) ? Третий вариант - сериализация настроек и загрузка их в новые экземпляры ListView.

Заранее благодарю за совет.

[Равиль Зарипов (ZuBy)]

я пользуюсь первым вариантом, создаю такого плана record и использую его для разных вариантов отрисовок

  TmyListViewDrawer = record
    procedure PaintBitmaps(Sender: TObject; Canvas: TCanvas; const ARect: TRectF); // динамическая отрисовка картинок
    procedure PaintHorzBitmaps(Sender: TObject; Canvas: TCanvas; const ARect: TRectF); // динамическая отрисовка картинок (горизонтально LV)
    procedure RestoranDrawer(const Sender: TObject; const AItem: TListViewItem); // отрисовка плиточки

	// настройка LV
	class procedure RestoranConfig(aLV: TListView); static; 
	class procedure BludoConfig(aLV: TListView); static;
	class procedure MenuConfig(aLV: TListView); static;
	// ...

    class procedure RestoranAdd(aLV: TListView; const aTitle, aLocation, aURL: string; const aDistance, aRating: Real;
      const aMinPrice, aDeliveryPrice, aDeliveryTime: integer; const aSale: Boolean); static; // добавление Itema
  end;

плюс в том что можно потом копировать в другие проекты, просто дополняя. а не сидеть и настраивать руками