Instead of Pixelformat or BitCount use IO.Params:
iBitDepth := ImageEnView1.IO.Params.SamplesPerPixel *
ImageEnView1.IO.Params.BitsPerSample;
if iBitDepth = 32 then
StatusBar1.Panels[4].Text := 'Color: RGBA' +
IntToStr(ImageEnView1.IO.Params.SamplesPerPixel *
ImageEnView1.IO.Params.BitsPerSample) + '-bit'
else
StatusBar1.Panels[4].Text := 'Color: RGB' +
IntToStr(ImageEnView1.IO.Params.SamplesPerPixel *
ImageEnView1.IO.Params.BitsPerSample) + '-bit';
Bill Miller
Adirondack Software & Graphics
Email: w2m@hughes.net
EBook: http://www.imageen.com/ebook/
Custom Commercial ImageEn Development