Code samples for CloneTool.
Automatically generated by the Every Method demo.
// Automated test of CloneTool - Typical Values
// Clone Tool - Cloning to 200,200 (Brush: 50)
ImageEnView1.CloneTool.BrushSize := 50;
ImageEnView1.CloneTool.Transparency := 255;
ImageEnView1.CloneTool.SourceOffset := Point( 0, -15 );
ImageEnView1.CloneTool.StartCloning( x1, y1 );
ImageEnView1.CloneTool.AddToCloning( 200, 200 );
ImageEnView1.CloneTool.EndCloning();



// Automated test of CloneTool - Alpha Channel - Typical Values
// Clone Tool - Cloning to 200,200 (Brush: 50)
ImageEnView1.CloneTool.BrushSize := 50;
ImageEnView1.CloneTool.Transparency := 255;
ImageEnView1.CloneTool.SourceOffset := Point( 0, -15 );
ImageEnView1.CloneTool.StartCloning( x1, y1 );
ImageEnView1.CloneTool.AddToCloning( 200, 200 );
ImageEnView1.CloneTool.EndCloning();



// Automated test of CloneTool - 32-Bit RGBA - Typical Values
// Clone Tool - Cloning to 200,200 (Brush: 50)
ImageEnView1.CloneTool.BrushSize := 50;
ImageEnView1.CloneTool.Transparency := 255;
ImageEnView1.CloneTool.SourceOffset := Point( 0, -15 );
ImageEnView1.CloneTool.StartCloning( x1, y1 );
ImageEnView1.CloneTool.AddToCloning( 200, 200 );
ImageEnView1.CloneTool.EndCloning();



// Automated test of CloneTool - 1-bit - Typical Values
// Clone Tool - Cloning to 200,200 (Brush: 50)
ImageEnView1.CloneTool.BrushSize := 50;
ImageEnView1.CloneTool.Transparency := 255;
ImageEnView1.CloneTool.SourceOffset := Point( 0, -15 );
ImageEnView1.CloneTool.StartCloning( x1, y1 );
ImageEnView1.CloneTool.AddToCloning( 200, 200 );
ImageEnView1.CloneTool.EndCloning();



// Automated test of CloneTool - Random Values
// Clone Tool - Cloning to 200,200 (Brush: 177)
ImageEnView1.CloneTool.BrushSize := 177;
ImageEnView1.CloneTool.Transparency := 128;
ImageEnView1.CloneTool.SourceOffset := Point( 0, 85 );
ImageEnView1.CloneTool.StartCloning( x1, y1 );
ImageEnView1.CloneTool.AddToCloning( 200, 200 );
ImageEnView1.CloneTool.EndCloning();



// Automated test of CloneTool - Alpha Channel - Random Values
// Clone Tool - Cloning to 200,200 (Brush: 177)
ImageEnView1.CloneTool.BrushSize := 177;
ImageEnView1.CloneTool.Transparency := 128;
ImageEnView1.CloneTool.SourceOffset := Point( 0, 85 );
ImageEnView1.CloneTool.StartCloning( x1, y1 );
ImageEnView1.CloneTool.AddToCloning( 200, 200 );
ImageEnView1.CloneTool.EndCloning();



// Automated test of CloneTool - 32-Bit RGBA - Random Values
// Clone Tool - Cloning to 200,200 (Brush: 177)
ImageEnView1.CloneTool.BrushSize := 177;
ImageEnView1.CloneTool.Transparency := 128;
ImageEnView1.CloneTool.SourceOffset := Point( 0, 85 );
ImageEnView1.CloneTool.StartCloning( x1, y1 );
ImageEnView1.CloneTool.AddToCloning( 200, 200 );
ImageEnView1.CloneTool.EndCloning();



// Automated test of CloneTool - 1-bit - Random Values
// Clone Tool - Cloning to 200,200 (Brush: 177)
ImageEnView1.CloneTool.BrushSize := 177;
ImageEnView1.CloneTool.Transparency := 128;
ImageEnView1.CloneTool.SourceOffset := Point( 0, 85 );
ImageEnView1.CloneTool.StartCloning( x1, y1 );
ImageEnView1.CloneTool.AddToCloning( 200, 200 );
ImageEnView1.CloneTool.EndCloning();

---