There are no provisions in ImageEnMView that allows storing images as thumbnails and allow access to the full image.. There are no provisions to load the full images instead of the thumbnails into PrintPreview that I am aware of.
One way to work around the problem is to add another ImageEnMView component (ImageEnMView2) to the form and set its visible property to False. Set ImageEnMView2.StoreType to ietNormal. To get the original full size images to print we load all the images into ImageEnMView2 from the filenames stored in ImageEnMView1 then use ImageEnMView2 to do the PrintPreview.
You could also create the second ImageEnMview at run time to do the same thing.
procedure TForm1.PrintPreview1Click(Sender: TObject);
var
i: integer;
iFilename: string;
begin
Screen.Cursor := crHourGlass;
try
{ Clear ImageEnMView2 }
ImageEnMView2.Clear;
{ Add the full size images to ImageEnMView2 }
for i := 0 to ImageEnMView1.ImageCount - 1 do
begin
{ Get the thumbnail filename }
iFilename := ImageEnMView2.MIO.Params[i].FileName;
{ Load the file into ImageEnMView2 }
ImageEnMView2.MIO.LoadFromFile(iFilename);
end;
{ Show the PrintPreviewDialog }
ImageEnMView2.MIO.PrintPreviewParams.PrintThumbnails := False;
ImageEnMView2.MIO.PrintPreviewParams.ThumbnailStyle := ptFlat;
finally
Screen.Cursor := crDefault;
end;
ImageEnMView2.MIO.DoPrintPreviewDialog('Test', False, 'PrintPreviewTest', False);
end;
Unfortunately, I am not sure if there will be memory problems with large images with this method.
William Miller
Adirondack Software & Graphics
Email: w2m@frontiernet.net
EBook: http://www.imageen.com/ebook/
Apprehend: http://www.frontiernet.net/~w2m/index.html
Search
