Tree drucken

[moritz]

Hallo

Also, ich gehe mal davon aus dass du das gesamte TreeView drucken willst. Dann musst du einen Algo schreiben, der in etwa so aussieht (Ist aus der Luft gegriffen):

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;

Also in etwa so, dann natürlich das Canvas mit dem von dem Drucker tauschen, evtl. neue Seite anfangen usw. Das musst du dann einbauen, dass hier ist nur die grobe Struktur.

Gruß