kjkim
/
BSOne.SFC
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
BSOne.SFC/EM.Lib/ImageEn_SRC/Source/iesettings.pas

2112 lines
70 KiB
Plaintext
Raw Blame History

(* ImageEn Build 7.0.0.06.2637 @ 7-4-17 14:58:42.679 *)
(*
Copyright (c) 1998-2017 by Carlotta Calandra. All rights reserved.
Copyright (c) 2011-2017 by Xequte Software.
This software comes without express or implied warranty.
In no case shall the author be liable for any damage or unwanted behavior of any
computer hardware and/or software.
Author grants you the right to include the component
in your application, whether COMMERCIAL, SHAREWARE, or FREEWARE.
ImageEn, IEvolution and ImageEn ActiveX may not be included in any
commercial, shareware or freeware libraries or components.
www.ImageEn.com
*)
(*
File version 1006
*)
unit iesettings;
{$R-}
{$Q-}
{$I ie.inc}
interface
uses
Windows, Classes, SysUtils, Graphics, hyiedefs, hyieutils, imageenio, iexBitmaps;
///////////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////////////
// TIEImageEnGlobalSettings
type
{!!
<FS>TIEEXIFInteroperabilityIndexUsage
<FM>Declaration<FC>
}
TIEEXIFInteroperabilityIndexUsage = (ieiiNone, ieiiApplyOnly, ieiiApplyAndReset);
{!!}
{!!
<FS>TIEEXIFMakerNotesHandling
<FM>Declaration<FC>
TIEEXIFMakerNotesHandling = (iemhDiscard, iemhDecodeOrDiscardRaw, iemhDecodeOrMaintainRaw, iemhDecodeAndSaveRaw);
<FM>Description<FN>
<TABLE>
<R> <H>Property</H> <H>Description</H> </R>
<R> <C> iemhDiscard </C> <C> </C> Don't load EXIF MakerNotes tag </R>
<R> <C> iemhDecodeOrDiscardRaw </C> <C> Decode or discard RAW on unknown MakerNotes (default) </C> </R>
<R> <C> iemhDecodeOrMaintainRaw </C> <C> Decode and maintain RAW, even on unknown MakerNotes. Saved decoded MakerNotes. Can produce corrupted jpegs on unknown MakerNotes! </C> </R>
<R> <C> iemhDecodeAndSaveRaw </C> <C> Decode and maintain original RAW MakerNotes on save. Can produce corrupted jpegs! </C> </R>
</TABLE>
!!}
TIEEXIFMakerNotesHandling = (iemhDiscard, iemhDecodeOrDiscardRaw, iemhDecodeOrMaintainRaw, iemhDecodeAndSaveRaw);
{!!
<FS>TIEDialogBackgroundStyle
<FM>Declaration<FC>
}
TIEDialogBackgroundStyle = (iedbDefault, iedbPaper, iedbMetal, iedbCustom);
{!!}
{!!
<FS>TIEWordTransitionParams
<FM>Declaration<FC>
TIEWordTransitionParams = class
Word : string;
FontName : string;
Style : TFontStyles;
Quality : Word;
end;
<FM>Description<FN>
Properties for customizing the <L TIETransitionType>"Word" transition effects</L>:
- iettRandomBoxesWithWord
- iettRandomWord *
- iettExpandingWord *
- iettWordWipeOut *
- iettWordWipeIn *
- iettWordWipeInAndOut *
- iettWordHalfSweep
- iettWordFullSweep
- iettWordFullExpandingSweep
<TABLE>
<R> <H>Property</H> <H>Description</H> </R>
<R> <C>Word</C> <C>The text that is displayed during the transition. It can be a single character, e.g. a letter or a symbol from Wingdings, or a whole word</C> </R>
<R> <C>FontName</C> <C>The font to use to display the text, e.g. "Arial" or "Wingdings". Ensure you specify a font that is available on the destination system (default: "Arial")</C> </R>
<R> <C>Style</C> <C>The style that is used to display the text, can include fsBold, fsItalic, fsUnderline and/or fsStrikeOut (default: [fsBold])</C> </R>
<R> <C>Quality</C> <C>The smoothness of the text. The value specifies the height in pixels of the bitmap used to create each letter. A high value will give performance issues on some systems, whereas a low value will give the letter a blocky apperance. Practical range is 20 - 2000; default is 200</C> </R>
</TABLE>
Note: Effects with an asterisk will cycle through each specified letter, displaying one at a time. If you wish to display a whole (only a short one is recommended) then enclose it in quotations, e.g. "HI!"
Other effects will always display the full word.
<FM>Example<FC>
// Display snowflakes in random positions
IEGlobalSettings().WordTransitionParams.Word := 'T'; // Snowflake in the Wingdings font
IEGlobalSettings().WordTransitionParams.FontName := 'Wingdings';
IEGlobalSettings().WordTransitionParams.Style := [fsBold];
ImageEnView1.PrepareTransition;
ImageEnView1.IO.LoadFromFile(GetImageOfIndex(FCurrentImage));
ImageEnView1.RunTransition(iettRandomWord, 2000);
// Transition, showing each letter of the word "ImageEn" in turn
IEGlobalSettings().WordTransitionParams.Word := 'ImageEn';
ImageEnView1.PrepareTransition;
ImageEnView1.IO.LoadFromFile(GetImageOfIndex(FCurrentImage));
ImageEnView1.RunTransition(iettWordWipeInAndOut, 5000);
// Transition wiping the screen with the word "GO!"
IEGlobalSettings().WordTransitionParams.Word := '"GO!"'; // Enclose in quotes to avoid cyling. Small words are best
ImageEnView1.PrepareTransition;
ImageEnView1.IO.LoadFromFile(GetImageOfIndex(FCurrentImage));
ImageEnView1.RunTransition(iettWordWipeInAndOut, 5000);
!!}
TIEWordTransitionParams = class
Word : string;
FontName : string;
Style : TFontStyles;
Quality : Word;
end;
{!!
<FS>TIEImageEnGlobalSettings
<FM>Description<FN>
Contains almost all ImageEn shared settings.
<A IEGlobalSettings> returns the instance of this object.
<FM>Example<FC>
// Change the language to Italian
IEGlobalSettings().MsgLanguage := msItalian;
<FM>Properties<FN>
<FI>General<FN>
<TABLE2>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.DefTempPath></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.MaxImageEMFSize></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.MeasureUnits></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.MsgLanguage></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.ProxyAddress></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.ProxyPassword></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.ProxyUser></C> </R>
</TABLE>
<FI>Bitmap Settings<FN>
<TABLE2>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.AutoFragmentBitmap></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.AutoLocateOnDisk></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.DefaultDPIX></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.DefaultDPIY></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.DefMinFileSize></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.ThumbnailSize></C> </R>
</TABLE>
<FI>Color Settings<FN>
<TABLE2>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.ApplyColorProfileOnRendering></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.BlueToGrayCoef></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.ColorReductionAlgorithm></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.ColorReductionQuality></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.ConvertColorFunction></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.EnableCMS></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.GreenToGrayCoef></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.RedToGrayCoef></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.UseCMYKProfile></C> </R>
</TABLE>
<FI>Visual Component (TImageEnView, TImageEnVect, TImageEnMView) Settings<FN>
<TABLE2>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.CustomHintTimeout></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.EnableTheming></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.DefaultLayerText></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.GridPen></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.GridMajorStep></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.GuidelineCount></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.MinZoomDisplayGrid></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.MemoShortCuts></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.MViewExplorerThumbnailExts></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.SelectionGridColor></C> </R>
</TABLE>
<FI>ImageEn Dialog Display Settings<FN>
<TABLE2>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.DefDialogCenter></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.DefaultDialogFont></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.DefaultPreviewHistogramScale></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.DefaultPreviewsZoomFilter></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.DialogBackgroundStyle></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.DialogBackgroundImage></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.IOPreviewsDialogHeight></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.IOPreviewsDialogWidth></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.PreviewAdditionalMultipageExts></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.PreviewImageBackgroundColor></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.PreviewImageBackgroundStyle></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.PrintDialogMarginsIncrement></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.PrintDialogMarginsMinValue></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.UseButtonGlyphsInDialogs></C> </R>
</TABLE>
<FI>Transition Effects<FN>
<TABLE2>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.PanZoomQualityFilter></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.TransitionsDrawAlternative></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.TransitionsDrawShape></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.WordTransitionParams></C> </R>
</TABLE>
<FI>Twain (Acquisition) Settings<FN>
<TABLE2>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.IsInsideTwain></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.ModelessSelectTwainSource></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.ReleaseTwainResources></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.TwainTransferBufferSize></C> </R>
</TABLE>
<FI>System Status<FN>
<TABLE2>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.BorderX></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.BorderY></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.EdgeX></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.EdgeY></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.HScrollHeight></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.IsRemoteSession></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.MMX></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.OpSys></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.SystemColors></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.SystemDPIX></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.SystemDPIY></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.UnicodeOS></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.VScrollWidth></C> </R>
</TABLE>
<FI>Advanced Settings<FN>
<TABLE2>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.BufferedReadStreamSize></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.DefaultCoresCount></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.EXIFInteroperabilityIndexUsage></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.EXIFMakerNotesHandling></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.ImageProcMaxThreads></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.ImageProcThreadsMinSize></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.ObjectsTIFFTag></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.UseDefaultFileExists></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.UseGDIPlus></C> </R>
<R> <C_IMG_PROPERTY> <C><A TIEImageEnGlobalSettings.UseRelativeStreams></C> </R>
</TABLE>
!!}
TIEImageEnGlobalSettings = class
private
fMsgLanguage: TMsgLanguage;
fDefaultCoresCount: integer;
fBufferedReadStreamSize: integer;
fOpSys: TIEOpSys;
fUnicodeOS: boolean;
fDefaultPreviewsZoomFilter: TResampleFilter;
fDefaultResampleFilter: TResampleFilter;
fDefaultRotateAntiAlias : TIEAntialiasMode;
fDefDialogCenter: TIEDialogCenter;
fDefaultDialogFont: TFont;
fDefMinFileSize: int64;
fDefaultPreviewHistogramScale: THistogramScale;
fAutoLocateOnDisk: boolean;
fAutoFragmentBitmap: boolean;
fUseGDIPlus: boolean;
fUseButtonGlyphsInDialogs: boolean;
fPreviewImageBackgroundStyle: TIEBackgroundStyle;
fPreviewImageBackgroundColor: TColor;
fPreviewAdditionalMultipageExts: string;
fSystemColors: integer;
fIsRemoteSession: boolean;
fSystemDPIX: integer;
fSystemDPIY: integer;
fDefaultDPIX: integer;
fDefaultDPIY: integer;
fMMX: boolean;
fEdgeX: integer;
fEdgeY: integer;
fBorderX: integer;
fBorderY: integer;
fVScrollWidth: integer;
fHScrollHeight: integer;
fMinZoomDisplayGrid: integer;
fCustomHintTimeout: integer;
fGridMajorStep: integer;
fGuidelineCount: Integer;
fGridPen: TPen;
fSelectionGridColor: TColor;
fMViewExplorerThumbnailExts: string;
fDefGIF_LZWDECOMPFUNC: TGIFLZWDecompFunc;
fDefGIF_LZWCOMPFUNC: TGIFLZWCompFunc;
fDefTIFF_LZWDECOMPFUNC: TTIFFLZWDecompFunc;
fDefTIFF_LZWCOMPFUNC: TTIFFLZWCompFunc;
fFileFormats: TList;
fUseCMYKProfile: boolean;
fUseDefaultFileExists: boolean;
fMaxImageEMFSize: integer;
fDefTempPath: string;
fConvertColorFunction: TIEConvertColorFunction;
fEnableCMS: boolean;
fColorReductionAlgorithm: integer;
fColorReductionQuality: integer;
fObjectsTIFFTag: integer;
fUseRelativeStreams: boolean;
fPanZoomQualityFilter: TResampleFilter;
fRedToGrayCoef: integer;
fGreenToGrayCoef: integer;
fBlueToGrayCoef: integer;
fEXIFInteroperabilityIndexUsage: TIEEXIFInteroperabilityIndexUsage;
fEXIFMakerNotesHandling: TIEEXIFMakerNotesHandling;
fPrintDialogMarginsIncrement: double;
fPrintDialogMarginsMinValue: double;
fWordTransitionParams: TIEWordTransitionParams;
fTransitionsDrawAlternative : Boolean;
fTransitionsDrawShape : TIEShape;
fApplyColorProfileOnRendering: Boolean;
fReleaseTwainResources: Boolean;
fTwainTransferBufferSize: DWord;
fModelessSelectTwainSource: Boolean;
fIsInsideTwain: Boolean;
fIOPreviewsDialogWidth: integer;
fIOPreviewsDialogHeight: integer;
fImageProcMaxThreads: integer;
fImageProcThreadsMinSize: int64;
fDialogBackgroundStyle: TIEDialogBackgroundStyle;
fDialogBackgroundImage: TBitmap;
fProxyAddress, fProxyUser, fProxyPassword: string;
fThumbnailSize: Integer;
fDefaultLayerText: string;
fEnableTheming: Boolean;
procedure SetMsgLanguage(value: TMsgLanguage);
procedure SetImageProcMaxThreads(value: Integer);
function GetDialogBackgroundStyle : TIEDialogBackgroundStyle;
public
// Not surfaced: Custom colors shown in PromptForColor dialog
ColorDialogCustomColors : string;
{!!
<FS>TIEImageEnGlobalSettings.MemoShortCuts
<FM>Declaration<FC>
MemoShortCuts: <A TIEMemoShortCuts>;
<FM>Description<FN>
Contains all key shortcuts used in Memo objects. Defaults are:
MemoShortCuts[iesLEFTALIGN] := ShortCut(Word('L'), [ssCtrl]);
MemoShortCuts[iesCENTERALIGN] := ShortCut(Word('E'), [ssCtrl]);
MemoShortCuts[iesRIGHTALIGN] := ShortCut(Word('R'), [ssCtrl]);
MemoShortCuts[iesJUSTIFIED] := ShortCut(Word('J'), [ssCtrl]);
MemoShortCuts[iesCOPY] := ShortCut(Word('C'), [ssCtrl]);
MemoShortCuts[iesCUT] := ShortCut(Word('X'), [ssCtrl]);
MemoShortCuts[iesPASTE] := ShortCut(Word('V'), [ssCtrl]);
MemoShortCuts[iesFONTSELECT] := ShortCut(Word('F'), [ssCtrl]);
MemoShortCuts[iesBOLD] := ShortCut(Word('B'), [ssCtrl]);
MemoShortCuts[iesITALIC] := ShortCut(Word('I'), [ssCtrl]);
MemoShortCuts[iesUNDERLINE] := ShortCut(Word('U'), [ssCtrl]);
MemoShortCuts[iesBACKCOLORSELECT] := ShortCut(Word('G'), [ssCtrl]);
Change one of above lines to set your custom short cut.
The following table specifies the default key map:
<TABLE>
<R> <H>Shortcut</H> <H>Function</H> </R>
<R> <C>F2</C> <C>Increase font size</C> </R>
<R> <C>F1</C> <C>Decrease font size</C> </R>
<R> <C>CTRL - L</C> <C>Left align</C> </R>
<R> <C>CTRL - E</C> <C>Center align</C> </R>
<R> <C>CTRL - R</C> <C>Right align</C> </R>
<R> <C>CTRL - J</C> <C>Justified</C> </R>
<R> <C>CTRL - C</C> <C>Copy</C> </R>
<R> <C>CTRL - X</C> <C>Cut</C> </R>
<R> <C>CTRL - V</C> <C>Paste</C> </R>
<R> <C>CTRL - F</C> <C>Open font dialog</C> </R>
<R> <C>CTRL - B</C> <C>Bold</C> </R>
<R> <C>CTRL - I</C> <C>Italic</C> </R>
<R> <C>CTRL - U</C> <C>Underline</C> </R>
<R> <C>CTRL - G</C> <C>Set background color (open dialog)</C> </R>
</TABLE>
!!}
MemoShortCuts: TIEMemoShortCuts;
{!!
<FS>TIEImageEnGlobalSettings.MeasureUnits
<FM>Declaration<FC>
MeasureUnits: <A TIEMeasureUnits>;
<FM>Description<FN>
Specifies how measure units are displayed as strings.
<FM>Example<FC>
IEGlobalSettings().MeasureUnits[ieuNANOMETERS] := 'uM';
!!}
MeasureUnits: TIEMeasureUnits;
constructor Create(); // do not use directly! Marked public only to avoid compatibility problems with old C++Builder versions
destructor Destroy; override;
procedure DestroySingletonInstance();
{!!
<FS>TIEImageEnGlobalSettings.MsgLanguage
<FM>Declaration<FC>
property MsgLanguage: <A TMsgLanguage>;
<FM>Description<FN>
This property sets the language for ImageEn dialogs and messages.
Default: msSystem
Note: The UpdateLanguage method of <A IIELanguageUpdatable> interface is called whenever MsgLanguage is updated.
<FM>Example<FC>
IEGlobalSettings().MsgLanguage := msItalian;
!!}
property MsgLanguage: TMsgLanguage read fMsgLanguage write SetMsgLanguage;
{!!
<FS>TIEImageEnGlobalSettings.DefaultCoresCount
<FM>Declaration<FC>
property DefaultCoresCount: integer;
<FM>Description<FN>
Specifies the total amount of processor's cores to use.
Default: -1 (returns the value from the operating system)
See also: <A IEGetCoresCount>.
!!}
property DefaultCoresCount: integer read fDefaultCoresCount write fDefaultCoresCount;
{!!
<FS>TIEImageEnGlobalSettings.BufferedReadStreamSize
<FM>Declaration<FC>
property BufferedReadStreamSize: integer;
<FM>Description<FN>
Specifies the size of read buffered streams. Setting 0 disables streams buffering.
At the moment this applies to loading images, loading parameters and detection of RAW file format.
Default: 1024
!!}
property BufferedReadStreamSize: integer read fBufferedReadStreamSize write fBufferedReadStreamSize;
{!!
<FS>TIEImageEnGlobalSettings.OpSys
<FM>Declaration<FC>
property OpSys: <A TIEOpSys>;
<FM>Description<FN>
Returns the detected operating system.
!!}
property OpSys: TIEOpSys read fOpSys write fOpSys;
{!!
<FS>TIEImageEnGlobalSettings.TransitionsDrawAlternative
<FM>Declaration<FC>
property TransitionsDrawAlternative: boolean;
<FM>Description<FN>
Set to True to use an alternative drawing style for some transitions, in some cases this will improve performance on lower spec systems, but usually it is only an aesthetic change.
Default: False
The specific effect upon each transition is as follows:
<TABLE>
<R> <H>Transition</H> <H>Effect of TransitionsDrawAlternative</H> </R>
<R> <C>iettCubeRotateFromLeft
iettCubeRotateFromRight
iettCubeRotateFromTop
iettCubeRotateFromBottom
iettCubeRotateFromLeft2
iettCubeRotateFromRight2
iettCubeRotateFromTop2
iettCubeRotateFromBottom2</C> <C>Setting to true will disable darkening of partially shown cube faces</C> </R>
<R> <C>iettPageFlip
iettReversePageFlip</C> <C>Setting to true will disable darkening of partially shown pages</C> </R>
<R> <C>iettPageFlip2
iettReversePageFlip2</C> <C>Setting to true will disable drawing of a centre line</C> </R>
<R> <C>iettRandomBoxes</C> <C>Set to true for double-size boxes</C> </R>
<R> <C>iettSoftWipeFromLeft
iettSoftWipeFromRight
iettSoftWipeFromTop
iettSoftWipeFromBottom</C> <C>Set to true for extra soft blending</C> </R>
<R> <C>iettSweepClockwise
iettSweepCounterClockwise
iettFullSweepClockwise
iettExpandingSweepClockwise</C> <C>When set to true it rotates through a completely black state</C> </R>
<R> <C>iettRandomPuzzlePieces</C> <C>Set to true for half-sized puzzle pieces</C> </R>
<R> <C>iettRandomBoxesWithWord
iettRandomBigBoxes</C> <C>Set to true for double-size boxes</C> </R>
<R> <C>iettTriangularWipe
iettWordHalfSweep
iettWordFullSweep</C> <C>Set to true for anti-clockwise rotation</C> </R>
<R> <C>iettShreddedFromLeft
iettShreddedFromRight
iettShreddedFromTop
iettShreddedFromBottom
iettShreddedFromTopAndLeft
iettShreddedFromTopAndRight
iettShreddedFromBottomAndLeft
iettShreddedFromBottomAndRight
iettShreddedFromHorizonAndLeft
iettShreddedFromHorizonAndRight
iettShreddedFromTopAndVerticalCenter
iettShreddedFromBottomAndVerticalCenter
iettShreddedFromCenter
iettShreddedToCenter
iettShreddedInToHorizon
iettShreddedInToVerticalCenter
iettShreddedOutFromHorizon
iettShreddedOutFromVerticalCenter</C> <C>Set to true for larger shreds</C> </R>
<R> <C>iettBarsInFromLeft
iettBarsInFromRight
iettBarsFromTop
iettBarsFromBottom
iettBarsLeftThenRight
iettBarsRightThenLeft
iettBarsTopThenBottom
iettBarsBottomThenTop
iettBarsFrombothSides
iettBarsFromTopAndBottom
iettCrisscrossWipeFromTopLeft
iettCrisscrossWipeFromTopRight
iettCrisscrossWipeFromBottomLeft
iettCrisscrossWipeFromBottomRight
iettCrisscrossWipeBounceFromTopLeft
iettCrisscrossWipeBounceFromTopRight
iettCrisscrossWipeBounceFromBottomLeft
iettCrisscrossWipeBounceFromBottomRight
iettCrisscrossWipeFromLeftRightAndTop
iettCrisscrossWipeFromLeftRightAndBottom
iettCrisscrossWipeFromLeftTopAndBottom
iettCrisscrossWipeFromTopLeftRightAndBottom
iettCrisscrossWipeFromRightTopAndBottom
iettCrisscrossWipeFromBottomLeftTopRight
iettRectanglesFromTheLeft
iettRectanglesFromTheRight
iettRectanglesFromTheTop
iettRectanglesFromTheBottom</C> <C>Set to true for wider bars</C> </R>
<R> <C>iettSpeckledWipeFromLeft
iettSpeckledWipeFromRight
iettSpeckledWipeFromTop
iettSpeckledWipeFromBottom </C> <C>Set to true for smaller speckles</C> </R>
<R> <C>iettExpandingExplosions
iettExpandingLightningBolts
iettExplosionWipeOut
iettExplosionWipeIn
iettExplosionWipeInAndOut</C> <C>Change to horizontally flip the shape</C> </R>
<R> <C>iettHeartWipeInAndOut
iettRandomHearts
iettExpandingHearts
iettHeartWipeOut
iettHeartWipeIn </C> <C>Set to true for "Double hearts" instead of a single one</C> </R>
<R> <C>iettLeftRight2
iettRightLeft2
iettUpDown2
iettDownUp2</C> <C>If false, the wipe line is red. If true, a wider gray line is used</C> </R>
<R> <C>iettRandomPoints</C> <C>Set to true for "static" rather than dots</C> </R>
<R> <C>iettExpandingTriangles</C> <C>Set to true to invert the triangle</C> </R>
<R> <C>iettExpandFromLeft
iettExpandFromRight
iettExpandFromTop
iettExpandFromBottom</C> <C>Setting to true will disable darkening of the image being covered</C> </R>
<R> <C>iettRandomWord
iettExpandingWord
iettWordWipeOut
iettWordWipeIn
iettWordWipeInAndOut</C> <C>Set to true for larger words (i.e. greater coverage)</C> </R>
<R> <C>iettZigzagWipeFromHorizon
iettZigzagWipeFromVerticalCenter
iettZigzagWipeToHorizon
iettZigzagWipeToVerticalCenter</C> <C>Set to true for bigger teeth</C> </R>
<R> <C>iettPacmanFromLeft
iettPacmanFromRight
iettPacman3Row
iettPacman4Row
iettPacman2SimRow
iettPacman4SimRow
iettPacman6SimRow</C> <C>Setting to true will disable drawing of "Pills"</C> </R>
<R> <C>iettRandomStar6s
iettExpandingStar6
iettStar6WipeIn
iettStar6WipeOut
iettStar6WipeInAndOut</C> <C>Rotates the shape by 90 degrees CW (See also: <A TIEImageEnGlobalSettings.TransitionsDrawShape>) </C> </R>
</TABLE>
<FM>Example<FC>
// Display an alternative view of the next transition
IEGlobalSettings().TransitionsDrawAlternative := True;
<FM>See Also<FN>
- <A TIEImageEnGlobalSettings.TransitionsDrawShape>
!!}
property TransitionsDrawAlternative: boolean read fTransitionsDrawAlternative write fTransitionsDrawAlternative;
{!!
<FS>TIEImageEnGlobalSettings.TransitionsDrawShape
<FM>Declaration<FC>
property TransitionsDrawShape: <A TIEShape>;
<FM>Description<FN>
Specifies the shape for the following transition effects: iettRandomStar6s, iettExpandingStar6, iettStar6WipeIn, iettStar6WipeOut, iettStar6WipeInAndOut
Default: iesStar6
<FM>Example<FC>
// Display an expanding Pentagon effect
IEGlobalSettings().TransitionsDrawShape := iesPentagon;
ImageEnView1.PrepareTransition;
ImageEnView1.io.LoadFromFile( NextImage );
ImageEnView1.RunTransition( iettExpandingStar6 , 3000 );
<FM>See Also<FN>
- <A TIEImageEnGlobalSettings.TransitionsDrawAlternative>
</TABLE>
!!}
property TransitionsDrawShape: TIEShape read fTransitionsDrawShape write fTransitionsDrawShape;
{!!
<FS>TIEImageEnGlobalSettings.UnicodeOS
<FM>Declaration<FC>
property UnicodeOS: boolean;
<FM>Description<FN>
Returns true if the system has a Unicode operating system, otherwise returns false (i.e. Win98/WinME).
!!}
property UnicodeOS: boolean read fUnicodeOS write fUnicodeOS;
{!!
<FS>TIEImageEnGlobalSettings.DefaultPreviewsZoomFilter
<FM>Declaration<FC>
property DefaultPreviewsZoomFilter: <A TResampleFilter>;
<FM>Description<FN>
Default zoom (resampling) filter for previews.
Default: rfFastLinear
!!}
property DefaultPreviewsZoomFilter: TResampleFilter read fDefaultPreviewsZoomFilter write fDefaultPreviewsZoomFilter;
{!!
<FS>TIEImageEnGlobalSettings.DefaultPreviewHistogramScale
<FM>Declaration<FC>
property DefaultPreviewHistogramScale: <A THistogramScale>;
<FM>Description<FN>
Default histogram plot scale for image processing dialog.
Default: iehsLinearClipped
!!}
property DefaultPreviewHistogramScale: THistogramScale read fDefaultPreviewHistogramScale write fDefaultPreviewHistogramScale;
{!!
<FS>TIEImageEnGlobalSettings.DefaultResampleFilter
<FM>Declaration<FC>
property DefaultResampleFilter: <A TResampleFilter>;
<FM>Description<FN>
The default resampling filter is used when no filter is specified and no other default resampling filters are used, e.g. when using <A TImageEnProc.DoPreviews>([peResize]).
Default: rfFastLinear
!!}
property DefaultResampleFilter: TResampleFilter read fDefaultResampleFilter write fDefaultResampleFilter;
{!!
<FS>TIEImageEnGlobalSettings.DefaultRotateAntiAlias
<FM>Declaration<FC>
property DefaultRotateAntiAlias: <A TIEAntialiasMode>;
<FM>Description<FN>
Used when rotating images and an <L TIEAntialiasMode>anti-alias algorithm</L> cannot be specified, e.g. when using <A TImageEnProc.DoPreviews>([peRotate]).
Default: ierFast
!!}
property DefaultRotateAntiAlias: TIEAntialiasMode read fDefaultRotateAntiAlias write fDefaultRotateAntiAlias;
{!!
<FS>TIEImageEnGlobalSettings.DefDialogCenter
<FM>Declaration<FC>
property DefDialogCenter: <A TIEDialogCenter>;
<FM>Description<FN>
Specify a function called when open/save dialogs needs to be centered.
!!}
property DefDialogCenter: TIEDialogCenter read fDefDialogCenter write fDefDialogCenter;
{!!
<FS>TIEImageEnGlobalSettings.DefaultDialogFont
<FM>Declaration<FC>
property DefaultDialogFont: TFont;
<FM>Description<FN>
Don't use directly as it may be uninitialized, use IEGetDefaultDialogFont().
!!}
property DefaultDialogFont: TFont read fDefaultDialogFont write fDefaultDialogFont;
{!!
<FS>TIEImageEnGlobalSettings.DefMinFileSize
<FM>Declaration<FC>
property DefMinFileSize: int64;
<FM>Description<FN>
Specifies the default value for <A TIEBitmap.MinFileSize> property.
<A TIEBitmap.MinFileSize> specifies the minimum memory needed by the image to allow use of memory mapped file.
If the memory needed by the image is less than MinFileSize, the image will be stored in memory (also if the Location is ieFile). If the global variable DefMinFileSize is not -1, it overrides the property MinFileSize value.
Default: -1
<FM>See Also<FN>
- <A TIEBitmap.MinFileSize>
- <A TIEBitmap.Location>
!!}
property DefMinFileSize: int64 read fDefMinFileSize write fDefMinFileSize;
{!!
<FS>TIEImageEnGlobalSettings.AutoLocateOnDisk
<FM>Declaration<FC>
property AutoLocateOnDisk: boolean;
<FM>Description<FN>
If true, TIEBitmap will allocate the image on disk if it fails to allocate on memory.
Default: True
!!}
property AutoLocateOnDisk: boolean read fAutoLocateOnDisk write fAutoLocateOnDisk;
{!!
<FS>TIEImageEnGlobalSettings.AutoFragmentBitmap
<FM>Declaration<FC>
property AutoFragmentBitmap: boolean;
<FM>Description<FN>
If true, TIEBitmap will try to allocate chunks of memory instead of a single buffer to contain the image.
This is useful when memory is fragmented.
Default: True
!!}
property AutoFragmentBitmap: boolean read fAutoFragmentBitmap write fAutoFragmentBitmap;
{!!
<FS>TIEImageEnGlobalSettings.UseGDIPlus
<FM>Declaration<FC>
property UseGDIPlus: boolean;
<FM>Description<FN>
If True, ImageEn used GDIPlus instead of GDI, when available.
Default: True
!!}
property UseGDIPlus: boolean read fUseGDIPlus write fUseGDIPlus;
{!!
<FS>TIEImageEnGlobalSettings.PreviewImageBackgroundStyle
<FM>Declaration<FC>
property PreviewImageBackgroundStyle: <A TIEBackgroundStyle>;
<FM>Description<FN>
Specify the background style for image preview in open/save dialogs, print preview and image editing dialogs.
Default: iebsSolid
!!}
property PreviewImageBackgroundStyle: TIEBackgroundStyle read fPreviewImageBackgroundStyle write fPreviewImageBackgroundStyle;
{!!
<FS>TIEImageEnGlobalSettings.PreviewImageBackgroundColor
<FM>Declaration<FC>
property PreviewImageBackgroundColor: TColor;
<FM>Description<FN>
Specify the background color for image preview in open/save dialogs, print preview and image editing dialogs.
Note: This value may be overridden if <A TIEImageEnGlobalSettings.EnableTheming> is enabled.
Default: clBtnFace
!!}
property PreviewImageBackgroundColor: TColor read fPreviewImageBackgroundColor write fPreviewImageBackgroundColor;
{!!
<FS>TIEImageEnGlobalSettings.PreviewAdditionalMultipageExts
<FM>Declaration<FC>
property PreviewAdditionalMultipageExts: string;
<FM>Description<FN>
Additional multipage extensions (ex. 'mpg,mpeg,wmv,avi') for open/save dialogs. Files of the extensions specified will be treated as "multipage" files and their frames can be previewed.
Default: 'mpg,mpeg,wmv,avi'
<FM>Example<FC>
// Add XYZ files as a multipage format
IEGlobalSettings().PreviewAdditionalMultipageExts := 'mpg,mpeg,wmv,avi,xyz';
!!}
property PreviewAdditionalMultipageExts: string read fPreviewAdditionalMultipageExts write fPreviewAdditionalMultipageExts;
{!!
<FS>TIEImageEnGlobalSettings.SystemColors
<FM>Declaration<FC>
property SystemColors: integer;
<FM>Description<FN>
Returns the bits per pixel of the display.
!!}
property SystemColors: integer read fSystemColors write fSystemColors;
{!!
<FS>TIEImageEnGlobalSettings.IsRemoteSession
<FM>Declaration<FC>
property IsRemoteSession: boolean;
<FM>Description<FN>
Returns true if the application is being run within a RDP session
!!}
property IsRemoteSession: boolean read fIsRemoteSession write fIsRemoteSession;
{!!
<FS>TIEImageEnGlobalSettings.SystemDPIX
<FM>Declaration<FC>
property SystemDPIX: integer;
<FM>Description<FN>
Returns the X value of the System DPI.
!!}
property SystemDPIX: integer read fSystemDPIX write fSystemDPIX;
{!!
<FS>TIEImageEnGlobalSettings.SystemDPIY
<FM>Declaration<FC>
property SystemDPIY: integer;
<FM>Description<FN>
Returns the Y value of the System DPI.
!!}
property SystemDPIY: integer read fSystemDPIY write fSystemDPIY;
{!!
<FS>TIEImageEnGlobalSettings.WordTransitionParams
<FM>Declaration<FC>
property WordTransitionParams: <A TIEWordTransitionParams>;
<FM>Description<FN>
Properties for customizing the <L TIETransitionType>"Word" transition effects</L> such as iettRandomWord and iettExpandingWord.
<TABLE>
<R> <H>Property</H> <H>Description</H> </R>
<R> <C>Word</C> <C>The text that is displayed during the transition. It can be a single character, e.g. a letter or a symbol from Wingdings or a whole word. If it is a word then each letter of the word is displayed in turn. To display a whole word without cycling, enclose it in quotes (default: 'A')</C> </R>
<R> <C>FontName</C> <C>The font to use to display the text, e.g. "Arial" or "Wingdings". Ensure you specify a font that is available on the destination system (default: "Arial")</C> </R>
<R> <C>Style</C> <C>The style that is used to display the text, can include fsBold, fsItalic, fsUnderline and/or fsStrikeOut (default: [fsBold])</C> </R>
<R> <C>Quality</C> <C>The smoothness of the text. The value specifies the height in pixels of the bitmap used to create each letter. A high value will give performance issues on some systems, whereas a low value will give the letter a blocky apperance. Practical range is 20 - 2000; default is 200</C> </R>
</TABLE>
<FM>Example<FC>
// Display snowflakes in random positions
IEGlobalSettings().WordTransitionParams.Word := 'T'; // Snowflake in the Wingdings font
IEGlobalSettings().WordTransitionParams.FontName := 'Wingdings';
IEGlobalSettings().WordTransitionParams.Style := [fsBold];
ImageEnView1.PrepareTransition;
ImageEnView1.IO.LoadFromFile(GetImageOfIndex(FCurrentImage));
ImageEnView1.RunTransition(iettRandomWord, 2000);
// Transition, showing each letter of the word "ImageEn" in turn
IEGlobalSettings().WordTransitionParams.Word := 'ImageEn';
ImageEnView1.PrepareTransition;
ImageEnView1.IO.LoadFromFile(GetImageOfIndex(FCurrentImage));
ImageEnView1.RunTransition(iettWordWipeInAndOut, 5000);
// Transition wiping the screen with the word "GO!"
IEGlobalSettings().WordTransitionParams.Word := '"GO!"'; // Enclose in quotes to avoid cyling. Small words are best
ImageEnView1.PrepareTransition;
ImageEnView1.IO.LoadFromFile(GetImageOfIndex(FCurrentImage));
ImageEnView1.RunTransition(iettWordWipeInAndOut, 5000);
!!}
property WordTransitionParams: TIEWordTransitionParams read fWordTransitionParams write fWordTransitionParams;
{!!
<FS>TIEImageEnGlobalSettings.DefaultDPIX
<FM>Declaration<FC>
property DefaultDPIX: integer;
<FM>Description<FN>
Specify the default DPI X value assigned when a loaded image doesn't contain this information.
Default: 300 (both X and Y)
!!}
property DefaultDPIX: integer read fDefaultDPIX write fDefaultDPIX;
{!!
<FS>TIEImageEnGlobalSettings.DefaultDPIY
<FM>Declaration<FC>
property DefaultDPIY: integer;
<FM>Description<FN>
Specify the default DPI Y value assigned when a loaded image doesn't contain this information.
Default: 300 (both X and Y)
!!}
property DefaultDPIY: integer read fDefaultDPIY write fDefaultDPIY;
{!!
<FS>TIEImageEnGlobalSettings.MMX
<FM>Declaration<FC>
property MMX: boolean;
<FM>Description<FN>
Returns true if the CPU supports MMX.
!!}
property MMX: boolean read fMMX write fMMX;
{!!
<FS>TIEImageEnGlobalSettings.EdgeX
<FM>Declaration<FC>
property EdgeX: integer;
<FM>Description<FN>
Returns the System border horizontal edge (3D).
!!}
property EdgeX: integer read fEdgeX write fEdgeX;
{!!
<FS>TIEImageEnGlobalSettings.EdgeY
<FM>Declaration<FC>
property EdgeY: integer;
<FM>Description<FN>
Returns the System border vertical edge (3D).
!!}
property EdgeY: integer read fEdgeY write fEdgeY;
{!!
<FS>TIEImageEnGlobalSettings.BorderX
<FM>Declaration<FC>
property BorderX: integer;
<FM>Description<FN>
Returns the System border horizontal edge.
!!}
property BorderX: integer read fBorderX write fBorderX;
{!!
<FS>TIEImageEnGlobalSettings.BorderY
<FM>Declaration<FC>
property BorderY: integer;
<FM>Description<FN>
Returns the System border vertical edge.
!!}
property BorderY: integer read fBorderY write fBorderY;
{!!
<FS>TIEImageEnGlobalSettings.VScrollWidth
<FM>Declaration<FC>
property VScrollWidth: integer;
<FM>Description<FN>
Returns the System scrollbar width.
!!}
property VScrollWidth: integer read fVScrollWidth write fVScrollWidth;
{!!
<FS>TIEImageEnGlobalSettings.HScrollHeight
<FM>Declaration<FC>
property HScrollHeight: integer;
<FM>Description<FN>
Returns the System scrollbar height.
!!}
property HScrollHeight: integer read fHScrollHeight write fHScrollHeight;
{!!
<FS>TIEImageEnGlobalSettings.MinZoomDisplayGrid
<FM>Declaration<FC>
property MinZoomDisplayGrid: integer;
<FM>Description<FN>
Specifies the minimum value of zoom to display a grid (when <A TImageEnView.DisplayGridKind> is not <FC>iedgPixelGrid<FN>).
Default: 400
<FM>Example<FC>
// Draw a grid to show pixels when we zoom above 500%
IEGlobalSettings().GridPen.Color := clSilver;
IEGlobalSettings().GridPen.Style := psSolid;
IEGlobalSettings().GridPen.Mode := pmNot;
IEGlobalSettings().MinZoomDisplayGrid := 500;
ImageEnView1.DisplayGridKind := iedgPixelGrid;
<FM>See Also<FN>
- <A TIEImageEnGlobalSettings.GridPen>
- <A TIEImageEnGlobalSettings.GridMajorStep>
!!}
property MinZoomDisplayGrid: integer read fMinZoomDisplayGrid write fMinZoomDisplayGrid;
{!!
<FS>TIEImageEnGlobalSettings.CustomHintTimeout
<FM>Declaration<FC>
property CustomHintTimeout: Integer;
<FM>Description<FN>
Specifies the number of milliseconds that custom hints are displayed. Custom hints are those that change when hovering over content, such as <A TImageEnMView.ShowThumbnailHint> and <A TIEColorPalette.HintFormat>.
Default: 10000 (10 seconds)
<FM>Examples<FC>
// Display custom hints for 5 seconds
IEGlobalSettings().CustomHintTimeout := 5000;
!!}
property CustomHintTimeout: Integer read fCustomHintTimeout write fCustomHintTimeout;
{!!
<FS>TIEImageEnGlobalSettings.GridPen
<FM>Declaration<FC>
property GridPen: TPen;
<FM>Description<FN>
Specifies the pen used to draw the grid on a TImageEnView (when <A TImageEnView.DisplayGridKind> is not <FC>iedgNone<FN>).
<FM>Examples<FC>
// Draw a grid to show pixels when we zoom above 500%
IEGlobalSettings().GridPen.Color := clSilver;
IEGlobalSettings().GridPen.Style := psSolid;
IEGlobalSettings().GridPen.Mode := pmNot;
IEGlobalSettings().MinZoomDisplayGrid := 500;
ImageEnView1.DisplayGridKind := iedgPixelGrid;
// Enable guide lines to help line up images when manually rotating
IEGlobalSettings().GridPen.Color := clSilver;
IEGlobalSettings().GridPen.Style := psDot;
IEGlobalSettings().GridPen.Mode := pmCopy;
IEGlobalSettings().GuidelineCount := 4;
ImageEnView1.DisplayGridKind := iedgGuideLines;
<FM>See Also<FN>
- <A TIEImageEnGlobalSettings.GridMajorStep>
- <A TIEImageEnGlobalSettings.MinZoomDisplayGrid>
!!}
property GridPen: TPen read fGridPen write fGridPen;
{!!
<FS>TIEImageEnGlobalSettings.GridMajorStep
<FM>Declaration<FC>
property GridMajorStep: integer;
<FM>Description<FN>
If a value other than zero is specified then every nth grid line will be an inversion of the grid pen color ((when <A TImageEnView.DisplayGridKind> is not <FC>iedgNone<FN>).
Default: 0
Note: if <A TIEImageEnGlobalSettings.GridPen>.Mode = pmCopy, then for inverted grid lines it will be pnNotCopy, otherwise inverted grid lines are always set to pmCopy (i.e. the <A TIEImageEnGlobalSettings.GridPen>.Color will be used)
<FM>Examples<FC>
// Silver grid lines with almost black major grid lines
IEGlobalSettings().MinZoomDisplayGrid := 200;
IEGlobalSettings().GridPen.Color := clSilver;
IEGlobalSettings().GridPen.Mode := pmCopy;
IEGlobalSettings().GridMajorStep := 10;
ImageEnView1.DisplayGridKind := iedgPixelGrid;
ImageEnView1.Update;
// Grid lines are inversion of background color (mode = pmNot), major grid lines are red
IEGlobalSettings().MinZoomDisplayGrid := 200;
IEGlobalSettings().GridPen.Color := clRed;
IEGlobalSettings().GridPen.Mode := pmNot;
IEGlobalSettings().GridMajorStep := 10;
ImageEnView1.DisplayGridKind := iedgPixelGrid;
ImageEnView1.Update;
<FM>See Also<FN>
- <A TIEImageEnGlobalSettings.GridPen>
- <A TIEImageEnGlobalSettings.MinZoomDisplayGrid>
!!}
property GridMajorStep: integer read fGridMajorStep write fGridMajorStep;
{!!
<FS>TIEImageEnGlobalSettings.GuidelineCount
<FM>Declaration<FC>
property GuidelineCount: integer;
<FM>Description<FN>
Specifies the minimum number of guide lines to draw in each dimension (when <A TImageEnView.DisplayGridKind> is <FC>iedgGuideLines<FN>).
Default: 5
Note: Guidelines always have equal horizontal and vertical spacing (i.e. are square) so there will generally be more lines in one dimension than the other. E.g. if <FC>GuidelineCount<FN>=10 then for a portrait image there will be 10 horizontal lines and 13 vertical lines.
<FM>Example<FC>
// Enable guide lines to help line up images when manually rotating
IEGlobalSettings().GridPen.Color := clSilver;
IEGlobalSettings().GridPen.Style := psDot;
IEGlobalSettings().GridPen.Mode := pmCopy;
IEGlobalSettings().GuidelineCount := 4;
ImageEnView1.DisplayGridKind := iedgGuideLines;
<FM>See Also<FN>
- <A TIEImageEnGlobalSettings.GridPen>
- <A TIEImageEnGlobalSettings.GridMajorStep>
!!}
property GuidelineCount: integer read fGuidelineCount write fGuidelineCount;
{!!
<FS>TIEImageEnGlobalSettings.SelectionGridColor
<FM>Declaration<FC>
property SelectionGridColor: TColor;
<FM>Description<FN>
Specifies the color of the selection grid drawn by use of <A TImageEnView.SelectionGridSize>, <A TImageEnView.SelectionGridWidth> or <A TImageEnView.SelectionGridHeight>
Default: $00A0A0A0 (Gray)
!!}
property SelectionGridColor: TColor read fSelectionGridColor write fSelectionGridColor;
{!!
<FS>TIEImageEnGlobalSettings.MViewExplorerThumbnailExts
<FM>Declaration<FC>
property MViewExplorerThumbnailExts: string;
<FM>Description<FN>
A list of file extensions delimited by semi-colons for which ImageEnMView will retrieve thumbnails from Windows Explorer. This can be any format that displays a thumbnail in Explorer, including images and videos.
Default: '*.AVI;*.MPG;*.MPE;*.MPEG;*.WMV;*.ASF;*.IVF;*.WM;*.MP4;*.MOV;*.QT;*.RM;*.M2TS;*.MTS;*.MOD;'
<FM>Example<FC>
IEGlobalSettings().MViewExplorerThumbnailExts := '*.AVI;*.MPG;*.MPE;*.MPEG;*.WMV;*.ASF;*.IVF;*.WM;*.MP4;*.MOV;*.QT;*.RM;*.M2TS;*.MTS;*.MOD;';
!!}
// Extensions for which thumbnails will be loaded from Explorer. Defaults to ALL_KNOWN_EXPLORER_FORMATS
property MViewExplorerThumbnailExts: string read fMViewExplorerThumbnailExts write fMViewExplorerThumbnailExts;
property DefGIF_LZWDECOMPFUNC: TGIFLZWDecompFunc read fDefGIF_LZWDECOMPFUNC write fDefGIF_LZWDECOMPFUNC;
property DefGIF_LZWCOMPFUNC: TGIFLZWCompFunc read fDefGIF_LZWCOMPFUNC write fDefGIF_LZWCOMPFUNC;
property DefTIFF_LZWDECOMPFUNC: TTIFFLZWDecompFunc read fDefTIFF_LZWDECOMPFUNC write fDefTIFF_LZWDECOMPFUNC;
property DefTIFF_LZWCOMPFUNC: TTIFFLZWCompFunc read fDefTIFF_LZWCOMPFUNC write fDefTIFF_LZWCOMPFUNC;
property FileFormats: TList read fFileFormats write fFileFormats;
{!!
<FS>TIEImageEnGlobalSettings.UseButtonGlyphsInDialogs
<FM>Declaration<FC>
property UseButtonGlyphsInDialogs: boolean;
<FM>Description<FN>
When true ImageEn's dialogs will show a glyph (image) on buttons. When false the buttons only show text.
Default: False
Note: This applies to <A TImageEnIO.DoPrintPreviewDialog>, <A TImageEnMIO.DoPrintPreviewDialog>, <A TImageEnIO.SelectAcquireSource>, <A TImageEnMIO.SelectAcquireSource>, <A TImageEnProc.DoPreviews> and clicking the Advanced button in <A TSaveImageEnDialog>
<FM>Example<FC>
IEGlobalSettings().UseButtonGlyphsInDialogs := True;
ImageEnView1.IO.DoPrintPreviewDialog;
!!}
property UseButtonGlyphsInDialogs: boolean read fUseButtonGlyphsInDialogs write fUseButtonGlyphsInDialogs;
{!!
<FS>TIEImageEnGlobalSettings.UseCMYKProfile
<FM>Declaration<FC>
property UseCMYKProfile: boolean;
<FM>Description<FN>
When true, ImageEn uses an internal ICC profile to convert to and from CMYK to RGB.
Default: True
!!}
property UseCMYKProfile: boolean read fUseCMYKProfile write fUseCMYKProfile;
{!!
<FS>TIEImageEnGlobalSettings.UseDefaultFileExists
<FM>Declaration<FC>
property UseDefaultFileExists: boolean;
<FM>Description<FN>
When enabled ImageEn uses the standard FileExists function. Otherwise a different method is used which does not require Windows "listing" rights.
Default: false
!!}
property UseDefaultFileExists: boolean read fUseDefaultFileExists write fUseDefaultFileExists;
{!!
<FS>TIEImageEnGlobalSettings.MaxImageEMFSize
<FM>Declaration<FC>
property MaxImageEMFSize: integer;
<FM>Description<FN>
Specifies the maximum width or height of imported EMF/WMF image.
Default: 8000 pixels (wide or high)
<FM>Example<FC>
// we want maximum 1024x??? imported image
IEGlobalSettings().MaxImageEMFSize := 1024;
ImageEnView1.IO.LoadFromFile('input.wmf');
!!}
property MaxImageEMFSize: integer read fMaxImageEMFSize write fMaxImageEMFSize;
{!!
<FS>TIEImageEnGlobalSettings.DefTempPath
<FM>Declaration<FC>
property DefTempPath: string;
<FM>Description<FN>
Specifies the directory where ImageEn stores temporary files. If specified as '' the default system temporary directory is used.
Default: '' (use system temp directory)
Applications should set DefTempPath inside 'initialization' block, before that the ImageEn components are created.
For <A TImageEnMView> component, you can change DefTempPath at any time, just call after the <A TImageEnMView.Clear> method.
<FM>Example<FC>
Initialization
IEGlobalSettings().DefTempPath := 'G:\temp';
...or...
// Set ImageEnMView1 to use disk G: and ImageEnMView2 to disk H:
IEGlobalSettings().DefTempPath := 'G:\';
ImageEnMView1.Clear;
IEGlobalSettings().DefTempPath := 'H:\';
ImageEnMView2.Clear;
!!}
property DefTempPath: string read fDefTempPath write fDefTempPath;
{!!
<FS>TIEImageEnGlobalSettings.ConvertColorFunction
<FM>Declaration<FC>
property ConvertColorFunction: <A TIEConvertColorFunction>;
<FM>Description<FN>
Specifies the function used to convert from a color space to another.
!!}
property ConvertColorFunction: TIEConvertColorFunction read fConvertColorFunction write fConvertColorFunction;
{!!
<FS>TIEImageEnGlobalSettings.EnableCMS
<FM>Declaration<FC>
property EnableCMS: boolean;
<FM>Description<FN>
Enables a Color Management System. Default CMS is provided by Windows.
Default: False (no color profile is applied).
See: <A Color Management System>.
!!}
property EnableCMS: boolean read fEnableCMS write fEnableCMS;
{!!
<FS>TIEImageEnGlobalSettings.ColorReductionAlgorithm
<FM>Declaration<FC>
property ColorReductionAlgorithm: integer;
<FM>Description<FN>
Specifies the algorithm used when converting from true color (24 bit) to color mapped images.
Color reduction algorithm are used, for example, when you save to a GIF.
-1 = automatically select
0 = Kohonen algorithm (See also: <A TIEImageEnGlobalSettings.ColorReductionQuality>)
1 = Median cut
Default: -1
!!}
property ColorReductionAlgorithm: integer read fColorReductionAlgorithm write fColorReductionAlgorithm;
{!!
<FS>TIEImageEnGlobalSettings.ColorReductionQuality
<FM>Declaration<FC>
property ColorReductionQuality: integer;
<FM>Description<FN>
When <A TIEImageEnGlobalSettings.ColorReductionAlgorithm> is 0, this field specifies the quality. 0=minimum quality, 100=maximum quality.
-1 means "automatically calculated"
Default: -1
!!}
property ColorReductionQuality: integer read fColorReductionQuality write fColorReductionQuality;
{!!
<FS>TIEImageEnGlobalSettings.ObjectsTIFFTag
<FM>Declaration<FC>
property ObjectsTIFFTag: integer;
<FM>Description<FN>
Specifies the TIFF tag used to read/write embedded vectorial objects.
Default: 40101
!!}
property ObjectsTIFFTag: integer read fObjectsTIFFTag write fObjectsTIFFTag;
{!!
<FS>TIEImageEnGlobalSettings.UseRelativeStreams
<FM>Declaration<FC>
property UseRelativeStreams: boolean;
<FM>Description<FN>
By default ImageEn uses absolute streams. This means that the image must be contained from position zero of the stream.
Setting UseRelativeStreams=true, you can put the image in any offset of the stream.
Default: False
!!}
property UseRelativeStreams: boolean read fUseRelativeStreams write fUseRelativeStreams;
{!!
<FS>TIEImageEnGlobalSettings.PanZoomQualityFilter
<FM>Declaration<FC>
property PanZoomQualityFilter: <A TResampleFilter> = rfNone;
<FM>Description<FN>
Specifies zoom filter for iettPanZoom transition effect.
Default: rfNone
!!}
property PanZoomQualityFilter: TResampleFilter read fPanZoomQualityFilter write fPanZoomQualityFilter;
{!!
<FS>TIEImageEnGlobalSettings.RedToGrayCoef
<FM>Declaration<FC>
property RedToGrayCoef: integer;
<FM>Description<FN>
Specify the red coefficient used to convert from color to gray scale. The conversion formula is:
<FC>gray := (Red * <A TIEImageEnGlobalSettings.RedToGrayCoef> + Green * <A TIEImageEnGlobalSettings.GreenToGrayCoef> + Blue * <A TIEImageEnGlobalSettings.BlueToGrayCoef>) div 100;
Defaults: 21 (Red), 71 (Green) and 8 (Blue)
!!}
property RedToGrayCoef: integer read fRedToGrayCoef write fRedToGrayCoef;
{!!
<FS>TIEImageEnGlobalSettings.GreenToGrayCoef
<FM>Declaration<FC>
property GreenToGrayCoef: integer;
<FM>Description<FN>
Specify the green coefficient used to convert from color to gray scale. The conversion formula is:
<FC>gray := (Red * <A TIEImageEnGlobalSettings.RedToGrayCoef> + Green * <A TIEImageEnGlobalSettings.GreenToGrayCoef> + Blue * <A TIEImageEnGlobalSettings.BlueToGrayCoef>) div 100;
Defaults: 21 (Red), 71 (Green) and 8 (Blue)
!!}
property GreenToGrayCoef: integer read fGreenToGrayCoef write fGreenToGrayCoef;
{!!
<FS>TIEImageEnGlobalSettings.BlueToGrayCoef
<FM>Declaration<FC>
property BlueToGrayCoef: integer;
<FM>Description<FN>
Specify the blue coefficient used to convert from color to gray scale. The conversion formula is:
<FC>gray := (Red * <A TIEImageEnGlobalSettings.RedToGrayCoef> + Green * <A TIEImageEnGlobalSettings.GreenToGrayCoef> + Blue * <A TIEImageEnGlobalSettings.BlueToGrayCoef>) div 100;
Defaults: 21 (Red), 71 (Green) and 8 (Blue)
!!}
property BlueToGrayCoef: integer read fBlueToGrayCoef write fBlueToGrayCoef;
{!!
<FS>TIEImageEnGlobalSettings.EXIFInteroperabilityIndexUsage
<FM>Declaration<FC>
property EXIFInteroperabilityIndexUsage: <A TIEEXIFInteroperabilityIndexUsage>;
<FM>Description<FN>
When this property is ieiiApplyOnly or ieiiApplyAndReset and EnableCMS is True then EXIF interoperability index (<A TIOParams.EXIF_InteropIndex>) is applied.
If this property contains ieiiApplyAndReset then after applied EXIF_InteropIndex is reset (emptied).
When EXIFInteroperabilityIndexUsage is ieiiApplyAndReset then ImageEn follows these rules:
- If EXIF_InteropIndex = 'R03' and there isn't an embedded profile then the AdobeRGB1998 profile is applied. Content of EXIF_InteropIndex field is emptied.
- If EXIF_InteropIndex = 'R03' and there is an embedded profile then the embedded profile is applied. Content of EXIF_InteropIndex field is emptied.
- If EXIF_InteropIndex <> 'R03' and there isn't an embedded profile no profile is applied. Content of EXIF_InteropIndex remains untouched.
- If EXIF_InteropIndex <> 'R03' and there is an embedded profile then the embedded profile is applied. Content of EXIF_InteropIndex field is emptied.
When this property is ieiiNone then EXIF_InteropIndex is read but not modified or applied in any way.
Default: ieiiApplyAndReset
!!}
property EXIFInteroperabilityIndexUsage: TIEEXIFInteroperabilityIndexUsage read fEXIFInteroperabilityIndexUsage write fEXIFInteroperabilityIndexUsage;
{!!
<FS>TIEImageEnGlobalSettings.EXIFMakerNotesHandling
<FM>Declaration<FC>
property EXIFMakerNotesHandling: <A TIEEXIFMakerNotesHandling>;
<FM>Description<FN>
This property decides how to handle EXIF MakerNotes tag when loading or saving images.
Default: iemhDecodeOrDiscardRaw
<FM>See Also<FN>
- <A TIOParams.EXIF_MakerNote>
!!}
property EXIFMakerNotesHandling: TIEEXIFMakerNotesHandling read fEXIFMakerNotesHandling write fEXIFMakerNotesHandling;
{!!
<FS>TIEImageEnGlobalSettings.PrintDialogMarginsIncrement
<FM>Declaration<FC>
property PrintDialogMarginsIncrement: double;
<FM>Description<FN>
Specifies the floating point increment/decrement for Left, Top, Right and Bottom margins.
Default: 0.01
!!}
property PrintDialogMarginsIncrement: double read fPrintDialogMarginsIncrement write fPrintDialogMarginsIncrement;
{!!
<FS>TIEImageEnGlobalSettings.PrintDialogMarginsMinValue
<FM>Declaration<FC>
property PrintDialogMarginsMinValue: double;
<FM>Description<FN>
Specifies the floating point allowed minimal value for Left, Top, Right and Bottom margins.
Default: 0
!!}
property PrintDialogMarginsMinValue: double read fPrintDialogMarginsMinValue write fPrintDialogMarginsMinValue;
{!!
<FS>TIEImageEnGlobalSettings.ApplyColorProfileOnRendering
<FM>Declaration<FC>
property ApplyColorProfileOnRendering: Boolean;
<FM>Description<FN>
Applies <A TIEBitmap.ColorProfile> when the image is displayed.
Default: True
!!}
property ApplyColorProfileOnRendering: Boolean read fApplyColorProfileOnRendering write fApplyColorProfileOnRendering;
{!!
<FS>TIEImageEnGlobalSettings.ReleaseTwainResources
<FM>Declaration<FC>
property ReleaseTwainResources: Boolean;
<FM>Description<FN>
Forces ImageEn to free Twain resources when not being used.
Default: False
!!}
property ReleaseTwainResources: Boolean read fReleaseTwainResources write fReleaseTwainResources;
{!!
<FS>TIEImageEnGlobalSettings.TwainTransferBufferSize
<FM>Declaration<FC>
property TwainTransferBufferSize: DWord;
<FM>Description<FN>
Specifies the default buffer size used to transfer images from Twain devices (in Bytes). A large buffer size can improve performance.
Set to 0 to force usage of the device's recommended value.
Default: 1048576 (One MB)
<FM>Example<FC>
// Acquire from the first Twain device using its recommended transfer buffer
IEGlobalSettings().TwainTransferBufferSize := 0;
if ImageEnView1.IO.SetSource( ieaTwain, 0 ) then
ImageEnView1.IO.Acquire;
!!}
property TwainTransferBufferSize: DWord read fTwainTransferBufferSize write fTwainTransferBufferSize;
{!!
<FS>TIEImageEnGlobalSettings.ModelessSelectTwainSource
<FM>Declaration<FC>
property ModelessSelectTwainSource: Boolean;
<FM>Description<FN>
If True the Twain source selection dialog is modeless (can lose focus). If False the selection dialog is modal.
Default: False
!!}
property ModelessSelectTwainSource: Boolean read fModelessSelectTwainSource write fModelessSelectTwainSource;
{!!
<FS>TIEImageEnGlobalSettings.IsInsideTwain
<FM>Declaration<FC>
property IsInsideTwain: Boolean;
<FM>Description<FN>
Returns True if this thread is inside a Twain handling function (e.g. handling an event).
!!}
property IsInsideTwain: Boolean read fIsInsideTwain write fIsInsideTwain;
{!!
<FS>TIEImageEnGlobalSettings.IOPreviewsDialogWidth
<FM>Declaration<FC>
property IOPreviewsDialogWidth: Integer;
<FM>Description<FN>
The ClientWidth of the "Advanced" dialog in the ImageEn <L TSaveImageEnDialog>Save dialog</L>, or when calling <A TImageEnIO.DoPreviews> or <A TImageEnMIO.DoPreviews>.
If 0 the default size will be used. After display it will always have a valid value (to store the users preferred size during a session).
Default: 0
<FM>See Also<FN>
- <A TIEImageEnGlobalSettings.IOPreviewsDialogHeight>
!!}
property IOPreviewsDialogWidth: integer read fIOPreviewsDialogWidth write fIOPreviewsDialogWidth;
{!!
<FS>TIEImageEnGlobalSettings.IOPreviewsDialogHeight
<FM>Declaration<FC>
property IOPreviewsDialogHeight: Integer;
<FM>Description<FN>
The ClientHeight of the "Advanced" dialog in the ImageEn <L TSaveImageEnDialog>Save dialog</L>, or when calling <A TImageEnIO.DoPreviews> or <A TImageEnMIO.DoPreviews>.
If 0 the default size will be used. After display it will always have a valid value (to store the users preferred size during a session).
Default: 0
<FM>See Also<FN>
- <A TIEImageEnGlobalSettings.IOPreviewsDialogWidth>
!!}
property IOPreviewsDialogHeight: integer read fIOPreviewsDialogHeight write fIOPreviewsDialogHeight;
{!!
<FS>TIEImageEnGlobalSettings.ImageProcMaxThreads
<FM>Declaration<FC>
property ImageProcMaxThreads: Integer;
<FM>Description<FN>
Specifies the maximum number of threads to use during image processing operations.
Default: 4
<FM>See Also<FN>
- <A TIEImageEnGlobalSettings.ImageProcThreadsMinSize>
!!}
property ImageProcMaxThreads: integer read fImageProcMaxThreads write SetImageProcMaxThreads;
{!!
<FS>TIEImageEnGlobalSettings.ImageProcThreadsMinSize
<FM>Declaration<FC>
property ImageProcThreadsMinSize: int64;
<FM>Description<FN>
Specifies the minimum size (in terms of Width x Height) of an image before multithreaded processing is used.
Default: 65536 (256 x 256 pixels), i.e. for a value of 65536 images smaller than 256 x 256 will not use multithreading when being edited.
<FM>See Also<FN>
- <A TIEImageEnGlobalSettings.ImageProcMaxThreads>
!!}
property ImageProcThreadsMinSize: int64 read fImageProcThreadsMinSize write fImageProcThreadsMinSize;
{!!
<FS>TIEImageEnGlobalSettings.DialogBackgroundStyle
<FM>Declaration<FC>
property DialogBackgroundStyle: <A TIEDialogBackgroundStyle>;
<FM>Description<FN>
The style of the window for ImageEn dialog such as <L TImageEnProc.DoPreviews>Editing Previews</L>, <L TImageEnIO.DoPreviews>IO Previews</L> and <L TImageEnIO.PreviewPrintImage>printing</L>. If DialogBackgroundStyle is iedbCustom then you must specify <A TIEImageEnGlobalSettings.DialogBackgroundImage>
Default: iedbDefault
<FM>Example<FC>
// Set background of dialog windows to "Metal"
IEGlobalSettings().DialogBackgroundStyle := iedbMetal;
// Reset the background
IEGlobalSettings().DialogBackgroundStyle := iedbDefault;
<FM>See Also<FN>
- <A TIEImageEnGlobalSettings.DialogBackgroundImage>
!!}
property DialogBackgroundStyle: TIEDialogBackgroundStyle read GetDialogBackgroundStyle write fDialogBackgroundStyle;
{!!
<FS>TIEImageEnGlobalSettings.DialogBackgroundImage
<FM>Declaration<FC>
property DialogBackgroundImage: TBitmap;
<FM>Description<FN>
Specify an image to use as the background of open/save dialogs. Set to nil to use the default background.
Default: nil
<FM>Example<FC>
// Load an image to use as a background
MyIEBitmap := TIEBitmap.create;
MyIEBitmap.Read( 'D:\MyTileBackground.jpeg' );
IEGlobalSettings().DialogBackgroundStyle := iedbCustom;
if not assigned( IEGlobalSettings().DialogBackgroundImage ) then
IEGlobalSettings().DialogBackgroundImage := TBitmap.Create;
IEGlobalSettings().DialogBackgroundImage.Assign( MyIEBitmap.VclBitmap );
MyIEBitmap.Free;
// Clear an existing custom background
IEGlobalSettings().DialogBackgroundStyle := iedbDefault;
// This is not necessary, but frees up some memory
if assigned( IEGlobalSettings().DialogBackgroundImage ) then
begin
IEGlobalSettings().DialogBackgroundImage.Free;
IEGlobalSettings().DialogBackgroundImage := nil;
end;
<FM>See Also<FN>
- <A TIEImageEnGlobalSettings.DialogBackgroundStyle>
!!}
property DialogBackgroundImage: TBitmap read fDialogBackgroundImage write fDialogBackgroundImage;
{!!
<FS>TIEImageEnGlobalSettings.ProxyAddress
<FM>Declaration<FC>
property ProxyAddress: string;
<FM>Description<FN>
Specifies the proxy address and port when using <A TImageEnIO.LoadFromURL> and <A TImageEnMIO.LoadFromURL>. The syntax is: 'domain:port'.
<FM>Example<FC>
IEGlobalSettings().ProxyAddress := '10.2.7.2:8080';
ImageEnView1.IO.LoadFromURL('http://www.imageen.com/image.gif');
<FM>See Also<FN>
- <A TIEImageEnGlobalSettings.ProxyUser>
- <A TIEImageEnGlobalSettings.ProxyPassword>
!!}
property ProxyAddress: string read fProxyAddress write fProxyAddress;
{!!
<FS>TIEImageEnGlobalSettings.ProxyUser
<FM>Declaration<FC>
property ProxyUser: string;
<FM>Description<FN>
Specifies the proxy userid when using <A TImageEnIO.LoadFromURL> and <A TImageEnMIO.LoadFromURL>.
<FM>Example<FC>
IEGlobalSettings().ProxyAddress := '10.2.7.2:8080';
IEGlobalSettings().ProxyUser := 'testuser';
IEGlobalSettings().ProxyPassword := 'testpassword';
ImageEnView1.IO.LoadFromURL('http://www.imageen.com/image.gif');
<FM>See Also<FN>
- <A TIEImageEnGlobalSettings.ProxyAddress>
- <A TIEImageEnGlobalSettings.ProxyPassword>
!!}
property ProxyUser: string read fProxyUser write fProxyUser;
{!!
<FS>TIEImageEnGlobalSettings.ProxyPassword
<FM>Declaration<FC>
property ProxyPassword: string;
<FM>Description<FN>
Specifies the proxy password when using <A TImageEnIO.LoadFromURL> and <A TImageEnMIO.LoadFromURL>.
<FM>Example<FC>
IEGlobalSettings().ProxyAddress := '10.2.7.2:8080';
IEGlobalSettings().ProxyUser := 'testuser';
IEGlobalSettings().ProxyPassword := 'testpassword';
ImageEnView1.IO.LoadFromURL('http://www.imageen.com/image.gif');
<FM>See Also<FN>
- <A TIEImageEnGlobalSettings.ProxyAddress>
- <A TIEImageEnGlobalSettings.ProxyUser>
!!}
property ProxyPassword: string read fProxyPassword write fProxyPassword;
{!!
<FS>TIEImageEnGlobalSettings.ThumbnailSize
<FM>Declaration<FC>
property ThumbnailSize: Integer;
<FM>Description<FN>
Specifies the size of the shortest dimension (width or height) for the embedded thumbnails when saving to IEN format.
Embedded thumbnails are used by TImageEnMView to speed up display.
Set to 0 to disable thumbnail saving.
Default: 250
<FM>Example<FC>
// Thumbnails will not created
IEGlobalSettings().ThumbnailSize := 0;
// Portrait images will have thumbnails of 500 px wide and >500 px high
// Landscape images will have thumbnails of 500 px high and >500 px wide
IEGlobalSettings().ThumbnailSize := 500;
<FM>See Also<FN>
- <A TIOParams.GetThumbnail>
!!}
property ThumbnailSize: Integer read fThumbnailSize write fThumbnailSize;
{!!
<FS>TIEImageEnGlobalSettings.DefaultLayerText
<FM>Declaration<FC>
property DefaultLayerText: string;
<FM>Description<FN>
Specifies the text that is displayed when creating new <L TIETextLayer>text layers</L> in a <A TImageEnView>.
Default: ''
Note: This can be overridden by <A TImageEnView.LayerDefaults>
<FM>Examples<FC>
// Add default text for new text layers
IEGlobalSettings().DefaultLayerText := 'Double-click to edit text';
!!}
property DefaultLayerText: string read fDefaultLayerText write fDefaultLayerText;
{!!
<FS>TIEImageEnGlobalSettings.EnableTheming
<FM>Declaration<FC>
property EnableTheming: boolean;
<FM>Description<FN>
When enabled, VCL Themed colors will be used for ImageEn visual controls.
<FB>Affected TImageEnView/TImageEnVect Properties<FN>
- <A TImageEnView.Background>
- <A TImageEnView.GradientEndColor>
- <L TIEViewRulerParams.Color>RulerParams.Color</L>
- <L TIEViewRulerParams.Font>RulerParams.Font.Color</L>
- <L TIEViewRulerParams.GripColorDefault>RulerParams.GripColorDefault</L>
- <L TIEViewRulerParams.GripPenColor>RulerParams.GripPenColor</L>
- <L TIEViewRulerParams.MeasureColor>RulerParams.MeasureColor</L>
<FB>Affected TImageEnMView/TImageEnFolderMView Properties<FN>
- <A TImageEnMView.Background>
- <A TImageEnMView.GradientEndColor>
- <L TImageEnMView.TopTextFont>TopTextFont.Color</L>
- <L TImageEnMView.InfoTextFont>InfoTextFont.Color</L>
- <L TImageEnMView.BottomTextFont>BottomTextFont.Color</L>
- <A TImageEnMView.TextBackgroundColor>
- <A TImageEnMView.SelectedFontColor>
- <A TImageEnMView.SelectionColor>
- <A TImageEnMView.ThumbnailsBackground>
- <A TImageEnMView.ThumbnailsBackgroundSelected>
- <A TImageEnMView.ThumbnailsBorderColor>
<FB>Other Affected Properties<FN>
- <A TIEImageEnGlobalSettings.PreviewImageBackgroundColor>
- <A TRulerBox.RulerColor>
- <A TRulerBox.GripColorDefault>
- <A TRulerBox.GripPenColor>
Note: Only system colors will be themed, e.g. clWindow, clWindowText, clBtnFace, clGrayText, etc. Controls with fixed colors such as clBlue, clBlack, $$00FCFCFC will not be themed.
Default: False (specified colors are used)
<FM>Demo<FN>
<TABLE2>
<R> <C_IMG_DEMO> <C>Demos\Other\ImageEn_Theming\VclStylesDemo.dpr </C> </R>
</TABLE>
<FM>Examples<FC>
// Enable VCL theme colors in ImageEn
IEGlobalSettings().EnableTheming := True;
ImageEnView1.Update();
ImageEnMView1.Update();
// Compare the following...
IEGlobalSettings().EnableTheming := True;
ImageEnView1.Background := clBtnFace; // Background will be a themed color
ImageEnView1.Background := clBlue; // Background will be blue
!!}
property EnableTheming: boolean read fEnableTheming write fEnableTheming;
end;
//////////////////////////////////////////////////////////////////////////////
{!!
<FS>IEGlobalSettings
<FM>Declaration<FC>
function IEGlobalSettings(): <A TIEImageEnGlobalSettings>;
<FM>Description<FN>
Returns the instance of TIEImageEnGlobalSettings object.
!!}
function IEGlobalSettings(): TIEImageEnGlobalSettings;
//////////////////////////////////////////////////////////////////////////////
implementation
uses
Menus, Forms;
///////////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////////////
// TIEImageEnGlobalSettings
var
ieGlobalSettings_: TIEImageEnGlobalSettings = nil;
function IEGlobalSettings(): TIEImageEnGlobalSettings;
begin
if not assigned(ieGlobalSettings_) then
ieGlobalSettings_ := TIEImageEnGlobalSettings.Create();
result := ieGlobalSettings_;
end;
destructor TIEImageEnGlobalSettings.Destroy;
begin
FreeAndNil(fWordTransitionParams);
FreeAndNil(fDialogBackgroundImage);
inherited;
end;
procedure TIEImageEnGlobalSettings.DestroySingletonInstance();
begin
ieGlobalSettings_.Free();
ieGlobalSettings_ := nil;
end;
function TIEImageEnGlobalSettings.GetDialogBackgroundStyle : TIEDialogBackgroundStyle;
begin
Result := fDialogBackgroundStyle;
if (Result = iedbCustom ) then
if ( assigned( fDialogBackgroundImage ) = False ) or
( fDialogBackgroundImage.Width = 0 ) or
( fDialogBackgroundImage.Height = 0 ) then
Result := iedbDefault;
end;
constructor TIEImageEnGlobalSettings.Create();
var
hdc: THANDLE;
begin
fMsgLanguage := msSystem;
fDefaultCoresCount := -1;
fBufferedReadStreamSize := 1024;
fOpSys := IEGetOpSys();
fUnicodeOS := (fOpSys > ieosWinME);
fDefaultPreviewsZoomFilter := rfFastLinear;
fDefaultResampleFilter := rfFastLinear;
fDefaultRotateAntiAlias := ierFast;
fDefDialogCenter := nil;
fDefaultDialogFont := nil;
fDefMinFileSize := -1;
fAutoLocateOnDisk := true;
fAutoFragmentBitmap := true;
fUseGDIPlus := true;
fUseButtonGlyphsInDialogs := False;
fPreviewImageBackgroundStyle := iebsSolid;
fPreviewImageBackgroundColor := clBtnFace;
fPreviewAdditionalMultipageExts := 'mpg,mpeg,wmv,avi';
// init memo shortcuts
MemoShortCuts[iesLEFTALIGN] := ShortCut(Word('L'), [ssCtrl]);
MemoShortCuts[iesCENTERALIGN] := ShortCut(Word('E'), [ssCtrl]);
MemoShortCuts[iesRIGHTALIGN] := ShortCut(Word('R'), [ssCtrl]);
MemoShortCuts[iesJUSTIFIED] := ShortCut(Word('J'), [ssCtrl]);
MemoShortCuts[iesCOPY] := ShortCut(Word('C'), [ssCtrl]);
MemoShortCuts[iesCUT] := ShortCut(Word('X'), [ssCtrl]);
MemoShortCuts[iesPASTE] := ShortCut(Word('V'), [ssCtrl]);
MemoShortCuts[iesFONTSELECT] := ShortCut(Word('F'), [ssCtrl]);
MemoShortCuts[iesBOLD] := ShortCut(Word('B'), [ssCtrl]);
MemoShortCuts[iesITALIC] := ShortCut(Word('I'), [ssCtrl]);
MemoShortCuts[iesUNDERLINE] := ShortCut(Word('U'), [ssCtrl]);
MemoShortCuts[iesBACKCOLORSELECT] := ShortCut(Word('G'), [ssCtrl]);
// measure units
MeasureUnits[ieuPIXELS] := 'pixels';
MeasureUnits[ieuINCHES] := 'inches';
MeasureUnits[ieuKM] := 'km';
MeasureUnits[ieuMETERS] := 'mt';
MeasureUnits[ieuCENTIMETERS] := 'cm';
MeasureUnits[ieuMILLIMETERS] := 'mm';
MeasureUnits[ieuMICRONS] := 'microns';
MeasureUnits[ieuNANOMETERS] := 'nanometers';
MeasureUnits[ieuFEET] := 'feet';
MeasureUnits[ieuYARDS] := 'yards';
MeasureUnits[ieuMILES] := 'miles';
// bits per pixel of display and DPI
hdc := getdc(0);
fSystemColors := GetDeviceCaps(hdc, BITSPIXEL);
fSystemDPIX := GetDeviceCaps(hdc, LOGPIXELSX);
fSystemDPIY := GetDeviceCaps(hdc, LOGPIXELSY);
releasedc(0, hdc);
fDefaultDPIX := 300;
fDefaultDPIY := 300;
fIsRemoteSession := IEIsRemoteSession();
fMMX := IEMMXSupported;
fEdgeX := GetSystemMetrics(SM_CXEDGE);
fEdgeY := GetSystemMetrics(SM_CYEDGE);
fBorderX := GetSystemMetrics(SM_CXBORDER);
fBorderY := GetSystemMetrics(SM_CYBORDER);
fVScrollWidth := GetSystemMetrics(SM_CYHSCROLL);
fHScrollHeight := GetSystemMetrics(SM_CXVSCROLL);
fMinZoomDisplayGrid := 400;
fGridPen := TPen.Create;
fSelectionGridColor := $00A0A0A0;
fGridMajorStep := 0;
fGuidelineCount := 5;
fCustomHintTimeout := 10000;
fMViewExplorerThumbnailExts := ALL_KNOWN_EXPLORER_VIDEO_FORMATS;
fUseCMYKProfile := true;
fUseDefaultFileExists := false;
fMaxImageEMFSize := 8000;
fDefTEMPPATH := '';
fConvertColorFunction := IEDefaultConvertColorFunction;
fEnableCMS := false;
fColorReductionAlgorithm := -1;
fColorReductionQuality := -1;
fObjectsTIFFTag := 40101;
fUseRelativeStreams := false;
fPanZoomQualityFilter := rfNone;
fRedToGrayCoef := 21;
fGreenToGrayCoef := 71;
fBlueToGrayCoef := 8;
EXIFInteroperabilityIndexUsage := ieiiApplyAndReset;
fEXIFMakerNotesHandling := iemhDecodeOrDiscardRaw;
fPrintDialogMarginsIncrement := 0.01;
fPrintDialogMarginsMinValue := 0;
fWordTransitionParams := TIEWordTransitionParams.create;
fWordTransitionParams.Word := 'A';
fWordTransitionParams.FontName := 'Arial';
fWordTransitionParams.Style := [fsBold];
fWordTransitionParams.Quality := 200;
fTransitionsDrawAlternative := False;
fTransitionsDrawShape := iesStar6;
fApplyColorProfileOnRendering := True;
fReleaseTwainResources := False;
fModelessSelectTwainSource := False;
fIsInsideTwain := False;
fTwainTransferBufferSize := 1048576; // 1MB
fImageProcMaxThreads := 4;
fImageProcThreadsMinSize := 65536;
fDialogBackgroundStyle := iedbDefault;
fDialogBackgroundImage := nil;
fProxyAddress := '';
fProxyUser := '';
fProxyPassword := '';
fThumbnailSize := 250;
fDefaultLayerText := '';
fEnableTheming := False;
fDefaultPreviewHistogramScale := iehsLinearClipped;
end;
procedure UpdateImageEnActionsLanguage(Component: TComponent);
var
i: integer;
begin
{$IFDEF Delphi6orNewer}
if Supports(Component, IIELanguageUpdatable) then
(Component as IIELanguageUpdatable).UpdateLanguage();
{$ENDIF}
for i := 0 to Component.ComponentCount - 1 do
UpdateImageEnActionsLanguage(Component.Components[i]);
end;
procedure TIEImageEnGlobalSettings.SetMsgLanguage(value: TMsgLanguage);
begin
if fMsgLanguage <> value then
begin
fMsgLanguage := value;
UpdateImageEnActionsLanguage(Application);
end;
end;
procedure TIEImageEnGlobalSettings.SetImageProcMaxThreads(value: Integer);
begin
if value < 1 then
fImageProcMaxThreads := 1
else
fImageProcMaxThreads := value;
end;
///////////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////////////
end.
Reference in New Issue View Git Blame Copy Permalink