Treeview auf einer HTML

[gordon freeman]

Source:

Delphi-Quellcode:

procedure PrintTreeView(fTop,fLeft: Integer;fItem: TItem); 
var 
  vI: Integer; 
begin 
  Inc(fTop,20);   // Eine Zeile tiefer 
  Inc(fLeft,20);  // Eindrücken 
  for vI:=0 to fItem.Items.Count-1 do 
  begin 
    Canvas.TextOut(fLeft,fTop,fItem.Items[vI].Caption); 
    if fItem.Items[vI].HasSubitems then 
      PrintTreeView(fTop,fLeft,fItem.Items[vI]); 
  end; 
end; 

procedure ButtonKlickTreeViewDrucken ;) 
begin 
  PrintTreeView(20,20,TreeView.Items); 
end;

Ich bin ein armer Delphi-Neuling und scheckt den Algo absolut nicht. Wenn ich das jedoch richtig verstehe, wird hier nur ein Image von dem TreeView gedruckt und zwar mit dem Befehl PrintTreeView(20,20,TreeView.Items); . Das nützt mir, wie schon gesagt herzlich wenig, da ich in dem Treeview Dinge ankllicken können muss.

Tut mir leid, wenn ich Streß mache, cu gordon