Global Functions :
On Preload:
On Menu:
Save To Favorites On Button Click:
when i click save button i get this error;
Code:
function SetMenu() -- Create a table containing all menu information tblMenu = {}; tblMenu[1] ={}; tblMenu[1].Text = "&Favorites"; tblMenu[1].ID = 400; tblMenu[1].Checked = false; tblMenu[1].Enabled = true; tblMenu[1].SubMenu = {}; XML.Load("AutoPlay\\Docs\\BookMarks.xml"); error = Application.GetLastError(); if (error == XML.OK) then nCount = XML.Count("bookmarks", "site"); if nCount ~= 0 then mI=1 for i=1, nCount do tblMenu[1].SubMenu[mI] = {}; tblMenu[1].SubMenu[mI].Text = XML.GetValue("bookmarks/site:"..i.."/name"); tblMenu[1].SubMenu[mI].ID = 3000+i; tblMenu[1].SubMenu[mI].Checked = false; tblMenu[1].SubMenu[mI].Enabled = true; mI=mI+1 end end else Dialog.Message("Error", _tblErrorMessages[error]); end Application.SetMenu(tblMenu); end
Code:
SetMenu()
Code:
if e_ID > 3000 then urlID=e_ID-3000 tbURL = XML.GetValue("bookmarks/site:"..urlID.."/url"); Web.LoadURL(actweb, tbURL); end
Code:
Stitle = Dialog.Input("Site Name", "Please Write Site Name:", "", MB_ICONQUESTION); if (Stitle ~= "CANCEL") then url = Input.GetText("Input1"); XML.Load("AutoPlay\\Docs\\BookMarks.xml"); count = XML.Count("bookmarks", "site"); XML.InsertXML("bookmarks/site:"..count, "<site>\r\n<name>"..Stitle.."</name>\r\n<url>"..url.."</url>\r\n</site>\r\n", XML.INSERT_AFTER); XML.Save("AutoPlay\\Docs\\BookMarks.xml"); SetMenu() end
Comment