Code samples for CalcImageTransparency.
Automatically generated by the Every Method demo.
// Automated test of CalcImageTransparency
// CalcImageTransparency: Image is 0% transparent
dd := ImageEnView1.Proc.CalcImageTransparency(); // Result: 0.00%



// Automated test of CalcImageTransparency - Alpha Channel
// CalcImageTransparency: Image is 84% transparent
dd := ImageEnView1.Proc.CalcImageTransparency(); // Result: 83.59%
ImageEnView1.IEBitmap.Assign( ImageEnView2.IEBitmap.AlphaChannel );



// Automated test of CalcImageTransparency - 32-Bit RGBA
// CalcImageTransparency: Image is 58% transparent
dd := ImageEnView1.Proc.CalcImageTransparency(); // Result: 58.43%
ImageEnView1.IEBitmap.Assign( ImageEnView2.IEBitmap.AlphaChannel );



// Automated test of CalcImageTransparency - 1-bit
// CalcImageTransparency: Image is 0% transparent
dd := ImageEnView1.Proc.CalcImageTransparency(); // Result: 0.00%



// Automated test of CalcImageTransparency - Random Values
// CalcImageTransparency (after setting transparent colors): Image is 2% transparent
ImageEnView2.Proc.SetTransparentColors( TColor2TRGB( clWhite ), 50, 0 );
dd := ImageEnView1.Proc.CalcImageTransparency(); // Result: 1.91%
ImageEnView1.IEBitmap.Assign( ImageEnView2.IEBitmap.AlphaChannel );



// Automated test of CalcImageTransparency - Alpha Channel - Random Values
// CalcImageTransparency (after setting transparent colors): Image is 86% transparent
ImageEnView2.Proc.SetTransparentColors( TColor2TRGB( clWhite ), 50, 0 );
dd := ImageEnView1.Proc.CalcImageTransparency(); // Result: 86.12%
ImageEnView1.IEBitmap.Assign( ImageEnView2.IEBitmap.AlphaChannel );



// Automated test of CalcImageTransparency - 32-Bit RGBA - Random Values
// CalcImageTransparency (after setting transparent colors): Image is 59% transparent
ImageEnView2.Proc.SetTransparentColors( TColor2TRGB( clWhite ), 50, 0 );
dd := ImageEnView1.Proc.CalcImageTransparency(); // Result: 59.03%
ImageEnView1.IEBitmap.Assign( ImageEnView2.IEBitmap.AlphaChannel );



// Automated test of CalcImageTransparency - 1-bit - Random Values
// CalcImageTransparency (after setting transparent colors): Image is 21% transparent
ImageEnView2.Proc.SetTransparentColors( TColor2TRGB( clWhite ), 50, 0 );
dd := ImageEnView1.Proc.CalcImageTransparency(); // Result: 21.22%
ImageEnView1.IEBitmap.Assign( ImageEnView2.IEBitmap.AlphaChannel );

---