Использование пользовательских кнопок и поддержка RTL bidi в VST

Delphi , Синтаксис , Деревья

TVirtualStringTree — это компонент, который используется для отображения иерархических данных в виде древовидной структуры. Одной из особенностей этого компонента является наличие кнопок «[-]» и «[+]», которые используются для раскрытия/сворачивания веток дерева. Однако иногда может возникнуть необходимость использовать собственные кнопки вместо стандартных. В этой статье мы рассмотрим, как это можно сделать, а также как обеспечить поддержку RTL bidi режима.

Проблема

Пользователь хочет использовать собственные кнопки (изображения) вместо стандартных кнопок «[-]» и «[+]» в TVirtualStringTree. Кроме того, он хочет, чтобы эти кнопки поддерживали RTL bidi режим.

Решение

Для решения этой проблемы мы можем использовать свойство ButtonStyle компонента TVirtualStringTree. Это свойство определяет стиль кнопок, которые отображаются в дереве. Одним из доступных стилей является bsTriangle, который отображает кнопки в виде треугольников. Однако этот стиль не поддерживает RTL bidi режим.

Если нам нужно использовать собственные изображения кнопок, мы можем изменить ресурсы VT_XPBUTTONMINUS и VT_XPBUTTONPLUS на нужные нам изображения. Кроме того, нам нужно установить свойство ButtonFillMode в значение fmShaded, чтобы кнопки отображались с заливкой.

Для поддержки RTL bidi режима мы можем создать класс-потомок TVirtualStringTree и переопределить процедуру PaintNodeButton. В этой процедуре мы можем нарисовать свои собственные кнопки в зависимости от направления текста.

Пример кода на Object Pascal (Delphi):

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;

type
  TForm1 = class(TForm)
    VT: TVirtualStringTree;
    procedure FormCreate(Sender: TObject);
    procedure VTInitChildren(Sender: TBaseVirtualTree; Node: PVirtualNode; var ChildCount: Cardinal);
    procedure VTInitNode(Sender: TBaseVirtualTree; ParentNode, Node: PVirtualNode; var InitialStates: TVirtualNodeInitStates);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  VT.RootNodeCount := 10;
  VT.TreeOptions.PaintOptions := VT.TreeOptions.PaintOptions + [toUseExplorerTheme];
  VT.OnInitNode := VTInitNode;
  VT.OnInitChildren := VTInitChildren;
end;

procedure TForm1.VTInitChildren(Sender: TBaseVirtualTree; Node: PVirtualNode; var ChildCount: Cardinal);
begin
  ChildCount := 3;
end;

procedure TForm1.VTInitNode(Sender: TBaseVirtualTree; ParentNode, Node: PVirtualNode; var InitialStates: TVirtualNodeInitStates);
begin
  Include(InitialStates, ivsHasChildren);
end;

end.

В этом примере мы создаем форму с компонентом TVirtualStringTree. В обработчике события FormCreate мы устанавливаем количество корневых узлов дерева, включаем использование стиля Windows Explorer и назначаем обработчики событий OnInitNode и OnInitChildren.

В обработчике события OnInitNode мы устанавливаем флаг ivsHasChildren для каждого узла, чтобы указать, что у него есть дочерние элементы.

В обработчике события OnInitChildren мы устанавливаем количество дочерних элементов для каждого узла.

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

Пользователь хочет использовать собственные кнопки (изображения) вместо стандартных кнопок «[-]» и «[+]» в TVirtualStringTree и сделать их поддерживающими RTL bidi режим.

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

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

:: Главная :: Деревья ::