Is there a way display text (selectable if possible) over GUICtrlCreateProgress ?

[VAN0]

Hello.

I've been trying display some text with transparent background inside a progress bar. it kind of worked, but the text/progress bar flickers.. also, if I use GUICtrlCreateEdit then it shows colored background.

#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>

GUICreate("Text over progress bar", 200, 40)

$progress = GUICtrlCreateProgress(5, 5, 190, 30, $PBS_SMOOTH)
$text = GUICtrlCreateEdit("", 90, 9, 50, 20, 0x0800) ;text shows on white background
;$text = GUICtrlCreateLabel("", 90, 9, 50, 20) ;text shows with transparent background
GUICtrlSetBkColor(-1, -2)
GUISetState()
$p = 0
$d = 1
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
    If $p > 500 Then $d = -1
    If $p < 1 Then $d = 1
    $p += $d
    GUICtrlSetData($progress, Round($p/5, 1))
    GUICtrlSetData($text, Round($p/5, 1))
    Sleep(50)
WEnd

Any ideas how this can it be fixed?

Thank you.

Edited May 29, 2010 by VAN0

[jaberwacky]

The numbers would move too fast for them to be selectable anyway.

[VAN0]

True, but I was going to use same gui element to display something else when progress bar is not in use. But anyhow if text not selectable - it wouldn't be a problem, I can always hide the label element and replace it with edit when needed and vice versa. The main concern is the flickering...

I would really like use windows native progress bar instead of a simulator, but if it's the only way, then oh well.

[jaberwacky]

Have you seen ProgressOn()?

[VAN0]

Yes I have, but it's not what I was looking for.

Anyway, I've abandon this idea and now displaying very thin 4 pixels high progress bar below the text, doesn't look too bad.

[taietel]

 Maybe this will help (You have to make the label size equal to the progress and then set the transparency):

#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#Include <StaticConstants.au3>

GUICreate("Text over progress bar", 200, 40)
$progress = GUICtrlCreateProgress(5, 5, 190, 30, $PBS_SMOOTH)
$text = GUICtrlCreateLabel("0%", 5, 10, 190, 30, $SS_CENTER)
GUICtrlSetBkColor ($text, $GUI_BKCOLOR_TRANSPARENT)
;GUICtrlSetFont($text, 9, 800)
GUISetState()
$p = 0
;$d = 1
Do
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
            For $i = $p To 100
                    $p = 0
                    GUICtrlSetData($progress, $i)
                    GUICtrlSetData($text, $i & '%')
                    Sleep(100)
            Next
            If $i > 100 Then
                       $p=0
                GUICtrlSetData($text, "Done!")
                Sleep(1500)
                Exit
            EndIf
Until $nMsg = $GUI_EVENT_CLOSE

GUIDelete()

Exit

Edited May 30, 2010 by taietel

[andygo]

reply after a long time..... but:

is it possible to prevent the text from flickering? cant't figure it out....

[Slym]

reply after a long time..... but:

is it possible to prevent the text from flickering? cant't figure it out....

Try changing the label only if it is different from the actual value. (avec un test if GuiCTrlReadValue ....)

[Zedna]

#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>

GUICreate("Text over progress bar", 200, 40)

$progress = GUICtrlCreateProgress(5, 5, 190, 30, $PBS_SMOOTH)
$text = GUICtrlCreateLabel("", 5, 12, 190, 30, $SS_CENTER) ;text shows on white background
GUICtrlSetColor(-1, 0x008000) ; choose some color which will be visible on progress background and also foreground
GUICtrlSetBkColor(-1, -2)
GUISetState()
$p = 0
$d = 1
$value = 0
$value_prev = 0

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
    If $p > 500 Then $d = -1
    If $p < 1 Then $d = 1
    $p += $d
    $value = StringFormat('%.1f', Round($p/5, 1))
    If $value <> $value_prev Then
        GUICtrlSetData($progress, $value)
        GUICtrlSetData($text, $value)
        $value_prev = $value
    EndIf
    Sleep(50)
WEnd

Here is antiflicker modification.

Ideal for label color would be some type of XOR painting so it should paint by different color depended on its backround

but I don't know how to achieve this by some simple trick.

[andygo]

@Zenda:

thank you, i modified it a little bit, so that setting the controls is in a timer-function.

have a look at it. for one second everything is fine, for the next second, the text-label is invisible,

then its visible again for a second and so on.....

expandcollapse popup

#include <StaticConstants.au3>
#include <EditConstants.au3>
#include <ComboConstants.au3>
#include <GuiConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <Timers.au3>
#Include <Misc.au3>
#include <Constants.au3>
#include <INet.au3>
#Include <GuiButton.au3>
#Include <Clipboard.au3>
#Include <ScreenCapture.au3>
#include <GDIPlus.au3>
#include <GDIP.au3>
#include <file.au3>
#include <unixtime.au3>
#Include <Array.au3>
#include "StringSize.au3"
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>

$maingui = GUICreate("Text over progress bar", 200, 40)

$progress = GUICtrlCreateProgress(5, 5, 190, 30, $PBS_SMOOTH)
$text = GUICtrlCreateLabel("", 5, 12, 190, 30, $SS_CENTER) ;text shows on white background
GUICtrlSetColor(-1, 0x008000) ; choose some color which will be visible on progress background and also foreground
GUICtrlSetBkColor(-1, -2)
GUISetState()
$p = 0
$d = 1
$value = 0
$value_prev = 0
_Timer_SetTimer($maingui,1000,"addup")
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
    #cs;If $p > 500 Then $d = -1
    If $p < 1 Then $d = 1
    $p += $d
    $value = StringFormat('%.1f', Round($p/5, 1))
    If $value <> $value_prev Then
        GUICtrlSetData($progress, $value)
        GUICtrlSetData($text, $value)
        $value_prev = $value
    #ce;EndIf
    Sleep(50)
WEnd
_Timer_KillAllTimers($maingui)
func addup($a, $b, $c, $d)
    $value += 1
    If $value <> $value_prev Then
        GUICtrlSetData($progress, $value)
        GUICtrlSetData($text, $value)
        $value_prev = $value
    EndIf
endfunc