Bekomme Schrift nicht Schwarz und hintergrund weiß

  • Guten Tag,

    ich bastel nun schon ne stunde rum und bekomme es nicht hin.
    Ev bin ich zu doof oder übersehe etwas.

    Spoiler anzeigen
    [autoit]

    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <GuiStatusBar.au3>
    #include <WindowsConstants.au3>
    #include <Date.au3>

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

    AdlibRegister("tick", 1000)
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 200, 200, 200, 200)
    $MenuItem2 = GUICtrlCreateMenu("MenuItem2")
    $MenuItem3 = GUICtrlCreateMenuItem("MenuItem3", $MenuItem2)
    $MenuItem1 = GUICtrlCreateMenu("MenuItem1")
    $MenuItem4 = GUICtrlCreateMenuItem("MenuItem4", $MenuItem1)
    $Uhrzeit = GUICtrlCreateButton("Uhrzeit:", 8, 16, 60, 17)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    GUICtrlSetState(-1, $GUI_DISABLE)
    $clock = GUICtrlCreateInput("Uhrzeit", 100, 16, 50, 17, BitOR($ES_AUTOHSCROLL,$WS_BORDER))
    GUICtrlSetColor(-1, 0x000000)
    GUICtrlSetState(-1, $GUI_DISABLE)
    $StatusBar1 = _GUICtrlStatusBar_Create($Form1)
    _GUICtrlStatusBar_SetMinHeight($StatusBar1, 17)

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

    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] [autoit][/autoit] [autoit]

    Func tick()
    GUICtrlSetData($clock, _NowTime())
    EndFunc

    [/autoit]

    Ich würde nun jedoch gern die Schrift in Schwarz haben und den Hintergrund bei der Textbox weiß.
    Es soll am ende so aussehen, als ob der Button nach vorne zu einem her angehoben ist und die Box von einem weg eingebettet wurde.

    Ev hat jemand ne idee.
    Gruß

    Einmal editiert, zuletzt von JaySini (16. Mai 2011 um 10:38)

    • Offizieller Beitrag

    Das mit dem Button liegt am disable. Statt der Inputbox kannst Du für die Anzeige auch ein Label benutzen:

    Spoiler anzeigen
    [autoit]


    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <GuiStatusBar.au3>
    #include <WindowsConstants.au3>
    #include <Date.au3>

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

    AdlibRegister("tick", 1000)
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 200, 200, 200, 200)
    $MenuItem2 = GUICtrlCreateMenu("MenuItem2")
    $MenuItem3 = GUICtrlCreateMenuItem("MenuItem3", $MenuItem2)
    $MenuItem1 = GUICtrlCreateMenu("MenuItem1")
    $MenuItem4 = GUICtrlCreateMenuItem("MenuItem4", $MenuItem1)
    $Uhrzeit = GUICtrlCreateButton("Uhrzeit:", 8, 16, 60, 17)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    ;~ GUICtrlSetState(-1, $GUI_DISABLE)
    $clock = GUICtrlCreateLabel("Uhrzeit", 100, 16, 50, 17, $SS_CENTER, $WS_EX_CLIENTEDGE)
    GUICtrlSetColor(-1, 0x000000)
    GUICtrlSetBkColor(-1, 0xFFFFFF)
    $StatusBar1 = _GUICtrlStatusBar_Create($Form1)
    _GUICtrlStatusBar_SetMinHeight($StatusBar1, 17)

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

    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] [autoit][/autoit] [autoit]

    Func tick()
    GUICtrlSetData($clock, _NowTime())
    EndFunc ;==>tick

    [/autoit]