| Forum List • Thread List • Reply • Refresh • New Topic • Search • Previous • Next  1  |  1. Using HTML --- SLOW#11417 Posted by: DougA 2007-08-08 03:09:28 | | I'm converting my "legacy" scripts to use the Lite version, and with the complete change of GUI, I have to rewrite them. However, I have a number of scripts that present a thumbnail photo list using the html, and what I'm seeing is the new GUI html is very VERY slow. On legacy, i could scroll my thumbnails as fast as i could click the button, on Lite, it takes about 2 seconds each click for the refresh. Doug | 2. #11419 | A test script would be best.
There shouldn't really be any difference in speed. | 3. #11427 | Here's a simple test, it's jsut as slow as my full blown script
You'll need to suppy some jpg's sized 100x100 and update the table
/*
GUIBEGIN
WINDOW , 0, 0, 445, 200, POPUP|CAPTION|SYSMENU|MINBOX|MAXBOX|THICK, , My Window
FONT 8, 400, MS Shell Dlg
HTML 16, 16, 412, 87, , , MyHTML
PUSH 124, 139, 40, 14, TABSTOP, , Next, , Next
PUSH 251, 137, 40, 14, TABSTOP, , Exit, , Exit
DEND
GUIEND
*/
LIBRARY rexxgui
PhotoDir = "C:\ASUS_files\Olympus Photos\2007\tn\"
PhotoList.0 = 5
PhotoList.1 = PhotoDir"P1050001_t.jpg"
PhotoList.2 = PhotoDir"P1050002_t.jpg"
PhotoList.3 = PhotoDir"P1050003_t.jpg"
PhotoList.4 = PhotoDir"P1050004_t.jpg"
PhotoList.5 = PhotoDir"P1050005_t.jpg"
PhotoSub = 0
SubList = ''
Do 2
Do i = 1 to PhotoList.0
SubList = SubList i
end
end /* 1 2 3 4 5 1 2 3 4 5 */
GuiErr = "SYNTAX"
GuiHeading = 1
GuiWindowDefaults(,,,,'HTML')
GuiCreateWindow('NORMAL')
Call WM_CLICK_Next
DO FOREVER
GuiGetMsg()
IF EXISTS('GuiObject') == 0 THEN DO
IF EXISTS('GuiSignal') THEN DO
If GuiSignal = 'CLOSE' then leave
END
END
FINALLY
GuiDestroyWindow()
END
RETURN
WM_CLICK_Next:
PhotoSub = PhotoSub + 1
If PhotoSub > PhotoList.0 then PhotoSub = 1
Subs = subword(SubList,PhotoSub,5)
Do i = 1 to 5
S.i = word(Subs,i)
end
HTMLstring = '<CENTER><TABLE border="0" cellspacing="0" cellpadding="2">',
|| '<TR>',
|| '<TD HEIGHT="100" WIDTH="100"><A><IMG SRC="'PhotoList.[S.1]'"></A></TD>',
|| '<TD HEIGHT="100" WIDTH="100"><A><IMG SRC="'PhotoList.[S.2]'"></A></TD>',
|| '<TD HEIGHT="100" WIDTH="100"><A><IMG SRC="'PhotoList.[S.3]'"></A></TD>',
|| '<TD HEIGHT="100" WIDTH="100"><A><IMG SRC="'PhotoList.[S.4]'"></A></TD>',
|| '<TD HEIGHT="100" WIDTH="100"><A><IMG SRC="'PhotoList.[S.5]'"></A></TD>',
|| '</TR></TABLE></CENTER>'
GuiAddCtlText('MyHTML',HTMLstring)
RETURN
WM_CLICK_Exit:
GuiWake("CLOSE")
RETURNDoug | | Forum List • Thread List • Reply • Refresh • New Topic • Search • Previous • Next 1 |
|
|
搜索
论坛
Home
回顶部
g.yi.org Hits:0
