Guidance
指路人
g.yi.org
Guidance Forums / Reginald Rexx / Using HTML --- SLOW

Register 
注册
Search 搜索
首页 
Home Home
Software
Upload

  
Forum List • Thread List • Refresh • New Topic • Search • Previous • Next First 1 Last
Message1. 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
Message2.
#11419
Posted by: Jeff Glatt 2007-08-08 07:30:58
A test script would be best.

There shouldn't really be any difference in speed.
Message3.
#11427
Posted by: Doug Arndt 2007-08-08 23:16:52
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")
   RETURN
Doug
Forum List • Thread List • Refresh • New Topic • Search • Previous • Next First 1 Last
掌柜推荐
 
 
 
 
 
 
 
 
 
 
 
 
© Mon 2024-10-7  Guidance Laboratory Inc.
Email:webmaster1g.yi.org Hits:0