[adik]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, ExtCtrls;   type   TForm1 = class(TForm)     Edit1: TEdit;     Button1: TButton;     ColorDialog1: TColorDialog;     Image1: TImage;     procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;       Shift: TShiftState; X, Y: Integer);     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;   count:integer=0;   pointmassiv:array of TPoint;   r:integer=20;    s:array of array of integer;    v:array of array of integer; implementation   {$R *.dfm}   procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;   Shift: TShiftState; X, Y: Integer);   begin ColorDialog1.Color:=clBlue; Image1.Canvas.Brush.color:=form1.colordialog1.color; Image1.Canvas.Ellipse((x-r),(y-r),(x+r),(y+r)); Image1.Canvas.Textout(x-4,y-6,inttostr(count)); inc(count); SetLength(pointmassiv,count); SetLength(s,count,count); setlength(v,count,count); pointmassiv[count-1].x:=x; pointmassiv[count-1].y:=y;   end; procedure TForm1.Button1Click(Sender: TObject);   var kol,i:integer;   begin   Image1.Canvas.Brush.Color:=clWhite;   Image1.Canvas.FloodFill(50,50,clPurple,fsBorder);   Image1.Canvas.Brush.Color:=clBlack;       Randomize;   kol:=StrToInt(form1.edit1.text);   for i:=1 to kol do     Image1MouseDown(Sender,mbLeft,[ssLeft],50+random(Image1.Width-100),50+random(Image1.Height-100));   end;   end.

lmikle: пользуемся тегами!!!


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

[lmikle]

Сохранять координаты центров кругов в массиве и при создании нового круга проверять, что расстояние от его центра до центра любого уже нарисованного составляет не менее (2*R + D) по обеим координатам, где R - радиус отрисовки круга, D - поправочный коэф. для того, что бы круги не касалист друг друга (т.е. минимальная длинна линии между кругами).

ЗЫ. Кстати, рекомендую сначала рисовать линии (связи), а уже сверху них рисовать круги (вершины), что бы на заморачиваться с вычислением координат начала/конца линий на границах кругов

[adik]

В центре кругов выводится их номер, значит
Image1.Canvas.Textout(x-4,y-6,inttostr(count));
x-4, y-6 каждого круга и будут координаты их центров, получается мне нужно создать массив поинтов еще один и записать для каждого такие координаты.Потом циклом пробежатся по всем координатам с твоим условием, я правильно понял?

А что разве будет намного сложнее начать с кругов? я конечно еще не думал насчет узлов, но я так понимаю, что я буду просто проводить линию и буду брать за начало пускай тот же центр круга 1 и к центру круга 2.