Width available is TImageEnView.ClientWidth
Read CurrentScrollBars to determine if vertical scrollbar is visible:
https://www.imageen.com/help/TImageEnMView.CurrentScrollBars.html
If visible then decrement width by scrollbar width:
https://www.imageen.com/help/TIEImageEnGlobalSettings.VScrollWidth.html
Example code:
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;
Nigel
Xequte Software
www.imageen.com
Search
How to make thumbs match width of TImageEnMView?
Posted - Jun 07 2019 : 00:18:41
