ImageEn, unit iemio

TImageEnMIO.PrintImages

TImageEnMIO.PrintImages


Declaration

procedure PrintImages(Columns: integer = 2; Rows: integer = 2; HorizSpace: double = 0.5; VertSpace: double = 0.5; PrintSelected: boolean = false; Margins: double = 0; CellBorder: boolean = true; ShowText: boolean = true; DropShadow: boolean = false; BorderColor: TColor = clBlack; const Heading: string = ''; HeadingHeight: Integer = 5; HeadingColor: TColor = clBlack; ImageBorder: boolean = False); overload;
procedure PrintImages(PrtCanvas: TCanvas; Columns: integer = 2; Rows: integer = 2; HorizSpace: double = 0.5; VertSpace: double = 0.5; PrintSelected: boolean = false; MarginLeft: double = 0; MarginTop: double = 0; MarginRight: double = 0; MarginBottom: double = 0; CellBorder: boolean = true; ShowText: boolean = true; DropShadow: boolean = false; BorderColor: TColor = clBlack; const Heading: string = ''; HeadingHeight: Integer = 5; HeadingColor: TColor = clBlack; ImageBorder: boolean = False); overload;


Description

Print multiple images (all or just selected) in the attached TImageEnMView or TIEMultiBitmap as rows and columns of thumbnails (contact sheets).

Parameter Description
PrtCanvas The canvas to bring to. Specify nil to use Printer.Canvas
Columns Specifies the number of columns of images across the page
Rows Specifies the number of rows of images down the page
HorizSpace The horizontal space in inches between images
VertSpace The vertical space in inches between images
PrintSelected Set to true to print only selected images
MarginLeft Page left margin in inches. By specifying all zero values, no margins are used
MarginTop Page top margin in inches. By specifying all zero values, no margins are used
MarginRight Page right margin in inches. By specifying all zero values, no margins are used
MarginBottom Page bottom margin in inches. By specifying all zero values, no margins are used
CellBorder Set to true to draw a box around the each image cell (space containing the area of the image and its text)
ShowText Set to true to draw text associated with every image. Note: The font of the text will be used, e.g. BottomTextFont
DropShadow Set to true to draw a shadow around the image
BorderColor Specifies the color of the box around the image or cell (i.e. when CellBorder or ImageBorder is True)
Heading Specifies the heading to print at the top of the page. If you append ### (e.g. 'Thumbnails###') it will append "Page x" to printed pages after the first one
HeadingHeight The height of the heading, as a PERCENTAGE of the overall page height, e.g. 5 will make the heading 5% of the page height
HeadingColor Specifies the color of the heading text
ImageBorder Set to true to draw a box around each thumbnail (edge of image)

Note:
You do not need to call Printer.BeginDoc/Printer.EndDoc unless the task is part of print job batch
The images will maintain their aspect ratio when stretched
Use the OnPrintPage or OnPrintPage event to customize the heading
If the component is attached only to a TIEMultiBitmap then you should specify the font of Printer.Canvas before printing


Example

// Printing from a TImageEnMView
ImageEnMView1.MIO.PrintImages(6, 4);

// Printing images in a TIEMBitmap
MIO := TImageEnIO.Create;
MIO.AttachedIEMBitmap := mbmp;
Printer.Canvas.Font.Name := 'Tahoma';
Printer.Canvas.Font.Size := 14;
MIO.PrintImages(6, 4);
MIO.Free;


See Also

DoPrintPreviewDialog
PreviewPrintImages
PrintImagesToBitmap
PrintImagesToFile
OnPrintPage