<< Click to Display Table of Contents >> Navigation:  TMyShape > Properties > Brush

property Brush:TBrush;

 

       

Description:

 

 Set  the brush of TMyShape that you need;

 

Note:

 In tcad of xp.b edition,there's a new function that support brush.bitmap to fill a closed shape.

 

Code example:

 

 var

   tmpBitmap:TBitmap;

 begin

   tmpBitmap := TBitmap.Create;

   tmpBitmap.LoadFromFile('d:\test\tmp.bmp');

   MyCAD1.GetSelectedShape.Brush.Bitmap :=  tmpBitmap;

   MyCAD1.Repaint;

 end;