Lauftext

1. offizieller Beitrag

    Hallo

    kann mir jemand erklären wie ich auf einer normalen Oberfläche einen Lauftext erstelle.
    Dieser soll dann von Rechts nach Links über meine GUI laufen.

    Vielen Dank
    TKH

    Ja richtig am besten auf einem Label.

    [autoit]


    $gui = GUICreate("Oberfläche",1024,768,-1,-1,$WS_POPUP) ; will create a dialog box that when displayed is centered

    [/autoit][autoit][/autoit][autoit]

    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)

    Opt("GUICoordMode",1)
    Opt("WinTitleMatchMode", 2)

    [/autoit][autoit][/autoit][autoit]

    $myKategorie = GUICtrlCreateCombo ("", 180,170,500,40) ;
    GUICtrlSetFont ($myKategorie,18, 500, 0, $font)
    GUICtrlSetData($myKategorie, $ZuZeigen[0][0] & "|", $ZuZeigen[0][0])
    for $i = 1 to $AnzahlFiles-1
    $ret = _GUICtrlComboBox_FindString($myKategorie,$ZuZeigen[$i][0] )
    If($ret = $CB_ERR) Then
    GUICtrlSetData($myKategorie, $ZuZeigen[$i][0] & "|")
    EndIf
    Next

    [/autoit][autoit][/autoit][autoit][/autoit][autoit]

    $myList = GUICtrlCreateListView ( "Text|Typ|Pfad", 180, 220 , 500 , 300 ,$LVS_SHOWSELALWAYS + $LVS_SINGLESEL + $LVS_NOCOLUMNHEADER )
    GUICtrlSetFont ($myList,18, 500, 0, $font)
    FillMyList()

    $font="Franklin Gothic Book"
    GUICtrlCreateLabel ("EATON News:",180, 550, 200, 100)
    GUICtrlSetFont (-1,17, 500, 0, $font)

    GUICtrlCreateLabel ("DIESER TEXT SOLL LAUFEN" ,180, 600,500,120)
    GUICtrlSetFont (-1,12, 500, 0, $font)

    [/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit]

    Hier mit Adlibenable:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    $gui = GUICreate("Oberfläche",1024,768,-1,-1,$WS_POPUP) ; will create a dialog box that when displayed is centered
    $font="Franklin Gothic Book"

    [/autoit] [autoit][/autoit] [autoit]


    Opt("GUICoordMode",1)
    Opt("WinTitleMatchMode", 2)

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlCreateLabel ("EATON News:",180, 550, 200, 100)
    GUICtrlSetFont (-1,17, 500, 0, $font)
    $Scrolltext = "DIESER TEXT SOLL LAUFEN"
    $Scrolllabel = GUICtrlCreateLabel ($Scrolltext ,180, 600,500,120)
    GUICtrlSetFont (-1,12, 500, 0, $font)
    GUISetState()
    AdlibEnable("_Scroll",300)
    While 1
    If GUIGetMsg() = $GUI_EVENT_CLOSE Then Exit
    WEnd

    Func _Scroll()
    $txt = GUICtrlRead($Scrolllabel)
    $space = ""
    If $txt = $Scrolltext Then $txt &= " -- "
    $txt = StringTrimLeft($txt,1) & StringLeft($txt,1)
    GUICtrlSetData($Scrolllabel,$txt)
    EndFunc

    [/autoit]