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

[vedro-compota]

Здравствуйте уважаемые форумчане ))
я создал процедуру, которая, по-идее должна рисовать дерево(данные, собранные в динамическую структуру) на форме. подобно она процедуре формирования дерева- рекурсивна. Так вот что-то не работает....не знаю почему (не рисует ни одной чёрточки)
Я запускал программу пошагово, компилятор (можно так сказать? ) заходит в процедуру и проходит в ней все необходимые команды, но дерево не рисуется (на form2 из юнита holst.pas). Может просто цвет каким-то образом совпадает с цветом фона ? Прикрепляю архив.
А вот это код рекурсивной процедуры (которая как-бы должна рисовать) из юнита risdereva.pas:

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.Pen.color:=clblack;
    form2.canvas.Ellipse(x-radius,y-radius,x+radius,y+radius);
    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.

Прошу подсказать- что же здесь неправильно ?

[Пепел Феникса]

положите Image на форму и нарисуйте на нем.
потому что вообще то надо рисовать каждый раз когда обновляется окно.
буфера нет(изначально)

[Stilet]

Можно проще - вызывать эту процедуру в OnPaint контрола, на котором рисуется. В данном случае формы.

[vedro-compota]

потому что вообще то надо рисовать каждый раз когда обновляется окно.

Не могли бы пояснить )) или где прочитать можно...

вызывать эту процедуру в OnPaint контрола, на котором рисуется.

и это тоже как-то не понятно ...

[Пепел Феникса]

у вас есть кадр, надо каждый раз подставлять новый.
почитать...хм...ну WinAPI, там поймете все это.

насчет слов Виталия.
у формы есть событие OnPaint именно в нем вызывайте процедуру прорисовки дерева.

[vedro-compota]

положил на форму Image, и изменил часть кода процедуры рисования. теперь так:

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.image1.Canvas.Pen.color:=clblack;
    form2.image1.canvas.Ellipse(x-radius,y-radius,x+radius,y+radius);
    form2.image1.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]

Вот поправил. Один раз в проверке, один раз перед созданием. Осталось исправить работу функции, но это уже не мои заботы =)

[vedro-compota]

Вижу, что изменён изначальные параметр "х" (теперь он равен половине ширины формы) но в чём ключевое изменение - не понимаю....)) почему теперь рисует?

[vedro-compota]

понял.....форма теперь появляется сразу....но было не так задумано. Но спасибо за помощь, искренне вам ,TwiX, благодарен. 0)))

[TwiX]

Нет, форму можно и скрыть. Забыл убрать) В функции не задвались X и Y, и поэтому в функцию вместо Y передавалось большое число, и рисовалось всё за формой.