cant list items ???

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts
  • GoOgLe
    Forum Member
    • Mar 2007
    • 452

    cant list items ???

    i cant list the items in BookMarks.xml file on the menu !!! need help

    On Button Click (Button18):
    Code:
    tblMenu = {};
    tblMenu[1] ={};
    tblMenu[1].Text = "Favourites";
    tblMenu[1].ID = 100;
    tblMenu[1].Checked = false;
    tblMenu[1].Enabled = true;
    tblMenu[1].SubMenu = {};
    Btn = Button.GetPos("Button18");
    Y_Change = 45
    X_Coordinate = Btn.X
    Y_Coordinate = Btn.Y + Y_Change
    Return = Application.ShowPopupMenu(X_Coordinate, Y_Coordinate, tblMenu, TPM_LEFTALIGN, TPM_TOPALIGN, true, true)
    	XML.Load("AutoPlay\\Docs\\Favourites.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("Hata", _tblErrorMessages[error]);
    	end
    if Return > 3000 then
    urlID=Return-3000
    tbURL = XML.GetValue("bookmarks/site:"..urlID.."/url");
    Web.LoadURL("Web1", tbURL);
    end
    Last edited by GoOgLe; 04-15-2008, 01:37 AM.
  • screwed over
    Forum Member
    • Apr 2007
    • 176

    #2
    try changing
    Code:
    			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
    to
    Code:
    			for i=2, nCount, 1 do
    				tblMenu[1].SubMenu[i] = {};
    				tblMenu[1].SubMenu[i].Text = XML.GetValue("bookmarks/site:"..i.."/name");
    				tblMenu[1].SubMenu[i].ID = 3000+i;
    				tblMenu[1].SubMenu[i].Checked = false;
    				tblMenu[1].SubMenu[i].Enabled = true;
    			end

    Comment

    • GoOgLe
      Forum Member
      • Mar 2007
      • 452

      #3
      still the same !!!

      Code:
      tblMenu = {};
      tblMenu[1] ={};
      tblMenu[1].Text = "Favourites";
      tblMenu[1].ID = 100;
      tblMenu[1].Checked = false;
      tblMenu[1].Enabled = true;
      tblMenu[1].SubMenu = {};
      Btn = Button.GetPos("Button18");
      Y_Change = 45
      X_Coordinate = Btn.X
      Y_Coordinate = Btn.Y + Y_Change
      Return = Application.ShowPopupMenu(X_Coordinate, Y_Coordinate, tblMenu, TPM_LEFTALIGN, TPM_TOPALIGN, true, true)
      	XML.Load("AutoPlay\\Docs\\Favourites.xml");
      	error = Application.GetLastError();
      	if (error == XML.OK) then
      		nCount = XML.Count("bookmarks", "site");
      		if nCount ~= 0 then
      			mI=1
      			for i=2, nCount, 1 do
      				tblMenu[1].SubMenu[i] = {};
      				tblMenu[1].SubMenu[i].Text = XML.GetValue("bookmarks/site:"..i.."/name");
      				tblMenu[1].SubMenu[i].ID = 3000+i;
      				tblMenu[1].SubMenu[i].Checked = false;
      				tblMenu[1].SubMenu[i].Enabled = true;
      			end
      		end
      	else    
      	    Dialog.Message("Error", _tblErrorMessages[error]);
      	end
      if Return > 3000 then
      urlID=Return-3000
      tbURL = XML.GetValue("bookmarks/site:"..urlID.."/url");
      Web.LoadURL("Web1", tbURL);
      end
      Last edited by GoOgLe; 04-15-2008, 02:24 AM.

      Comment

      • GoOgLe
        Forum Member
        • Mar 2007
        • 452

        #4
        solved the problem

        Comment

        • screwed over
          Forum Member
          • Apr 2007
          • 176

          #5
          would you care to share how? i might find it useful for other applications.

          Comment

          • GoOgLe
            Forum Member
            • Mar 2007
            • 452

            #6
            Code:
            tblMenu = {};
            tblMenu[1] ={};
            tblMenu[1].Text = "Favourites";
            tblMenu[1].ID = 100;
            tblMenu[1].Checked = false;
            tblMenu[1].Enabled = true;
            tblMenu[1].SubMenu = {};
            XML.Load("AutoPlay\\Docs\\Favourites.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
            Btn = Button.GetPos("Button18");
            Y_Change = 45
            X_Coordinate = Btn.X
            Y_Coordinate = Btn.Y + Y_Change
            Return = Application.ShowPopupMenu(X_Coordinate, Y_Coordinate, tblMenu, TPM_LEFTALIGN, TPM_TOPALIGN, true, true)
            	
            if Return > 3000 then
            urlID=Return-3000
            tbURL = XML.GetValue("bookmarks/site:"..urlID.."/url");
            Web.LoadURL("Web1", tbURL);
            end

            Comment

            Working...
            X