Transparent Label in Progressbar

[bordomavi]

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>

$title = "MOZILLA"
$downloadurl = "https://ftp.mozilla.org/pub/mozilla.org/firefox/releases/latest/win32/tr/Firefox%20Setup%2032.0.exe"
$downloadlocation = @DesktopDir&"\Setup.exe"

Download($downloadurl, $downloadlocation)

Func Download($address, $dest)
    Local $gui = GUICreate($title, 615, 209, 192, 124,$WS_CAPTION,$WS_EX_TOOLWINDOW)
    Local $gprogress = GUICtrlCreateProgress(56, 64, 513, 73)
    Local $close = GUICtrlCreateButton("Cancel", 96, 152, 433, 41, BitOR($BS_FLAT,$BS_ICON))
    GUICtrlSetTip(-1,"Closes download","Cancel",2)
    Local $glabel = GUICtrlCreateLabel("Download Starting...",136, 80, 372, 41)

    GUISetState(@SW_SHOW)
    WinSetOnTop($title,"", 1)

    Local $downloaded = 0
    Local $hDownload = InetGet($address,$dest,1,1)

    Do
        $msg = GUIGetMsg()
        Select
            Case $msg = 0
                Local $aData = InetGetInfo($hDownload)
                $nsize = Round($aData[0]/1048576,2)
                $ntotal = Round($aData[1]/1048576,2)
                $dspeed = AutoSizeFormat(($aData[0]-$downloaded)*2)
                $downloaded = $aData[0]
                GUICtrlSetData($gprogress,Round($nsize*100/$ntotal,2))
                If $aData[0] <> "" Then
                    GUICtrlSetData($glabel,"%"&Round($nsize*100/$ntotal, 0)&" Finished - "&$nsize&"/"&$ntotal&" MB ("&$dspeed&")")
                EndIf
                Sleep(500)
            Case $msg = $close
                InetClose($hDownload)
                GUIDelete($gui)
                FileDelete($dest)
                TraySetState(1)
                TrayTip($title, "Downloading canceled.", 5, 4)
                Sleep(5000)
                Exit
        EndSelect
    Until InetGetInfo($hDownload,2)

    GUICtrlSetData($gprogress, 100)
    InetClose($hDownload)
    Sleep(500)
    GUIDelete($gui)
EndFunc


Func AutoSizeFormat($size)
    If $size < 1024 Then
        $size = $size & " Byte/sn"
    ElseIf $size > 1024 AND $size < 1024 * 1024 Then
        $size = (Round($size / 1024, 2) & " KB/sn")
    ElseIf $size > 1024 * 1024 AND $size < 1024 * 1024 * 1024 Then
        $size = (Round($size / 1024 / 1024, 2) & " MB/sn")
    ElseIf $size > 1024 * 1024 * 1024 AND $size < 1024 * 1024 * 1024 * 1024 Then
        $size = (Round($size / 1024 / 1024 / 1024, 2) & " GB/sn")
    EndIf
    Return $size
EndFunc

How can i make transparent this Label.

Edited September 5, 2014 by bordomavi

[BrewManNH]

Try this.

[bordomavi]

Try this.

Is this forum for say "Search in google" ? I looked all topics about this and can't do it. then i asked here.

[UEZ]

Try

Local $glabel = GUICtrlCreateLabel("Download Starting...",136, 80, 372, 41)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)

Cim Bom Bom forever 

Br,

UEZ

[bordomavi]

Try

Local $glabel = GUICtrlCreateLabel("Download Starting...",136, 80, 372, 41)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)

Cim Bom Bom forever 

Br,

UEZ

i know this but it is not 100% visible while progress running

[kylomas]

Your label is on top of your progress bar...

[bordomavi]

Your label is on top of your progress bar...

Yes. it must be on top of progress bar. 

[kylomas]

OK, it's working as UEZ said...just hard to see