text darstellen?

    Hi leute kann man iwie einen text also ne txt in einer gui darstellen mit transparentem hintergrund?

    ich habe es versucht mit einer editbox aber die kann man ja nicht transparent machen^^
    weil ich nen kleinen launcher basteln möchte der news von einer txt darstellt aber mit dem dofen hintergrund der editbox is das öde^^

    mein bisheriger quelltext is so:

    [autoit]

    #include <INet.au3>
    #include <GUIConstants.au3>

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

    Dim $Serverurl = "http://slash.5x.to/"
    Dim $File = "test.txt"
    $sText = _INetGetSource($Serverurl & $File)

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

    $head = "head.BMP"
    $bg = "bg.BMP"

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

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("WoW Server Launcher", 381, 289, -1, -1)
    GUISetBkColor(0xFFFFFF)
    GUICtrlCreatePic($bg,0,0,381,289)
    GUICtrlSetState(-1,$GUI_DISABLE)
    GUICtrlCreatePic($head,0,0,381,31)
    $Edit1 = GUICtrlCreateEdit("", 5, 48, 377, 169, 0, 0)
    GUICtrlSetData(-1, $sText)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    GUICtrlSetState(-1, $GUI_DISABLE)
    $Button1 = GUICtrlCreateButton("About", 8, 261, 65, 25, 0)
    $Button2 = GUICtrlCreateButton("Visit", 80, 261, 65, 25, 0)
    $Button3 = GUICtrlCreateButton("Start", 288, 245, 81, 41, 0)
    $Button4 = GUICtrlCreateButton("Del Cache", 152, 261, 65, 25, 0)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit

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

    EndSwitch
    WEnd

    [/autoit]

    Ich glaube durchsichtig geht nicht aber ich habe es mal ein bissel umdesignt wenn du es so willst kannste das nehmen

    Spoiler anzeigen
    [autoit]

    #include <Inet.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    Dim $Serverurl = "http://slash.5x.to/"
    Dim $File = "test.txt"
    $sText = _INetGetSource($Serverurl & $File)
    If FileExists("C:\slash\image\BGS.bmp") Then
    _Haupt()
    Else
    DirCreate("C:\slash\image")
    FileInstall("About.bmp","C:\slash\image\About.bmp")
    FileInstall("Visit.bmp","C:\slash\image\Visit.bmp")
    FileInstall("DelCache.bmp","C:\slash\image\DelCache.bmp")
    FileInstall("Start.bmp","C:\slash\image\Start.bmp")
    FileInstall("Minimieren.bmp","C:\slash\image\Minimieren.bmp")
    FileInstall("Close.bmp","C:\slash\image\Close.bmp")
    FileInstall("BGS.bmp","C:\slash\image\BGS.bmp")
    Sleep(500)
    _Haupt()
    EndIf
    Func _Haupt()
    $Form1 = GUICreate("WoW Server Launcher", 380, 290, -1, -1,$WS_POPUP)
    GUISetBkColor(0x000000)
    $Edit1 = GUICtrlCreateEdit("", 2, 48, 376, 161,0,0)
    GUICtrlSetBkColor(-1,0x000000)
    GUICtrlSetColor(-1,0xffffff)
    GUICtrlSetData(-1, $sText)
    GUICtrlSetFont(-1, 9, 800, 0, "MS Sans Serif")
    GUICtrlSetState(-1, $GUI_DISABLE)
    $Pic1 = GUICtrlCreatePic("C:\slash\image\About.bmp", 8, 235, 100, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $Pic2 = GUICtrlCreatePic("C:\slash\image\Visit.bmp", 128, 235, 100, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $Pic3 = GUICtrlCreatePic("C:\slash\image\DelCache.bmp", 256, 256, 100, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $Pic4 = GUICtrlCreatePic("C:\slash\image\Start.bmp", 256, 216, 100, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $Pic5 = GUICtrlCreatePic("C:\slash\image\Minimieren.bmp", 342, 1, 18, 18, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $Pic6 = GUICtrlCreatePic("C:\slash\image\Close.bmp", 361, 1, 18, 18, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $Pic7 = GUICtrlCreatePic("C:\slash\image\BGS.bmp", 0, 0, 380, 290, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$WS_DISABLED))
    GUICtrlCreateLabel("",0,0,380,290,0,$GUI_WS_EX_PARENTDRAG)
    GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
    GUISetState(@SW_SHOW)
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Pic1
    _AnimButton($Form1, $Pic1)
    _About()
    Case $Pic2
    _AnimButton($Form1, $Pic2)
    _Visit()
    Case $Pic3
    _AnimButton($Form1, $Pic3)
    _delcache()
    Case $Pic4
    _AnimButton($Form1, $Pic4)
    _Start()
    Case $Pic5
    _AnimButton($Form1, $Pic5)
    _Mini()
    Case $Pic6
    _AnimButton($Form1, $Pic6)
    _Close()
    EndSwitch
    WEnd
    EndFunc
    Func _Start()
    ;Deine Funktion für Start
    EndFunc
    Func _About()
    ;Deine Funktion für about
    EndFunc
    Func _Visit()
    ;Deine Funktion für Visit
    EndFunc
    Func _Delcache()
    ;Deine Funktion für Del Cache
    EndFunc
    Func _Mini()
    GUISetState(@sw_minimize,$Form1)
    Endfunc
    Func _Close()
    Exit
    EndFunc
    Func _AnimButton($IDgui, $IDbtn, $delay=100);Animiert bilder als button, funktion an sich von BugFix
    Local $pos = ControlGetPos($IDgui, '', $IDbtn)
    Local $pWin = WinGetPos($IDgui)
    ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1]+2, $pos[2]-2, $pos[3]-2)
    Sleep($delay)
    ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1], $pos[2], $pos[3])
    EndFunc ;==> _AnimButton

    [/autoit]

    Im anhang sind die Bilder


    Mfg Eistee^^

    ..... hammer ........ o0 ....... keine ahnung was ich nun sagen soll xD.... EXTREM HAMMER^^

    würdest du mir villt dabei ein bischen helfen über icq oder so? weil ich ein paar andere grafiken nehmen wollte^^

    wenn mir helfen möchtest hier meine icq nummer: 376721036