OberonPlace.com Forums  

Go Back   OberonPlace.com Forums > Developer Forums > VBA > CorelDRAW/Corel DESIGNER VBA

Reply
 
Thread Tools Search this Thread Display Modes
  #1  
Old 12-04-2012, 20:30
knowbodynow knowbodynow is offline
Senior Member
 
Join Date: Mar 2006
Location: Hatsukaichi near Hiroshima
Posts: 429
Default Oberon Thumbnailer and X6

Hello, has anyone got this macro to work with X6? I tried updating the declare functions with PtrSafe until I was only finding one error. Here's the whole section with the error flagged when compiling:

Code:
Public Function BrowseForFolder(ByVal hWnd As Long, ByVal Title As String, ByVal StartDir As String) As String
    Dim lpIDList As Long
    Dim szTitle As String
    Dim sBuffer As String
    Dim tBrowseInfo As BrowseInfo
    
    m_CurrentDirectory = StartDir & vbNullChar
    
    szTitle = Title
    With tBrowseInfo
        .hWndOwner = hWnd
        .lpszTitle = lstrcat(szTitle, "")
        .ulFlags = BIF_RETURNONLYFSDIRS + BIF_DONTGOBELOWDOMAIN + BIF_STATUSTEXT + BIF_USENEWUI
        .lpfnCallback = GetAddressOfFunction(AddressOf BrowseCallbackProc)
    End With
    
    lpIDList = SHBrowseForFolder(tBrowseInfo)
    If lpIDList Then
        sBuffer = Space$(MAX_PATH)
        SHGetPathFromIDList lpIDList, sBuffer
        sBuffer = Left$(sBuffer, InStr(sBuffer, vbNullChar) - 1)
        BrowseForFolder = sBuffer
        CoTaskMemFree lpIDList
    Else
        BrowseForFolder = ""
    End If
    
End Function
The error is Type mismatch. Does anyone know how to fix this, thanks.
Reply With Quote
  #2  
Old 13-04-2012, 09:28
ddonnahoe's Avatar
ddonnahoe ddonnahoe is offline
Senior Member
 
Join Date: Jan 2004
Location: Louisville, KY
Posts: 552
Send a message via ICQ to ddonnahoe Send a message via AIM to ddonnahoe Send a message via MSN to ddonnahoe Send a message via Yahoo to ddonnahoe
Default

Why can't you substitute...
Code:
CorelScriptTools.GetFolder
Shouldn't it do the same thing as BrowseForFolder sub?
__________________
Sean
Waiting for a ride in the T.A.R.D.I.S.
Reply With Quote
  #3  
Old 13-04-2012, 22:55
knowbodynow knowbodynow is offline
Senior Member
 
Join Date: Mar 2006
Location: Hatsukaichi near Hiroshima
Posts: 429
Default

Thanks, I tried your suggestion and it seems to be working.
Reply With Quote
  #4  
Old 24-05-2012, 00:40
prashant3975 prashant3975 is offline
Junior Member
 
Join Date: Jun 2010
Posts: 1
Smile

can i have full code or Macro

As i am also having same Problem
Reply With Quote
  #5  
Old 25-09-2012, 14:55
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 and X6

Hello all,

Until the official release from Alex, I have made an unofficial release that should get things working in X6. :-) If you have problem, please let me know.

-Shelby
Attached Files
File Type: zip Thumbnailer_X6.zip (83.9 KB, 1432 views)
Reply With Quote
  #6  
Old 24-09-2018, 16:31
CobyMac's Avatar
CobyMac CobyMac is offline
Junior Member
 
Join Date: Aug 2012
Location: Texas
Posts: 2
Default Tumbnailer CorelDraw 2018

I would love to have this working in CorelDraw 2018. Do you know of a version that works?
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
Oberon Thumbnailer - Image positioning gorgo2 Feature requests/wishlist 26 12-05-2017 02:33
Oberon Fit Objects To Path Alex Other Oberon Commercial Products 11 28-06-2012 11:55
Oberon Thumbnailer - remember last folder gorgo2 Feature requests/wishlist 0 25-02-2010 17:10
New macros: Oberon Object Tiler & Oberon Color Replacer Alex Site News 1 06-11-2009 19:49
Oberon Selection Manager Alex Other Oberon Commercial Products 0 24-08-2003 12:22


All times are GMT -5. The time now is 00:45.


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