TImageEnView.AddSelPoint Code Samples

Code samples for AddSelPoint.
Automatically generated by the Every Method demo.
// Automated test of AddSelPoint - Typical Values
// Add a polygonal selection and apply gray-scale
const
  PENT_X1 = 0.00; PENT_Y1 = 0.39;
  PENT_X2 = 0.19; PENT_Y2 = 1.00;
  PENT_X3 = 0.81; PENT_Y3 = 1.00;
  PENT_X4 = 1.00; PENT_Y4 = 0.39;
  PENT_X5 = 0.50; PENT_Y5 = 0.00;

bw := ImageEnView1.IEBitmap.Width;
bh := ImageEnView1.IEBitmap.Height;
ImageEnView1.SelectionBase := iesbBitmap;
ImageEnView1.BeginSelect();
ImageEnView1.AddSelPoint( Round( PENT_X1 * bw ), Round( PENT_Y1 * bh ));
ImageEnView1.AddSelPoint( Round( PENT_X2 * bw ), Round( PENT_Y2 * bh ));
ImageEnView1.AddSelPoint( Round( PENT_X3 * bw ), Round( PENT_Y3 * bh ));
ImageEnView1.AddSelPoint( Round( PENT_X4 * bw ), Round( PENT_Y4 * bh ));
ImageEnView1.AddSelPoint( Round( PENT_X5 * bw ), Round( PENT_Y5 * bh ));
ImageEnView1.EndSelect();
ImageEnView1.Proc.ConvertToGray();

// Automated test of AddSelPoint - Alpha Channel - Typical Values
// Add a polygonal selection and apply gray-scale
const
  PENT_X1 = 0.00; PENT_Y1 = 0.39;
  PENT_X2 = 0.19; PENT_Y2 = 1.00;
  PENT_X3 = 0.81; PENT_Y3 = 1.00;
  PENT_X4 = 1.00; PENT_Y4 = 0.39;
  PENT_X5 = 0.50; PENT_Y5 = 0.00;

bw := ImageEnView1.IEBitmap.Width;
bh := ImageEnView1.IEBitmap.Height;
ImageEnView1.SelectionBase := iesbBitmap;
ImageEnView1.BeginSelect();
ImageEnView1.AddSelPoint( Round( PENT_X1 * bw ), Round( PENT_Y1 * bh ));
ImageEnView1.AddSelPoint( Round( PENT_X2 * bw ), Round( PENT_Y2 * bh ));
ImageEnView1.AddSelPoint( Round( PENT_X3 * bw ), Round( PENT_Y3 * bh ));
ImageEnView1.AddSelPoint( Round( PENT_X4 * bw ), Round( PENT_Y4 * bh ));
ImageEnView1.AddSelPoint( Round( PENT_X5 * bw ), Round( PENT_Y5 * bh ));
ImageEnView1.EndSelect();
ImageEnView1.Proc.ConvertToGray();

// Automated test of AddSelPoint - 32-Bit RGBA - Typical Values
// Add a polygonal selection and apply gray-scale
const
  PENT_X1 = 0.00; PENT_Y1 = 0.39;
  PENT_X2 = 0.19; PENT_Y2 = 1.00;
  PENT_X3 = 0.81; PENT_Y3 = 1.00;
  PENT_X4 = 1.00; PENT_Y4 = 0.39;
  PENT_X5 = 0.50; PENT_Y5 = 0.00;

bw := ImageEnView1.IEBitmap.Width;
bh := ImageEnView1.IEBitmap.Height;
ImageEnView1.SelectionBase := iesbBitmap;
ImageEnView1.BeginSelect();
ImageEnView1.AddSelPoint( Round( PENT_X1 * bw ), Round( PENT_Y1 * bh ));
ImageEnView1.AddSelPoint( Round( PENT_X2 * bw ), Round( PENT_Y2 * bh ));
ImageEnView1.AddSelPoint( Round( PENT_X3 * bw ), Round( PENT_Y3 * bh ));
ImageEnView1.AddSelPoint( Round( PENT_X4 * bw ), Round( PENT_Y4 * bh ));
ImageEnView1.AddSelPoint( Round( PENT_X5 * bw ), Round( PENT_Y5 * bh ));
ImageEnView1.EndSelect();
ImageEnView1.Proc.ConvertToGray();

// Automated test of AddSelPoint - 1-bit - Typical Values
// Add a polygonal selection and clear
const
  PENT_X1 = 0.00; PENT_Y1 = 0.39;
  PENT_X2 = 0.19; PENT_Y2 = 1.00;
  PENT_X3 = 0.81; PENT_Y3 = 1.00;
  PENT_X4 = 1.00; PENT_Y4 = 0.39;
  PENT_X5 = 0.50; PENT_Y5 = 0.00;

bw := ImageEnView1.IEBitmap.Width;
bh := ImageEnView1.IEBitmap.Height;
ImageEnView1.SelectionBase := iesbBitmap;
ImageEnView1.BeginSelect();
ImageEnView1.AddSelPoint( Round( PENT_X1 * bw ), Round( PENT_Y1 * bh ));
ImageEnView1.AddSelPoint( Round( PENT_X2 * bw ), Round( PENT_Y2 * bh ));
ImageEnView1.AddSelPoint( Round( PENT_X3 * bw ), Round( PENT_Y3 * bh ));
ImageEnView1.AddSelPoint( Round( PENT_X4 * bw ), Round( PENT_Y4 * bh ));
ImageEnView1.AddSelPoint( Round( PENT_X5 * bw ), Round( PENT_Y5 * bh ));
ImageEnView1.EndSelect();
ImageEnView1.Proc.ClearSel( True );

// Automated test of AddSelPoint - Random Values
// Add a polygonal selection and adjust luminance
const
  PENT_X1 = 0.00; PENT_Y1 = 0.39;
  PENT_X2 = 0.19; PENT_Y2 = 1.00;
  PENT_X3 = 0.81; PENT_Y3 = 1.00;
  PENT_X4 = 1.00; PENT_Y4 = 0.39;
  PENT_X5 = 0.50; PENT_Y5 = 0.00;

bw := ImageEnView1.IEBitmap.Width;
bh := ImageEnView1.IEBitmap.Height;
ImageEnView1.SelectionBase := iesbBitmap;
ImageEnView1.BeginSelect();
ImageEnView1.AddSelPoint( Round( PENT_X1 * bw ), Round( PENT_Y1 * bh ));
ImageEnView1.AddSelPoint( Round( PENT_X2 * bw ), Round( PENT_Y2 * bh ));
ImageEnView1.AddSelPoint( Round( PENT_X3 * bw ), Round( PENT_Y3 * bh ));
ImageEnView1.AddSelPoint( Round( PENT_X4 * bw ), Round( PENT_Y4 * bh ));
ImageEnView1.AddSelPoint( Round( PENT_X5 * bw ), Round( PENT_Y5 * bh ));
ImageEnView1.EndSelect();
ImageEnView1.InvertSelection( True );
ImageEnView1.MakeSelectionFeather( 15 );
ImageEnView1.Proc.AdjustLumSatHistogram( 0.00, 0.85 );

// Automated test of AddSelPoint - Alpha Channel - Random Values
// Add a polygonal selection and adjust luminance
const
  PENT_X1 = 0.00; PENT_Y1 = 0.39;
  PENT_X2 = 0.19; PENT_Y2 = 1.00;
  PENT_X3 = 0.81; PENT_Y3 = 1.00;
  PENT_X4 = 1.00; PENT_Y4 = 0.39;
  PENT_X5 = 0.50; PENT_Y5 = 0.00;

bw := ImageEnView1.IEBitmap.Width;
bh := ImageEnView1.IEBitmap.Height;
ImageEnView1.SelectionBase := iesbBitmap;
ImageEnView1.BeginSelect();
ImageEnView1.AddSelPoint( Round( PENT_X1 * bw ), Round( PENT_Y1 * bh ));
ImageEnView1.AddSelPoint( Round( PENT_X2 * bw ), Round( PENT_Y2 * bh ));
ImageEnView1.AddSelPoint( Round( PENT_X3 * bw ), Round( PENT_Y3 * bh ));
ImageEnView1.AddSelPoint( Round( PENT_X4 * bw ), Round( PENT_Y4 * bh ));
ImageEnView1.AddSelPoint( Round( PENT_X5 * bw ), Round( PENT_Y5 * bh ));
ImageEnView1.EndSelect();
ImageEnView1.InvertSelection( True );
ImageEnView1.MakeSelectionFeather( 15 );
ImageEnView1.Proc.AdjustLumSatHistogram( 0.00, 0.85 );

// Automated test of AddSelPoint - 32-Bit RGBA - Random Values
// Add a polygonal selection and adjust luminance
const
  PENT_X1 = 0.00; PENT_Y1 = 0.39;
  PENT_X2 = 0.19; PENT_Y2 = 1.00;
  PENT_X3 = 0.81; PENT_Y3 = 1.00;
  PENT_X4 = 1.00; PENT_Y4 = 0.39;
  PENT_X5 = 0.50; PENT_Y5 = 0.00;

bw := ImageEnView1.IEBitmap.Width;
bh := ImageEnView1.IEBitmap.Height;
ImageEnView1.SelectionBase := iesbBitmap;
ImageEnView1.BeginSelect();
ImageEnView1.AddSelPoint( Round( PENT_X1 * bw ), Round( PENT_Y1 * bh ));
ImageEnView1.AddSelPoint( Round( PENT_X2 * bw ), Round( PENT_Y2 * bh ));
ImageEnView1.AddSelPoint( Round( PENT_X3 * bw ), Round( PENT_Y3 * bh ));
ImageEnView1.AddSelPoint( Round( PENT_X4 * bw ), Round( PENT_Y4 * bh ));
ImageEnView1.AddSelPoint( Round( PENT_X5 * bw ), Round( PENT_Y5 * bh ));
ImageEnView1.EndSelect();
ImageEnView1.InvertSelection( True );
ImageEnView1.MakeSelectionFeather( 15 );
ImageEnView1.Proc.AdjustLumSatHistogram( 0.00, 0.85 );

// Automated test of AddSelPoint - 1-bit - Random Values
// Add a polygonal selection and clear
const
  PENT_X1 = 0.00; PENT_Y1 = 0.39;
  PENT_X2 = 0.19; PENT_Y2 = 1.00;
  PENT_X3 = 0.81; PENT_Y3 = 1.00;
  PENT_X4 = 1.00; PENT_Y4 = 0.39;
  PENT_X5 = 0.50; PENT_Y5 = 0.00;

bw := ImageEnView1.IEBitmap.Width;
bh := ImageEnView1.IEBitmap.Height;
ImageEnView1.SelectionBase := iesbBitmap;
ImageEnView1.BeginSelect();
ImageEnView1.AddSelPoint( Round( PENT_X1 * bw ), Round( PENT_Y1 * bh ));
ImageEnView1.AddSelPoint( Round( PENT_X2 * bw ), Round( PENT_Y2 * bh ));
ImageEnView1.AddSelPoint( Round( PENT_X3 * bw ), Round( PENT_Y3 * bh ));
ImageEnView1.AddSelPoint( Round( PENT_X4 * bw ), Round( PENT_Y4 * bh ));
ImageEnView1.AddSelPoint( Round( PENT_X5 * bw ), Round( PENT_Y5 * bh ));
ImageEnView1.EndSelect();
ImageEnView1.InvertSelection( True );
ImageEnView1.MakeSelectionFeather( 15 );
ImageEnView1.Proc.ClearSel( True );

TImageEnView.AddSelPoint Code Samples

ImageEn: Image Viewing and Editing Library for Delphi and C++Builder © Xequte Software 2026. All Rights Reserved - Terms of Use - Updated: 6 March 2026 http://www.imageen.com/help/TImageEnView.AddSelPoint_Code_Samples.html

ImageEn: Image Viewing and Editing Library for Delphi and C++Builder
© Xequte Software 2026. All Rights Reserved - Terms of Use - Updated: 6 March 2026
http://www.imageen.com/help/TImageEnView.AddSelPoint_Code_Samples.html