Set the ImageEnMView1.Style to iemsFlat and align ImageEnMView = alLeft; Then add a TSplitter on the right side of the ImageEnMview.
Then write:
procedure TForm1.Splitter1Moved(Sender: TObject);
begin
// resize the thumbnails and allow room for selection to be fully visible
ImageEnMView1.ThumbWidth := ImageEnMView1.ClientWidth - (ImageEnMView1.HorizBorder * 2);
ImageEnMView1.ThumbHeight := ImageEnMView1.ClientWidth - (ImageEnMView1.HorizBorder * 2);
ImageEnMView1.Update;
if ImageEnMView1.SelectedImage <> -1 then
// Keep selected image visible
ImageEnMView1.DisplayImageAt(ImageEnMView1.SelectedImage, 0, ImageEnMView1.SelectedImage);
end;
The thumbnail will fill the entire ImageEnMView client area minus an adjustment for the HorizBorder. When you move the splitter then ImageEnMView resizes itself so you can adjust the width of the thumbnails baised on the on the ImageEnMView clientwidth.
Stretched Small

408.3 KB
Stretched Medium

533.23 KB
In this example the splitter is colored an ugly black so it is easy to see.
William Miller
Adirondack Software & Graphics
Email: w2m@frontiernet.net
EBook: http://www.imageen.com/ebook/
Apprehend: http://www.frontiernet.net/~w2m/index.html