TIEView.CurrentScrollBars

Declaration

property CurrentScrollBars: TScrollType; (Read-Only)

Description

Returns the currently displayed scrollbars.

Value	Description
ssNone	No scroll bars are currently showing
ssHorizontal	A single scroll bar is showing along the bottom edge
ssVertical	A single scroll bar is showing along the right edge
ssBoth	Scroll bars are showing on both the bottom and right edges

Example

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;

TIEView.CurrentScrollBars