Code samples for TIEBrushToolInteraction.
Automatically generated by the Every Method demo.
// Automated test of PaintBrush - Solid - Typical Values
// PaintBrush - Solid paint to 200,200 (Brush: 50)
ImageEnView1.BrushTool.BrushFill := iebfSolid;
ImageEnView1.BrushTool.BrushColor := clRed;
ImageEnView1.BrushTool.BrushSize := 50;
ImageEnView1.BrushTool.Transparency := 255;
ImageEnView1.BrushTool.Feathering := 0;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Solid - Alpha Channel - Typical Values
// PaintBrush - Solid paint to 200,200 (Brush: 50)
ImageEnView1.BrushTool.BrushFill := iebfSolid;
ImageEnView1.BrushTool.BrushColor := clRed;
ImageEnView1.BrushTool.BrushSize := 50;
ImageEnView1.BrushTool.Transparency := 255;
ImageEnView1.BrushTool.Feathering := 0;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Solid - 32-Bit RGBA - Typical Values
// PaintBrush - Solid paint to 200,200 (Brush: 50)
ImageEnView1.BrushTool.BrushFill := iebfSolid;
ImageEnView1.BrushTool.BrushColor := clRed;
ImageEnView1.BrushTool.BrushSize := 50;
ImageEnView1.BrushTool.Transparency := 255;
ImageEnView1.BrushTool.Feathering := 0;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Solid - 1-bit - Typical Values
// PaintBrush - Solid paint to 200,200 (Brush: 50)
ImageEnView1.BrushTool.BrushFill := iebfSolid;
ImageEnView1.BrushTool.BrushColor := clRed;
ImageEnView1.BrushTool.BrushSize := 50;
ImageEnView1.BrushTool.Transparency := 255;
ImageEnView1.BrushTool.Feathering := 0;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Gradient - Typical Values
// PaintBrush - Gradient paint to 200,200 (Horizontal)
ImageEnView1.BrushTool.BrushFill := iebfGradient;
ImageEnView1.BrushTool.BrushColor := clYellow;
ImageEnView1.BrushTool.BrushColor2 := clRed;
ImageEnView1.BrushTool.BrushSize := 50;
ImageEnView1.BrushTool.BrushGradient := gpgHorizontal;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Gradient - Alpha Channel - Typical Values
// PaintBrush - Gradient paint to 200,200 (Horizontal)
ImageEnView1.BrushTool.BrushFill := iebfGradient;
ImageEnView1.BrushTool.BrushColor := clYellow;
ImageEnView1.BrushTool.BrushColor2 := clRed;
ImageEnView1.BrushTool.BrushSize := 50;
ImageEnView1.BrushTool.BrushGradient := gpgHorizontal;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Gradient - 32-Bit RGBA - Typical Values
// PaintBrush - Gradient paint to 200,200 (Horizontal)
ImageEnView1.BrushTool.BrushFill := iebfGradient;
ImageEnView1.BrushTool.BrushColor := clYellow;
ImageEnView1.BrushTool.BrushColor2 := clRed;
ImageEnView1.BrushTool.BrushSize := 50;
ImageEnView1.BrushTool.BrushGradient := gpgHorizontal;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Gradient - 1-bit - Typical Values
// PaintBrush - Gradient paint to 200,200 (Horizontal)
ImageEnView1.BrushTool.BrushFill := iebfGradient;
ImageEnView1.BrushTool.BrushColor := clYellow;
ImageEnView1.BrushTool.BrushColor2 := clRed;
ImageEnView1.BrushTool.BrushSize := 50;
ImageEnView1.BrushTool.BrushGradient := gpgHorizontal;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Spray - Typical Values
// PaintBrush - Spray paint to 200,200 (Brush: 50)
ImageEnView1.BrushTool.BrushFill := iebfSpray;
ImageEnView1.BrushTool.BrushColor := clRed;
ImageEnView1.BrushTool.BrushSize := 50;
ImageEnView1.BrushTool.SprayDensity := 1.8;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Spray - Alpha Channel - Typical Values
// PaintBrush - Spray paint to 200,200 (Brush: 50)
ImageEnView1.BrushTool.BrushFill := iebfSpray;
ImageEnView1.BrushTool.BrushColor := clRed;
ImageEnView1.BrushTool.BrushSize := 50;
ImageEnView1.BrushTool.SprayDensity := 1.8;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Spray - 32-Bit RGBA - Typical Values
// PaintBrush - Spray paint to 200,200 (Brush: 50)
ImageEnView1.BrushTool.BrushFill := iebfSpray;
ImageEnView1.BrushTool.BrushColor := clRed;
ImageEnView1.BrushTool.BrushSize := 50;
ImageEnView1.BrushTool.SprayDensity := 1.8;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Textured - Typical Values
// PaintBrush - Textured paint to 200,200 (Brush: 50)
ImageEnView1.BrushTool.BrushFill := iebfTextured;
ImageEnView1.BrushTool.BrushColor := clRed;
ImageEnView1.BrushTool.BrushSize := 50;
ImageEnView1.BrushTool.AlphaTextureMin := 25;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Textured - Alpha Channel - Typical Values
// PaintBrush - Textured paint to 200,200 (Brush: 50)
ImageEnView1.BrushTool.BrushFill := iebfTextured;
ImageEnView1.BrushTool.BrushColor := clRed;
ImageEnView1.BrushTool.BrushSize := 50;
ImageEnView1.BrushTool.AlphaTextureMin := 25;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Textured - 32-Bit RGBA - Typical Values
// PaintBrush - Textured paint to 200,200 (Brush: 50)
ImageEnView1.BrushTool.BrushFill := iebfTextured;
ImageEnView1.BrushTool.BrushColor := clRed;
ImageEnView1.BrushTool.BrushSize := 50;
ImageEnView1.BrushTool.AlphaTextureMin := 25;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - CenteredTexture - Typical Values
// PaintBrush - Centered Texture paint to 200,200 (Brush: 50)
ImageEnView1.BrushTool.BrushFill := iebfCenteredTexture;
ImageEnView1.BrushTool.BrushColor := clRed;
ImageEnView1.BrushTool.BrushSize := 50;
ImageEnView1.BrushTool.AlphaTextureMin := 45;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - CenteredTexture - Alpha Channel - Typical Values
// PaintBrush - Centered Texture paint to 200,200 (Brush: 50)
ImageEnView1.BrushTool.BrushFill := iebfCenteredTexture;
ImageEnView1.BrushTool.BrushColor := clRed;
ImageEnView1.BrushTool.BrushSize := 50;
ImageEnView1.BrushTool.AlphaTextureMin := 45;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - CenteredTexture - 32-Bit RGBA - Typical Values
// PaintBrush - Centered Texture paint to 200,200 (Brush: 50)
ImageEnView1.BrushTool.BrushFill := iebfCenteredTexture;
ImageEnView1.BrushTool.BrushColor := clRed;
ImageEnView1.BrushTool.BrushSize := 50;
ImageEnView1.BrushTool.AlphaTextureMin := 45;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - TexturedSpray - Typical Values
// PaintBrush - Textured Spray paint to 200,200 (Brush: 50)
ImageEnView1.BrushTool.BrushFill := iebfTexturedSpray;
ImageEnView1.BrushTool.BrushColor := clRed;
ImageEnView1.BrushTool.BrushSize := 50;
ImageEnView1.BrushTool.SprayDensity := 1.8;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - TexturedSpray - Alpha Channel - Typical Values
// PaintBrush - Textured Spray paint to 200,200 (Brush: 50)
ImageEnView1.BrushTool.BrushFill := iebfTexturedSpray;
ImageEnView1.BrushTool.BrushColor := clRed;
ImageEnView1.BrushTool.BrushSize := 50;
ImageEnView1.BrushTool.SprayDensity := 1.8;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - TexturedSpray - 32-Bit RGBA - Typical Values
// PaintBrush - Textured Spray paint to 200,200 (Brush: 50)
ImageEnView1.BrushTool.BrushFill := iebfTexturedSpray;
ImageEnView1.BrushTool.BrushColor := clRed;
ImageEnView1.BrushTool.BrushSize := 50;
ImageEnView1.BrushTool.SprayDensity := 1.8;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Image - Typical Values
// PaintBrush - Image Brush to 200,200 (Brush: 255)
ImageEnView1.BrushTool.BrushFill := iebfImage;
ImageEnView1.BrushTool.Transparency := 255;
ImageEnView1.BrushTool.Feathering := 0;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Image - Alpha Channel - Typical Values
// PaintBrush - Image Brush to 200,200 (Brush: 255)
ImageEnView1.BrushTool.BrushFill := iebfImage;
ImageEnView1.BrushTool.Transparency := 255;
ImageEnView1.BrushTool.Feathering := 0;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Image - 32-Bit RGBA - Typical Values
// PaintBrush - Image Brush to 200,200 (Brush: 255)
ImageEnView1.BrushTool.BrushFill := iebfImage;
ImageEnView1.BrushTool.Transparency := 255;
ImageEnView1.BrushTool.Feathering := 0;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Image - 1-bit - Typical Values
// PaintBrush - Image Brush to 200,200 (Brush: 255)
ImageEnView1.BrushTool.BrushFill := iebfImage;
ImageEnView1.BrushTool.Transparency := 255;
ImageEnView1.BrushTool.Feathering := 0;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Eraser - Typical Values
// PaintBrush - Eraser to 200,200 (Brush: 50)
ImageEnView1.BrushTool.BrushFill := iebfEraser;
ImageEnView1.BrushTool.BrushSize := 50;
ImageEnView1.BrushTool.EraserOpacity := 0.75;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Eraser - Alpha Channel - Typical Values
// PaintBrush - Eraser to 200,200 (Brush: 50)
ImageEnView1.BrushTool.BrushFill := iebfEraser;
ImageEnView1.BrushTool.BrushSize := 50;
ImageEnView1.BrushTool.EraserOpacity := 0.75;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Eraser - 32-Bit RGBA - Typical Values
// PaintBrush - Eraser to 200,200 (Brush: 50)
ImageEnView1.BrushTool.BrushFill := iebfEraser;
ImageEnView1.BrushTool.BrushSize := 50;
ImageEnView1.BrushTool.EraserOpacity := 0.75;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Eraser - 1-bit - Typical Values
// PaintBrush - Eraser to 200,200 (Brush: 50)
ImageEnView1.BrushTool.BrushFill := iebfEraser;
ImageEnView1.BrushTool.BrushSize := 50;
ImageEnView1.BrushTool.EraserOpacity := 0.75;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - SmartEraser - Typical Values
// PaintBrush - Smart Eraser to 200,200 (Brush: 50)
ImageEnView1.BrushTool.BrushFill := iebfSmartEraser;
ImageEnView1.BrushTool.BrushSize := 50;
ImageEnView1.ChromaKeyOptions.Tolerance := 0.21;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - SmartEraser - Alpha Channel - Typical Values
// PaintBrush - Smart Eraser to 200,200 (Brush: 50)
ImageEnView1.BrushTool.BrushFill := iebfSmartEraser;
ImageEnView1.BrushTool.BrushSize := 50;
ImageEnView1.ChromaKeyOptions.Tolerance := 0.21;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - SmartEraser - 32-Bit RGBA - Typical Values
// PaintBrush - Smart Eraser to 200,200 (Brush: 50)
ImageEnView1.BrushTool.BrushFill := iebfSmartEraser;
ImageEnView1.BrushTool.BrushSize := 50;
ImageEnView1.ChromaKeyOptions.Tolerance := 0.21;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Line - Typical Values
// PaintBrush - Line from 100,100 to 200,200 (Brush: 20)
ImageEnView1.BrushTool.BrushFill := iebfLine;
ImageEnView1.BrushTool.BrushColor := clRed;
ImageEnView1.BrushTool.BrushSize := 20;
ImageEnView1.BrushTool.Transparency := 255;
ImageEnView1.BrushTool.AntiAlias := true;
ImageEnView1.BrushTool.Feathering := 0;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Line - Alpha Channel - Typical Values
// PaintBrush - Line from 100,100 to 200,200 (Brush: 20)
ImageEnView1.BrushTool.BrushFill := iebfLine;
ImageEnView1.BrushTool.BrushColor := clRed;
ImageEnView1.BrushTool.BrushSize := 20;
ImageEnView1.BrushTool.Transparency := 255;
ImageEnView1.BrushTool.AntiAlias := true;
ImageEnView1.BrushTool.Feathering := 0;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Line - 32-Bit RGBA - Typical Values
// PaintBrush - Line from 100,100 to 200,200 (Brush: 20)
ImageEnView1.BrushTool.BrushFill := iebfLine;
ImageEnView1.BrushTool.BrushColor := clRed;
ImageEnView1.BrushTool.BrushSize := 20;
ImageEnView1.BrushTool.Transparency := 255;
ImageEnView1.BrushTool.AntiAlias := true;
ImageEnView1.BrushTool.Feathering := 0;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Line - 1-bit - Typical Values
// PaintBrush - Line from 100,100 to 200,200 (Brush: 20)
ImageEnView1.BrushTool.BrushFill := iebfLine;
ImageEnView1.BrushTool.BrushColor := clRed;
ImageEnView1.BrushTool.BrushSize := 20;
ImageEnView1.BrushTool.Transparency := 255;
ImageEnView1.BrushTool.AntiAlias := true;
ImageEnView1.BrushTool.Feathering := 0;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Rect - Typical Values
// PaintBrush - Rect from 100,100 to 200,200 (Brush: 10)
ImageEnView1.BrushTool.BrushFill := iebfRect;
ImageEnView1.BrushTool.BrushColor := clRed;
ImageEnView1.BrushTool.BrushSize := 10;
ImageEnView1.BrushTool.Transparency := 255;
ImageEnView1.BrushTool.AntiAlias := true;
ImageEnView1.BrushTool.Feathering := 0;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Rect - Alpha Channel - Typical Values
// PaintBrush - Rect from 100,100 to 200,200 (Brush: 10)
ImageEnView1.BrushTool.BrushFill := iebfRect;
ImageEnView1.BrushTool.BrushColor := clRed;
ImageEnView1.BrushTool.BrushSize := 10;
ImageEnView1.BrushTool.Transparency := 255;
ImageEnView1.BrushTool.AntiAlias := true;
ImageEnView1.BrushTool.Feathering := 0;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Rect - 32-Bit RGBA - Typical Values
// PaintBrush - Rect from 100,100 to 200,200 (Brush: 10)
ImageEnView1.BrushTool.BrushFill := iebfRect;
ImageEnView1.BrushTool.BrushColor := clRed;
ImageEnView1.BrushTool.BrushSize := 10;
ImageEnView1.BrushTool.Transparency := 255;
ImageEnView1.BrushTool.AntiAlias := true;
ImageEnView1.BrushTool.Feathering := 0;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Rect - 1-bit - Typical Values
// PaintBrush - Rect from 100,100 to 200,200 (Brush: 10)
ImageEnView1.BrushTool.BrushFill := iebfRect;
ImageEnView1.BrushTool.BrushColor := clRed;
ImageEnView1.BrushTool.BrushSize := 10;
ImageEnView1.BrushTool.Transparency := 255;
ImageEnView1.BrushTool.AntiAlias := true;
ImageEnView1.BrushTool.Feathering := 0;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Filled Rect - Typical Values
// PaintBrush - Filled Rect from 100,100 to 200,200 (Brush: 10)
ImageEnView1.BrushTool.BrushFill := iebfFilledRect;
ImageEnView1.BrushTool.BrushColor := clRed;
ImageEnView1.BrushTool.BrushSize := 10;
ImageEnView1.BrushTool.Transparency := 255;
ImageEnView1.BrushTool.AntiAlias := true;
ImageEnView1.BrushTool.Feathering := 0;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Filled Rect - Alpha Channel - Typical Values
// PaintBrush - Filled Rect from 100,100 to 200,200 (Brush: 10)
ImageEnView1.BrushTool.BrushFill := iebfFilledRect;
ImageEnView1.BrushTool.BrushColor := clRed;
ImageEnView1.BrushTool.BrushSize := 10;
ImageEnView1.BrushTool.Transparency := 255;
ImageEnView1.BrushTool.AntiAlias := true;
ImageEnView1.BrushTool.Feathering := 0;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Filled Rect - 32-Bit RGBA - Typical Values
// PaintBrush - Filled Rect from 100,100 to 200,200 (Brush: 10)
ImageEnView1.BrushTool.BrushFill := iebfFilledRect;
ImageEnView1.BrushTool.BrushColor := clRed;
ImageEnView1.BrushTool.BrushSize := 10;
ImageEnView1.BrushTool.Transparency := 255;
ImageEnView1.BrushTool.AntiAlias := true;
ImageEnView1.BrushTool.Feathering := 0;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Filled Rect - 1-bit - Typical Values
// PaintBrush - Filled Rect from 100,100 to 200,200 (Brush: 10)
ImageEnView1.BrushTool.BrushFill := iebfFilledRect;
ImageEnView1.BrushTool.BrushColor := clRed;
ImageEnView1.BrushTool.BrushSize := 10;
ImageEnView1.BrushTool.Transparency := 255;
ImageEnView1.BrushTool.AntiAlias := true;
ImageEnView1.BrushTool.Feathering := 0;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Ellipse - Typical Values
// PaintBrush - Ellipse from 100,100 to 200,200 (Brush: 10)
ImageEnView1.BrushTool.BrushFill := iebfEllipse;
ImageEnView1.BrushTool.BrushColor := clRed;
ImageEnView1.BrushTool.BrushSize := 10;
ImageEnView1.BrushTool.Transparency := 255;
ImageEnView1.BrushTool.AntiAlias := true;
ImageEnView1.BrushTool.Feathering := 0;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Ellipse - Alpha Channel - Typical Values
// PaintBrush - Ellipse from 100,100 to 200,200 (Brush: 10)
ImageEnView1.BrushTool.BrushFill := iebfEllipse;
ImageEnView1.BrushTool.BrushColor := clRed;
ImageEnView1.BrushTool.BrushSize := 10;
ImageEnView1.BrushTool.Transparency := 255;
ImageEnView1.BrushTool.AntiAlias := true;
ImageEnView1.BrushTool.Feathering := 0;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Ellipse - 32-Bit RGBA - Typical Values
// PaintBrush - Ellipse from 100,100 to 200,200 (Brush: 10)
ImageEnView1.BrushTool.BrushFill := iebfEllipse;
ImageEnView1.BrushTool.BrushColor := clRed;
ImageEnView1.BrushTool.BrushSize := 10;
ImageEnView1.BrushTool.Transparency := 255;
ImageEnView1.BrushTool.AntiAlias := true;
ImageEnView1.BrushTool.Feathering := 0;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Ellipse - 1-bit - Typical Values
// PaintBrush - Ellipse from 100,100 to 200,200 (Brush: 10)
ImageEnView1.BrushTool.BrushFill := iebfEllipse;
ImageEnView1.BrushTool.BrushColor := clRed;
ImageEnView1.BrushTool.BrushSize := 10;
ImageEnView1.BrushTool.Transparency := 255;
ImageEnView1.BrushTool.AntiAlias := true;
ImageEnView1.BrushTool.Feathering := 0;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Filled Ellipse - Typical Values
// PaintBrush - Filled Ellipse from 100,100 to 200,200 (Brush: 10)
ImageEnView1.BrushTool.BrushFill := iebfFilledEllipse;
ImageEnView1.BrushTool.BrushColor := clRed;
ImageEnView1.BrushTool.BrushSize := 10;
ImageEnView1.BrushTool.Transparency := 255;
ImageEnView1.BrushTool.AntiAlias := true;
ImageEnView1.BrushTool.Feathering := 0;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Filled Ellipse - Alpha Channel - Typical Values
// PaintBrush - Filled Ellipse from 100,100 to 200,200 (Brush: 10)
ImageEnView1.BrushTool.BrushFill := iebfFilledEllipse;
ImageEnView1.BrushTool.BrushColor := clRed;
ImageEnView1.BrushTool.BrushSize := 10;
ImageEnView1.BrushTool.Transparency := 255;
ImageEnView1.BrushTool.AntiAlias := true;
ImageEnView1.BrushTool.Feathering := 0;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Filled Ellipse - 32-Bit RGBA - Typical Values
// PaintBrush - Filled Ellipse from 100,100 to 200,200 (Brush: 10)
ImageEnView1.BrushTool.BrushFill := iebfFilledEllipse;
ImageEnView1.BrushTool.BrushColor := clRed;
ImageEnView1.BrushTool.BrushSize := 10;
ImageEnView1.BrushTool.Transparency := 255;
ImageEnView1.BrushTool.AntiAlias := true;
ImageEnView1.BrushTool.Feathering := 0;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Filled Ellipse - 1-bit - Typical Values
// PaintBrush - Filled Ellipse from 100,100 to 200,200 (Brush: 10)
ImageEnView1.BrushTool.BrushFill := iebfFilledEllipse;
ImageEnView1.BrushTool.BrushColor := clRed;
ImageEnView1.BrushTool.BrushSize := 10;
ImageEnView1.BrushTool.Transparency := 255;
ImageEnView1.BrushTool.AntiAlias := true;
ImageEnView1.BrushTool.Feathering := 0;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Solid - Random Values
// PaintBrush - Solid paint to 200,200 (Brush: 177)
ImageEnView1.BrushTool.BrushFill := iebfSolid;
ImageEnView1.BrushTool.BrushColor := clAqua;
ImageEnView1.BrushTool.BrushSize := 177;
ImageEnView1.BrushTool.Transparency := 128;
ImageEnView1.BrushTool.Feathering := 10;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Solid - Alpha Channel - Random Values
// PaintBrush - Solid paint to 200,200 (Brush: 177)
ImageEnView1.BrushTool.BrushFill := iebfSolid;
ImageEnView1.BrushTool.BrushColor := clAqua;
ImageEnView1.BrushTool.BrushSize := 177;
ImageEnView1.BrushTool.Transparency := 128;
ImageEnView1.BrushTool.Feathering := 10;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Solid - 32-Bit RGBA - Random Values
// PaintBrush - Solid paint to 200,200 (Brush: 177)
ImageEnView1.BrushTool.BrushFill := iebfSolid;
ImageEnView1.BrushTool.BrushColor := clAqua;
ImageEnView1.BrushTool.BrushSize := 177;
ImageEnView1.BrushTool.Transparency := 128;
ImageEnView1.BrushTool.Feathering := 10;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Solid - 1-bit - Random Values
// PaintBrush - Solid paint to 200,200 (Brush: 80)
ImageEnView1.BrushTool.BrushFill := iebfSolid;
ImageEnView1.BrushTool.BrushColor := clBlack;
ImageEnView1.BrushTool.BrushSize := 80;
ImageEnView1.BrushTool.Transparency := 200;
ImageEnView1.BrushTool.Feathering := 5;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Gradient - Random Values
// PaintBrush - Gradient paint to 200,200 (Diag Center 2)
ImageEnView1.BrushTool.BrushFill := iebfGradient;
ImageEnView1.BrushTool.BrushColor := clBlue;
ImageEnView1.BrushTool.BrushColor2 := clAqua;
ImageEnView1.BrushTool.BrushSize := 177;
ImageEnView1.BrushTool.BrushGradient := gpgDiagCenter2;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Gradient - Alpha Channel - Random Values
// PaintBrush - Gradient paint to 200,200 (Diag Center 2)
ImageEnView1.BrushTool.BrushFill := iebfGradient;
ImageEnView1.BrushTool.BrushColor := clBlue;
ImageEnView1.BrushTool.BrushColor2 := clAqua;
ImageEnView1.BrushTool.BrushSize := 177;
ImageEnView1.BrushTool.BrushGradient := gpgDiagCenter2;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Gradient - 32-Bit RGBA - Random Values
// PaintBrush - Gradient paint to 200,200 (Diag Center 2)
ImageEnView1.BrushTool.BrushFill := iebfGradient;
ImageEnView1.BrushTool.BrushColor := clBlue;
ImageEnView1.BrushTool.BrushColor2 := clAqua;
ImageEnView1.BrushTool.BrushSize := 177;
ImageEnView1.BrushTool.BrushGradient := gpgDiagCenter2;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Gradient - 1-bit - Random Values
// PaintBrush - Gradient paint to 200,200 (Vertical)
ImageEnView1.BrushTool.BrushFill := iebfGradient;
ImageEnView1.BrushTool.BrushColor := clBlack;
ImageEnView1.BrushTool.BrushColor2 := clWhite;
ImageEnView1.BrushTool.BrushSize := 80;
ImageEnView1.BrushTool.BrushGradient := gpgVertical;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Spray - Random Values
// PaintBrush - Spray paint to 200,200 (Brush: 177)
ImageEnView1.BrushTool.BrushFill := iebfSpray;
ImageEnView1.BrushTool.BrushColor := clAqua;
ImageEnView1.BrushTool.BrushSize := 177;
ImageEnView1.BrushTool.SprayDensity := 4.2;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Spray - Alpha Channel - Random Values
// PaintBrush - Spray paint to 200,200 (Brush: 177)
ImageEnView1.BrushTool.BrushFill := iebfSpray;
ImageEnView1.BrushTool.BrushColor := clAqua;
ImageEnView1.BrushTool.BrushSize := 177;
ImageEnView1.BrushTool.SprayDensity := 4.2;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Spray - 32-Bit RGBA - Random Values
// PaintBrush - Spray paint to 200,200 (Brush: 177)
ImageEnView1.BrushTool.BrushFill := iebfSpray;
ImageEnView1.BrushTool.BrushColor := clAqua;
ImageEnView1.BrushTool.BrushSize := 177;
ImageEnView1.BrushTool.SprayDensity := 4.2;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Textured - Random Values
// PaintBrush - Textured paint to 200,200 (Brush: 177)
ImageEnView1.BrushTool.BrushFill := iebfTextured;
ImageEnView1.BrushTool.BrushColor := clAqua;
ImageEnView1.BrushTool.BrushSize := 177;
ImageEnView1.BrushTool.AlphaTextureMin := 152;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Textured - Alpha Channel - Random Values
// PaintBrush - Textured paint to 200,200 (Brush: 177)
ImageEnView1.BrushTool.BrushFill := iebfTextured;
ImageEnView1.BrushTool.BrushColor := clAqua;
ImageEnView1.BrushTool.BrushSize := 177;
ImageEnView1.BrushTool.AlphaTextureMin := 152;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Textured - 32-Bit RGBA - Random Values
// PaintBrush - Textured paint to 200,200 (Brush: 177)
ImageEnView1.BrushTool.BrushFill := iebfTextured;
ImageEnView1.BrushTool.BrushColor := clAqua;
ImageEnView1.BrushTool.BrushSize := 177;
ImageEnView1.BrushTool.AlphaTextureMin := 152;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - CenteredTexture - Random Values
// PaintBrush - Centered Texture paint to 200,200 (Brush: 177)
ImageEnView1.BrushTool.BrushFill := iebfCenteredTexture;
ImageEnView1.BrushTool.BrushColor := clAqua;
ImageEnView1.BrushTool.BrushSize := 177;
ImageEnView1.BrushTool.AlphaTextureMin := 172;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - CenteredTexture - Alpha Channel - Random Values
// PaintBrush - Centered Texture paint to 200,200 (Brush: 177)
ImageEnView1.BrushTool.BrushFill := iebfCenteredTexture;
ImageEnView1.BrushTool.BrushColor := clAqua;
ImageEnView1.BrushTool.BrushSize := 177;
ImageEnView1.BrushTool.AlphaTextureMin := 172;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - CenteredTexture - 32-Bit RGBA - Random Values
// PaintBrush - Centered Texture paint to 200,200 (Brush: 177)
ImageEnView1.BrushTool.BrushFill := iebfCenteredTexture;
ImageEnView1.BrushTool.BrushColor := clAqua;
ImageEnView1.BrushTool.BrushSize := 177;
ImageEnView1.BrushTool.AlphaTextureMin := 172;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - TexturedSpray - Random Values
// PaintBrush - Textured Spray paint to 200,200 (Brush: 177)
ImageEnView1.BrushTool.BrushFill := iebfTexturedSpray;
ImageEnView1.BrushTool.BrushColor := clAqua;
ImageEnView1.BrushTool.BrushSize := 177;
ImageEnView1.BrushTool.SprayDensity := 4.2;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - TexturedSpray - Alpha Channel - Random Values
// PaintBrush - Textured Spray paint to 200,200 (Brush: 177)
ImageEnView1.BrushTool.BrushFill := iebfTexturedSpray;
ImageEnView1.BrushTool.BrushColor := clAqua;
ImageEnView1.BrushTool.BrushSize := 177;
ImageEnView1.BrushTool.SprayDensity := 4.2;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - TexturedSpray - 32-Bit RGBA - Random Values
// PaintBrush - Textured Spray paint to 200,200 (Brush: 177)
ImageEnView1.BrushTool.BrushFill := iebfTexturedSpray;
ImageEnView1.BrushTool.BrushColor := clAqua;
ImageEnView1.BrushTool.BrushSize := 177;
ImageEnView1.BrushTool.SprayDensity := 4.2;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Image - Random Values
// PaintBrush - Image Brush to 200,200 (Brush: 128)
ImageEnView1.BrushTool.BrushFill := iebfImage;
ImageEnView1.BrushTool.Transparency := 128;
ImageEnView1.BrushTool.Feathering := 10;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Image - Alpha Channel - Random Values
// PaintBrush - Image Brush to 200,200 (Brush: 128)
ImageEnView1.BrushTool.BrushFill := iebfImage;
ImageEnView1.BrushTool.Transparency := 128;
ImageEnView1.BrushTool.Feathering := 10;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Image - 32-Bit RGBA - Random Values
// PaintBrush - Image Brush to 200,200 (Brush: 128)
ImageEnView1.BrushTool.BrushFill := iebfImage;
ImageEnView1.BrushTool.Transparency := 128;
ImageEnView1.BrushTool.Feathering := 10;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Image - 1-bit - Random Values
// PaintBrush - Image Brush to 200,200 (Brush: 200)
ImageEnView1.BrushTool.BrushFill := iebfImage;
ImageEnView1.BrushTool.Transparency := 200;
ImageEnView1.BrushTool.Feathering := 5;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Eraser - Random Values
// PaintBrush - Eraser to 200,200 (Brush: 177)
ImageEnView1.BrushTool.BrushFill := iebfEraser;
ImageEnView1.BrushTool.BrushSize := 177;
ImageEnView1.BrushTool.EraserOpacity := 1.00;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Eraser - Alpha Channel - Random Values
// PaintBrush - Eraser to 200,200 (Brush: 177)
ImageEnView1.BrushTool.BrushFill := iebfEraser;
ImageEnView1.BrushTool.BrushSize := 177;
ImageEnView1.BrushTool.EraserOpacity := 1.00;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Eraser - 32-Bit RGBA - Random Values
// PaintBrush - Eraser to 200,200 (Brush: 177)
ImageEnView1.BrushTool.BrushFill := iebfEraser;
ImageEnView1.BrushTool.BrushSize := 177;
ImageEnView1.BrushTool.EraserOpacity := 1.00;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Eraser - 1-bit - Random Values
// PaintBrush - Eraser to 200,200 (Brush: 177)
ImageEnView1.BrushTool.BrushFill := iebfEraser;
ImageEnView1.BrushTool.BrushSize := 177;
ImageEnView1.BrushTool.EraserOpacity := 1.00;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - SmartEraser - Random Values
// PaintBrush - Smart Eraser to 200,200 (Brush: 177)
ImageEnView1.BrushTool.BrushFill := iebfSmartEraser;
ImageEnView1.BrushTool.BrushSize := 177;
ImageEnView1.ChromaKeyOptions.Tolerance := 0.71;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - SmartEraser - Alpha Channel - Random Values
// PaintBrush - Smart Eraser to 200,200 (Brush: 177)
ImageEnView1.BrushTool.BrushFill := iebfSmartEraser;
ImageEnView1.BrushTool.BrushSize := 177;
ImageEnView1.ChromaKeyOptions.Tolerance := 0.71;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - SmartEraser - 32-Bit RGBA - Random Values
// PaintBrush - Smart Eraser to 200,200 (Brush: 177)
ImageEnView1.BrushTool.BrushFill := iebfSmartEraser;
ImageEnView1.BrushTool.BrushSize := 177;
ImageEnView1.ChromaKeyOptions.Tolerance := 0.71;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Line - Random Values
// PaintBrush - Line from 100,100 to 200,200 (Brush: 147)
ImageEnView1.BrushTool.BrushFill := iebfLine;
ImageEnView1.BrushTool.BrushColor := clAqua;
ImageEnView1.BrushTool.BrushSize := 147;
ImageEnView1.BrushTool.Transparency := 128;
ImageEnView1.BrushTool.AntiAlias := false;
ImageEnView1.BrushTool.Feathering := 10;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Line - Alpha Channel - Random Values
// PaintBrush - Line from 100,100 to 200,200 (Brush: 147)
ImageEnView1.BrushTool.BrushFill := iebfLine;
ImageEnView1.BrushTool.BrushColor := clAqua;
ImageEnView1.BrushTool.BrushSize := 147;
ImageEnView1.BrushTool.Transparency := 128;
ImageEnView1.BrushTool.AntiAlias := false;
ImageEnView1.BrushTool.Feathering := 10;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Line - 32-Bit RGBA - Random Values
// PaintBrush - Line from 100,100 to 200,200 (Brush: 147)
ImageEnView1.BrushTool.BrushFill := iebfLine;
ImageEnView1.BrushTool.BrushColor := clAqua;
ImageEnView1.BrushTool.BrushSize := 147;
ImageEnView1.BrushTool.Transparency := 128;
ImageEnView1.BrushTool.AntiAlias := false;
ImageEnView1.BrushTool.Feathering := 10;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Line - 1-bit - Random Values
// PaintBrush - Line from 100,100 to 200,200 (Brush: 80)
ImageEnView1.BrushTool.BrushFill := iebfLine;
ImageEnView1.BrushTool.BrushColor := clBlack;
ImageEnView1.BrushTool.BrushSize := 80;
ImageEnView1.BrushTool.Transparency := 200;
ImageEnView1.BrushTool.AntiAlias := false;
ImageEnView1.BrushTool.Feathering := 5;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Rect - Random Values
// PaintBrush - Rect from 100,100 to 200,200 (Brush: 137)
ImageEnView1.BrushTool.BrushFill := iebfRect;
ImageEnView1.BrushTool.BrushColor := clAqua;
ImageEnView1.BrushTool.BrushSize := 137;
ImageEnView1.BrushTool.Transparency := 128;
ImageEnView1.BrushTool.AntiAlias := false;
ImageEnView1.BrushTool.Feathering := 10;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Rect - Alpha Channel - Random Values
// PaintBrush - Rect from 100,100 to 200,200 (Brush: 137)
ImageEnView1.BrushTool.BrushFill := iebfRect;
ImageEnView1.BrushTool.BrushColor := clAqua;
ImageEnView1.BrushTool.BrushSize := 137;
ImageEnView1.BrushTool.Transparency := 128;
ImageEnView1.BrushTool.AntiAlias := false;
ImageEnView1.BrushTool.Feathering := 10;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Rect - 32-Bit RGBA - Random Values
// PaintBrush - Rect from 100,100 to 200,200 (Brush: 137)
ImageEnView1.BrushTool.BrushFill := iebfRect;
ImageEnView1.BrushTool.BrushColor := clAqua;
ImageEnView1.BrushTool.BrushSize := 137;
ImageEnView1.BrushTool.Transparency := 128;
ImageEnView1.BrushTool.AntiAlias := false;
ImageEnView1.BrushTool.Feathering := 10;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Rect - 1-bit - Random Values
// PaintBrush - Rect from 100,100 to 200,200 (Brush: 80)
ImageEnView1.BrushTool.BrushFill := iebfRect;
ImageEnView1.BrushTool.BrushColor := clBlack;
ImageEnView1.BrushTool.BrushSize := 80;
ImageEnView1.BrushTool.Transparency := 200;
ImageEnView1.BrushTool.AntiAlias := false;
ImageEnView1.BrushTool.Feathering := 5;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Filled Rect - Random Values
// PaintBrush - Filled Rect from 100,100 to 200,200 (Brush: 137)
ImageEnView1.BrushTool.BrushFill := iebfFilledRect;
ImageEnView1.BrushTool.BrushColor := clAqua;
ImageEnView1.BrushTool.BrushSize := 137;
ImageEnView1.BrushTool.Transparency := 128;
ImageEnView1.BrushTool.AntiAlias := false;
ImageEnView1.BrushTool.Feathering := 10;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Filled Rect - Alpha Channel - Random Values
// PaintBrush - Filled Rect from 100,100 to 200,200 (Brush: 137)
ImageEnView1.BrushTool.BrushFill := iebfFilledRect;
ImageEnView1.BrushTool.BrushColor := clAqua;
ImageEnView1.BrushTool.BrushSize := 137;
ImageEnView1.BrushTool.Transparency := 128;
ImageEnView1.BrushTool.AntiAlias := false;
ImageEnView1.BrushTool.Feathering := 10;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Filled Rect - 32-Bit RGBA - Random Values
// PaintBrush - Filled Rect from 100,100 to 200,200 (Brush: 137)
ImageEnView1.BrushTool.BrushFill := iebfFilledRect;
ImageEnView1.BrushTool.BrushColor := clAqua;
ImageEnView1.BrushTool.BrushSize := 137;
ImageEnView1.BrushTool.Transparency := 128;
ImageEnView1.BrushTool.AntiAlias := false;
ImageEnView1.BrushTool.Feathering := 10;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Filled Rect - 1-bit - Random Values
// PaintBrush - Filled Rect from 100,100 to 200,200 (Brush: 80)
ImageEnView1.BrushTool.BrushFill := iebfFilledRect;
ImageEnView1.BrushTool.BrushColor := clBlack;
ImageEnView1.BrushTool.BrushSize := 80;
ImageEnView1.BrushTool.Transparency := 200;
ImageEnView1.BrushTool.AntiAlias := false;
ImageEnView1.BrushTool.Feathering := 5;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Ellipse - Random Values
// PaintBrush - Ellipse from 100,100 to 200,200 (Brush: 137)
ImageEnView1.BrushTool.BrushFill := iebfEllipse;
ImageEnView1.BrushTool.BrushColor := clAqua;
ImageEnView1.BrushTool.BrushSize := 137;
ImageEnView1.BrushTool.Transparency := 128;
ImageEnView1.BrushTool.AntiAlias := false;
ImageEnView1.BrushTool.Feathering := 10;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Ellipse - Alpha Channel - Random Values
// PaintBrush - Ellipse from 100,100 to 200,200 (Brush: 137)
ImageEnView1.BrushTool.BrushFill := iebfEllipse;
ImageEnView1.BrushTool.BrushColor := clAqua;
ImageEnView1.BrushTool.BrushSize := 137;
ImageEnView1.BrushTool.Transparency := 128;
ImageEnView1.BrushTool.AntiAlias := false;
ImageEnView1.BrushTool.Feathering := 10;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Ellipse - 32-Bit RGBA - Random Values
// PaintBrush - Ellipse from 100,100 to 200,200 (Brush: 137)
ImageEnView1.BrushTool.BrushFill := iebfEllipse;
ImageEnView1.BrushTool.BrushColor := clAqua;
ImageEnView1.BrushTool.BrushSize := 137;
ImageEnView1.BrushTool.Transparency := 128;
ImageEnView1.BrushTool.AntiAlias := false;
ImageEnView1.BrushTool.Feathering := 10;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Ellipse - 1-bit - Random Values
// PaintBrush - Ellipse from 100,100 to 200,200 (Brush: 80)
ImageEnView1.BrushTool.BrushFill := iebfEllipse;
ImageEnView1.BrushTool.BrushColor := clBlack;
ImageEnView1.BrushTool.BrushSize := 80;
ImageEnView1.BrushTool.Transparency := 200;
ImageEnView1.BrushTool.AntiAlias := false;
ImageEnView1.BrushTool.Feathering := 5;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Filled Ellipse - Random Values
// PaintBrush - Filled Ellipse from 100,100 to 200,200 (Brush: 137)
ImageEnView1.BrushTool.BrushFill := iebfFilledEllipse;
ImageEnView1.BrushTool.BrushColor := clAqua;
ImageEnView1.BrushTool.BrushSize := 137;
ImageEnView1.BrushTool.Transparency := 128;
ImageEnView1.BrushTool.AntiAlias := false;
ImageEnView1.BrushTool.Feathering := 10;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Filled Ellipse - Alpha Channel - Random Values
// PaintBrush - Filled Ellipse from 100,100 to 200,200 (Brush: 137)
ImageEnView1.BrushTool.BrushFill := iebfFilledEllipse;
ImageEnView1.BrushTool.BrushColor := clAqua;
ImageEnView1.BrushTool.BrushSize := 137;
ImageEnView1.BrushTool.Transparency := 128;
ImageEnView1.BrushTool.AntiAlias := false;
ImageEnView1.BrushTool.Feathering := 10;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Filled Ellipse - 32-Bit RGBA - Random Values
// PaintBrush - Filled Ellipse from 100,100 to 200,200 (Brush: 137)
ImageEnView1.BrushTool.BrushFill := iebfFilledEllipse;
ImageEnView1.BrushTool.BrushColor := clAqua;
ImageEnView1.BrushTool.BrushSize := 137;
ImageEnView1.BrushTool.Transparency := 128;
ImageEnView1.BrushTool.AntiAlias := false;
ImageEnView1.BrushTool.Feathering := 10;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
// Automated test of PaintBrush - Filled Ellipse - 1-bit - Random Values
// PaintBrush - Filled Ellipse from 100,100 to 200,200 (Brush: 80)
ImageEnView1.BrushTool.BrushFill := iebfFilledEllipse;
ImageEnView1.BrushTool.BrushColor := clBlack;
ImageEnView1.BrushTool.BrushSize := 80;
ImageEnView1.BrushTool.Transparency := 200;
ImageEnView1.BrushTool.AntiAlias := false;
ImageEnView1.BrushTool.Feathering := 5;
ImageEnView1.BrushTool.StartPainting( 100, 100 );
ImageEnView1.BrushTool.AddToPainting( 200, 200 );
ImageEnView1.BrushTool.EndPainting();
