ImageEn, unit imageenview

TIEBrushToolInteraction.BrushFill

TIEBrushToolInteraction.BrushFill


Declaration


property BrushFill: TIEBrushFill;


Description


Specifies the type of fill for the paint brush.

Type Description
iebfSolid A standard fill of a solid color
iebfGradient A fill with a vertical gradient from BrushColor to BrushColor2
iebfSpray A "Spray Can" fill (i.e. random points)
iebfTextured A solid fill with random transparency to provide texture to the brush (Also see AlphaTextureMin and AlphaTextureMax
iebfCenteredTexture Same as iebfTextured, but the alpha is stronger towards the center of the brush (Also see AlphaTextureMin and AlphaTextureMax
iebfTexturedSpray A "Spray Can" fill (i.e. random points) with random transparency to provide texture (Also see AlphaTextureMin and AlphaTextureMax
iebfImage An image is used as a brush. Note: You must assign an image to BrushImage
iebfEraser A special brush that applies alpha to the image, e.g. if EraserOpacity is 1.0, dragging the mouse will completely erase the content




Default: iebfSolid


Examples


// Enable painting with a circular spray can brush
ImageEnView1.BrushTool.BrushShape := iecsCircle;
ImageEnView1.BrushTool.BrushFill := iebfSpray;
ImageEnView1.BrushTool.BrushSize := 50;
ImageEnView1.BrushTool.BrushColor := clRed;
ImageEnView1.MouseInteractGeneral := [ miBrushTool ];

// Enable painting with a red/yellow gradient
ImageEnView1.BrushTool.BrushShape := iecsRectangle;
ImageEnView1.BrushTool.BrushFill := iebfGradient;
ImageEnView1.BrushTool.BrushSize := 50;
ImageEnView1.BrushTool.BrushColor := clRed;
ImageEnView1.BrushTool.BrushColor2 := clYellow;
ImageEnView1.MouseInteractGeneral := [ miBrushTool ];

// Set cursor as a square eraser
ImageEnView1.BrushTool.BrushFill := iebfEraser;
ImageEnView1.BrushTool.EraserOpacity := 1.0;
ImageEnView1.BrushTool.BrushShape := iecsRectangle;
ImageEnView1.MouseInteractGeneral := [ miBrushTool ];

// Enable painting with a custom brush
ImageEnView1.BrushTool.BrushImage.Read( 'Golden-Brush.png' );
ImageEnView1.BrushTool.BrushFill := iebfImage;
ImageEnView1.BrushTool.BrushShape := iecsRectangle;
ImageEnView1.MouseInteractGeneral := [ miBrushTool ];