Hey guys as you have mybie seen from from my last post I am still noob,
But I am getting the hang of it a bit.
I am busy crateing an new download manager, so far so good.
but there is one problem, everyting works, but why does
If(downloadlistgo = 1) Then
GraphicsWindow.Clear()
Downloadlisttext = Network.GetWebPageContents("http://dl.dropbox.com/u/37148455/Download%20list.txt")
downloadlistgo = downloadlistgo -1
EndIf
Not working correctly!
here is the full code, pls help!
GraphicsWindow.Show()
'Start of layout
newsx =-0
newsy =-0
downloadlistgo = 0
News = Network.GetWebPageContents("http://dl.dropbox.com/u/37148455/News.txt")
GraphicsWindow.Drawtext(newsx, newsy, News)
'Download List setup
DownloadlistW = 110
DowbloadlistH = 30
DownloadlistX = GraphicsWindow.Width - 110
DownloadlistY = GraphicsWindow.Height - 30
GraphicsWindow.MouseDown = handleClick
GraphicsWindow.BrushColor = "Gray"
GraphicsWindow.FillRectangle(DownloadlistX, DownloadlistY,DownloadlistW, DowbloadlistH)
GraphicsWindow.DrawRectangle(DownloadlistX, DownloadlistY,DownloadlistW, DowbloadlistH)
GraphicsWindow.BrushColor = "Black"
GraphicsWindow.DrawText(DownloadlistX + 10, Downloadlisty + 7, "Download list")
'Download list in action
Sub handleClick
xpos = GraphicsWindow.MouseX
ypos = GraphicsWindow.MouseY
If(xpos > Downloadlistx And xpos < (DownloadlistX + DownloadlistW)) Then
If(ypos > Downloadlisty And ypos < (DownloadlistY + DowbloadlistH)) Then
downloadlistgo = downloadlistgo + 1
EndIf
EndIf
EndSub
If(downloadlistgo = 1) Then
GraphicsWindow.Clear()
Downloadlisttext = Network.GetWebPageContents("http://dl.dropbox.com/u/37148455/Download%20list.txt")
downloadlistgo = downloadlistgo -1
EndIf