Declaration
procedure IEShowImagePreview(const Filename: string; const Caption: string = '';AutoShrink: Boolean = true; AutoStretch: Boolean = False;
PreviewWidth: Integer = -1; PreviewHeight: Integer = -1;
Maximized: Boolean = False); overload;
procedure IEShowImagePreview(Bmp: TIEBitmap; const Caption: string = '';
AutoShrink: Boolean = true; AutoStretch: Boolean = False;
PreviewWidth: Integer = -1; PreviewHeight: Integer = -1;
Maximized: Boolean = False); overload;
Description
Display a pop-up window to show an image.| Parameter | Description |
|---|---|
| Filename/Bmp | The image to display |
| Caption | The heading for the window (defaults to the image filename) |
| AutoShrink | If true, large images will be shrunk to the window size |
| AutoStretch | If true, small images will be stretched to the window size |
| PreviewWidth, PreviewHeight | The size of the display window. If -1 it will be made the same as the image (though it will be shrunk to ensure it is no larger than the screen) |
| Maximized | Set to true to display the window in a maximized state |
Note:
◼ User can hide the dialog by clicking Esc or clicking the [x] button
◼ An exception will be raised if any invalid filename is specified (e.g. not an image)
◼ A simple pop-up menu is available to zoom or print the image
◼ You can also show image info using IEShowImageInfo
Demo
 | Demos\InputOutput\BatchConvert\BatchConvert.dpr |
Examples
IEShowImagePreview( 'D:\Image.jpg' );// Show a maximized preview at 100% zoom
IEShowImagePreview( 'D:\Image.png', 'Preview Image', False, False, -1, -1, True );
// Show preview of the current image in a TImageEnMView
bmp := ImageEnMView1.IEBitmap;
if bmp <> nil then
IEShowImagePreview( bmp, '', fAutoShrink, fAutoStretch, -1, -1, fMaximized );