thumbnailer macro

[gorgo]

It appears that the thumbnailer macro (by oberon) does not work properly in X5. My guesss would be an alignment issue or some code the translates differently in X5 compare to X4 and older versions. Perhaps it's CDRALIGN or something? Help?
here is a piece of the code...it's my guess.

 If cfg.AddFrame Then
            ActiveLayer.CreateRectangle2 x, y, cfg.Width, cfg.Height
        End If
        
        If cfg.AddCaption Then
            If cfg.FolderCaption Then
                sCaption = f
            Else
                n = InStrRev(f, "\")
                If n <> 0 Then
                    sCaption = Mid$(f, n + 1)
                Else
                    sCaption = f
                End If
            End If
#If DRAW_VERSION > 10 Then
            ActiveLayer.CreateArtisticText x + cfg.Width / 2, y - 0.15, sCaption, _
                                Font:=cfg.FontName, Size:=cfg.FontSize, _
                                Bold:=cfg.FontBold, Italic:=cfg.FontItalic, _
                                Alignment:=cdrCenterAlignment
#Else
            With ActiveLayer.CreateArtisticText(x + cfg.Width / 2, y - 0.15, sCaption).Text
                .AlignProperties.Alignment = cdrCenterAlignment
                With .FontProperties
                    .Name = cfg.FontName
                    .Size = cfg.FontSize
                    Select Case -cfg.FontBold - 2 * cfg.FontItalic
                        Case 0
                            .Style = cdrNormalFontStyle
                        Case 1
                            .Style = cdrBoldFontStyle
                        Case 2
                            .Style = cdrItalicFontStyle
                        Case 3
                            .Style = cdrBoldItalicFontStyle
                    End Select
                End With
            End With
#End If
        End If
        
        If nPageCount < nPageCount2 Then
            For n = nPageCount2 To nPageCount + 1 Step -1
                ActiveDocument.Pages(n).Delete
            Next n
        End If
        
        nx = nx + 1
        nCurrent = nCurrent + 1
        If nx >= CountX Then
            nx = 0
            ny = ny + 1
            If ny >= CountY Then
                ny = 0
                If nCurrent < nCount Then
                    ActiveDocument.AddPages 1
                End If
            End If
        End If
    Next f
    bProcessing = False
    lblProgress.Caption = ""
    cmAbort.Visible = False
    cmOK.Visible = True
    cmCancel.Visible = True
End Sub

[shelbym]

Did you download the X5 version? I don't recall it having an issue, and I have several others using it on X5.

-Shelby

[gorgo]

tried that. no luck. weird.

[shelbym]

Have a simple example of what is expected, and what you actually get?

-Shelby