21 lines
299 B
Text
21 lines
299 B
Text
|
' Gambas class file
|
||
|
|
|
||
|
|
Public Sub AddDownload(hDownload As WebDownload)
|
||
|
|
|
||
|
|
Dim hForm As FDownload
|
||
|
|
|
||
|
|
hForm = New FDownload(svwDownload)
|
||
|
|
hForm.Init(hDownload)
|
||
|
|
|
||
|
|
End
|
||
|
|
|
||
|
|
Public Sub timRefresh_Timer()
|
||
|
|
|
||
|
|
Dim hForm As FDownload
|
||
|
|
|
||
|
|
For Each hForm In svwDownload.Children
|
||
|
|
hForm.Redraw
|
||
|
|
Next
|
||
|
|
|
||
|
|
End
|