help about label blink

[loveau3]

Please do not blink Thanks a lot

If I were to do with PNG background jitter do not know why the more powerful

please help me!~~ thanks

here's Script!~

expandcollapse popup

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

#include <GUIConstantsEx.au3>


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

#include <File.au3>
#include <Array.au3>
#include <StaticConstants.au3>
#include <Constants.au3>



#Region ### START Koda GUI section ### Form=
$GUI = GUICreate("test gui", 595, 79, 193, @DesktopHeight-110,$WS_POPUP,$WS_EX_LAYERED)
GUISetBkColor(0xABCDEF)
_API_SetLayeredWindowAttributes($GUI, 0xABCDEF)

;SetBitmap($GUI, $hImage, 0)
; Register notification messages
GUIRegisterMsg($WM_NCHITTEST, "WM_NCHITTEST")
$Group1 = GUICtrlCreateGroup("Bulletin", 2, 8, 590, 57)
$Label1 = GUICtrlCreateLabel("Please do not blink Thanks a lot !!!   this is test!~~~", 580, 32, 572, 17,$SS_CENTERIMAGE)
GUICtrlSetBkColor(-1, 0x00ff00)     ; Green
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
;_API_SetLayeredWindowAttributes($GUI, 0x010101) 

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$b = 1
While 1
if $b = 580 Then 
$b = 1
EndIf
sleep (10)
ControlMove ($GUI,"", $Label1, 580-$b, 32, 572, 17)
$b +=2
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit

        EndSwitch
    WEnd
    Func WM_NCHITTEST($hWnd, $iMsg, $iwParam, $ilParam)
    If ($hWnd = $GUI) And ($iMsg = $WM_NCHITTEST) Then Return $HTCAPTION
EndFunc   ;==>WM_NCHITTEST


Func _API_SetLayeredWindowAttributes($hwnd, $i_transcolor, $Transparency = 255, $isColorRef = False)
        Local Const $AC_SRC_ALPHA = 1
        Local Const $ULW_ALPHA = 2
        Local Const $LWA_ALPHA = 0x2
        Local Const $LWA_COLORKEY = 0x1
        If Not $isColorRef Then
                $i_transcolor = Hex(String($i_transcolor), 6)
                $i_transcolor = Execute('0x00' & _
                                                StringMid($i_transcolor, 5, 2) & StringMid($i_transcolor, 3, 2) & StringMid($i_transcolor, 1, 2))
        EndIf
        Local $Ret = DllCall("user32.dll", "int", "SetLayeredWindowAttributes", "hwnd", $hwnd, _
                                                 "long", $i_transcolor, "byte", $Transparency, "long", $LWA_COLORKEY + $LWA_ALPHA)
        Select
                Case @error
                        Return SetError(@error, 0, 0)
                Case $Ret[0] = 0
                        Return SetError(4, 0, 0)
                Case Else
                        Return 1
        EndSelect
EndFunc

Edited May 9, 2010 by loveau3

[Melba23]

loveau3,

The text does not blink for me, but yout label is taking part of the Group line with it as it scrolls.

You might be interested in the Marquee UDF in my signature - it does pretty much what you are looking to do.

M23