IsGrayscale example for Delphi

This example tests to see if the bitmap is grayscale.

var
   IsGray: GrayScaleTypes;
begin
   IsGray:= LEADRasterView1.Raster.IsGrayscale;
   if (IsGray = GRAY_NO) then
      ShowMessage('Not Grayscale')
   else
      ShowMessage('Is Grayscale');
end;