Компонент интересный. С удовольствием почитаю статьи участников. Ссылка на уже существующую статью не открывается. Это только у меня vingrad не отвечает? Где-нибудь ещё эта статья выложена?

Мне удалось открыть эту ссылку только в FairFox`е, IE 7 повесился на ней.

AlexR, ссылки не работают.

Но, как бы там ни было, VirtualTreeView мне более по душе, учитывая, что на нем я могу реализовать весь тот функционал, который есть в EasyListView.

Хм… Что – действительно, прям вот весь функционал, как на вот этих скриншотах:

DetailsView
FilmStripView
GridView
IconView
ListView
SmallIconView
ThumbNailView
TileView

? (Прошу прощения за ехидство.)

На мой взгляд, ни один из них не лучше другого – просто потому, что они для разного сделаны, и прекрасно друг друга дополняют. Если нужная иерархия, да еще и с колонками – тогда VirtualTreeview, если нужны список/таблица/превьюшки – причем, “на лету” переключаемые – то EasyListview.

aktuba: вот прям действительно – можно сделать FilmStrip и ThumbNail? Лукавите.

Разумеется, можно “руками” распределить все по колонкам, а можно обычным StringGrid’ом воспользоваться, а можно еще и без всяких List- и TreeView – просто вообще все самому “руками” отрисовать. А то, что трудоемкость будет во всех трех вариантах примерно одинаковая – ну, так нам же ж больше заняться нечем, кроме как собственные огороды на любой случай городить.

…Отличие дерева от listview в том, что дерево принципиально “заточено” под отображение элементов сверху вниз. То есть – по принципу “один элемент – одна строка”. Строка может быть из одного столбца, может – из нескольких, но факта это не отменяет: один элемент – одна строка. Естественно, можно распределить элементы отображаемого множества не по принципу “один элемент – один node дерева”, а “один элемент – одна колонка одного node’а дерева” – и потом при изменении числа колонок (например – при resize’е контрола) заново перераспределять элементы исходного множества по node’ам/колонкам. И при изменении сортировки. и при вставке/удалении элементов.

ListView же – изначально поддерживает разные способы отображения, как “одна строка – один элемент”, так и “несколько элементов на строку”, и пересчитывает взаиморасположение элементов в “сетке” сам. Причем – в случае FilmStrip – это даже не отображение вида “в ширину сколько влезет – дальше новая строка” – “а в ширину столько, чтоб в высоту влезло без scroll’а”. И в любом случае, где нет явной иерархии (иначе зачем вообще использовать дерево-то, без иерархии?..) – удобней пользоваться именно listview. Всякий инструмент хорошо для собственной области. И я в данном случае говорю не о конкретно EasyListview – а о listview вообще.

Кстати – у EasyListview есть такая интересная возможность, как группировка. То есть – возможность по произвольным характеристикам разбить элементы на группы и показывать их группами (это, конечно, не древовидная иерархия – но возможность весьма полезная). Причем – в зависимости от типа отображения, группы могут показываться как по вертикали, как в дереве, так и по горизонтали.

Так а кто с этим спорит? Ты спросил, можно ли – я сказал “да”.

Я не спрашивал “можно ли, извернувшись и из-под выподверта” – я спрашивал, можно ли это в нем сделать “из коробки” (что “извернувшись и из-под выподверта” можно сделать что угодно – в частности, как я уже сказал, хоть самому “руками” отрисовать – я прекрасно знаю). Ответ – нельзя. Потому что – принципиально только “таблица”.

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

Еще раз повторюсь – должно быть не “каждому свое”, а “каждой задаче – свой инструмент”. Я прекрасно пользуюсь и тем, и другим компонентом в одних и тех же проектах – просто для разного, и не могу сказать, что какой-то из них мне нравится больше, нежели другой. Если иерархия – VirtualTreeview, если таблица/tbumbs – EasyListview. И они прекрасно уживаются.

Но, я считаю, что EasyListView имеет очень ограниченную область применения.

Я же считаю ровно наоборот

В фоторедакторе я столкнулся с кучей багов и глюков компонента – после этого не трогал и не собираюсь, т.к. компонент не годен для серьезной работы.

Давно уже все поправлено.

VT – это не таблица, а заготовка.

Да и EasyListview – то же самое.

И использовать его надо соответственно – именно для этого и сделаны события и редакторы.

Все то же самое и в EasyListview.

Используя его только как таблицу/дерево, вы используете 15-20% функционала.

А вот здесь вот, как мне кажется, Вы уже перегибаете палку, пытаясь как раз “заткнуть VT все дыры” – потому что он – именно что дерево. Да, гиперудобное, да, которое можно сделать таблицей – но все остальные его использования, не в виде дерева (пусть и странно выглядящего в результате собственных доработок под надобности) – выглядят, при наличии более подходящих инструментов, по меньшей мере странно.

…Кстати – а не подскажите ли, а как еще можно использовать VT, кроме как дерево/таблицу? А то у меня что-то даже и фантазия пасует. (Аналог ObjectInspector’а на VT – и прочие в-ту-сторону-ответвления – не предлагать: это тоже дерево, с одноуровневой иерархией (скорей даже – именно группировкой) и редакторами.)

А ListView – это отросток

Еще раз: listview вообще – это совершенно отдельный класс контролов, которые широко используются, например, самой Windows (к примеру – любое окно “Проводника” с файлами – это именно что listview). А если говорить про конкретно EasyListview – то это совершенно самостоятельный проект, никак не зависимый от VT, ничего от него не взявший (общего у них – сама идея виртуальности; ну да ни тот, ни другой родоначальниками оной не являются – любой list-, хоть -box, хоть -view в базовой VCL можно сделать виртуальным; да даже больше – и нижележащие windows’овые контролы – тоже).

Появился EasyListview изначально из попытки сделать набор компонентов, который позволит делать аналоги Windows Explorer’а (VirtualShellTools), не пользуясь контролами самой Windows. Для отображения дерева папок авторы написали наследника от VirtualTreeview, а вот для отображения содержимого папок – свой собственный Listview, который позже выделили в отдельный проект. И ориентируется он по возможностям – на то, чтоб “переплюнуть” по возможностям стандартный listview в “Проводнике” Windows.

без которого в 99,99% случаев можно (а чаще – необходимо) обойтись.

Ну – это, очевидно, у кого какие задачи. Мне вот, например – дерево нужно существенно реже.

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

Для Вашей задачи гораздо лучше подойдет именно EasyListview.
Смотрел и его. В режиме Thumbnails вроде бы то, что нужно, но пока не понял, можно л вместо какртинки отображать скажем, фон нужного цвета, и несколько надписей с учётом нужных цветов, расположения, и так далее…

Понятно, спасибо! Жаль, что по EasyListView нет такого подробного документа как для VT Да вообще в поставке даже описания свойств и методов нет, поэтому сложно сразу понять что к чему…

Kotъ-Begemotъ
Собственно, вопрос первый – а какая версия ELV? Использовать нужно последнюю с svn. Во-вторых – а режим Thumbnail или FilmStrip вообще включен?

…Если мы посмотрим исходный код ELV, то обнаружим, что на пути к вызову OnIntemThumbnailDraw есть такие развилки:

1. if Item.Visible then … – если элемент вообще видим

2. PaintBefore – если создать наследника от ELV и там переопределить PaintBefore, чтоб он сам все рисовал, и возвращал Handled = True, то стандартная отрисовка вызываться не будет _вообще_ (тут, как я понимаю, явно не Ваш случай)

3. if OwnerListview.IsThumbnailView – True вернется, если выстаывлен режим elsThumbnail или elsFilmStrip

То есть – если выполнены условия Item.Visible и ListView.View in [elsThumbnail, elsFilmStrip] – то обработчик вызваться _обязан_. Если не вызывается – скиньте мне тестовый проект.

Odysseos
Поаробовал еще раз. Открыл один из проектов входящих в демо к ELV:
\EasyListview\Demos\Basic\Interfaced (Jim)
и добавил в обработчик OnItemThumbnailDraw следующий код (прекрасно, почему-то работающий, будучи внедрён в другой проект – \EasyListview\Demos\Fulldemo):

procedure TForm1.EasyListview1ItemThumbnailDraw(
Sender: TCustomEasyListview; Item: TEasyItem; ACanvas: TCanvas;
ARect: TRect; AlphaBlender: TEasyAlphaBlender; var DoDefault: Boolean);
var
UnitName: String;
TW, X: Integer;
begin

DoDefault := False;

ACanvas.Brush.Style := bsSolid;
if Item.Index mod 2 = 0 then
ACanvas.Brush.Color := clGreen
else
ACanvas.Brush.Color := clMoneyGreen;

ACanvas.FillRect(ARect);
if Item.Selected then
ACanvas.Font.Color := clRed
else
ACanvas.Font.Color := clBlue;
ACanvas.Font.Style := [fsBold];
uNitName := IntToStr(Item.Index+1);
TW := ACanvas.TextWidth(uNitName);
X := ((ARect.Right-ARect.Left-TW) div 2);
ACanvas.TextOut(ARect.Left+X, ARect.Top+2, uNitName);
end;

Запускаю, генерирую несколько десятков Items, переключаюсь в вид Thumbnail и… ничего. Обработчик OnItemThumbnailDraw не выполняется ((
Могу скинуть проект, подскажите, только на какой адрес.

Вроде немного прояснилось…
Получается вот как:
Если я “на пробу” заполняю список произвольным количеством элементов с помощью
Group.Items.AddVirtual; // то метод ItemThumbnailDraw вызывается корректно.
А вот если я для загрузки своих данных, скажем из БД заполняю создаваемую мной структуру-класс и добавляю элементы в список:
Group.Items.AddInterfaced(UnitData); // метод ItemThumbnailDraw НЕ ВЫЗЫВАЕТСЯ.

Может я что-то не так делаю?

А еще конкретнее, в случае AddInterfaced при “ручной” перерисовке Thumbnails вызывается:

procedure TEasyItemInterfaced.ThumbnailDraw(ACanvas: TCanvas; ARect: TRect;
AlphaBlender: TEasyAlphaBlender; var DoDefault: Boolean);
var
ThumbInf: IEasyThumbnail;
begin
if Supports(DataInf, IEasyThumbnail, ThumbInf) then
ThumbInf.ThumbnailDraw(ACanvas, ARect, AlphaBlender, DoDefault)
end;

И… не отрабатывает. Supports возвращает False.

Kotъ-Begemotъ

Я AddInterfaced не пользовался, но – счас глянул в исходники ELV – и осмелюсь предположить, что Вы при вызове AddInterfaced в первом параметре (который const DataInf: IUnknown) передаете IUnknown от объекта, который не поддерживает IEasyThumbnail – только в этом случае Supports вернет False.

…Собственно – а зачем Вы вообще пользуетесь AddInterfaced, а не обычным Add? То есть – на то имеется какая-то причина (с TEasyItem должны быть связаны именно какие-то интерфейсы), или просто “так захотелось”?

Odysseos
Там перечислены номер ICQ, имя в Google-Talk (оно же – обычное “мыло” на gmail.com) и имя в Jabber’е (это нечто вроде “аськи”, но не “аська”, протокол обмена иной). Проще всего, видимо – послать мне письмо на gmail-овский адрес.
Не видно этой информации. Видно недоступна незарегистрированным в LJ пользователям. Ни аськи ни имени в GT мне не показывает…

Kotъ-Begemotъ

Чтобы вот при таком вызове:

Group.Items.AddInterfaced(UnitData);

сработало все так, как Вы предполагаете, надо класс UnitData объявить вот так:

TUnitData = class(TInterfacedObject, IEasyThumbnail)

, и самому написать методы, которые он отнаслеует от IEasyThumbnail – который там всего один, собственно:

procedure ThumbnailDraw(ACanvas: TCanvas; ViewportRect: TRect; AlphaBlender: TEasyAlphaBlender; var DoDefault: Boolean);

Вот в этом методе самого, таким образом описанного, класса TUnitData, и пишется отрисовка картинка, и Supports вернет True, и метод этот будет вызван.

Odysseos
Спасибо, большое! Сегодня обязательно попробую реализовать это на практике Остаётся “изнутри” метода отрисовки Thumbnail получить доступ к свойствам класса по Item.
Моя аська 413669674 запроса на авторизацию нет.

ссылка с поста только у меня не открывается?

Вроде разобрался…. Но всё равно, не покидает ощущение “странности”, в реализации компонента.

Итак, бился полчаса над задачей.
Имеем

TreeView – свойство Data: Pointer
VirtualTreeView – метод GetNodeData: Pointer;

пишу две процедуры

procedure TfmTest.btnTreeViewClick(Sender: TObject);
var TN: TTreeNode;
begin
TN := TreeView1.Items.AddFirst(nil, ‘First’);
TN.Data := TObject.Create; // положил
ShowMessage(Tobject(TN.Data).ClassName); // вывел, успешно
end;

procedure TfmTest.btnVirtualTreeViewClick(Sender: TObject);
var
NewNode: PVirtualNode;
begin
VT.NodeDataSize := SizeOf(TObject);
NewNode := VT.AddChild(nil, TObject.Create); // положил
ShowMessage(Tobject(VT.GetNodeData(NewNode)).ClassName); // вывел, неуспешно, т.к. по какой-то причине нужно использовать p^
end;

ShowMessage(Tobject(VT.GetNodeData(NewNode)^).ClassName);
Работает превосходно

После разбирательств выяснена причина, в методе GetNodeData:
Result := PByte(@Node.Data) + ….
т.е. реально результат возращает указатель, на указатель!
потому то крышечку и надо ставить

я всё никак не пойму, с какой целью эти танцы с бубном производятся?
неужто, чтобы данные типа record хранить в дереве?
ЗАЧЕМ??