Решение проблемы совместимости VirtualTreeView с Delphi XE2

Delphi , Компоненты и Классы , TTreeView

Вопрос совместимости компонентов с новыми версиями Delphi является актуальной задачей для разработчиков, использующих язык Object Pascal. В данном случае рассмотрим, как решить проблему совместимости компонента VirtualTreeView с версией Delphi XE2.

Описание проблемы

Пользователи, ищущие компонент VirtualTreeView для использования в Delphi XE2, сталкиваются с проблемой: на официальном сайте доступна загрузка компонента, но пакеты для Delphi XE2 отсутствуют, а установщик не поддерживает эту версию IDE. Кроме того, исходный код доступен только для версий Delphi до 2007 года, которые не поддерживают Unicode.

Подтвержденный ответ

Решение проблемы заключается в использовании исходного кода компонента VirtualTreeView, доступного через систему контроля версий SVN. Для получения кода необходимо использовать клиент SVN и выполнить команду:

svn checkout http://virtual-treeview.googlecode.com/svn/trunk/ virtual-treeview-read-only

Для удобства работы с SVN можно использовать TortoiseSVN, который предоставляет графический интерфейс для работы с репозиториями.

Альтернативный ответ

Существует альтернативный способ получения компонента, который поддерживает Delphi XE2. На странице проекта на Google Code в ревизии 312 доступны пакеты для Delphi XE2. Для получения этих пакетов необходимо перейти на страницу проекта и скачать соответствующие файлы.

Пример кода

После получения исходного кода, вам потребуется скомпилировать его под Delphi XE2. В качестве примера приведем базовый код для создания объекта VirtualTreeView:

unit Unit1;

interface

uses
  Winapi.Windows, System.SysUtils, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,
  VirtualTrees;

type
  TForm1 = class(TForm)
    VirtualTreeView1: TVirtualStringTree;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  Node: PTV_StringNode;
begin
  with VirtualTreeView1.OptionsOwnerDrawn := True do
    begin
      ShowButtons := True;
      ShowHint := True;
      OptionsStringFocused.ShowSelection := True;
      OptionsStringFocused.ShowHint := True;
      OptionsStringFocused.StateIndex := -1;
      ReadStateFromNode := True;
      NodeHeight := 24;
    end;
  with VirtualTreeView1.StateInactive do
    begin
      Fill.Color := clWhite;
      Edge.Color := clHighlight;
      TextColor := clBlack;
      StateIndex := 0;
    end;
  with VirtualTreeView1.StateActive do
    begin
      Fill.Color := clHighlight;
      Edge.Color := clWindowFrame;
      TextColor := clHighlightText;
      StateIndex := 1;
    end;
  with VirtualTreeView1.StateSelected do
    begin
      Fill.Color := clInfoBk;
      Edge.Color := clWindowFrame;
      TextColor := clHighlightText;
      StateIndex := 2;
    end;
  VirtualTreeView1.SetNodeDataLength(TVP_StringData, Length('Item'));
  VirtualTreeView1.SetNodeDataLength(TVP_ImageIndex, SizeOf(Integer));
  VirtualTreeView1.SetNodeDataLength(TVP_Object, SizeOf(TObject));
  VirtualTreeView1.SetNodeDataLength(TVP_IntData, SizeOf(Integer));
  Node := VirtualTreeView1.AddChild(nil, 'Item 1', -1);
  Node := VirtualTreeView1.AddChild(nil, 'Item 2', -1, Node);
  Node := VirtualTreeView1.AddChild(nil, 'Item 3', -1, Node);
end;

end.

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

Заключение

Для решения проблемы совместимости VirtualTreeView с Delphi XE2 необходимо использовать исходный код компонента, доступный в системе контроля версий SVN, и скомпилировать его под нужную версию Delphi. Приведенный пример кода демонстрирует базовое использование VirtualTreeView в проекте на Delphi.

Создано по материалам из источника по ссылке.

Пользователь столкнулся с проблемой совместимости компонента VirtualTreeView для использования в Delphi XE2 и ищет решение этой проблемы.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: TTreeView ::