IMcDisplayEditPasteAoi Method

Sub EditPasteAoi ( 
	Optional OptionFlags As mcEditPasteAoiOptionFlags = mcEditPasteAoiOptionFlags.mcepaofUseSettings,
	<OptionalAttribute> AlignLeftTop As Object,
	Optional BlendPercent As Integer = -1,
	Optional BlendOptionFlags As mcViewBlendStyle = mcViewBlendStyle.mvbsUseSettings
)

'Example 1. Paste into the ActiveWindow using the default paste settings
If Not ThisApplication.ActiveWindow.View.Display.IsActionAvailable( mcwaMcImageToPaste) Then
MsgBox "There is no image on the clipboard"
Exit Sub
EndIf
ThisApplication.ActiveWindow.View.Display.EditPasteAoi
'Example 2. Paste the intersection of the source and destination AOI's
' into Images(0) without user preview.
Dim PasteOptionFlags As mcEditPasteAoiOptionFlags
PasteOptionFlags = mcepaofAoiAfter_IntersectSrcAndDest
' Use 100% blending
Dim BlendOptionFlags As mcViewBlendStyle
BlendOptionFlags = mvbsMaskBySourceAoi + mvbsMaskByDestAoi
'Use the default alignment (align src and dest AOI's)
Images(0).Display.EditPasteAoi PasteOptionFlags,,100,BlendOptionFlags
'Example 3. Paste the source AOI where the user places it during preview
' Use 50% blending during preview but apply the paste 100%
Dim PasteOptionFlags As mcEditPasteAoiOptionFlags
PasteOptionFlags = mcepaofPreviewThePaste + mcepaofPreviewWithBlend + mcepaofAoiAfter_PasteSrcAoi
' During blending and the paste, mask by the source AOI
Dim BlendOptionFlags As mcViewBlendStyle
BlendOptionFlags = mvbsMaskBySourceAoi
'Use the default starting alignment (align src and dest AOI's)
Images(0).Display.EditPasteAoi PasteOptionFlags,,50,BlendOptionFlags
'Example 4.  Handle the paste ourselves. This must be in a CLS or FRM module
Private WithEvents activeOverlay As McGraphOverlay
Private PasteOptions As mcEditPasteAoiOptionFlags
Private PasteBlendStyle As mcViewBlendStyle
Private lPasteBlendFactor As Long
' Sub to call to set up and start blend tracking for EditPasteAoi
Sub StartEditPasteAoi()
If ActiveWindow Is Nothing Then Exit Sub
If Not ThisApplication.ActiveWindow.View.Display.IsActionAvailable(mcwaMcImageToPaste) Then Exit Sub
' Get the PasteOptions, BlendingFactor and BlendingStyle
PasteOptions =  mcepaofPreviewThePaste + mcepaofPreviewWithBlend + mcepaofAoiAfter_PasteSrcAoi
lPasteBlendFactor = 50
PasteBlendStyle = mvbsMaskBySourceAoi
' Start the EditPasteAoi, without letting it apply the paste
ThisApplication.ActiveWindow.View.Display.EditPasteAoi _
PasteOptions + mcepaofDoNotApplyThePaste, , lPasteBlendFactor, PasteBlendStyle
Set activeOverlay = ThisApplication.ActiveImage.ImageToolsOverlay ' monitor the ToolDeselect event
' The final paste actions all occur in the activeOverlay_ToolDeselected sub, below
End Sub 'StartEditPasteAoi
' Event notification Sub to find out how the user ends the tool
Private Sub activeOverlay_ToolDeselected(ByVal Overlay As McGraphOverlay, _
ByVal Tool As Object, ByVal GraphObjClassName As String, ByVal TemplateID As Long)
Set activeOverlay = Nothing ' we won't need notifications any more
Dim activetool As McGraphToolServer
Set activetool = Overlay.activetool
If activetool.ToolClassName <> "McOvrMgr.McBlendTool" Then ' Sanity check
Debug.Print "Logic error: activeOverlay_ToolDeselected from some tool other than the McBlendTool."
Exit Sub
End If
' capture the shutdown mode CommandFlags before we stop blending (which changes them)
Dim lShutdownModeCommandFlags As Long
lShutdownModeCommandFlags = activetool.CommandFlags(mcbtcfEndBlend + mcbtcfAbortBlend) 'mask
Dim workingmcview As McView
activetool.CommandFlags = mcvtcfGetWorkingMcView
Set workingmcview = activetool.CommandData
If workingmcview Is Nothing Then
Debug.Print "Blend tool terminated before getting a working McView."
ThisApplication.ActiveWindow.View.Display.BlendingImage = Nothing   'Stop blending in the active window
Exit Sub
End If
'ELSE workingmcview is a real McView
'Stop blending in the working McView
workingmcview.Display.BlendingImage = Nothing
' Normal McBlendTool termination?
If lShutdownModeCommandFlags = mcbtcfEndBlend Then
'Normal preview end.  Get the BlendAlign last left by the user during preview
Dim Align As LONGPOINT
workingmcview.Display.GetBlendAlignLeftTop Align.x, Align.y
' Apply the paste without preview
Dim rectBlended As LONGRECT
rectBlended = workingmcview.Display.EditPasteAoiRectangle
' Check to see if there is no overlap to paste
If rectBlended.Left < rectBlended.Right Then    ' something will be pasted?
workingmcview.ImageToDisplay.UndoStack.Push workingmcview.ImageToDisplay, _
mciuofSaveActiveFrameRange, rectBlended, Empty, "My Paste"
Else ' no overlap, so nothing will be pasted
Debug.Print "Attempt to paste an empty target rectangle"
Exit Sub  ' In this case, we just bail out.
End If
Dim FinalPasteOptions As mcEditPasteAoiOptionFlags
FinalPasteOptions = PasteOptions And Not mcepaofPreviewThePaste
workingmcview.Display.EditPasteAoi FinalPasteOptions, _
varAlign, lPasteBlendFactor, PasteBlendStyle
' Abort McBlendTool termination?
ElseIf lShutdownModeCommandFlags = mcbtcfAbortBlend Then
Debug.Print "User aborted the Blend with the Esc key."
Else ' Some other McBlendTool Termination
Debug.Print "The Blend tool was stopped due to error or some other tool being invoked."
End If ' how McBlendTool terminates
End Sub 'activeOverlay_ToolDeselected event