ImageEn, unit ieview

TIEView.CurrentScrollBars

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;


See Also

 ScrollBars
 ScrollBarsAlwaysVisible
 HScrollBarParams
 VScrollBarParams