FxDilate4 sur ROI laisse trait sur image

[tAkAmAkA]

Bonjour Loïc,

FxDilate4 me laisse un trait noir sur la zone traitée correspondant au coté droit du rectangle.
Ce n'est pas systématique.

Je joins une image commentée
Le code:

Code: Select all

Private Sub cmdDilate4_Click()

Dim nLeft1 As Long, nTop1 As Long, nWidth1 As Long, nHeight1 As Long

Select Case opgTraiter
    Case 1
        subAfficher (opgImage)
        Imaging1.SetNativeImage (oGdViewer.GetNativeImage)
    Case 2
        Imaging1.SetNativeImage (oGdViewer.GetNativeImage)
        Call oGdViewer.GetRectValues(nLeft1, nTop1, nWidth1, nHeight1)
        If nWidth1 = 0 Or nHeight1 = 0 Then
            MsgBox "Faites une sélection dans l'image.", vbExclamation, "ANAsoft"
            Exit Sub
        End If
        Call Imaging1.SetROI(nLeft1, nTop1, nWidth1, nHeight1)
End Select
Imaging1.FxDilate4
oGdViewer.Redraw
If Me.opgTraiter = 2 Then
    Call oGdViewer.SetRectValues(nLeft1, nTop1, nWidth1, nHeight1)
End If
bModifImage = True
Me.recModif.Visible = bModifImage
Me.cmdEnregistrer.Visible = bModifImage
End Sub

Merci de ton attention
Jissé

[Loïc]

Salut Jissé,

Je me suis fait une bonne centaine d'essai sans trouver le moindre problème.


Il faudrait tester avec la toute dernière version disponible. Si le problème persiste il me faut une procédure reproduisant le problème que je puisse exécuter avec un simple copier coller, et qui intègre les coordonnées de la région à filtrer.

Ex:

Code: Select all

Imaging1.SetNativeImage (GdViewer1.GetNativeImage)
Call Imaging1.SetROI(10, 10, 100, 100)
Imaging1.FxDilate4
GdViewer1.Redraw

A+
Loïc