<< Click to Display Table of Contents >> Navigation:  TMyImage > Properties > Bitmap

property Bitmap:TBitmap

 

Description:

 

 Set the  bitmap for TMyImage shape, for clear it , Btimap:=nil;

 

 

Example:

 

The example show assign a bitmap that you load to TMyImage.

var

  mybitmap:TBitmap;

begin

  if OpenPictureDialog1.Execute then

  begin

       myBitmap:=TBitmap.Create;

       mybitmap.LoadFromFile(OpenPictureDialog1.FileName);

       (AShape as TMyImage).Bitmap:=mybitmap;

       MyBitmap.Free;

  end;

end;