Will66 Posted January 9, 2007 Posted January 9, 2007 Seen some posts here about displaying thumbnails in a gui with no outcomes. I've managed previously to display thumbnails in client side javascript using <object id="Thumbnail" classid="clsid:1D2B4F40-1F10-11D1-9E88-00C04FDCAB92" style="width: 150px; height: 150px;"></object> the script to display it is like: Thumbnail.displayFile("yourdir\\yourfile.jpg"); The ThumbCtl Control is called from webvw.dll, I've been using autoit for less than a week and hoping someone might now how to call the dll and display the thumb in an autoit gui?
GaryFrost Posted January 10, 2007 Posted January 10, 2007 Here's a c++ project using thumbnails.http://www.codeproject.com/miscctrl/easyfa...amp;select=5546 SciTE for AutoItDirections for Submitting Standard UDFs Don't argue with an idiot; people watching may not be able to tell the difference.
Will66 Posted January 10, 2007 Author Posted January 10, 2007 Here's a c++ project using thumbnails. thanx, saw that one, got the general idea but c++ is ~~}}....tricky Finding the olewiew.exe info in autoit help was a big help. Here's where i'm upto, worx on my XP, and win 2000. #include <GUIConstants.au3> $Form1 = GUICreate("AForm1", 633, 454, 193, 115) $Obj1 = ObjCreate("ThumbCtl.ThumbCtl.1") $Obj1.displayFile("C:\WINDOWS\Web\Wallpaper\Azul.jpg") $Obj1_ctrl = GUICtrlCreateObj($Obj1,120, 32, 120, 100) $Obj2 = ObjCreate("ThumbCtl.ThumbCtl.1") $Obj2.displayFile("C:\WINDOWS\Web\Wallpaper\Follow.jpg") $Obj2_ctrl = GUICtrlCreateObj($Obj2,260,32, 100, 100) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Obj1_ctrl MsgBox(0,"Obj1","yes");was $Obj1 clicked?.....that won't work :) EndSwitch WEnd The plan from here is to file-open, select a folder, display all images as thumbnails with maybe include paging for larger directories, then when onclick a thumbnail full size image displays in an adjacent panel. Seems i have to use a seperate $aNewVariable= ObjCreate("ThumbCtl.ThumbCtl.1") for each instance of a thumbnail? A pointer on creating them dynamically would be good. Cheers
Will66 Posted January 10, 2007 Author Posted January 10, 2007 MsgBox(0,"Obj1","yes");was $Obj1 clicked?.....that won't work How would I return the obj that was clicked , displayFile, please?
Will66 Posted January 14, 2007 Author Posted January 14, 2007 Bump, Hoping someone might test the script above to see if it works for them because it works fine on my xp home pc but its not working on 2Kpro machines at work. I suspect it might be a registration issue because I added/created the object using Kodak for the gui....possibly Kodak may have registered the webvw.dll or marked the activex control thumbCtl.thumbCtl safe for scripting on my xp machine....i'm only guessing here because i'm not game to play around with any registry settings with my level of experience on this type of issue......especially on the machines at work. also i'm using the zip(uninstalled version of autoit) at work. Please...
Will66 Posted January 14, 2007 Author Posted January 14, 2007 Edit: I should add to be clear it doesn't throw an error, the place holders are there but the thumbnail doesn't display.
Will66 Posted January 15, 2007 Author Posted January 15, 2007 (edited) Appologies if this is becomming like a diary.....I'm having a hard time "moving on" Works as a .HTA file, but not for autoit...on some mahines WHY?: thumb.hta - works on 1 xpPro, 1 xpHome and 3 win2000 Pro machines(no failures to date): <body bgcolor=green> <div id="thumb1"> <OBJECT CLASSID="clsid:1d2b4f40-1f10-11d1-9e88-00c04fdcab92" onmouseover="this.displayFile('C:\\WINDOWS\\Web\\Wallpaper\\Autumn.jpg');" onmouseout="this.displayFile('C:\\WINDOWS\\Web\\Wallpaper\\Bliss.bmp');" id=Thumbnail width=120 height=115/> </OBJECT> </div> <script language="vbscript"> Set mydiv=document.all.Thumbnail 'Set mythumb = CreateObject("thumbCtl.thumbCtl.2") mydiv.displayFile( "C:\WINDOWS\Web\Wallpaper\Bliss.bmp" ) </script> </body> Works on 2 of my xp machines, fails on 3 x win2000Pro: #include <GUIConstants.au3> $Form1 = GUICreate("AForm1", 633, 454, 193, 115) $Obj1 = ObjCreate("ThumbCtl.ThumbCtl.1") $Obj1.displayFile("C:\WINDOWS\Web\Wallpaper\Autumn.jpg") $Obj1_ctrl = GUICtrlCreateObj($Obj1,120, 32, 120, 100) $Obj2 = ObjCreate("ThumbCtl.ThumbCtl") $Obj2.displayFile("C:\WINDOWS\Web\Wallpaper\Bliss.bmp") $Obj2_ctrl = GUICtrlCreateObj($Obj2,260,32, 120, 100) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd Edited January 15, 2007 by Will66
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now