<< Click to Display Table of Contents >> Navigation:  TMyCAD > Methods > SetMyImage

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.