Articles


Set ShapeTool property as SpImage,then you can load it by mouse.

If you draw a line style,you can set ArrowAngle,ArrowLength,ArrowOffset,ArrowStyle properties besides above properties.

Also,you can do it by code.

Code example:

procedure TMainFrm.Button6Click(Sender: TObject); 
var 
  mBitmap:TBitmap; 
begin 
  mBitmap:=TBitmap.Create; 
  mBitmap.LoadFromFile(ExtractFilePath(Application.ExeName)+'xpatag.bmp'); 
  if MyCAD1.GetShapeByName('ImageShape')=nil then 
    MyCAD1.AddImageShapeByCode('ImageShape',Point(10,10),mBitmap); 
  mBitmap.Free; 
end;