on *:dialog:dccbar:init:0: {
$mdx.load
mdx SetDialog $dname style
mdx SetControlMDX $dname 2 listview report infotip single rowselect > $mircdir $+ \script\mdx\views.mdx
did -i $dname 2 1 headerdims 319 150 130 130 130 130 130 150
did -i $dname 2 1 headertext Filename $chr(9) User Name $chr(9) Status $chr(9) Size $chr(9) $chr(37) Complete $chr(9) Rate $chr(9) Time Left $chr(9) Elasped Time
did -i $dname 2 1 setbkg color $color($color(background))
did -i $dname 2 1 settxt bgcolor $color($color(background))
did -i $dname 2 1 settxt color $color($color(normal text))
mdx SetFont $dname 2 -10 700 Tahoma
dll script\dlls\hOS.dll DockWindow $dname bottom
did -i $dname 2 1 seticon normal 0 72,script\icons\beos.icl
did -i $dname 2 1 seticon normal 0 71,script\icons\beos.icl
}
on *:dialog:dccbar:dclick:2: {
[color:red]/windows -x get[/color]
}
alias dccbar {
if (!$dialog(dccbar)) { dialog -m dccbar dccbar }
else { dll script\dlls\hOS.dll UndockWindow $dname bottom }
}
alias dccbar.update {
if ($dialog(dccbar)) {
var %sel = $did(dccbar,2).sel
if ($calc($get(0) + $send(0)) != $calc($did(dccbar,2).lines -1)) { goto refresh }
var %g = 1
while $get(%g) {
did -o dccbar 2 $calc(%g +1) +r 1 $chr(160) $get(%g).file $chr(9) $get(%g) $chr(9) $cap($get(%g).status) $chr(9) $regsize($get(%g).size,1) $chr(9) $get(%g).pc $+ % $chr(9) $round($calc($get(%g).cps /1024),1) kb/s $chr(9) $sduration($calc(($get(%g).size - $get(%g).rcvd) / $get(%g).cps)).sec $chr(9) $sduration($get(%g).secs).sec $chr(4) Nick: $get(%g) $crlf File: $get(%g).file $crlf Progress: $get(%g).pc $+ %
inc %g
}
var %g = 1
while $send(%g) {
did -o dccbar 2 $calc(%g + $get(0) +1) +r 2 $chr(160) $send(%g).file $chr(9) $send(%g) $chr(9) $cap($send(%g).status) $chr(9) $regsize($send(%g).size,1) $chr(9) $send(%g).pc $+ % $chr(9) $round($calc($send(%g).cps /1024),1) kb/s $chr(9) $sduration($calc(($send(%g).size - $send(%g).rcvd) / $send(%g).cps)).sec $chr(9) $sduration($send(%g).secs).sec $chr(4) Nick: $send(%g) $crlf File: $send(%g).file $crlf Progress: $send(%g).pc $+ %
inc %g
}
did -c dccbar 2 %sel
goto end
:refresh
did -r dccbar 2
var %g = 1
while $get(%g) {
did -a dccbar 2 $calc(%g +1) +r 1 $chr(160) $get(%g).file $chr(9) $get(%g) $chr(9) $cap($get(%g).status) $chr(9) $regsize($get(%g).size,1) $chr(9) $get(%g).pc $+ % $chr(9) $round($calc($get(%g).cps /1024),1) kb/s $chr(9) $sduration($calc(($get(%g).size - $get(%g).rcvd) / $get(%g).cps)).sec $chr(9) $sduration($get(%g).secs).sec $chr(4) Nick: $get(%g) $crlf File: $get(%g).file $crlf Progress: $get(%g).pc $+ %
inc %g
}
var %g = 1
while $send(%g) {
did -a dccbar 2 +r 2 $calc(%g + $get(0) +1) 2 $chr(160) $send(%g).file $chr(9) $send(%g) $chr(9) $cap($send(%g).status) $chr(9) $regsize($send(%g).size,1) $chr(9) $send(%g).pc $+ % $chr(9) $round($calc($send(%g).cps /1024),1) kb/s $chr(9) $sduration($calc(($send(%g).size - $send(%g).rcvd) / $send(%g).cps)).sec $chr(9) $sduration($send(%g).secs).sec $chr(4) Nick: $send(%g) $crlf File: $send(%g).file $crlf Progress: $send(%g).pc $+ %
inc %g
}
:end
}
}
alias cap {
return $upper($mid($1-,1,1)) $+ $mid($1-,2,$len($1-))
}
alias title {
if ($dialog(dccbar)) { dccbar.update }
}
alias regsize {
var %s = $1
if ($len(%s) <= 4) { return $round($calc(%s /1024),$2) KB }
elseif ( $len(%s) > 4 && $len(%s) <= 6) { return $round($calc(%s /1024),$2) KB }
elseif ($len(%s) >= 7) { return $round($calc($calc(%s /1024) /1024),$2) MB }
}
