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.
Code:
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