!!} property InputColorSpace: AnsiString read fInputColorSpace; {!! TIEICC.OutputColorSpace Declaration property OutputColorSpace: AnsiString; Description Returns the profile connection space field (output color space). Allowed signatures: Color space Signature XYZData 'XYZ ' labData 'Lab '

!!} TIERenderVirtualPixel = procedure(Sender: TObject; SrcX, SrcY: integer; var outval) of object; {!! TIEVirtualBitmapProvider Declaration TIEVirtualBitmapProvider = class Description An abstract class that can be assigned to the property. Custom classes should inherit from TIEVirtualBitmapProvider to be assignable to VirtualBitmapProvider property. Methods and Properties - abstract - abstract !!} TIEVirtualBitmapProvider = class public {!! TIEVirtualBitmapProvider.Render Declaration procedure Render(Container: ; DestBitmap: ; DestWidth: integer; DestHeight: integer; DestX1, DestY1, DestX2, DestY2: integer; SrcCols, SrcRows: PInteger; Transparency: integer; RenderOperation: ; Opacity: double); virtual; abstract; Description Renders a set of pixels to the specified rectangle. Parameter Description Container TIEBitmap object that owns this object. DestBitmap Destination TIEBitmap. DestWidth Destination width. DestHeight Destination height. DestX1 Starting column of destination rectangle. DestY1 Starting row of destination rectangle. DestX2 Ending column of destination rectangle. DestY2 Ending row of destination rectangle. SrcCols Array of source columns (has DestX2-DestX1+1 items). SrcRows Array of source rows (has DestY2-DestY1+1 items). Transparency Rendering transparency (0=transparent, 255=opaque). RenderOperation Rendering operation to perform. Opacity Rendering opacity (0=transparent, 1.0=opaque).

!!} TIOPSCompression = ( ioPS_RLE, ioPS_G4FAX, ioPS_G3FAX2D, ioPS_JPEG ); {!! TIOPDFCompression Declaration TIOPDFCompression = ( ioPDF_UNCOMPRESSED, ioPDF_RLE, ioPDF_G4FAX, ioPDF_G3FAX2D, ioPDF_JPEG, ioPDF_LZW ); Description Value Description ioPDF_UNCOMPRESSED No compression ioPDF_RLE Run length compression ioPDF_G4FAX G4Fax (black & white images only) ioPDF_G3FAX2D G3Fax (black & white images only) ioPDF_JPEG DCT-JPEG (color images only) ioPDF_LZW LZW compression (color and black/white images)

!!} TIOPDFCompression = ( ioPDF_UNCOMPRESSED, ioPDF_RLE, ioPDF_G4FAX, ioPDF_G3FAX2D, ioPDF_JPEG, ioPDF_LZW ); {!! TIOPDFPaperSize Declaration TIOPDFPaperSize = (iepA0, iepA1, iepA2, iepA3, iepA4, iepA5, iepA6, iepB5, iepLetter, iepLegal, iepLedger, iepTabloid, iepAuto, iepUnknown); Description Standard paper sizes that can be specified for and . If iepAuto is selected (PDF only) then the page will be output at the size of the image (which may create huge PDF pages). Example procedure TMainForm.FormCreate(Sender: TObject); var a: TPDFPaperSize; begin // Fill combobox with available PDF paper sizes cmbPaperSize.Clear; for a := Low(TPDFPaperSize) to High(TPDFPaperSize) do cmbPaperSize.Items.Add(IEPaperSizeToStr(a)); // Make "US Letter" the selected one cmbPaperSize.ItemIndex := cmbPaperSize.Items.IndexOf(IEPaperSizeToStr(iepLetter)); end; // Set PDF paper size to user's selection ImageEnView1.IO.Params.PDF_PaperSize := IEStrToPaperSize(cmbPaperSize.Text); See Also - - - - !!} TIOPDFPaperSize = (iepA0, iepA1, iepA2, iepA3, iepA4, iepA5, iepA6, iepB5, iepLetter, iepLegal, iepLedger, iepTabloid, iepAuto, iepUnknown); {!! TIOTIFFCompression Declaration type TIOTIFFCompression = (ioTIFF_UNCOMPRESSED, ioTIFF_CCITT1D, ioTIFF_G3FAX1D, ioTIFF_G3FAX2D, ioTIFF_G4FAX, ioTIFF_LZW, ioTIFF_OLDJPEG, ioTIFF_JPEG, ioTIFF_PACKBITS, ioTIFF_ZIP, ioTIFF_DEFLATE, ioTIFF_UNKNOWN); Description Value Description Supported Pixel Formats Supports Alpha Channel? ioTIFF_UNCOMPRESSED Uncompressed TIFF All Yes ioTIFF_CCITT1D Bilevel Huffman compression Black/White Only No ioTIFF_G3FAX1D Bilevel Group 3 CCITT compression, mono-dimensional Black/White Only No ioTIFF_G3FAX2D Bilevel Group 3 CCITT compression, bi-dimensional Black/White Only No ioTIFF_G4FAX Bilevel Group 4 CCITT compression, bi-dimensional Black/White Only No ioTIFF_LZW LZW compression All Yes ioTIFF_OLDJPEG Ver 6.0 JPEG compression (unsupported) True Color Images Only No ioTIFF_JPEG JPEG compression True Color Images Only No ioTIFF_PACKBITS RLE compression All Yes ioTIFF_ZIP ZIP compression (non-TIFF standard) All No ioTIFF_DEFLATE Adobe ZIP compression (non-TIFF standard) All No ioTIFF_UNKNOWN Unknown compression

For black/white compressions (ioTIFF_CCITT1D, ioTIFF_G3FAX1D, ioTIFF_G3FAX2D and ioTIFF_G4FAX) make sure that = 1 and = 1. Example ImageEnView1.IO.Params.TIFF_Compression := ioTIFF_G4FAX; ImageEnView1.IO.Params.BitsPerSample := 1; ImageEnView1.IO.Params.SamplesPerPixel := 1; ImageEnView1.IO.SaveToFile('D:\output.tif'); !!} TIOTIFFCompression = ( ioTIFF_UNCOMPRESSED, ioTIFF_CCITT1D, ioTIFF_G3FAX1D, ioTIFF_G3FAX2D, ioTIFF_G4FAX, ioTIFF_LZW, ioTIFF_OLDJPEG, ioTIFF_JPEG, ioTIFF_PACKBITS, ioTIFF_ZIP, ioTIFF_DEFLATE, ioTIFF_UNKNOWN); {!! TIOTIFFPhotometInterpret Declaration type TIOTIFFPhotometInterpret = (ioTIFF_WHITEISZERO, ioTIFF_BLACKISZERO, ioTIFF_RGB, ioTIFF_RGBPALETTE, ioTIFF_TRANSPMASK, ioTIFF_CMYK, ioTIFF_YCBCR, ioTIFF_CIELAB); !!} TIOTIFFPhotometInterpret = ( ioTIFF_WHITEISZERO, ioTIFF_BLACKISZERO, ioTIFF_RGB, ioTIFF_RGBPALETTE, ioTIFF_TRANSPMASK, ioTIFF_CMYK, ioTIFF_YCBCR, ioTIFF_CIELAB); {!! TIOJPEGColorspace Declaration type TIOJPEGColorspace=(ioJPEG_RGB, ioJPEG_GRAYLEV, ioJPEG_YCbCr, ioJPEG_CMYK, ioJPEG_YCbCrK); Description Value Description ioJPEG_RGB Separate RGB channels ioJPEG_GRAYLEV Unique intensity channel (gray levels) ioJPEG_YCbCr Three channels (CCIR Recommendation 601-1) ioJPEG_CMYK Four channels (Cyan Magenta Yellow Black) - linear conversion ioJPEG_YCbCrK Four channels (YCbCr and Black)

!!} TIOJPEGColorspace = ( ioJPEG_RGB, ioJPEG_GRAYLEV, ioJPEG_YCbCr, ioJPEG_CMYK, ioJPEG_YCbCrK); {$IFDEF IEINCLUDEJPEG2000} {!! TIOJ2000ColorSpace Declaration TIOJ2000ColorSpace = ( ioJ2000_GRAYLEV, ioJ2000_RGB, ioJ2000_YCbCr); Description Value Description ioJ2000_GRAYLEV Gray scale image ioJ2000_RGB RGB image ioJ2000_YcbCr YcbCr image (currently supported only for loading)

!!} TIOJ2000ColorSpace = ( ioJ2000_GRAYLEV, ioJ2000_RGB, ioJ2000_YCbCr); {!! TIOJ2000ScalableBy Declaration TIOJ2000ScalableBy = ( ioJ2000_Rate, ioJ2000_Resolution); Description Value Description ioJ2000_Rate Layer-resolution-component-position (LRCP) progressive (i.e. rate scalable) ioJ2000_Resolution Resolution-layer-component-position (RLCP) progressive (i.e. resolution scalable)

!!} TIOJ2000ScalableBy = ( ioJ2000_Rate, ioJ2000_Resolution); {$ENDIF} {!! TIOJPEGDctMethod Declaration type TIOJPEGDctMethod = (ioJPEG_ISLOW, ioJPEG_IFAST, ioJPEG_FLOAT); Description Value Description ioJPEG_ISLOW Slow but accurate integer algorithm (default) ioJPEG_IFAST Faster, less accurate integer method ioJPEG_FLOAT Floating-point method (machine dependent)

!!} TIOJPEGDctMethod = ( ioJPEG_ISLOW, ioJPEG_IFAST, ioJPEG_FLOAT); {!! TIOJPEGCromaSubsampling Declaration type TIOJPEGCromaSubsampling = (ioJPEG_MEDIUM, ioJPEG_HIGH, ioJPEG_NONE); Description Value Description ioJPEG_MEDIUM 4:2:2 croma sub-sampling. Medium quality ioJPEG_HIGH 4:1:1 croma sub-sampling. Default quality for jpegs. Lowest quality ioJPEG_NONE 4:4:4 croma sub-sampling. Highest quality

!!} TIOJPEGCromaSubsampling = ( ioJPEG_MEDIUM, ioJPEG_HIGH, ioJPEG_NONE); {!! TIOJPEGScale Declaration TIOJPEGScale = ( ioJPEG_AUTOCALC, ioJPEG_FULLSIZE, ioJPEG_HALF, ioJPEG_QUARTER, ioJPEG_EIGHTH); Description Value Description ioJPEG_AUTOCALC The JPEG Scale is selected automatically to ensure it is larger than your minimum dimensions. You need to specify this using the and properties ioJPEG_FULLSIZE The full image is loaded (default). Slowest loading ioJPEG_HALF Image is loaded at 1/2 size ioJPEG_QUARTER Image is loaded at 1/4 size ioJPEG_EIGHTH Image is loaded at 1/8 size. Very fast loading

Example // Load JPEG as fast as possible while still being larger than the display size ImageEnView.IO.Params.Width := ImageEnView1.ClientWidth; ImageEnView.IO.Params.Height := ImageEnView1.ClientHeight; ImageEnView.IO.Params.JPEG_Scale := ioJPEG_AUTOCALC; ImageEnView.IO.LoadFromFile('D:\MyImage.jpeg’); !!} TIOJPEGScale = ( ioJPEG_AUTOCALC, ioJPEG_FULLSIZE, ioJPEG_HALF, ioJPEG_QUARTER, ioJPEG_EIGHTH); {!! TIOBMPVersion Declaration type TIOBMPVersion = (ioBMP_BM, ioBMP_BM3, ioBMP_BMOS2V1, ioBMP_BMOS2V2); Description Value Description ioBMP_BM Old Windows bitmap ioBMP_BM3 Windows 3.x or newer bitmap ioBMP_BMOS2V1 IBM OS/2 version 1.x bitmap ioBMP_BMOS2V2 IBM OS/2 version 2.x bitmap

!!} TIOBMPVersion = ( ioBMP_BM, ioBMP_BM3, ioBMP_BMOS2V1, ioBMP_BMOS2V2, ioBMP_V4, ioBMP_V5); {!! TIOBMPCompression Declaration type TIOBMPCompression = (ioBMP_UNCOMPRESSED, ioBMP_RLE); Description ioBMP_UNCOMPRESSED: Uncompressed bitmap ioBMP_RLE: Compressed bitmap (generally smaller than uncompressed, but not always) !!} TIOBMPCompression = ( ioBMP_UNCOMPRESSED, ioBMP_RLE); {!! TIOPCXCompression Declaration type TIOPCXCompression = (ioPCX_UNCOMPRESSED, ioPCX_RLE); Description ioPCX_UNCOMPRESSED: Uncompressed PCX (incompatible with most PCX readers). ioPCX_RLE: Compressed PCX (standard PCX). !!} TIOPCXCompression = ( ioPCX_UNCOMPRESSED, ioPCX_RLE); {!! TIOPNGFilter Declaration } TIOPNGFilter = ( ioPNG_FILTER_NONE, ioPNG_FILTER_SUB, ioPNG_FILTER_PAETH, ioPNG_FILTER_UP, ioPNG_FILTER_AVG, ioPNG_FILTER_ALL); {!!} {!! TIEGIFAction Declaration } TIEGIFAction = ( ioGIF_None, ioGIF_DontRemove, ioGIF_DrawBackground, ioGIF_RestorePrev); {!!} {!! TIOICOSizes Declaration } TIOICOSizes = array[0..IEMAXICOIMAGES - 1] of TSize; {!!} {!! TIOICOBitCount Declaration } TIOICOBitCount = array[0..IEMAXICOIMAGES - 1] of integer; {!!} {!! TIOBMPRAWChannelOrder Declaration } TIOBMPRAWChannelOrder=(coRGB, coBGR); {!!} {!! TIOBMPRAWDataFormat Declaration TIOBMPRAWDataFormat = (dfBinary, dfTextDecimal, dfTextHex); Description Value Description dfBinary Binary raw data dfTextDecimal Ascii text as decimal values dfTextHex Ascii text as hexadecimal values

!!} TIOBMPRAWDataFormat = (dfBinary, dfTextDecimal, dfTextHex); {!! TIOBMPRAWPlanes Declaration TIOBMPRAWPlanes = (plInterleaved, plPlanar); Description plInterleaved channels are B,G,R,B,G,R... plPlanar channels are BBB.., GGG.., RRR... !!} TIOBMPRAWPlanes = (plInterleaved, plPlanar); {!! TIOByteOrder Declaration TIOByteOrder = (ioBigEndian, ioLittleEndian); Description ioBigEndian: Motorola Byte Order ioLittleEndian: Intel Byte Order !!} TIOByteOrder = (ioBigEndian, ioLittleEndian); // {!! TIEDicomRange Declaration TIEDicomRange = (iedrAdjust, iedrSetBlackWhite); Description Value Description iedrAdjust Adjust pixels values iedrSetBlackWhite Set TIEBitmap.WhiteValue and TIEBitmap.BlackValue

Default: 8 See also: Example // saves 256 colormapped bitmap ImageEnView1.IO.Params.BitsPerSample := 8; ImageEnView1.IO.Params.SamplesPerPixel := 1; ImageEnView1.IO.Params.SaveToFile('D:\Alfa.bmp'); !!} property BitsPerSample: integer read fBitsPerSample write fBitsPerSample; {!! TIOParams.SamplesPerPixel Declaration property SamplesPerPixel: integer; Description Specifies the Samples (channels) for each pixel. Allowed values: Parameter Description 1 Single channel, colormapped or gray scale image 3 Three channels, RGB or CIELab 4 Four channels, CMYK or BGRA

Default: 1 !!} property TIFF_PlanarConf: integer read fTIFF_PlanarConf write fTIFF_PlanarConf; {!! TIOParams.TIFF_NewSubfileType Declaration property TIFF_NewSubfileType: integer; Description A general indication of the kind of data contained in the current sub-file. This field is made up of a set of 32 flag bits. Currently defined values are: Bit Description Bit 0 is 1 if the image is a reduced-resolution version of another image in this TIFF file, else the bit is 0. Bit 1 is 1 if the image is a single page of a multi-page image (see the PageNumber field description), else the bit is 0. Bit 2 is 1 if the image defines a transparency mask for another image in this TIFF file. The PhotometricInterpretation value must be 4, designating a transparency mask.

Note: Support for orientations other than 1 is not a baseline TIFF requirement. Default: _exoCorrectOrientation (1) See also: !!} property TIFF_Orientation: integer read fTIFF_Orientation write SetTIFF_Orientation; {!! TIOParams.TIFF_EnableAdjustOrientation Declaration property TIFF_EnableAdjustOrientation: Boolean; Description If enabled before loading a file which contains EXIF orientation information, the image will be automatically rotated for display (the actual file is not modified). Orientation information is often found in digital photos from high-end cameras. ImageEn uses the data found in to determine the correct orientation for TIFF images. See also: Default: False !!} property TIFF_EnableAdjustOrientation: boolean read fTIFF_EnableAdjustOrientation write fTIFF_EnableAdjustOrientation; property TIFF_LZWDecompFunc: TTIFFLZWDecompFunc read fTIFF_LZWDecompFunc write fTIFF_LZWDecompFunc; property TIFF_LZWCompFunc: TTIFFLZWCompFunc read fTIFF_LZWCompFunc write fTIFF_LZWCompFunc; {!! TIOParams.TIFF_JPEGQuality Declaration property TIFF_JPEGQuality: Integer; Description Specifies the quality factor for a TIFF compressed as JPEG. Range is 1 to 100. High values improve image quality but require more disk space. Default: 80 !!} property TIFF_JPEGQuality: integer read fTIFF_JPEGQuality write fTIFF_JPEGQuality; {!! TIOParams.TIFF_JPEGColorSpace Declaration property TIFF_JPEGColorSpace: ; Description Specifies the desired color space for the Jpeg included in a TIFF file. Default: ioJPEG_YCBCR Example ImageEnView.IO.Params.TIFF_JPEGColorSpace := ioJPEG_RGB; ImageEnView.IO.Params.TIFF_Compression := ioTIFF_JPEG; ImageEnView.IO.SaveToFile('D:\output.tif'); !!} property TIFF_JPEGColorSpace: TIOJPEGColorSpace read fTIFF_JPEGColorSpace write fTIFF_JPEGColorSpace; {!! TIOParams.TIFF_FillOrder Declaration property TIFF_FillOrder: integer; Description Specifies the logical order of bits within a byte. Value Description 1 Pixels are arranged within a byte such that pixels with lower column values are stored in the higher-order bits of the byte 2 Pixels are arranged within a byte such that pixels with lower column values are stored in the lower-order bits of the byte

Default: 1 !!} property TIFF_FillOrder: integer read fTIFF_FillOrder write fTIFF_FillOrder; {!! TIOParams.TIFF_ZIPCompression Declaration property TIFF_ZIPCompression: Integer; Description Specifies the compression level used when using ioTIFF_ZIP compression. Value Description 0 Fastest 1 Normal (default) 2 Maximum compression

Example // Save using "US Letter" paper size ImageEnView1.IO.Params.PS_PaperWidth := 612; ImageEnView1.IO.Params.PS_PaperHeight := 792; ImageEnView1.IO.SaveToFile('D:\output.ps'); !!} property PS_PaperHeight: integer read fPS_paperHeight write fPS_PaperHeight; property PS_PaperSize : TIOPDFPaperSize read GetPS_PaperSize write SetPS_PaperSize; {!! TIOParams.PS_Compression Declaration property PS_Compression: ; Description Specifies the compression filter for a PostScript file. Default: ioPS_G4FAX Example ImageEnView1.IO.LoadFromFile('D:\input.tif'); ImageEnView1.IO.Params.PS_Compression := ioPS_G4FAX; ImageEnView1.IO.SaveToFile('D:\output.ps'); !!} property PS_Compression: TIOPSCompression read fPS_Compression write fPS_Compression; {!! TIOParams.PS_Title Declaration property PS_Title: AnsiString; Description Specifies the title of the PostScript file. Default: 'No Title' !!} property PS_Title: AnsiString read fPS_Title write fPS_Title; // PDF {!! TIOParams.PDF_PaperWidth Declaration property PDF_PaperWidth: Integer Description Specifies the width of the page in Adobe PDF points (1 point = 1/72 of inch). Default values are width: 595 and height: 842 (A4 format). Alternatively, you can use . Note: If you set PDF_PaperWidth and to 0 the page will be output at the size of the image. Note: This may create huge pages! Common values: Paper Size PDF_PaperWidth PDF_PaperHeight A0 2380 3368 A1 1684 2380 A2 1190 1684 A3 842 1190 A4 595 842 A5 421 595 A6 297 421 B5 501 709 US Letter (8.5 x 11") 612 792 US Legal (8.5 x 14") 612 1008 US Ledger (17 x 11") 1224 792 US Tabloid (11 x 17") 792 1224

!!} TIEDicomTagSource = (dsStandard, dsDeprecated, dsProprietary); {!! TIEDicomTagType Declaration TIEDicomTagType = (dvAE, dvAS, dvAT, dvCS, dvDA, dvDS, dvDT, dvFD, dvFL, dvIS, dvLO, dvLT, dvOB, dvOF, dvOW, dvPN, dvSH, dvSL, dvSQ, dvSS, dvST, dvTM, dvUI, dvUL, dvUS, dvUT, dvUSorSS, dvUnknown); Description The variable type for Dicom tags: Type Description Detail dvAE Application Entity A string of characters that identifies an Application Entity with leading and trailing spaces (20H) being non-significant dvAS Age String A string of characters with one of the following formats -- nnnD, nnnW, nnnM, nnnY; where nnn shall contain the number of days for D, weeks for W, months for M, or years for Y dvAT Attribute Tag Ordered pair of 16-bit unsigned integers that is the value of a Data Element Tag dvCS Code String A string of characters with leading or trailing spaces (20H) being non-significant dvDA Date A string of characters of the format yyyymmdd; where yyyy shall contain year, mm shall contain the month, and dd shall contain the day dvDS Decimal String A string of characters representing either a fixed point number or a floating point number dvDT Date Time The Date Time common data type. Indicates a concatenated date-time ASCII string in the format: YYYYMMDDHHMMSS.FFFFFF&ZZZZ dvFL Floating Point Single Single precision binary floating point number represented in IEEE 754:1985 32-bit Floating Point Number Format dvFD Floating Point Double Double precision binary floating point number represented in IEEE 754:1985 64-bit Floating Point Number Format dvIS Integer String A string of characters representing an Integer in base-10 (decimal), shall contain only the characters 0 - 9, with an optional leading "+" or "-" dvLO Long String A character string that may be padded with leading and/or trailing spaces dvLT Long Text A character string that may contain one or more paragraphs dvOB Other Byte String A string of bytes where the encoding of the contents is specified by the negotiated Transfer Syntax dvOF Other Float String A string of 32-bit IEEE 754:1985 floating point words dvOW Other Word String A string of 16-bit words where the encoding of the contents is specified by the negotiated Transfer Syntax dvPN Person Name A character string encoded using a 5 component convention dvSH Short String A character string that may be padded with leading and/or trailing spaces dvSL Signed Long Signed binary integer 32 bits long in 2's complement form dvSQ Sequence of Items Value is a Sequence of zero or more Items, as defined in NEMA Documentation, Section 7.5 dvSS Signed Short Signed binary integer 16 bits long in 2's complement form dvST Short Text A character string that may contain one or more paragraphs dvTM Time A string of characters of the format hhmmss.frac; dvUI Unique Identifier A character string containing a UID that is used to uniquely identify a wide variety of items dvUL Unsigned Long Unsigned binary integer 32 bits long dvUN Unknown A string of bytes where the encoding of the contents is unknown (see NEMA Documentation, Section 6.2.2) dvUR Universal Resource Identifier or Universal Resource Locator (URI/URL) A string of characters that identifies a URI or a URL as defined in [RFC 3986]. Leading spaces are not allowed. Trailing spaces shall be ignored. Data Elements with this VR shall not be multi-valued dvUS Unsigned Short Unsigned binary integer 16 bits long dvUT Unlimited Text A character string that may contain one or more paragraphs dvUSorSS Signed or unsigned Short ImageEn type: Could be either dvUS or dvSS dvUnknown Unsupported ImageEn type: An unsupported type

!!} TIERFBPixelFormat = (ierfbPalette256, ierfbRGB16, ierfbRGB32); {!! TIERFBClient Description TIERFBClient implements a RFB (Remote Frame Buffer) client. It can connect to any RFB compatible server like RealVNC, TightVNC, VMWare virtual machines or Macintosh remote desktop. Currently implemented features: Protocol 3.3, 3.7 and 3.8 Authentication No authentication or VNC (DES) authentication Pixel format 8 bit with RGB palette, 16 bit RGB, 32 bit RGB Client messages SetPixelFormat, SetEncodings, FrameBufferUpdateRequest, KeyEvent, PointerEvent, ClientCutText Server messages FrameBufferUpdate, SetColorMapEntries, Bell, ServerCutText Keyboard Limited support (CTRL-?, ALT-? could require more code by application) Encodings Raw, CopyRect, RRE, Cursor, DesktopSize Cursor Cursor shape and drawing local handled

!!} TIEJpegTransform = (jtNone, jtCut, jtHorizFlip, jtVertFlip, jtTranspose, jtTransverse, jtRotate90, jtRotate180, jtRotate270); {!! TIEJpegCopyMarkers Declaration TIEJpegCopyMarkers = (jcCopyNone, jcCopyComments, jcCopyAll); Description Specify how the extra markers in a source file should be transfered to the destination file: Value Description jcCopyNone Copy no extra markers from the source file. This setting suppresses all comments and other excess data present in the source file jcCopyComments Copy only comment markers. This setting copies only the comments from the source file, discarding all other inessential data jcCopyAll Copy all extra markers. This setting preserves miscellaneous markers found in the source file, such as JFIF thumbnails and Photoshop settings. In some files these extra markers can be sizable

!!} TIEJpegCopyMarkers = (jcCopyNone, jcCopyComments, jcCopyAll); function JpegLosslessTransform(const SourceFile, DestFile: WideString; Transform: TIEJpegTransform; GrayScale: boolean; CopyMarkers: TIEJpegCopyMarkers; CutRect: TRect; UpdateEXIF: Boolean = False): boolean; overload; function JpegLosslessTransform(const SourceFile, DestFile: WideString; Transform: TIEJpegTransform): boolean; overload; function JpegLosslessTransform2(const FileName: WideString; Transform: TIEJpegTransform; GrayScale: boolean; CopyMarkers: TIEJpegCopyMarkers; CutRect: TRect; UpdateEXIF: Boolean = False): boolean; overload; function JpegLosslessTransform2(const FileName: WideString; Transform: TIEJpegTransform): boolean; overload; function JpegLosslessTransformStream(SourceStream, DestStream: TStream; Transform: TIEJpegTransform; GrayScale: boolean; CopyMarkers: TIEJpegCopyMarkers; CutRect: TRect; UpdateEXIF: Boolean = False): boolean; procedure ExtractTIFFImageStream(SourceStream, OutStream: TStream; idx: integer); procedure ExtractTIFFImageFile(const SourceFileName, OutFileName: WideString; idx: integer); procedure InsertTIFFImageStream(SourceStream, InsertingStream, OutStream: TStream; idx: integer); procedure InsertTIFFImageFile(const SourceFileName, InsertingFileName, OutFileName: WideString; idx: integer); function IEAdjustDPI(bmp: TIEBitmap; Params: TIOParams; FilteredAdjustDPI: boolean): TIEBitmap; function IEGetFileFramesCount(const FileName: WideString): Integer; function IEFindNumberWithKnownFormat( const Directory: WideString ): integer; function IEAVISelectCodec(): AnsiString; function IEAVIGetCodecs: TStringList; function IEAVIGetCodecsDescription: TStringList; function IEGetFromURL(const URL: WideString; OutStream: TStream; const ProxyAddress: WideString; const ProxyUser: WideString; const ProxyPassword: WideString; OnProgress: TIEProgressEvent; Sender: TObject; Aborting: pboolean; var FileExt: String): Boolean; // others procedure IEUpdateGIFStatus; function IECalcJpegFileQuality(const FileName: WideString): integer; function IECalcJpegStreamQuality(Stream: TStream): integer; procedure IEOptimizeGIF(const InputFile, OutputFile: WideString); {!! IERegisterFormats Declaration procedure IERegisterFormats; Description Register/unregister following classes inside the VCL class framework. This allows use of standard VCL open/save dialogs and TPicture objects with ImageEn file formats. TIETiffImage, TIEGifImage, TIEJpegImage, TIEPCXImage, TIEBMPImage, TIEICOImage, TIEPNGImage, TIETGAImage, TIEPXMImage, TIEJP2Image, TIEJ2Kimage Each of above classes inherits from TIEGraphicBase. To get input/output parameters use the “IO” property, which is the same as the ImageEnIO.Params property. !!} procedure IERegisterFormats; {!! IEUnregisterFormats Declaration procedure IEUnregisterFormats; Description Unregisters ImageEn file formats from the VCL. !!} procedure IEUnregisterFormats; type {!! TIEReadImageStream Declaration TIEReadImageStream = procedure(Stream: TStream; Bitmap: ; var IOParams: ; var Progress: ; Preview: boolean); Description The procedure to load the image in Stream into Bitmap and fill IOParams with metadata. Use Progress to return progress information (e.g. for 35% progress Progress.val := 35 and Progress.tot := 100) and notify of load failure (Progress.Aborting^ := True). When Preview is true, ImageEn is only seeking to fill IOParams, not load the image (i.e. you can skip Bitmap as it will be ignored. You will need to reset the stream position. !!} TIEReadImageStream = procedure(Stream: TStream; Bitmap: TIEBitmap; var IOParams: TIOParams; var Progress: TProgressRec; Preview: boolean); {!! TIEWriteImageStream Declaration TIEWriteImageStream = procedure(Stream: TStream; Bitmap: ; var IOParams: ; var Progress: ); Description The procedure to save the image in Bitmap to a Stream. Use Progress to return progress information (e.g. for 35% progress Progress.val := 35 and Progress.tot := 100) and notify of save failure (Progress.Aborting^ := True). !!} TIEWriteImageStream = procedure(Stream: TStream; Bitmap: TIEBitmap; var IOParams: TIOParams; var Progress: TProgressRec); {!! TIETryImageStream Declaration TIETryImageStream = function(Stream: TStream; TryingFormat: ): boolean; Description Return True if Stream matches our custom file type. !!} TIETryImageStream = function(Stream: TStream; TryingFormat: TIOFileType): boolean; {!! TIEFileFormatInfo Declarations TIEFileFormatInfo=class FileType : ; FullName : string; Extensions : string; SuitableExtension : string; InternalFormat : boolean; DialogPage : ; ReadFunction : ; WriteFunction : ; TryFunction : ; end; Description Value Description FileType The file type class, e.g. ioJPEG FullName A description of the file type, e.g. 'JPEG Bitmap' Extensions All extensions of this format WITHOUT the period, e.g. 'jpg;jpeg;jpe' SuitableExtension A single extension that is suitable for this format WITHOUT the period, e.g. 'jpeg' InternalFormat True for native ImageEn formats, false for custom formats DialogPage The page that is used to display properties for this type in ReadFunction The function used for reading this file type (nil if it cannot be read) WriteFunction The function used for saving this file type (nil if it is read-only) TryFunction The function used to determine if a file is of this type (used only when ImageEn is checking for the image type without considering its file extension)

Example // Select rectangle (10, 10 - 14, 14) ImageEnView1.SelectionMask.SetRectangle(Rect(10, 10, 14, 14), 1); ImageEnView1.SelectCustom(); !!} procedure TIEMask.SetRectangle(Rect: TRect; Alpha: integer); var i: integer; begin for i := Rect.Top to Rect.Bottom do DrawHorizontalLine(Alpha, Rect.Left, Rect.Right, i); if Rect.Left < fX1 then fX1 := imax(0, Rect.Left); if Rect.Right > fX2 then fX2 := imin(fWidth - 1, Rect.Right); if Rect.Top < fY1 then fY1 := imax(0, Rect.Top); if Rect.Bottom > fY2 then fY2 := imin(fHeight - 1, Rect.Bottom); end; procedure TIEMask.SetRectangle(x1, y1, x2, y2: integer; Alpha: integer); begin SetRectangle(Rect(x1, y1, x2, y2), Alpha); end; {!! TIEMask.SetEllipse Declaration procedure SetEllipse(CenterX, CenterY, Width, Height: integer; Alpha: integer); Description Set an elliptical selection. A pixel with mask 1 or >0 is selected. Parameter Description CenterX Ellipse horizontal center. CenterY Ellipse vertical center. Width Ellipse width. Height Ellipse height. Alpha Alpha value (0 = not selected, >0 selected).

Overload 2: Parameter Description AddLeft Pixels to add to the left of the image (or remove if AddLeft < 0) AddTop Pixels to add to the top of the image (or remove if AddTop < 0) AddRight Pixels to add to the right of the image (or remove if AddRight < 0) AddBottom Pixels to add to the bottom of the image (or remove if AddBottom < 0) BackgroundValue TColor value for ie24RGB images or a gray level for gray scale or black/white images. It is used to fill added regions AlphaValue Alpha value used to fill added regions (0: Fully Transparent - 255: Opaque)

Examples // resize image to 1000x1000 MyIEBitmap.Resize( 1000, 1000 ); // make a contour around the image MyIEBitmap.Resize( MyIEBitmap.Width + 80, MyIEBitmap.Height + 80, clBlack, 255, iehCenter, ievCenter ); // which is the same as: MyIEBitmap.Resize( 80, 80, 80, 80, clBlack, 255 ); // Add 50 pixels to the top and bottom of the image, remove 80 pixels from the left and right MyIEBitmap.Resize( -80, 50, -80, 50, 255 ); !!} // HorizAlign acts only when NewWidth>Width // VertAlign acts only when NewHeight>Height // AlphaValue is valid only when HasAlphaChannel is true and this is not an alpha channel procedure TIEBitmap.Resize(NewWidth, NewHeight: integer; BackgroundValue: double = 0; FillAlpha: integer = 255; HorizAlign: TIEHAlign = iehLeft; VertAlign: TIEVAlign = ievTop); var lw, lh: integer; begin if IsVirtual then begin SetWidth(NewWidth); SetHeight(NewHeight); end else begin lw := Width; lh := Height; DoAlignBefore(self, NewWidth, NewHeight, BackgroundValue, HorizAlign, VertAlign); if HasAlphaChannel then DoAlignBefore(AlphaChannel, NewWidth, NewHeight, FillAlpha, HorizAlign, VertAlign); SetWidth(NewWidth); SetHeight(NewHeight); DoAlignAfter(self, lw, lh, BackgroundValue, HorizAlign, VertAlign); if HasAlphaChannel then DoAlignAfter(AlphaChannel, lw, lh, FillAlpha, HorizAlign, VertAlign); end; end; procedure TIEBitmap.Resize(AddLeft, AddTop, AddRight, AddBottom: integer; BackgroundValue: double; FillAlpha: integer = 255); var newWidth, newHeight: integer; begin // if first call clears entire bitmap, then just blank and resize if ( -1 * AddLeft >= Width ) or ( -1 * AddTop >= Height ) then begin newWidth := Width + AddLeft + AddRight; newHeight := Height + AddTop + AddBottom; Clear; Resize( newWidth, newHeight, BackgroundValue, FillAlpha ); end else begin if ( AddLeft <> 0 ) or ( AddTop <> 0 ) then Resize( Width + AddLeft, Height + AddTop, BackgroundValue, FillAlpha, iehRight, ievBottom ); if ( AddRight <> 0 ) or ( AddBottom <> 0 ) then Resize( Width + AddRight, Height + AddBottom, BackgroundValue, FillAlpha, iehLeft, ievTop ); end; end; {!! TIEBitmap.Flip Declaration procedure Flip(Dir: ); Description Flips (mirrors) the current image across the horizontal or vertical axis. Examples ABitmap.Flip(fdHorizontal); ABitmap.Flip(fdVertical); See Also - !!} procedure TIEBitmap.Flip(Dir: TFlipDir); begin _FlipEx(Self, Dir); Changed(); end; {!! TIEBitmap.Rotate Declaration procedure Rotate(Angle: double; AntialiasMode: = ierFast; BackgroundColor: TColor = clWhite); Description Rotates the current image by the specified angle (negative or positive degrees counter-clockwise). AntialiasMode specifies the anti-aliasing algorithm that is used to improve rotation quality: ierNone : No anti-aliasing (lowest quality) ierFast : Fast but lower quality ierBilinear : Bilinear, high quality ierBicubic : Bicubic, highest quality BackgroundColor specifies a background color to fill new regions (i.e. when not rotating at a 90 degree angle) Examples // Rotate the image 45° clockwise at highest quality with a white background color ABitmap.Rotate(315, ierBicubic, clWhite); // Rotate the image 90° clockwise (Note: AntialiasMode is irrelevant for 90 deg. rotates) ABitmap.Rotate(270); // Rotate the image 180° clockwise ABitmap.Rotate(180); // Rotate the image 90° counter-clockwise; ABitmap.Rotate(90); See Also - - !!} procedure TIEBitmap.Rotate(Angle: double; AntialiasMode: TIEAntialiasMode = ierFast; BackgroundColor: TColor = clWhite); begin RotateEx(Angle, AntialiasMode, BackgroundColor, nil, nil); end; {$ifdef IEIncludeDeprecatedInV4} // Deprecated in 5.0.0 procedure TIEBitmap.Rotate(Angle: double; AntiAlias: boolean; AntialiasMode: TIEAntialiasMode; BackgroundColor: TColor); begin if AntiAlias then RotateEx(Angle, AntialiasMode, BackgroundColor, nil, nil) else RotateEx(Angle, ierNone, BackgroundColor, nil, nil); end; {$endif} procedure TIEBitmap.RotateEx(Angle: double; AntiAliasMode: TIEAntialiasMode; BackgroundColor: TColor; OnProgress: TIEProgressEvent; Sender: TObject); var alpha: TIEBitmap; bRectAngle: Boolean; begin if HasAlphaChannel then begin alpha := TIEBitmap.Create; alpha.Assign(AlphaChannel); end else alpha := nil; if (AntialiasMode <> ierNone) and ((PixelFormat = ie24RGB) or (PixelFormat = ie1g)) then begin // Is angle 90, 180, 270, 360? bRectAngle := (trunc(angle) = Angle) and ((trunc(Angle) mod 90) = 0); // SHEAR if (AntialiasMode = ierFast) or bRectAngle or (PixelFormat <> ie24RGB) then begin // rotate alpha channel if assigned(alpha) then begin if PixelFormat = ie1g then // if the image is black/white we haven't to apply a filter to the alpha channel (so have better result) _rotate8bit(alpha, Angle, 0) else // we need to rotate alpha using a filter, because the image is colored _RotateEx8(alpha, Angle, True, 0, OnProgress, Sender); end; // rotate image _RotateEx(Self, Angle, True, TColor2TRGB(BackgroundColor), OnProgress, Sender); end else begin // rotate alpha channel if assigned(alpha) then IEQRotate8(alpha, Angle, 0, AntialiasMode); // rotate image IEQRotate(Self, Angle, BackgroundColor, AntialiasMode, OnProgress, Sender); end; end else begin // SINCOS if assigned(alpha) then IEGRotate(alpha, Angle, 0, nil, nil); IEGRotate(Self, Angle, BackgroundColor, OnProgress, Sender); end; if assigned(alpha) then begin AlphaChannel.Assign(alpha); FreeAndNil(alpha); end; Changed(); end; {!! TIEBitmap.Resample Declaration procedure Resample(NewWidth, NewHeight: integer; FilterType: = rfNone; bMaintainAspectRatio : Boolean = False); overload; procedure Resample(ScaleBy: Double; FilterType: TResampleFilter = rfNone); overload; Description Resizes the current image. The content of the image changes (stretched to the new size). Parameter Description NewWidth New image width in pixels. If NewWidth is -1 then it is calculated automatically, respecting the proportions. NewHeight New image height in pixels. If NewHeight is -1 then it is calculated automatically, respecting the proportions. FilterType Resampling interpolation algorithm. bMaintainAspectRatio Automatically reduces NewWidth or NewHeight to ensure the original proportions of the image are maintained

See Also - - - !!} function TIEBitmap.GetSegment(Row: integer; Col: integer; Width: integer): pointer; var p_byte: pbyte; x: integer; begin if IsVirtual then begin result := nil; if assigned(fVirtualBitmapProvider) then begin if fVirtualBitmapProvider is TIEVirtualBitmapProvider then result := (fVirtualBitmapProvider as TIEVirtualBitmapProvider).GetSegment(self, Row, Col, Width); end else if assigned(fOnRenderVirtualPixel) then begin if fVirtualBitmapRowBuffer = nil then getmem(fVirtualBitmapRowBuffer, fRowLen); // size must be fRowLen otherwise GetScanLine will not work on other sizes p_byte := pbyte(fVirtualBitmapRowbuffer); for x := 0 to Width-1 do begin fOnRenderVirtualPixel(self, Col + x, Row, p_byte^); inc(p_byte, BitCount div 8); end; result := fVirtualBitmapRowBuffer; end; end else begin result := Scanline[Row]; inc(pbyte(result), Col * (BitCount div 8)); end; end; {!! TIEBitmap.Scanline Declaration property Scanline[row: integer]: pointer Description Retrieves an entire line of pixels at a time. For =ieFile or =ieVirtual you can use only last line obtained from Scanline[] (consequently this is not thread safe). Examples // Convert image to gray-scale (PixelFormat must be ie24RGB) // Same as TImageEnProc.ConvertToGray var x, y: Integer; pPix: PRGB; Gray: Byte; begin for y := 0 to ImageEnView1.IEBitmap.Height - 1 do begin pPix := ImageEnView1.IEBitmap.ScanLine[ y ]; for x := 0 to ImageEnView1.SelectionMask.Width - 1 do begin Gray := (pPix^.R * IEGlobalSettings().RedToGrayCoef + pPix^.G * IEGlobalSettings().GreenToGrayCoef + pPix^.B * IEGlobalSettings().BlueToGrayCoef) div 100; pPix^.R := Gray; pPix^.G := Gray; pPix^.B := Gray; inc( pPix ); end; end; ImageEnView1.Update(); end; // Set all pixels within selection as red // Same as ImageEnView1.SetSelectedPixelsColor var x, y: Integer; pSel: pbyte; pPix: PRGB; begin if ImageEnView1.SelectionMask.IsEmpty then raise Exception.create( 'Nothing selected' ); if ImageEnView1.IEBitmap.PixelFormat <> ie24RGB then raise Exception.create( 'Not 24bit' ); // Process selected area for y := 0 to ImageEnView1.SelectionMask.Height - 1 do begin pSel := ImageEnView1.SelectionMask.ScanLine[ y ]; pPix := ImageEnView1.IEBitmap.ScanLine[ y ]; case ImageEnView1.SelectionMask.BitsPerPixel of 1: for x := 0 to ImageEnView1.SelectionMask.Width - 1 do begin // 1 Bit mask (values are 0 or 1) if (pbytearray(pSel)^[x shr 3] and iebitmask1[x and $7]) <> 0 then begin pPix^.R := 255; pPix^.G := 0; pPix^.B := 0; end; inc( pPix ); end; 8: for x := 0 to ImageEnView1.SelectionMask.Width - 1 do begin // 8 Bit mask (values are 0 to 255) if pSel^ <> 0 then begin pPix^.R := 255; pPix^.G := 0; pPix^.B := 0; end; inc( pSel ); inc( pPix ); end; end; end; ImageEnView1.Update(); end; See Also - - - !!} // for performance we never control if Row is valid function TIEBitmap.GetScanLine(Row: integer): pointer; var col: integer; p_byte: pbyte; begin if fOrigin = ieboTOPLEFT then Row := fHeight - Row - 1; if IsVirtual then begin // virtual pixel format (not thread safe) result := nil; if assigned(fVirtualBitmapProvider) then begin if fVirtualBitmapProvider is TIEVirtualBitmapProvider then result := (fVirtualBitmapProvider as TIEVirtualBitmapProvider).GetSegment(self, Row, 0, fWidth); end else if assigned(fOnRenderVirtualPixel) then begin if fVirtualBitmapRowBuffer = nil then getmem(fVirtualBitmapRowBuffer, fRowLen); p_byte := pbyte(fVirtualBitmapRowbuffer); for col := 0 to fWidth-1 do begin fOnRenderVirtualPixel(self, col, Row, p_byte^); inc(p_byte, BitCount div 8); end; result := fVirtualBitmapRowBuffer; end; exit; end; case fLocation of ieMemory: begin if fFragments = nil then begin p_byte := fMemory; inc(p_byte, (fHeight - Row - 1) * fRowlen); result := p_byte; end else begin p_byte := fFragments[Row div fRowsPerFragment]; inc(p_byte, fRowlen * (Row mod fRowsPerFragment)); result := p_byte; end; end; ieTBitmap: begin result := fBitmapScanlines[row]; end; ieFile: begin if fWorkingMap <> nil then fmemmap.UnMap(fWorkingMap); fWorkingMap := fmemmap.Map(int64(Row) * fRowLen, fRowLen, fAccess); // int64(Row) to promote expression to 64 bit result := fWorkingMap; end; else result := nil; end; end; {!! TIEBitmap.GetRow Declaration function GetRow(Row: integer): pointer; Description Retrieves a pointer to the specified Row. Returned pointer is valid until the application calls . Just like if is ieMemory or ieTBitmap. !!} // for performance we never control if Row is valid function TIEBitmap.GetRow(Row: integer): pointer; var pb: pbyte; begin if fOrigin = ieboTOPLEFT then Row := fHeight - Row - 1; if IsVirtual then begin result := GetScanLine(Row); exit; end; case fLocation of ieMemory: if fFragments=nil then begin pb := fMemory; inc(pb, (fHeight - Row - 1) * fRowlen); result := pb; end else begin pb := fFragments[Row div fRowsPerFragment]; inc(pb, fRowlen * (Row mod fRowsPerFragment)); result := pb; end; ieTBitmap: result := fBitmapScanlines[row]; ieFile: begin if fWorkingMap<>nil then begin // flushes the working map (from Scnaline[]) fmemmap.UnMap(fWorkingMap); fWorkingMap := nil; end; result := fmemmap.Map(Row * fRowLen, fRowLen, fAccess); fScanlinesToUnMapPtr.Add(result); fScanlinesToUnMapRow.Add(pointer(Row)); end; else result := nil; end; end; {!! TIEBitmap.FreeRow Declaration procedure FreeRow(Row: integer); Description Frees a row obtained using . Does nothing if is ieMemory or ieTBitmap. !!} // for performance we never control if Row is valid procedure TIEBitmap.FreeRow(Row: integer); var idx: integer; begin if (fLocation = ieFile) then begin idx := fScanlinesToUnMapRow.IndexOf(pointer(Row)); if idx >= 0 then begin fmemmap.UnMap(fScanlinesToUnMapPtr[idx]); fScanlinesToUnMapPtr.Delete(idx); fScanlinesToUnMapRow.Delete(idx); end; end; end; {!! TIEBitmap.CopyFromMemory Declaration procedure CopyFromMemory(SrcBuffer: pointer; SrcWidth: integer; SrcHeight: integer; SrcPixelFormat: TIEPixelFormat; SrcOrigin: TIEBitmapOrigin; SrcRowLen: integer); Description Copies an image from memory buffer. Parameter Description SrcBuffer Source memory buffer. SrcWidth Source image width. SrcHeight Source image height. SrcPixelFormat Source pixel format. SrcOrigin Source orientation. SrcRowLen Source row length.

See Also - !!} function TIEICC.InitTransform(Destination: TIEICC; InputFormat: integer; OutputFormat: integer; Intent: integer; Flags: integer): boolean; var mshprofs: array [0..1] of IE_HPROFILE; msintent: array [0..1] of dword; begin if fUseLCMS then begin {$ifdef IEINCLUDECMS} if (fTransform = nil) or (fInputFormat <> InputFormat) or (fOutputFormat <> OutputFormat) or (fIntent <> Intent) or (fFlags <> Flags) then begin // initialize transform FreeTransform(); // if it was already created fTransform := IEcmsCreateTransform(fProfile, InputFormat, Destination.fProfile, OutputFormat, Intent, Flags); fInputFormat := InputFormat; fOutputFormat := OutputFormat; fIntent := Intent; fFlags := Flags; end; {$endif} end else begin // use mscms if (fMSTransform = 0) or (fInputFormat <> InputFormat) or (fOutputFormat <> OutputFormat) or (fIntent <> Intent) or (fFlags <> Flags) then begin FreeTransform; msintent[0] := IE_INTENT_PERCEPTUAL; msintent[1] := IE_INTENT_PERCEPTUAL; mshprofs[0] := fMSProfile; mshprofs[1] := Destination.fMSProfile; fMSTransform := IE_CreateMultiProfileTransform(@mshprofs[0], 2, @msintent[0], 2, IE_BEST_MODE or IE_USE_RELATIVE_COLORIMETRIC, IE_INDEX_DONT_CARE); fInputFormat := InputFormat; fOutputFormat := OutputFormat; fIntent := Intent; fFlags := Flags; end; end; result := (fTransform <> nil) or (fMSTransform <> 0); end; {!! TIEICC.Transform Declaration function Transform(Destination: ; InputFormat: integer; OutputFormat: integer; Intent: integer; Flags: integer; InputBuffer: pointer; OutputBuffer: pointer; ImageWidth: integer): boolean; Description Transforms a row from current profile to the destination profile. You must call FreeTransform after the whole image has been transformed. Returns False if it cannot perform the transformation. InputFormat and OutputFormat : The color format for the input and the output. See below for a list of supported color formats. Intent: The ICC intent to apply. If an appropiate tag for this intent is not found, no error is raised and the intent is reverted to perceptual. INTENT_PERCEPTUAL INTENT_RELATIVE_COLORIMETRIC INTENT_SATURATION INTENT_ABSOLUTE_COLORIMETRIC Flags: This value commands on how to handle the whole process. Some or none of this values can be joined via the 'or' operator. cmsFLAGS_MATRIXINPUT CLUT ignored on input profile, matrix-shaper used instead (for speed, and debugging purposes) cmsFLAGS_MATRIXOUTPUT Same as anterior, but for output profile only. cmsFLAGS_NOTPRECALC By default, lcms smelt luts into a device-link CLUT. This speedup whole transform greatly. If you don't wanna this, and wish every value to be translated to PCS and back to output space, include this flag. cmsFLAGS_NULLTRANFORM Don't transform anyway, only apply pack/unpack routines (usefull to deactivate color correction but keep formatting capabilities) cmsFLAGS_HIGHRESPRECALC Use 48 points instead of 33 for device-link CLUT precalculation. Not needed but for the most extreme cases of mismatch of "impedance" between profiles. cmsFLAGS_LOWRESPRECALC Use lower resolution table. Usefull when memory is a preciated resource. cmsFLAGS_BLACKPOINTCOMPENSATION Use BPC algorithm.

!!} procedure TIERFBClient.SendRequestUpdate(x, y, width, height: word; incremental: boolean); begin if not m_suspended then begin m_socketSendLock.Enter(); try m_socket.SendByte(3); // FramebufferUpdateRequest m_socket.SendByte(byte(incremental)); // incremental m_socket.SendWord(x); // x-position m_socket.SendWord(y); // y-position m_socket.SendWord(width); // width m_socket.SendWord(height); // height finally m_socketSendLock.Leave(); end; end; end; procedure TIERFBClient.SendRequestUpdate(incremental: boolean); begin SendRequestUpdate(0, 0, m_frameBufferSize.cx, m_frameBufferSize.cy, incremental); end; {!! TIERFBClient.SendPointerEvent Declaration procedure SendPointerEvent(x, y: integer; LeftButton: boolean; MiddleButton: boolean; RightButton: boolean); Description Communicates a new mouse pointer position and mouse buttons state to the server. SendPointerEvent also updates the frame buffer drawing the mouse cursor, so you should refresh the screen just after. May throw exception if a communication error occurs. Parameter Description x Horizontal coordinate of the mouse (hotspot), relative to the frame buffer. y Vertical coordinate of the mouse (hotspot), relative to the frame buffer.. LeftButton True if the left button is down. MiddleButton True if the middle button is down. RightButton True if the right button is down.

Example procedure TForm1.ImageEnViewMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if RFB.Connected then begin RFB.SendPointerEvent(ImageEnView.XScr2Bmp(X), ImageEnView.YScr2Bmp(Y), ssLeft in Shift, ssMiddle in Shift, ssRight in Shift); ImageEnView.Update; end; end; !!} procedure TIERFBClient.SendPointerEvent(x, y: integer; LeftButton: boolean; MiddleButton: boolean; RightButton: boolean); var bb: byte; wx, wy: word; begin LockFrameBuffer(); wx := imax(0, imin(x, m_frameBufferSize.cx - 1)); wy := imax(0, imin(y, m_frameBufferSize.cy - 1)); try m_cursorPos := Point(wx, wy); RemoveCursor; PaintCursor; finally UnlockFrameBuffer(); end; m_socketSendLock.Enter(); try m_socket.SendByte(5); // msg-id bb := 0; if LeftButton then bb := bb or 1; if MiddleButton then bb := bb or 2; if RightButton then bb := bb or 4; m_socket.SendByte(bb); // button mask m_socket.SendWord(wx); // x-position m_socket.SendWord(wy); // y-position finally m_socketSendLock.Leave(); end; end; {!! TIERFBClient.SendClipboard Declaration procedure SendClipboard(const Text: AnsiString); Description Sends text to the server clipboard. Only ISO 8859-1 (Latin-1) text is supported by the protocol. May throw exception if a communication error occurs. !!} // send ClientCutText message procedure TIERFBClient.SendClipboard(const Text: AnsiString); begin m_socketSendLock.Enter(); try m_socket.SendByte(6); // msg-id m_socket.SendPad(3); // 3 bytes padding m_socket.SendDWord(length(Text)); // text length m_socket.SendBuffer(PAnsiChar(Text), length(Text)); // Text finally m_socketSendLock.Leave(); end; end; {!! TIERFBClient.SendKeyEvent Declaration procedure SendKeyEvent(xkey: dword; down: boolean); procedure SendKeyEvent(VirtualKey: dword; KeyData: dword; down: boolean); Description Sends a Windows Virtual Key or a XWindow key to the server. The first overload (XWindow) is fully supported (you can send any XWindow key). The second overload (VirtualKey) doesn't support all key combinations (like CTRL-?, ALT-?, etc...), so applications should handle these combination manually. May throw exception if a communication error occurs. Parameter Description xkey XWindow key code. down True when the key is down, False otherwise. VirtualKey Windows Virtual Key code. KeyData Windows Virtual Key data.

!!} procedure TIEImageList.FillFromDirectory(const Directory: WideString; Limit : integer = -1; AllowUnknownFormats : boolean = false; const ExcludeExtensions : WideString = ''; DetectFileFormat : boolean = false; const FilterMask : WideString = ''; IncludeVideoFiles : Boolean = False); var l: integer; fpath, fname: WideString; count: integer; sep: WideString; excList: TStringList; mskList: TStringList; dir: TIEDirContent; ext: WideString; io: TImageEnIO; bmp: TIEBitmap; begin io := nil; dir := nil; excList := TStringList.Create; mskList := TStringList.Create; try io := TImageEnIO.Create(nil); excList.CommaText := LowerCase(ExcludeExtensions); mskList.CommaText := LowerCase(FilterMask); l := length(Directory); if (l=0) or (Directory[l]='\') then sep := '' else sep := '\'; dir := TIEDirContent.Create(Directory + sep + '*.*'); count := 0; while dir.getItem(fname) do begin fpath := Directory + sep + fname; ext := IEExtractFileExtW(fname, false); if (AllowUnknownFormats or (DetectFileFormat and (FindFileFormat(fpath, ffContentOnly) <> ioUnknown)) or IsKnownFormat(fpath, IncludeVideoFiles)) and (excList.IndexOf(ext)=-1) and ((mskList.Count=0) or (mskList.IndexOf(ext)>-1)) then begin if (Limit>-1) and (count=limit) then break; bmp := TIEBitmap.Create(); io.AttachedIEBitmap := bmp; try io.LoadFromFileAuto(fpath); except end; m_images.Add(TIEImageListItem.Create(bmp, fpath)); inc(count); end; end; finally io.Free; dir.Free; mskList.Free; excList.Free; end; end; {!! TIEImageList.AppendImageRef Declaration function AppendImageRef(image: ; filename: WideString): integer; Description Appends the specified image. This method doesn't copy the bitmap, just takes ownership of the image object. Parameter Description image Image to append. filename Filename of the image.

Example var map: TIESlippyMap; begin map := TIESlippyMap.Create(); try map.Latitude := 51.503614574056016; map.Longitude := -0.12774750793460043; map.PointPosition := Point(ImageEnView1.IEBitmap.Width div 2, ImageEnView1.IEBitmap.Height div 2); map.Zoom := 13; map.DrawTo( ImageEnView1.IEBitmap ); ImageEnView1.Update(); finally map.Free(); end; end; !!} procedure TIESlippyMap.DrawTo(destBitmap: TIEBitmap); var x, y: integer; t: TPoint; maxTiles: integer; startPos: TPoint; startTile: TPoint; begin maxTiles := trunc(Power(2.0, m_zoom)); // get starting tile and pos CalcTopLeftTileAndPos(startTile, startPos); // draw tiles from top-left ClearLoadQueue(); t.Y := startTile.Y; y := startPos.Y; while (y < destBitmap.Height) and (t.Y < maxTiles) do begin t.X := startTile.X; x := startPos.X; while (x < destBitmap.Width) and (t.X < maxTiles) do begin if (t.X >= 0) and (t.Y >= 0) then AddTileToLoadQueue(t, destBitmap, Point(x, y)); inc(x, 256); inc(t.X); end; inc(y, 256); inc(t.Y); end; WaitLoadQueue(); end; {!! TIESlippyMap.BmpXToLongitude Declaration function BmpXToLongitude(X: integer): double; Description Converts from horizontal bitmap coordinates to longitude (decimal degrees). This conversion depends by current , , and . Parameter Description X Bitmap column relative to top-left position.

Example // handles OnMouseMove and gets latitude and longitude under the mouse position procedure TForm1.ImageEnView1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var bmpX, bmpY: integer; longitude, latitude: double; begin bmpX := ImageEnView1.XScr2Bmp(X); bmpY := ImageEnView1.YScr2Bmp(Y); longitude := TIESlippyMap(ImageEnView1.IEBitmap.VirtualBitmapProvider).BmpXToLongitude(bmpX); latitude := TIESlippyMap(ImageEnView1.IEBitmap.VirtualBitmapProvider).BmpYToLatitude(bmpY); end; See Also - - - !!} function TIESlippyMap.BmpXToLongitude(X: integer): double; var startTile, startPos: TPoint; begin CalcTopLeftTileAndPos(startTile, startPos); result := CoordXToLongitude(X - startPos.X, startTile.X, m_zoom) end; {!! TIESlippyMap.BmpYToLatitude Declaration function BmpYToLatitude(Y: integer): double; Description Converts from vertical bitmap coordinates to latitude (decimal degrees). This conversion depends by current , , and . Parameter Description Y Bitmap row relative to top-left position.

Example // handles OnMouseMove and gets latitude and longitude under the mouse position procedure TForm1.ImageEnView1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var bmpX, bmpY: integer; longitude, latitude: double; begin bmpX := ImageEnView1.XScr2Bmp(X); bmpY := ImageEnView1.YScr2Bmp(Y); longitude := TIESlippyMap(ImageEnView1.IEBitmap.VirtualBitmapProvider).BmpXToLongitude(bmpX); latitude := TIESlippyMap(ImageEnView1.IEBitmap.VirtualBitmapProvider).BmpYToLatitude(bmpY); end; See Also - - - !!} function TIESlippyMap.BmpYToLatitude(Y: integer): double; var startTile, startPos: TPoint; begin CalcTopLeftTileAndPos(startTile, startPos); result := CoordYToLatitude(Y - startPos.Y, startTile.Y, m_zoom) end; {!! TIESlippyMap.LongitudeToBmpX Declaration function LongitudeToBmpX(lon: double): integer; Description Converts from longitude to bitmap horizontal position. This conversion depends by current , , and . Parameter Description lon Longitude in decimal degrees.

See Also - - - !!} function TIESlippyMap.LongitudeToBmpX(lon: double): integer; var startTile, startPos: TPoint; begin CalcTopLeftTileAndPos(startTile, startPos); result := (LongitudeToTileX(lon, m_zoom) - startTile.X) * 256 + startPos.X + LongitudeToCoordX(lon, m_zoom); end; {!! TIESlippyMap.LatitudeToBmpY Declaration function LatitudeToBmpY(lat: double): integer; Description Converts from latitude to bitmap vertical position. This conversion depends by current , , and . Parameter Description lat Latitude in decimal degrees.

!!} procedure TIECustomMultiBitmap.ReleaseBitmap(idx: Integer; SaveChanges: Boolean); begin fImageList.ReleaseBitmapByImage(TIEImageInfo(fImageInfo[idx]).image, SaveChanges); if SaveChanges then Changed( idx ); end; // Load an image if it not yet available procedure TIECustomMultiBitmap.CheckImageLoaded(idx: Integer); var iebmp: TIEBitmap; info: TIEImageInfo; io : TImageEnIO; IOParams: TIOParams; begin info := GetImageInfo( idx ); if info.image <> nil then exit; try if assigned( fOwner ) and ( fOwner is TImageEnMView ) then TImageEnMView( fOwner ).ObtainImageNow( idx ) else if (info.ID > -1) and InternalLoadImageByID_Assigned() then begin // request by ID iebmp := nil; IOParams := nil; try if GetParamsEnabled then IOParams := TIOParams.Create; InternalLoadImageByID( self, idx, info.ID, iebmp, IOParams ); if iebmp = nil then raise EIEException.create( 'Load Error' ); if GetParamsEnabled then fParamsList.GetParams( idx ).Assign( IOParams ); Info.image := fImageList.AddIEBitmapNoMap( iebmp ); fImageList.SetImageOriginalWidth ( Info.image, iebmp.Width ); fImageList.SetImageOriginalHeight( Info.image, iebmp.Height ); if ( IOParams <> nil ) and ( IOParams.EXIF_DateTimeOriginal2 > 0 ) then Info.CreateDate := IOParams.EXIF_DateTimeOriginal2; finally FreeAndNil ( IOParams ); end; end else if info.Filename <> '' then begin io := TImageEnIO.Create( nil ); iebmp := TIEBitmap.Create; try io.Background := info.Background; io.AttachedIEBitmap := iebmp; io.LoadFromFileAuto( info.Filename ); if (iebmp.Width < 2) and (iebmp.Height < 2) then raise EIEException.create( 'Load Error' ); if GetParamsEnabled then fParamsList.GetParams( idx ).Assign( io.Params ); // set the image info.Background := io.Background; info.SourceType := iestDefault; Info.image := fImageList.AddIEBitmapNoMap( iebmp ); fImageList.SetImageOriginalWidth ( Info.image, iebmp.Width ); fImageList.SetImageOriginalHeight( Info.image, iebmp.Height ); if io.Params.EXIF_DateTimeOriginal2 > 0 then Info.CreateDate := io.Params.EXIF_DateTimeOriginal2; finally io.AttachedIEBitmap := nil; FreeAndNil( iebmp ); FreeAndNil( io ); end; end; except // LOAD ERROR end; end; {!! TIEMultiBitmap.GetImageToFile Declaration procedure GetImageToFile(idx: Integer; const FileName: WideString; IOParams: = nil); Description Saves the image at index, idx, to file. The file format is determined by the file extension. Parameter Description idx The image index (0=first image) FileName The destination path and file name Params The save parameters

Example // Separate the pages of a multipage TIFF MBitmap.Read('multipage.tif'); MBitmap.GetImageToFile(0, 'page1.tif'); MBitmap.GetImageToFile(1, 'page2.tif'); !!} procedure TIECustomMultiBitmap.GetImageToFile(idx: Integer; const FileName: WideString; IOParams: TIOParams = nil); var IO: TImageEnIO; bmp: TIEBitmap; begin IO := TImageEnIO.Create( nil ); if assigned( IOParams ) then IO.Params.Assign( IOParams ) else if GetParamsEnabled() then IO.Params.Assign( Params[ idx ] ); bmp := GetTIEBitmap(idx); try if bmp = nil then raise EIEException.create( 'Bitmap not available' ); IO.AttachedIEBitmap := bmp; IO.SaveToFile(FileName); finally ReleaseBitmap(idx, false); FreeAndNil(IO); end; end; {!! TIEMultiBitmap.GetImageToStream Declaration procedure GetImageToStream(idx: Integer; Stream: TStream; ImageFormat: ; IOParams: = nil); Description Saves the image at index, idx, to a stream. Parameter Description idx The image index (Where 0 is the first image) Stream The destination stream ImageFormat The output file format (e.g. ioTiff or ioJpeg) Params The save parameters

Examples // Halve the size of the first image in a TImageEnMView with high quality smoothing ImageEnMView1.IEMBitmap.Resample( 0, 0.5, rfLanczos3 ); ImageEnMView1.Update; // Quarter the size of the first frame of a TIFF file with fast but good quality smoothing MBitmap := TIEMultiBitmap.create; MBitmap.Read( 'D:\Doc.Tiff' ); MBitmap.Resample( 0, 0.25, rfFastLinear ); MBitmap.Write( 'D:\Doc.Tiff' ); MBitmap.Free; !!} procedure TIECustomMultiBitmap.Resample(idx: integer; ScaleBy: Double; FilterType: TResampleFilter = rfNone); var bmp: TIEBitmap; begin bmp := GetTIEBitmap( idx ); bmp.Resample( ScaleBy, FilterType ); ReleaseBitmap( idx, True ); Update; end; {!! TIEMultiBitmap.FlipAll Declaration procedure FlipAll(Dir: ); Description Flips (mirrors) all frames within the image across the horizontal or vertical axis. Examples // Flip all images in a TImageEnMView right-to-left ImageEnMView1.IEMBitmap.Flip( fdHorizontal ); // Flip all images in a TIFF file top-to-bottom MBitmap := TIEMultiBitmap.create; MBitmap.Read( 'D:\Doc.Tiff' ); MBitmap.FlipAll( fdVertical ); MBitmap.Write( 'D:\Doc.Tiff' ); MBitmap.Free; !!} procedure TIECustomMultiBitmap.FlipAll(Dir: TFlipDir); var I: Integer; begin LockUpdate; for I := 0 to Count - 1 do Flip( I, Dir ); UnlockUpdate; end; {!! TIEMultiBitmap.RotateAll Declaration procedure RotateAll(Angle: double; AntialiasMode: = ierFast; BackgroundColor: TColor = clWhite); Description Rotates all frames within the current image by the specified angle (negative or positive degrees counter-clockwise). AntialiasMode specifies the anti-aliasing algorithm that is used to improve rotation quality: ierNone : No anti-aliasing (lowest quality) ierFast : Fast but lower quality ierBilinear : Bilinear, high quality ierBicubic : Bicubic, highest quality BackgroundColor specifies a background color to fill new regions (i.e. when not rotating at a 90 degree angle) Examples // Rotate all images in a TImageEnMView 90° clockwise (Note: AntialiasMode is irrelevant for 90 deg. rotates) ImageEnMView1.IEMBitmap.RotateAll( 270 ); // Rotate a TIFF file 90° counter-clockwise; MBitmap := TIEMultiBitmap.create; MBitmap.Read( 'D:\Doc.Tiff' ); MBitmap.RotateAll( 90 ); MBitmap.Write( 'D:\Doc.Tiff' ); MBitmap.Free; // Rotate the image 45° clockwise at highest quality with a white background color MBitmap.RotateAll( 315, ierBicubic, clWhite ); // Rotate the image 180° clockwise MBitmap.RotateAll( 180 ); See Also - !!} procedure TIECustomMultiBitmap.RotateAll(Angle: double; AntialiasMode: TIEAntialiasMode = ierFast; BackgroundColor: TColor = clWhite); var I: Integer; begin LockUpdate; for I := 0 to Count - 1 do Rotate( I, Angle, AntialiasMode, BackgroundColor ); UnlockUpdate; end; {!! TIEMultiBitmap.ResampleAll Declaration procedure ResampleAll(ScaleBy: Double; FilterType: = rfNone); Description Resizes (all frames of) the current image. The content of the image changes (stretched to new size). Parameter Description ScaleBy The amount to scale all images. E.g. 0.5 would halve the size of all images while respecting the proportions FilterType Resampling interpolation algorithm

Returns the number of removed pages. Example // Remove last blank pages MBitmap.RemoveBlankPages( 0.0, False, False ); // Remove any pages that are 95% blank MBitmap.RemoveBlankPages( 0.05 ); !!} function TIEMultiBitmap.RemoveBlankPages(Tolerance: Double = 0; Complete: boolean = true; LeftToRight: boolean = true): Integer; var proc: TImageEnProc; i: Integer; domValue: Double; domColor: TRGB; begin result := 0; proc := TImageEnProc.Create(nil); try if LeftToRight then i := 0 else i := GetImageCount - 1; while (LeftToRight and (i < GetImageCount)) or (not LeftToRight and (i >= 0)) do begin proc.AttachedIEBitmap := GetTIEBitmap(i); try domValue := proc.GetDominantColor(domColor) / 100; finally ReleaseBitmap(i, false); end; if 1 - domValue <= tolerance then begin DeleteImage(i); inc(result); if not LeftToRight then dec(i); end else begin if not Complete then // stop when a non-blank occurs break; if LeftToRight then inc(i) else dec(i); end; end; finally proc.Free; end; end; {!! TIEMultiBitmap.RemoveDuplicates Declaration function RemoveDuplicates(): Integer; Description Locate images with duplicate content in the TIEMultiBitmap and remove other instances (using an MD5 Hash). Returns the number of removed pages. Examples // Ensure there are no duplicate images in our TIEMultiBitmap after filling it from a folder MBitmap.Clear; MBitmap.FillFromDirectory('C:\Images'); MBitmap.RemoveDuplicates(); See Also - - !!} function TIEMultiBitmap.RemoveDuplicates(): Integer; var ssHashes: TStringList; i: Integer; begin result := 0; ssHashes := TStringList.Create(); try ssHashes.Sorted := True; ssHashes.Duplicates := dupError; i := 0; while i < GetImageCount do try if ImageHash[ i ] <> '' then ssHashes.Add( string(ImageHash[ i ]) ); inc( i ); except // Hash found! DeleteImage( i ); inc( result ); end; finally ssHashes.Free; end; end; {!! TIEMultiBitmap.AppendSplit Declaration function AppendSplit(SourceGrid: ; cellWidth: Integer; cellHeight: Integer; maxCount: Integer = 0): Integer; Description Splits the source image into cells of the specified size and adds each cell to the TIEMultiBitmap Result is the count of added images. Parameter Description SourceGrid Source bitmap containing cells to split. cellWidth Width of a cell. cellHeight Height of a cell. maxCount Maximum number of cells to add. 0 = all suitable cells.

!!} function TIEMultiBitmap.AppendSplit(SourceGrid: TIEBitmap; cellWidth: Integer; cellHeight: Integer; maxCount: Integer): Integer; var x, y: Integer; idx: Integer; begin result := 0; y := 0; while y < SourceGrid.Height do begin x := 0; while x < SourceGrid.Width do begin idx := AppendImage; SetImageRect( idx, SourceGrid, x, y, x + cellWidth - 1, y + cellHeight - 1 ); inc(result); if (maxCount>0) and (maxCount=result) then exit; inc(x, cellWidth); end; inc(y, cellHeight); end; end; {!! TIEMultiBitmap.MoveImage Declaration procedure MoveImage(idx: Integer; destination: Integer); Description Moves an image from the index position idx to the destination position. If the destination index is greater than or equal to the image count, the image is moved to the position after the last image. Note: If you have images of the order ABCD, then calling MoveImage(0, 2) would change it to BCAD Example // Exchange first and second images MBitmap.MoveImage(0, 1); // Move first image to the end of the grid MBitmap.MoveImage(0, MBitmap.Count); !!} // move image idx to destination index procedure TIEMultiBitmap.MoveImage(idx: integer; destination: integer); begin if (idx >= 0) and (idx < fImageInfo.Count) and (destination >= 0) and (destination <> idx) then begin if destination >= fImageInfo.Count then begin fImageInfo.Add( fImageInfo[ idx ]); fImageInfo.Delete( idx ); end else fImageInfo.Move( idx, destination ); UpdateParams( IEM_OP_MOVE, idx, destination ); Changed( -1 ); end; end; {!! TIEMultiBitmap.SwapImages Declaration procedure TIEMultiBitmap.SwapImages(idx1, idx2: Integer); Description Moves two images to each others position. Example // Exchange first and last images MBitmap.MoveImage(0, MBitmap.Count - 1); !!} procedure TIEMultiBitmap.SwapImages(idx1, idx2: Integer); var tmp: pointer; begin tmp := fImageInfo[ idx1 ]; fImageInfo[ idx1 ] := fImageInfo[idx2]; fImageInfo[ idx2 ] := tmp; UpdateParams( IEM_OP_SWAP, idx1, idx2 ); Changed( -1 ); end; {!! TIEMultiBitmap.InsertTransitionFrames Declaration procedure InsertTransitionFrames(Idx : integer; iFrameCount : integer; Effect : ; iWidth : Integer = -1; iHeight : Integer = -1; BackgroundColor : TColor = clBlack; ResamplingFilter: = rfFastLinear); Description Create a series of transition frames from the image at Idx - 1 to the image at Idx (and insert them at position Idx). If Idx = 0 then the transition is from a blank frame to the first image. If Idx = Count then the transition is from the last image to a blank frame. Parameter Description Idx The insertion position iFrameCount The number of frames to insert Effect The desired transition effect iWidth, iHeight The size to create the transition bitmaps. If either of these are -1 then the size will be the larger of the two images in each dimension. Aspect Ratios will be maintained and any non-image area will be filled with BackgroundColor. BackgroundColor The color that will be used for blank frames or non-image area (default is clBlack) ResamplingFilter The algorithm that is used to improve quality when resizing images

Note: Use if you need to create frames for an iettPanZoom transition Example // Create ten frames that use a cross dissolve transition from image 5 to image 6 MBitmap.InsertTransitionFrames(6, 10, iettCrossDissolve); See Also - !!} procedure TIEMultiBitmap.InsertTransitionFrames(Idx : integer; iFrameCount : integer; Effect : TIETransitionType; iWidth : Integer = -1; iHeight : Integer = -1; BackgroundColor : TColor = clBlack; ResamplingFilter: TResampleFilter = rfFastLinear); var ARect : TRect; begin ARect := Rect(0, 0, 0, 0); InsertTransitionFramesEx(Idx, iFrameCount, Effect, ARect, ARect, True, iWidth, iHeight, False, BackgroundColor, ResamplingFilter); end; {!! TIEMultiBitmap.InsertTransitionFramesEx Declaration procedure InsertTransitionFramesEx(Idx : Integer; iFrameCount : Integer; Effect : ; StartRect, EndRect : TRect; RectMaintainAspectRatio : boolean = True; iWidth : Integer = -1; iHeight : Integer = -1; bStretchSmall : Boolean = False; BackgroundColor : TColor = clBlack; ResamplingFilter : ; Smoothing: Integer = 96; Timing : = iettLinear); Description This is an extended version of that includes more parameters and is primarily used when you need to create a series of frames that show a Pan Zoom from StartRect to EndRect for the image specified at Idx - 1. Parameter Description Idx The insertion position iFrameCount The number of frames to insert Effect The desired transition effect StartRect When using an iettPanZoom effect this is the portion of the image that is shown at the start EndRect When using an iettPanZoom effect this is the portion of the image that is shown at the end RectMaintainAspectRatio ImageEn will ensure that the starting and ending rects are automatically adjusted to ensure the resultant image has the correct aspect ratio (iettPanZoom only) iWidth, iHeight The size to create the transition bitmaps. If either of these are -1 then the size will be the larger of the two images in each dimension. Aspect Ratios will be maintained and any non-image area will be filled with BackgroundColor. bStretchSmall If the images are smaller than the transition bitmap size (iWidth x iHeight) should they be stretched to fit (which can lead to distortion). BackgroundColor The color that will be used for blank frames or non-image area (Default is clBlack) ResamplingFilter The algorithm that is used to improve quality when resizing images Timing The rate at which the transition progresses Smoothing In order to reduce the "jumpiness" of pan zoom effects, transition frames are alpha blended. A low value will improve smoothness, but increase blurriness. A high value will improve clarity, but increase jumpiness. Typical range is 64 - 196. 255 means no alpha blending