if ImageEnMView1.CurrentScrollBars = ssVertical then ShowMessage( 'Only vertical scrollbar is displayed' );
// Make thumbnails match the width of the TImageEnMView procedure TForm1.ImageEnMView1Resize(Sender: TObject); var w: integer; begin w := ImageEnMView1.ClientWidth; if ImageEnMView1.CurrentScrollBars in [ ssVertical, ssBoth ] then dec( w, IEGlobalSettings().VScrollWidth ); ImageEnMView1.SetThumbnailSize( w , MulDiv( w, 4, 3) ); end;