function SetMyImage(ShapeID: integer; ABitmap: TBitmap): Boolean;



Description:


 Add a bitmap to TMyImage's shape, it is important.



Example:


if AShape.ClassName = 'TMyImage'then

begin

if OpenPictureDialog1.Execute then

begin

     myBitmap := TBitmap.Create;

     mybitmap.LoadFromFile(OpenPictureDialog1.FileName);

if MyCAD1.SetMyImage(ShapeId, MyBitmap) then

       Memo1.Lines.Add('Bitmap be loaded into Shape' + Inttostr(ShapeID))

else

       Memo1.Lines.Add('Bitmap NOT be loaded into Shape' + Inttostr(ShapeID));

     MyBitmap.Free;

end;

end;



Return value:


true: add image success

 false:add image failed.