Creating a new TsgDXFLeader

[aby]

Hi,

How can I create a leader in CadSoft Tools.

Thanks

Aby

[support]

Hello.
Leader, like a Spline can be created by Fits or Controls, that define its approximation:

Code: Select all

var
      Im: TsgCADImage;
      Leader : TsgDXFLeader;
      pt : PFPoint;
      I : integer;
begin
      Leader := TsgDXFLeader.Create;
      Leader.Color := ClRed;
      for I := 0 to 4 do
      begin
          New(pt);
          pt^ := (MakeFPoint(50*I, 200-10*I*I, 0));
          Leader.Fit.Add(pt);        // creation by Fit points
//        Leader.Controls.Add(pt);   // or Control points
      end;

      AddEntity(Im.Converter, Leader);
      Im.GetExtents;
      sgPaintBox.Refresh;
end; 

Alexander.