Set ShapeTool property as SpText,then you can draw it by mouse.
Also,you can do it by code.
Code example:
procedure TMainFrm.Button1Click(Sender: TObject); var AText:TMyText; SText:TStringList; begin if MyCAD1.GetShapeByName('TextShape') = nil then MyCAD1.AddShapeByCode(MyCAD1,SpText, 'TextShape', [MyPoint(100, 100), MyPoint(250, 100),MyPoint(250, 150), MyPoint(100, 150)], 30*pi/180, ''); AText:=TMyText(MyCAD1.GetShapeByName('TextShape')); SText:=TStringList.Create; SText.Add('TCAD Text'); AText.Lines.Assign(SText); SText.Free; end;
Note:TCAD xp.a , TMyText support multi-lines text,new property is lines, but you still can use Info property.