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 |
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