SimpleGraph : fixed sized shapes/ RESOLVED

[dlewin]

Hello
First of all thanks for such components with a real code quality.
As I'm new to SimpleGraph I have dificulty to create a predifined shape : I want an application that can create automatically linked rectangle with a fixed size on a click event.
The better would be a sized adapted to the text inside the shape (rectangle).

Thanks in advance.

David


PS : I did not found that topic in the forum

[Kambiz]

Use OnMoveResizeObject event to prevent resizing of the objects.

[dlewin]

I have to admit some details were missing : I want a predifined size rectangle to be created when user click on a "create task" (for example) button .

In fact it is like change the default creation size of the rectangle

[HPW]

Then use OnObjectInsert.

[dlewin]

yes I found it on the doc, it's seems right for that but before how to to do it programatically: I did not found out how. Maybe TgraphicObject.add or insert ? if yes is there a little code of it as in the demo it's done by the user.

PS : kambiz in the readme.html there is a little correction from

Code: Select all

TGrephObjectClass = class of TGraphObject  to
TgraphObjecTClass

[HPW]

Maybe you can use also:

Code: Select all

SimpleGraph1.InsertNode(noderect ,TRoundRectangularNode)

ObjectAtPt1 := TyOURfORM.SimpleGraph1.FindObjectAt(posx, posy);
ObjectAtPt2 := TYourForm.SimpleGraph1.FindObjectAt(eposx, eposy);

ALinkClass.CreateNew(TYourForm.SimpleGraph1, ObjectAtPt1, [], ObjectAtPt2)


Stripped out of a greater context, not tested.

[dlewin]

thanks for the answer, is that ok ?

Code: Select all

var
noderect : Trect ;
AlinkClass : TGraphLink ;
begin
AlinkClass := TGraphLink.Create(SimpleGraph1) ;

SimpleGraph1.InsertNode(noderect ,TRoundRectangularNode)   ;

ObjectAtPt1 := FORM1.SimpleGraph1.FindObjectAt(10, 10);
ObjectAtPt2 := FORM1.SimpleGraph1.FindObjectAt(20, 20);



as I did not found how to make Objects, I was wondering if

Code: Select all

function MakeSquare(const Center: TPoint; Radius: Integer): TRect;

function MakeRect(const Corner1, Corner2: TPoint): TRect;

is this ok for that automatic cration ? if yes
I did not succeed to create it correctly

//=========mod edit: merge================

what I meant by correctly is

Code: Select all


procedure TForm1.BitBtn1Click(Sender: TObject);
var
noderect, carre : Trect ;
Centre : Tpoint ;

begin
AlinkClass := TGraphLink.Create(SimpleGraph1) ;
Centre.X := 10 ;
Centre.Y := 10 ;

carre := MakeSquare(Centre, 2);

end ;


does not show anything;

elsewhere insertnode in my previous post code was giving "something" because of scrollbars apearing, but same : nowhere to see any shape ...

[Kambiz]

Well, I'm confused with your codes dlewin.

Are you looking for something like this:

Code: Select all

SimpleGraph1.InsertNode(MakeRect(Point(100, 100), 10), TRectangularNode) ;

[dlewin]

this is the answer I was looking for.
I made another code from this one (because of a TRect error) and now
I can "generate" a shape with a predifined size.

Now I will try with drag-n-drop (visio's style)

Thanks for all answers.