Процедура, рисующая дерево.

[vedro-compota]

почему не задавались......ужас. ничего не пойму. я ж вроде переопределял значения:

unit risdereva;

interface
uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,sozdereva, holst ;
procedure risuemego ( x,y,xkop,ykop,leftx,lefty,
rightx,righty,radius:integer; uk1,uk1kop: pelement ) ;
implementation
procedure risuemego ( x,y,xkop,ykop,leftx,lefty,
rightx,righty,radius:integer; uk1,uk1kop: pelement ) ;
begin
  if uk1<>nil then
  begin
    xkop:=x;
    ykop:=y;
    uk1kop:=uk1;

    form2.canvas.Ellipse(x-radius,y-radius,x+radius,y+radius);
    form2.Canvas.Pen.color:=clblack;
    form2.canvas.Pen.Style:=psSolid;
    form2.Canvas.Brush.Color:=clWhite;

    form2.Canvas.TextOut(x-10,y-10, uk1^.infa);
     if uk1^.left<>nil then
    begin
      form2.Canvas.Pen.color:=clblack;
      Form2.canvas.Pen.Style:=psSolid;
      form2.canvas.MoveTo(x-17,y+17);
      form2.canvas.LineTo(x-17+leftx,y+17+lefty);
      x:= x-17+leftx-17;
      y:= y+17+lefty+17;
      uk1:=uk1^.left;
      risuemego (x,y,xkop,ykop,leftx,lefty,
      rightx,righty,radius, uk1,uk1kop ) ;
    end;
    if uk1kop^.right<>nil then
    begin
      form2.Canvas.Pen.color:=clblack;
      form2.Canvas.Pen.Style:=psSolid;
      form2.Canvas.MoveTo(xkop+17,ykop+17);
      form2.Canvas.LineTo(xkop+17+rightx,ykop+17+righty);
      x:= xkop+17+rightx+17;
      y:= ykop+17+righty+17;
      uk1:=uk1kop^.right;
      risuemego (x,y,xkop,ykop,leftx,lefty,
      rightx,righty,radius, uk1,uk1kop ) ;
    end;
    
  end;

end;

end.

[TwiX]

x:= x-17+leftx-17;
y:= y+17+lefty+17;

Изначально Y было очень большим (по крайней мере у меня) - оно случайным образом берётся. И если к нему прибавить 17+lefty+17, то оно всё равно останется большим.

[vedro-compota]

и впрямь. Изначально значения заданы не были ))

[vedro-compota]

если дополнительную форму (на которой нарисовано дерево) открыть и закрыть, то дерево это почему-то исчезает.

[TwiX]

C помощью Hide->Show?
Можно попробовать перерисовать Image: Image1.Repaint или Image1.Refresh, но не уверен)