Про VirtualTreeView

[Сергей Смирнов]

Писать подробно про компонент virtualtreeview нет смысла - всё уже написано, но лишний раз напомнить уважаемому сообществу о существовании вполне, на первый взгляд, рабочей версии под Lazarus, думаю, будет не лишним.

Итак, сам компонент, лежащий в Lazarus CCR скорее вводит в заблуждение: там какая-то полурабочая древнятина. На самом деле пакет надо брать с сайта LuiPack. Там есть т.н. preview версия, которую можно скачать и установить, но я сразу взял последние исходники с SVN (внимание!!! - пакет лежит в SVN репозитарии Lazarus CCR в ветке virtualtreeview-unstable).

Текущая версия пакета требует предварительной установки двух пакетов: lclextensions-0.2 и multilog-0.4, которые лежат на том же сайте в разделе downloads или их можно снять с SVN (но уже из репозитария самого LuiPack).

Теперь, всё же, в двух словах о том, что это за компонент. Фактически - это универсальный грид, поддерживающий отображение иерархической древовидной структуры. Разобраться с ним довольно непросто, но, поверьте, научившись работать с этим замечательным компонентом вы будете пихать его практически во все проекты

Очень хорошую статью, скорее даже документацию, про virtualtreeview на русском языке можно найти тут.

[Attid]

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

[Сергей Смирнов]

Там в комплекте демки есть - компиляй на здоровье
Ещё можно скриншоты посмотреть тут.

[Attid]

компилять это еще компонент поставить =)
а галерея рулит =)

[Сергей Смирнов]

компилять это еще компонент поставить =)

Во народ ленивый пошел Это-ж дело нескольких минут, включая скачивание исходников.

[Alexander]

В МСЕ такой компонент тоже не помешал бы

[debi12345]

В МСЕ такой компонент тоже не помешал бы

Имеющийся "там" много чего может - но заполняется и рисуется только в коде.
Мартин говорит "один фиг в рантайме заполняется - нафига тогда мучаться с отрисовкой в дизайне ?"

[Alexander]

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

Если надо создать миллиард вхождений он не выделит на них память,
а только увеличит счётчик.

[RomanS]

Попытался установить дополнительные пакеты для TreeView, c multilog-0.4 проблем не возникло, а вот lclextensions-0.2 возникли проблемы при компиляции, Lazarus выдает ошибку:

Код: Выделить всё

C:\lazarus\components\lclextensions\oleutils.pas(107,50) Error: Call by var for arg no. 3 has to match exactly: Got "LARGE_INTEGER" expected "Int64"

Ошибка в процедуре:

Код: Выделить всё

function TOLEStream.Seek(Offset: Integer; Origin: Word): Integer;
var
  liResult, liOffset : LARGE_INTEGER;
  Res: HRESULT;
begin
  //soFrom* constants are equal to STREAM_SEEK_* constants. Assume it here
  liOffset.LowPart:=Offset;
  liOffset.HighPart:=0;
  Res:=FSrcStream.Seek(liOffset, Origin, liResult); // здесь компилятор ругается
  Result:=liResult.LowPart;
  if Res <> S_OK then
    Raise Exception.Create('TOLEStream - Error while seeking: '+ErrorString(Res));
end;


В чем может быть проблема?

ОС: Win XP SP2
Lasarus 0.9.23/0.9.24
FPC 2.2.1

[ViTality]

RomanS
навскидку:
все написано в сообщении об ошибке: 3й параметр в функции FSrcStream.Seek должен быть int64 а определен как LARGE_INTEGER.
Попробуй в var определить его как int64. Или перед тем как отдавать в функцию FSrcStream.Seek переведи из одного типа в другой. Да и ваще сначала посмотри что это за тип такой LARGE_INTEGER

[Сергей Смирнов]

В чем может быть проблема?

ОС: Win XP SP2
Lasarus 0.9.23/0.9.24
FPC 2.2.1

FPC, идущий в комплекте релиза Lazarus 0.9.24 компиляет у меня всё без проблем.

[debi12345]

Если надо создать миллиард вхождений он не выделит на них память,
а только увеличит счётчик.
==============
А зачем создавать структуры наперед, да еще целый миллиард, а потом париться - не отожрут ли они память ? Для таких дел пишутся БД-программы. Всему своя область применения. ТриВью должен помещать группы элементов в пределах экрана - а вы тут о миллиарде
Опять гонимся за концептуальным идеалом и фичами, которые врядли понадобятся ?

[Alexander]

А зачем создавать структуры наперед, да еще целый миллиард, а потом париться - не отожрут ли они память ? Для таких дел пишутся БД-программы. Всему своя область применения. ТриВью должен помещать группы элементов в пределах экрана - а вы тут о миллиарде

Опять гонимся за концептуальным идеалом и фичами, которые врядли понадобятся ?

Ну почему концептуальными ? Очень много задач, в которых либо неизвестен
размер массива и не хотелось бы столкуться с ограничением в 65535 (файловая
система например), либо с вычисляемыми вещами, которые вообще стоит отрисовывать только у видимых на экране элементов списка/древа.

[debi12345]

Ну почему концептуальными ? Очень много задач, в которых либо неизвестен
размер массива и не хотелось бы столкуться с ограничением в 65535 (файловая
система например),
=============
Ну и причем здесь ТриВью ? Все inodes файловой системы показывать ?

[dymken]

Из SVN что-то не компилируется под Lazarus 0.9.24 (FPC 2.2.0). Пробовал разные ревизии скачивать. Ошибки тоже разные

В последней ревизии такая ошибка:
VirtualTrees.pas(2203,14) Error: There is no method in an ancestor class to be overridden: "TBaseVirtualTree.DoDragMsg(TDragMessage, POINT, TDragObject, TControl, Boolean):LongInt"

В какой-то предыдущей ревизии такой месседж выходит:
VirtualTrees.pas(8950,30) Error: Identifier not found "DirectMaskBlt"

Либы дополнительные поставил.

Может есть у кого нормальный вариант VirtualTreeView под последний релиз Лазаря?
А который не unstable (CCR) что-то тупит иногда сильно - Header толком не пашет и другие досадные ошибки встречаются...

Или может я что-то не так делаю?
Заранее спасибо!