Articles


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.