Как обновить иконки у VirtualStringTree

[AnalogXP]

Как обновить иконки узлов?
Пока что загружаю узлы заново. А в рантайме не могу.

[mihali4]

VirtualStringTree

Это что ж за зверь такой? Я у себя в семерке такого не нашел...
Наверное, вы какую-то дополнительную библиотеку ставили?

[Баламут]

Я, например так сделал... Причесывать код лениво, но тут в принципе не много.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, VirtualTrees, RzButton, ImgList, ExtCtrls, RzPanel;

type TData = record
  data1: string;
  ImIndex: integer;
end;

PData = ^TData;

type
  TForm1 = class(TForm)
    RzToolbar1: TRzToolbar;
    ImageList1: TImageList;
    BtnNew: TRzToolButton;
    BtnOpen: TRzToolButton;
    Tree1: TVirtualStringTree;
    procedure FormCreate(Sender: TObject);
    procedure BtnNewClick(Sender: TObject);
    procedure Tree1GetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
      Column: TColumnIndex; TextType: TVSTTextType; var CellText: WideString);
    procedure Tree1GetImageIndex(Sender: TBaseVirtualTree; Node: PVirtualNode;
      Kind: TVTImageKind; Column: TColumnIndex; var Ghosted: Boolean;
      var ImageIndex: Integer);
    procedure BtnOpenClick(Sender: TObject);
  private
    NewNode: PVirtualNode;
    TreeData: PData;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BtnNewClick(Sender: TObject);
begin
NewNode := Tree1.AddChild(nil, nil);
TreeData := Tree1.GetNodeData(NewNode);
TreeData^.data1 := 'Проверка';
end;

procedure TForm1.BtnOpenClick(Sender: TObject);
begin
TreeData := Tree1.GetNodeData(Tree1.FocusedNode);
TreeData^.ImIndex := 2;
Tree1.RepaintNode(Tree1.FocusedNode);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Tree1.NodeDataSize := SizeOf(TData); 
end;

procedure TForm1.Tree1GetImageIndex(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Kind: TVTImageKind; Column: TColumnIndex;
  var Ghosted: Boolean; var ImageIndex: Integer);
var
  TreeData: PData;
begin
TreeData := Sender.GetNodeData(Node);
case Column of
  0: ImageIndex := TreeData^.ImIndex;

end;
end;

procedure TForm1.Tree1GetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
  Column: TColumnIndex; TextType: TVSTTextType; var CellText: WideString);
 var
  TreeData: PData;
begin
TreeData := Sender.GetNodeData(Node);
case Column  of
  0: CellText := TreeData^.data1;
end;
end;

end.

[Баламут]

Сообщение от mihali4

Это что ж за зверь такой? Я у себя в семерке такого не нашел...

Нет его там, но очень рекомендую! Бесплатный и очень хороший TreeList. Правда несколько сложноват кажется при первом знакомстве... Но черт меня подери, он того стоит!

[AnalogXP]

Баламут, спасибо, помогло.