 |
constructor Create (AOwner: TObject; AUseUndo: Boolean); reintroduce; virtual; |
 |
procedure AfterConstruction; override; |
 |
procedure BeforeDestruction; override; |
 |
procedure Reset; |
 |
function FindAvgImageColor (AGraphic: TGraphic): TvxColor; |
 |
function FindDominantImageColor (AGraphic: TGraphic): TvxColor; |
 |
function FindAvgBitmapColor (ABmp: TvxBitmap32): TvxColor; |
 |
function FindDominantBitmapColor (ABmp: TvxBitmap32): TvxColor; |
 |
procedure EnumUndoSteps (AResult: TxomStrings); |
 |
procedure EnumRedoSteps (AResult: TxomStrings); |
 |
procedure EffectSave (AImage: TImageItem; ASaveSettings: TSaveSettings; AUpdateThumb: Boolean = True); |
 |
procedure EffectUndo (AImage: TImageItem; ALevel: Integer = -1); |
 |
procedure EffectRedo (AImage: TImageItem); |
 |
procedure EffectBrightness (AImage: TImageItem; AValue: Integer); |
 |
procedure EffectContrast (AImage: TImageItem; AValue: Integer); |
 |
procedure EffectTones (AImage: TImageItem; ACurves: TToneCurve; ATemperature: Integer = 5003); |
 |
procedure EffectHueMixer (AImage: TImageItem; AHueCurve: TToneCurve); |
 |
procedure EffectGamma (AImage: TImageItem; AValue: Integer); |
 |
procedure EffectLighten (AImage: TImageItem; AValue: Integer); |
 |
procedure EffectFillFlash (AImage: TImageItem; AValue: Integer); |
 |
procedure EffectDarkenBackground (AImage: TImageItem; AValue: Integer); |
 |
procedure EffectAutoColorCorrection (AImage: TImageItem; AValue: Integer; const AFilterColor: String); |
 |
procedure EffectEnrichShadow (AImage: TImageItem; AValue: Integer); |
 |
procedure EffectHighKey (AImage: TImageItem; AValue: Integer); |
 |
procedure EffectHighlightShadow (AImage: TImageItem; AShadows, AMids, AHighlights, AWhites, ABlacks: Integer); |
 |
procedure EffectSpotHealing (AImage: TImageItem; APath: TidPath); |
 |
procedure EffectRedEye (AImage: TImageItem; AMarkers: TidElement); |
 |
procedure EffectRecipe (AImage: TImageItem; ARecipe: TRecipe); |
 |
procedure EffectFlattenRecipe (AImage: TImageItem; ARecipe: TRecipe); |
 |
procedure EffectReplaceRecipe (AImage: TImageItem; ARecipe: TRecipe); |
 |
procedure EffectApplyAreas (AImage: TImageItem; AAreaColor: TvxColor = $FFFFFFFF; AWithText: Boolean = True); |
 |
procedure EffectWhiteBalance (AImage: TImageItem; ATemperature, ATint: Integer; AWhitePointTemp: Integer = 5504); |
 |
procedure EffectWhitePoint (AImage: TImageItem; ARed, AGreen, ABlue: Byte); |
 |
procedure EffectGrayPoint (AImage: TImageItem; ARed, AGreen, ABlue: Byte); |
 |
procedure EffectBlackPoint (AImage: TImageItem; ARed, AGreen, ABlue: Byte); |
 |
procedure EffectGlamour (AImage: TImageItem; AValue: Integer; ASoftFocus: Integer = 0; ASaturation: Integer = 0; AMaskValue: Integer = 255); |
 |
procedure EffectEnhContrast (AImage: TImageItem); |
 |
procedure EffectRotate (AImage: TImageItem; AValue: Single; ALossless: Boolean = False; const ABackColor: String = vcWhite; ACrop: Boolean = False); |
 |
procedure EffectQuickRotate (AImage: TImageItem; ADegrees: Single; ALossless: Boolean = False); |
 |
procedure EffectFlip (AImage: TImageItem; AHorizontal, AVertical: Boolean); |
 |
procedure EffectCrop (AImage: TImageItem; ARelativeRect: TvxRect; ACropAngle: Single = 0); |
 |
procedure EffectResize (AImage: TImageItem; ASettings: TResizeSettings); |
 |
procedure EffectResizeRelative (AImage: TImageItem; AWidthFactor, AHeightFactor: Double; ASettings: TResizeSettings); |
 |
function EffectCanvasSize (AImage: TImageItem; AWidth, AHeight: Integer; const ABackColor: String = vcWhite; APosition: TWindDirection = wdCenter; ACropToFit: Boolean = False; AStretchToFit: Boolean = False; AProportional: Boolean = False): TRect; |
 |
function EffectCanvasSizeRelative (AImage: TImageItem; AWidthFactor, AHeightFactor: Double; const ABackColor: String = vcWhite; APosition: TWindDirection = wdCenter; ACropToFit: Boolean = False; AStretchToFit: Boolean = False; AProportional: Boolean = False): TRect; |
 |
procedure EffectBlend (AImage: TImageItem; ABlendImage: TGraphic; ABlendMode: TvxBlendMode; AOpacity: Integer = 255); |
 |
procedure EffectSharpen (AImage: TImageItem; AFactor: Integer = 0); |
 |
procedure EffectDynamicSharpen (AImage: TImageItem; AFactor: Integer = 0); |
 |
procedure EffectAdvancedSharpen (AImage: TImageItem; AFactor: Integer = 30); |
 |
procedure EffectSmooth (AImage: TImageItem; AFactor: Integer = 20); |
 |
procedure EffectGaussianBlur (AImage: TImageItem; ARadius: Double = 2; AHorizontal: Boolean = True; AVertical: Boolean = True); |
 |
procedure EffectGray (AImage: TImageItem; AValue: Integer = 0); |
 |
procedure EffectBW (AImage: TImageItem; AFilterPerc: Integer = 0; AFilterColor: TvxGrayFilter = gfOrange; AGrayValue: Integer = 0; AFilmGrainPerc: Integer = 0); |
 |
procedure EffectMono (AImage: TImageItem; ADithered: Boolean = False); |
 |
procedure EffectSepia (AImage: TImageItem; AContrastPercent: Integer = 0; ATemperature: Integer = 7000); |
 |
procedure EffectAlphaChannelRemoval (AImage: TImageItem; const AColor: String = vcBlack); |
 |
procedure EffectDuotone (AImage: TImageItem; AColors: TAutoLevelColorValues); |
 |
procedure EffectColorCorrection (AImage: TImageItem; AColors: TAutoLevelColorValues); |
 |
procedure EffectColorFilter (AImage: TImageItem; ALevel: Byte; const AFilterColor: String; AMono: Boolean = False; APSMode: Boolean = True); |
 |
procedure EffectICSColors (AImage: TImageItem; AICSSettings: TICSSettings; var ASourceProfile: WideString; var ATargetProfile: WideString; var AProofProfile: WideString; AReversed: Boolean; var AIsEmbeddedProfile: Boolean); |
 |
procedure EffectFrame (AImage: TImageItem; AFrameDesign: TFrameDesign; AOptions: TOptions = nil); |
 |
procedure EffectCaption (AImage: TImageItem; ACaption: TImageCaption; AOptions: TOptions = nil); |
 |
procedure EffectCaptions (AImage: TImageItem; ACaptions: TImageCaptions; AOptions: TOptions = nil; AUserVars: TxomStrings = nil; ACustoms: TCustomScriptObjects = nil); |
 |
procedure EffectDrawAreas (AImage: TImageItem; AAreas: TCatalogAreas; ADrawAreas: TDrawAreaParts); |
 |
procedure EffectTitle (AImage: TImageItem; ATitle: TImageTitle; AOptions: TOptions = nil; AUserVars: TxomStrings = nil; ACustoms: TCustomScriptObjects = nil); |
 |
procedure EffectWatermarks (AImage: TImageItem; AWatermarks: TImageWatermarks); |
 |
procedure EffectDrawGraphic (AImage: TImageItem; AGraphic: TGraphic; ADrawStyle: TvxDrawStyle; AOpacity: Byte = 255); |
 |
procedure EffectAddNoise (AImage: TImageItem; AValue: Byte); |
 |
procedure EffectFilmGrain (AImage: TImageItem; AValue: Byte); |
 |
procedure EffectSoftFocus (AImage: TImageItem; AValue: Byte); |
 |
procedure EffectCropToRatio (AImage: TImageItem; AXFactor, AYFactor: Real; DoDynamic: Boolean = True); |
 |
procedure EffectSaturate (AImage: TImageItem; AValue: Integer = 1); |
 |
procedure EffectClarity (AImage: TImageItem; AValue: Integer = 0); |
 |
procedure EffectExposure (AImage: TImageItem; AValue: Integer = 0; ABrightness: Integer = 0); |
 |
procedure EffectHue (AImage: TImageItem; AValue: Integer = 0); |
 |
procedure EffectHueShift (AImage: TImageItem; AValue: Integer = 0); |
 |
procedure EffectHSL (AImage: TImageItem; AHueDelta, ASatDelta, ALumDelta: Integer); |
 |
procedure EffectAutoFix (AImage: TImageItem); |
 |
procedure EffectEmboss (AImage: TImageItem); |
 |
procedure EffectPolarize (AImage: TImageItem; AValue: Integer); |
 |
procedure EffectPolarizeAdv (AImage: TImageItem; AValue: Integer); |
 |
procedure EffectNegative (AImage: TImageItem); |
 |
procedure EffectAutoLevels (AImage: TImageItem; AValue: Integer; AColors: TAutoLevelColorValues); |
 |
procedure EffectDynamicRange (AImage: TImageItem; ALightBmp, ADarkBmp: TvxBitmap; AMaskValue: Integer; ABlurValue: Double = 4; AReversed: Boolean = False); |
 |
procedure EffectDynamicRangeQuick (AImage: TImageItem; ALevel: Integer); |
 |
procedure EffectMask (AImage: TImageItem; AGrayClipPoint: Byte); |
 |
procedure CommandRename (AImage: TImageItem; ASettings: TRenameSettings; AUserVars: TxomStrings = nil; ACustoms: TCustomScriptObjects = nil); |
 |
procedure CommandRedate (AImage: TImageItem; ASettings: TRedateSettings; var ACumulation: TDateTimeEditTypeArray); |
 |
procedure CommandStack (AImage: TImageItem; const AGroupGUID: String); |
 |
procedure CommandUnstack (AImage: TImageItem); |
 |
procedure CommandDetectFaces (AImage: TImageItem); |
 |
procedure CommandDetectObjects (AImage: TImageItem); |
 |
procedure CommandAIOpenAI_Metadata (AImage: TImageItem; const AContext: WideString; const AResultHandling: TOpenAIResultHandling; const AAutoProcess: Boolean); |
 |
procedure CommandAIVision_DetectLabels (AImage: TImageItem; AAssignLabels: TAIAssignLabels); |
 |
procedure CommandAIVision_DetectFaces (AImage: TImageItem); |
 |
procedure CommandAIVision_DetectObjects (AImage: TImageItem); |
 |
procedure CommandAIVision_DetectLandmarks(AImage: TImageItem); |
 |
procedure CommandAIVision_DetectTexts (AImage: TImageItem); |
 |
procedure CommandGEOTag (AImage: TImageItem; ASettings: TidElement); |
 |
procedure CommandGEOGPXTag (AImage: TImageItem; const AGPXFileName: WideString; const ADelta: TGPSDeltaTime); |
 |
procedure CommandGEOForwardLookup (AImage: TImageItem; const ALocation: WideString); |
 |
procedure CommandGEOReverseLookup (AImage: TImageItem); |
 |
procedure CommandGEOLookupAltitude (AImage: TImageItem); |
 |
procedure CommandGEORemove (AImage: TImageItem); |
 |
procedure CommandConvert (AImage: TImageItem; ASaveSettings: TSaveSettings); |
 |
procedure CommandProperties (AImage: TImageItem; AProperties: TImageDetail; ATargetXMP: TObject = nil; AOnlyFilled: Boolean = False; OnlyFilledIPTC: Boolean = True; AResult: TxomStrings = nil; AMigrateKeywords: Boolean = True; AUserCache: TxomStrings = nil; ACustoms: TCustomScriptObjects = nil; ACustomValues: TMacroValues = nil; const AFilenameToPreserve: WideString = ''; AAllowTechnical: Boolean = True); |
 |
procedure CommandImportXMP (AImage: TImageItem; AXMPFileName: WideString; AUserVars: TxomStrings = nil; ACustoms: TCustomScriptObjects = nil); |
 |
procedure CommandExportXMP (AImage: TImageItem; ASettings: TRenameSettings; AUserVars: TxomStrings = nil; ACustoms: TCustomScriptObjects = nil); |
 |
procedure CommandConvertMetaToXMP (AImage: TImageItem); |
 |
procedure CommandRemoveExif (AImage: TImageItem); |
 |
procedure CommandUpdateExifThumb (AImage: TImageItem); |
 |
procedure CommandSave (AImage: TImageItem; ASaveSettings: TSaveSettings); |
 |
procedure CommandLoad (AImage: TImageItem; const AFileName: WideString; AFastRAWLoad: Boolean = False; AExifOriented: Boolean = True); |
 |
procedure CommandScript (AImage: TImageItem; const AFileName: WideString; const AParameters: WideString = ''); |
 |
procedure AddUndoGraphic (AGraphic: TGraphic; const AUndoLabel: WideString); |