Die Anordnung der Elemente funktioniert jetzt zu vollster Zufriedenheit.
Das nächste Problem besteht jetzt allerdings darin, dass die Verbindungslinien noch fehlen und ich nicht weiß, wie ich jetzt weiter verfahren muss.
Hier der Quellcode:
Delphi-Quellcode:
procedure GrafikAusgabe(a:Zeiger;left,top,width,ii: integer);
var ll,oo: integer;
begin
Form1.ImageZeichnung.Canvas.TextOut(left+width div 2,top,a^.Inhalt);
if ii>1 then
begin
//Form1.ImageZeichnung.Canvas.MoveTo(_______________);
//Form1.ImageZeichnung.Canvas.LineTo(_______________);
end;
if a^.Links<>nil then GrafikAusgabe(a^.links,left,top+50,width div 2,ii+1);
if a^.Rechts<>nil then GrafikAusgabe(a^.rechts,left+width div 2,top+50,width div 2,ii+1);
end;
procedure GrafikSteuerung();
var rect: TRect;
begin
rect:=Bounds(0,0,Form1.ImageZeichnung.Width,Form1.ImageZeichnung.Height);
Form1.ImageZeichnung.Canvas.Brush.Color:=clwhite;
Form1.ImageZeichnung.Canvas.FillRect(rect);
if wurzel<>nil then GrafikAusgabe(wurzel,0,25,Form1.ImageZeichnung.Width-50,1);
end;
Vielleicht könnt ihr mir einen Denkanstoß geben, das wäre klasse.