OberonPlace.com Forums  

Go Back   OberonPlace.com Forums > Corel User Forums > CorelDRAW > Macros/Add-ons

Reply
 
Thread Tools Search this Thread Display Modes
  #1  
Old 01-12-2012, 22:47
gorgo gorgo is offline
Senior Member
 
Join Date: Feb 2010
Posts: 169
Default thumbnailer macro

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
Reply With Quote
  #2  
Old 10-12-2012, 23:05
shelbym's Avatar
shelbym shelbym is offline
Senior Member
 
Join Date: Nov 2002
Location: Cheyenne, WY
Posts: 1,769
Blog Entries: 9
Send a message via ICQ to shelbym Send a message via AIM to shelbym Send a message via MSN to shelbym Send a message via Yahoo to shelbym
Default Thumbnailer

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

-Shelby
Reply With Quote
  #3  
Old 12-12-2012, 01:08
gorgo gorgo is offline
Senior Member
 
Join Date: Feb 2010
Posts: 169
Default

tried that. no luck. weird.
Reply With Quote
  #4  
Old 13-12-2012, 13:17
shelbym's Avatar
shelbym shelbym is offline
Senior Member
 
Join Date: Nov 2002
Location: Cheyenne, WY
Posts: 1,769
Blog Entries: 9
Send a message via ICQ to shelbym Send a message via AIM to shelbym Send a message via MSN to shelbym Send a message via Yahoo to shelbym
Default Thumbnailer

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

-Shelby
Reply With Quote
Reply


Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Thumbnailer... logoz Other Oberon Commercial Products 1 24-04-2014 14:58
Thumbnailer gorgo Macros/Add-ons 2 08-06-2011 23:33
Thumbnailer Signman Other Oberon Commercial Products 10 07-01-2009 11:04
Thumbnailer Defaults knowbodynow CorelDRAW/Corel DESIGNER VBA 1 05-03-2006 02:20
Thumbnailer problems ddonnahoe Macros/Add-ons 7 14-03-2004 18:33


All times are GMT -5. The time now is 01:21.


Powered by vBulletin® Version 3.8.1
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
Copyright © 2011, Oberonplace.com