The SVG way was successful, thanks!
I define for each arrow a transparent SVG area and a SVG object:
type Arrow_type is record area : aliased SVG.SVG_Type; content :
Element_Type; end record;
Here the code to add a straight line from point (x1,y1) to (x2,y2)
minx:= Integer'Min(x1,x2); maxx:= Integer'Max(x1,x2); miny:=
Integer'Min(y1,y2); maxy:= Integer'Max(y1,y2); new_arrow:= new
Arrow_type; new_arrow.area.Create(App.Diagram_area);
new_arrow.area.Position(fixed); new_arrow.area.Left(minx);
new_arrow.area.Top(miny); new_arrow.area.Width (maxx-minx);
new_arrow.area.Height (maxy-miny); new_arrow.content.Create_XML_Element
(new_arrow.area, SVG_Namespace, "path"); new_arrow.content.Attribute ("d",
'M' & Integer'Image(x1-minx) & Integer'Image(y1-miny) & -- Move To
'L' & Integer'Image(x2-minx) & Integer'Image(y2-miny) -- Line To );
new_arrow.content.Attribute ("stroke", "#221111");
new_arrow.content.Attribute ("stroke-width", "1");
CheersGautier
------------------------------------------------------------------------------
BPM Camp - Free Virtual Workshop May 6th at 10am PDT/1PM EDT
Develop your own process in accordance with the BPMN 2 standard
Learn Process modeling best practices with Bonita BPM through live exercises
http://www.bonitasoft.com/be-part-of-it/events/bpm-camp-virtual- event?utm_
source=Sourceforge_BPM_Camp_5_6_15&utm_medium=email&utm_campaign=VA_SF
_______________________________________________
Gnoga-list mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/gnoga-list
