Virtual Tree View

أهلا أخي أيمن منصور .

أنا من اشد المعجبين بهذا المكون القوي ;)

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, VirtualTrees;

type
  TForm1 = class(TForm)
	VST1: TVirtualStringTree;
	procedure VST1GetNodeDataSize(Sender: TBaseVirtualTree;
	  var NodeDataSize: Integer);
	procedure VST1GetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
	  Column: TColumnIndex; TextType: TVSTTextType;
	  var CellText: WideString);
	procedure FormCreate(Sender: TObject);
  private
	{ Déclarations privées }
  public
	{ Déclarations publiques }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

Type
  PMyRec = ^TMyRec;
  TMyRec = record
	Name: String;
	ID  : Integer;
  end;


procedure TForm1.VST1GetNodeDataSize(Sender: TBaseVirtualTree;
  var NodeDataSize: Integer);
begin
 NodeDataSize := SizeOf(TMyRec);
end;

procedure TForm1.VST1GetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
  Column: TColumnIndex; TextType: TVSTTextType; var CellText: WideString);
var
  Data : PMyRec;
BEGIN
  Data := Sender.GetNodeData(Node);
  Case Column of
	0:  CellText := Data.Name;
	1:  CellText := IntToStr(Data.ID);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
   NewItem : PVirtualNode;
   Data : PMyRec;
   i : Integer;
begin
   VST1.Clear;
   for i := 0 to 10 do
   begin
	 NewItem := VST1.AddChild(Nil);
	 Data	:= VST1.GetNodeData(NewItem);
	 data^.Name := Format('Name %.2d', );
	 data^.ID := i;
   end;  
end;

end.

تحياتي أخي .

السلام عليكم

أرجو منك توضيح الكود الذي كتبته لانه لم يعمل عندي

و إن كان بالامكان قم بارفاق الملف التنفيذي مع الشرح

السلام عليكم و رحمة الله.

لقد قمت برفع مثال عن كيفية إستعمال المكون و قد حاولت فيه إظهار كيفية إظافة عنصر جديد و كيفة حذف عنصر ما و كيفية ترتيب العناصر أرجو أن يكون واضحا و أن تجد فيه مبتغاك :rolleyes:

:bye:

VstTest.zip