ImageEn

TImageEnProc.CalcImagePalette Code Samples


Code samples for CalcImagePalette.
Automatically generated by the Every Method demo.
// Automated test of CalcImagePalette (16) - Typical Values
// CalcImagePalette (16 colors/Kohonen)
IEGlobalSettings().ColorReductionAlgorithm := 0; // "Kohonen"
cnt := ImageEnView1.Proc.CalcImagePalette( MyColorMap, 16 );
IEDrawColorPalette( ImageEnView2.IEBitmap, MyColorMap, 40, 40, 4, clWhite, clBlack, cnt );



// Automated test of CalcImagePalette (16) - Alpha Channel - Typical Values
// CalcImagePalette (16 colors/Kohonen)
IEGlobalSettings().ColorReductionAlgorithm := 0; // "Kohonen"
cnt := ImageEnView1.Proc.CalcImagePalette( MyColorMap, 16 );
IEDrawColorPalette( ImageEnView2.IEBitmap, MyColorMap, 40, 40, 4, clWhite, clBlack, cnt );



// Automated test of CalcImagePalette (16) - 32-Bit RGBA - Typical Values
// CalcImagePalette (16 colors/Kohonen)
IEGlobalSettings().ColorReductionAlgorithm := 0; // "Kohonen"
cnt := ImageEnView1.Proc.CalcImagePalette( MyColorMap, 16 );
IEDrawColorPalette( ImageEnView2.IEBitmap, MyColorMap, 40, 40, 4, clWhite, clBlack, cnt );



// Automated test of CalcImagePalette (16) - 1-bit - Typical Values
// CalcImagePalette (16 colors/Kohonen)
IEGlobalSettings().ColorReductionAlgorithm := 0; // "Kohonen"
cnt := ImageEnView1.Proc.CalcImagePalette( MyColorMap, 16 );
IEDrawColorPalette( ImageEnView2.IEBitmap, MyColorMap, 40, 40, 4, clWhite, clBlack, cnt );



// Automated test of CalcImagePalette (256) - Typical Values
// CalcImagePalette (256 colors/Kohonen)
IEGlobalSettings().ColorReductionAlgorithm := 0; // "Kohonen"
cnt := ImageEnView1.Proc.CalcImagePalette( MyColorMap256, 256 );
IEDrawColorPalette( ImageEnView2.IEBitmap, MyColorMap256, 30, 30, 16, clWhite, clBlack, cnt );



// Automated test of CalcImagePalette (256) - Alpha Channel - Typical Values
// CalcImagePalette (256 colors/Kohonen)
IEGlobalSettings().ColorReductionAlgorithm := 0; // "Kohonen"
cnt := ImageEnView1.Proc.CalcImagePalette( MyColorMap256, 256 );
IEDrawColorPalette( ImageEnView2.IEBitmap, MyColorMap256, 30, 30, 16, clWhite, clBlack, cnt );



// Automated test of CalcImagePalette (256) - 32-Bit RGBA - Typical Values
// CalcImagePalette (256 colors/Kohonen)
IEGlobalSettings().ColorReductionAlgorithm := 0; // "Kohonen"
cnt := ImageEnView1.Proc.CalcImagePalette( MyColorMap256, 256 );
IEDrawColorPalette( ImageEnView2.IEBitmap, MyColorMap256, 30, 30, 16, clWhite, clBlack, cnt );



// Automated test of CalcImagePalette (256) - 1-bit - Typical Values
// CalcImagePalette (256 colors/Kohonen)
IEGlobalSettings().ColorReductionAlgorithm := 0; // "Kohonen"
cnt := ImageEnView1.Proc.CalcImagePalette( MyColorMap256, 256 );
IEDrawColorPalette( ImageEnView2.IEBitmap, MyColorMap256, 30, 30, 16, clWhite, clBlack, cnt );



// Automated test of CalcImagePalette (1000) - Typical Values
// CalcImagePalette (1000 colors/Kohonen)
IEGlobalSettings().ColorReductionAlgorithm := 0; // "Kohonen"
cnt := ImageEnView1.Proc.CalcImagePalette( MyColorMap, 1000 );
IEDrawColorPalette( ImageEnView2.IEBitmap, MyColorMap, 30, 30, 30, clWhite, clBlack, cnt );



// Automated test of CalcImagePalette (1000) - Alpha Channel - Typical Values
// CalcImagePalette (1000 colors/Kohonen)
IEGlobalSettings().ColorReductionAlgorithm := 0; // "Kohonen"
cnt := ImageEnView1.Proc.CalcImagePalette( MyColorMap, 1000 );
IEDrawColorPalette( ImageEnView2.IEBitmap, MyColorMap, 30, 30, 30, clWhite, clBlack, cnt );



// Automated test of CalcImagePalette (1000) - 32-Bit RGBA - Typical Values
// CalcImagePalette (1000 colors/Kohonen)
IEGlobalSettings().ColorReductionAlgorithm := 0; // "Kohonen"
cnt := ImageEnView1.Proc.CalcImagePalette( MyColorMap, 1000 );
IEDrawColorPalette( ImageEnView2.IEBitmap, MyColorMap, 30, 30, 30, clWhite, clBlack, cnt );



// Automated test of CalcImagePalette (1000) - 1-bit - Typical Values
// CalcImagePalette (1000 colors/Kohonen)
IEGlobalSettings().ColorReductionAlgorithm := 0; // "Kohonen"
cnt := ImageEnView1.Proc.CalcImagePalette( MyColorMap, 1000 );
IEDrawColorPalette( ImageEnView2.IEBitmap, MyColorMap, 30, 30, 30, clWhite, clBlack, cnt );



// Automated test of CalcImagePalette (16) - Random Values
// CalcImagePalette (78 colors/Kohonen)
IEGlobalSettings().ColorReductionAlgorithm := 0; // "Kohonen"
cnt := ImageEnView1.Proc.CalcImagePalette( MyColorMap, 78 );
IEDrawColorPalette( ImageEnView2.IEBitmap, MyColorMap, 40, 40, 4, clWhite, clBlack, cnt );



// Automated test of CalcImagePalette (16) - Alpha Channel - Random Values
// CalcImagePalette (78 colors/Kohonen)
IEGlobalSettings().ColorReductionAlgorithm := 0; // "Kohonen"
cnt := ImageEnView1.Proc.CalcImagePalette( MyColorMap, 78 );
IEDrawColorPalette( ImageEnView2.IEBitmap, MyColorMap, 40, 40, 4, clWhite, clBlack, cnt );



// Automated test of CalcImagePalette (16) - 32-Bit RGBA - Random Values
// CalcImagePalette (78 colors/Kohonen)
IEGlobalSettings().ColorReductionAlgorithm := 0; // "Kohonen"
cnt := ImageEnView1.Proc.CalcImagePalette( MyColorMap, 78 );
IEDrawColorPalette( ImageEnView2.IEBitmap, MyColorMap, 40, 40, 4, clWhite, clBlack, cnt );



// Automated test of CalcImagePalette (16) - 1-bit - Random Values
// CalcImagePalette (78 colors/Kohonen)
IEGlobalSettings().ColorReductionAlgorithm := 0; // "Kohonen"
cnt := ImageEnView1.Proc.CalcImagePalette( MyColorMap, 78 );
IEDrawColorPalette( ImageEnView2.IEBitmap, MyColorMap, 40, 40, 4, clWhite, clBlack, cnt );



// Automated test of CalcImagePalette (256) - Random Values
// CalcImagePalette (256 colors/Kohonen)
IEGlobalSettings().ColorReductionAlgorithm := 0; // "Kohonen"
cnt := ImageEnView1.Proc.CalcImagePalette( MyColorMap256, 256 );
IEDrawColorPalette( ImageEnView2.IEBitmap, MyColorMap256, 30, 30, 16, clWhite, clBlack, cnt );



// Automated test of CalcImagePalette (256) - Alpha Channel - Random Values
// CalcImagePalette (256 colors/Kohonen)
IEGlobalSettings().ColorReductionAlgorithm := 0; // "Kohonen"
cnt := ImageEnView1.Proc.CalcImagePalette( MyColorMap256, 256 );
IEDrawColorPalette( ImageEnView2.IEBitmap, MyColorMap256, 30, 30, 16, clWhite, clBlack, cnt );



// Automated test of CalcImagePalette (256) - 32-Bit RGBA - Random Values
// CalcImagePalette (256 colors/Kohonen)
IEGlobalSettings().ColorReductionAlgorithm := 0; // "Kohonen"
cnt := ImageEnView1.Proc.CalcImagePalette( MyColorMap256, 256 );
IEDrawColorPalette( ImageEnView2.IEBitmap, MyColorMap256, 30, 30, 16, clWhite, clBlack, cnt );



// Automated test of CalcImagePalette (256) - 1-bit - Random Values
// CalcImagePalette (256 colors/Kohonen)
IEGlobalSettings().ColorReductionAlgorithm := 0; // "Kohonen"
cnt := ImageEnView1.Proc.CalcImagePalette( MyColorMap256, 256 );
IEDrawColorPalette( ImageEnView2.IEBitmap, MyColorMap256, 30, 30, 16, clWhite, clBlack, cnt );



// Automated test of CalcImagePalette (1000) - Random Values
// CalcImagePalette (600 colors/Kohonen)
IEGlobalSettings().ColorReductionAlgorithm := 0; // "Kohonen"
cnt := ImageEnView1.Proc.CalcImagePalette( MyColorMap, 600 );
IEDrawColorPalette( ImageEnView2.IEBitmap, MyColorMap, 30, 30, 30, clWhite, clBlack, cnt );



// Automated test of CalcImagePalette (1000) - Alpha Channel - Random Values
// CalcImagePalette (600 colors/Kohonen)
IEGlobalSettings().ColorReductionAlgorithm := 0; // "Kohonen"
cnt := ImageEnView1.Proc.CalcImagePalette( MyColorMap, 600 );
IEDrawColorPalette( ImageEnView2.IEBitmap, MyColorMap, 30, 30, 30, clWhite, clBlack, cnt );



// Automated test of CalcImagePalette (1000) - 32-Bit RGBA - Random Values
// CalcImagePalette (600 colors/Kohonen)
IEGlobalSettings().ColorReductionAlgorithm := 0; // "Kohonen"
cnt := ImageEnView1.Proc.CalcImagePalette( MyColorMap, 600 );
IEDrawColorPalette( ImageEnView2.IEBitmap, MyColorMap, 30, 30, 30, clWhite, clBlack, cnt );



// Automated test of CalcImagePalette (1000) - 1-bit - Random Values
// CalcImagePalette (600 colors/Kohonen)
IEGlobalSettings().ColorReductionAlgorithm := 0; // "Kohonen"
cnt := ImageEnView1.Proc.CalcImagePalette( MyColorMap, 600 );
IEDrawColorPalette( ImageEnView2.IEBitmap, MyColorMap, 30, 30, 30, clWhite, clBlack, cnt );