farbe und format von eine uhr wechseln???

  • Tag zusammen, habe 2 fragen:
    und zwar: wie könnte ich den timer verschieben so das er unter dem strich auf dem bild ist. also teilweise auf dem bild und etwas unter dem bild.
    2:ist das möglich das der timer auf dem unsichtbaren hintergrund ist? also das er kein ramen, gar nix hat?
    2b: kann man format alsö: größe(sollte vl was größer sein um an den bild anzupassen/format(sollte vl was süßer aussehen) :) / und die farbe(vl pink(da es für einem mädchen ist)

    Ich hoffe mir kann einer weiter helfen.
    Vielen dank in voraus!!!

    [autoit]

    #Include <StaticConstants.au3>
    #Include <WindowsConstants.au3>
    #include <GUIConstants.au3>
    #include <Date.au3>
    #NoTrayIcon
    HotKeySet("+!i", "exitProg")
    Global $IDC_PICTURE, $IDC_EXIT, $MainGUI

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

    $Width = 306
    $MainGUI = GUICreate("timer", _
    $Width, 236, @DesktopWidth - $Width, 0, _
    $WS_POPUP, BitOR ($WS_EX_TOOLWINDOW, $WS_EX_LAYERED))

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

    $IDC_PICTURE = GUICtrlCreatePic(@ScriptDir & "\lll.gif", _
    0, 0, 0, 0, _
    BitOR ($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS), _
    $GUI_WS_EX_PARENTDRAG)

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

    $IDC_EXIT = GUICtrlCreateButton("exit", 0, 0, 0, 0)

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

    GUICtrlSetState ($IDC_EXIT, $GUI_ONTOP)

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

    GUISetState(@SW_SHOW)

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

    $bStop = False

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

    Do
    $iDiff = _DateDiff('s', '2010/01/01 00:00:00', _NowCalc())
    ToolTip(_SecondsToDateTime($iDiff), @DesktopWidth / 2 - 100, 2, '', 1, 4)
    Sleep(500)
    Until $bStop
    Exit

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

    While TRUE
    Switch GUIGetMsg()
    Case $IDC_EXIT
    ExitLoop
    EndSwitch
    WEnd

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

    Func _Stop()
    $bStop = True
    EndFunc

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

    Func _SecondsToDateTime($iSeconds, $iLang = 1)
    If $iLang < 0 Or $iLang > 1 Then $iLang = 0
    Local $sOut = '', $bCheck = False, $bNegative = False, $aDiv[5] = [2592000, 86400, 3600, 60, 1]
    Local $aFormat[5][2] = [['M', 'M.'],['Tage', 'D.'],['Stunden', 'H.'],['Minuten', 'Min.'],['Sekunden', 'Sec.']]
    If $iSeconds = 0 Then Return '0 ' & $aFormat[4][$iLang]
    If $iSeconds < 0 Then
    $bNegative = True
    $iSeconds = Abs($iSeconds)
    EndIf
    For $i = 0 To 4
    If ($iSeconds >= $aDiv[$i]) Or $bCheck Then
    $sOut &= Int($iSeconds / $aDiv[$i]) & ' '
    If Int($iSeconds / $aDiv[$i]) = 1 Then
    $sOut &= StringTrimRight($aFormat[$i][$iLang], 1) & ', '
    Else
    $sOut &= $aFormat[$i][$iLang] & ', '
    EndIf
    $bCheck = True
    EndIf
    $iSeconds = Mod($iSeconds, $aDiv[$i])
    Next
    If $bNegative Then $sOut = ' - ' & $sOut
    Return StringTrimRight($sOut, 2)
    EndFunc

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

    Func ExitProg()
    Exit 0
    EndFunc

    [/autoit]
  • Ich hoffe du nimmst mir nicht übel dass ich es mal umgebastelt hab^^
    so würds schonmal ganz gut aussehn.

    Spoiler anzeigen
    [autoit]

    #Include <StaticConstants.au3>
    #Include <WindowsConstants.au3>
    #include <GUIConstants.au3>
    #include <Date.au3>
    #NoTrayIcon
    HotKeySet("+!i", "exitProg")
    AdlibRegister("UpdateTime", 100)

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

    Global $IDC_PICTURE, $IDC_EXIT, $MainGUI, $iDiffold
    Local $Width = 306

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

    $MainGUI = GUICreate("timer", _
    $Width, 236, @DesktopWidth - $Width, 0, _
    $WS_POPUP, BitOR ($WS_EX_TOOLWINDOW, $WS_EX_LAYERED))

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

    $IDC_PICTURE = GUICtrlCreatePic(@ScriptDir & "\lll.gif", _
    0, 0, 0, 0, _
    BitOR ($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS), _
    $GUI_WS_EX_PARENTDRAG)

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

    $IDC_EXIT = GUICtrlCreateButton("X", 260, 20, 15, 15)
    GUICtrlSetState ($IDC_EXIT, $GUI_ONTOP)

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

    $IDC_TIME = GUICtrlCreateLabel("", 60, 100, 190, 15); so ist es auf dem bild ;)
    GUICtrlSetFont($IDC_TIME, 10, 500, 0, "Harlow Solid Italic"); wenn du die schriftart nicht hast nimm ne andere schöne
    GUICtrlSetColor($IDC_TIME, 0xC71585); hier ist die pinke farbe
    GUICtrlSetBkColor($IDC_TIME, 0x000000); das ist der schwarze hintergrund

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

    GUISetState(@SW_SHOW)

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

    While TRUE
    Switch GUIGetMsg()
    Case $IDC_EXIT
    Exit
    EndSwitch
    WEnd

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

    Func ExitProg()
    Exit 0
    EndFunc

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

    Func UpdateTime()
    $iDiffnew = _DateDiff('s', '2010/01/01 00:00:00', _NowCalc())
    If $iDiffold <> $iDiffnew Then
    Guictrlsetdata($IDC_TIME, _SecondsToDateTime($iDiffnew))
    $iDiffold = $iDiffnew
    EndIf
    EndFunc

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

    Func _SecondsToDateTime($iSeconds, $iLang = 1)
    If $iLang < 0 Or $iLang > 1 Then $iLang = 0
    Local $sOut = '', $bCheck = False, $bNegative = False, $aDiv[5] = [2592000, 86400, 3600, 60, 1]
    Local $aFormat[5][2] = [['M', 'M.'],['Tage', 'D.'],['Stunden', 'H.'],['Minuten', 'Min.'],['Sekunden', 'Sec.']]
    If $iSeconds = 0 Then Return '0 ' & $aFormat[4][$iLang]
    If $iSeconds < 0 Then
    $bNegative = True
    $iSeconds = Abs($iSeconds)
    EndIf
    For $i = 0 To 4
    If ($iSeconds >= $aDiv[$i]) Or $bCheck Then
    $sOut &= Int($iSeconds / $aDiv[$i]) & ' '
    If Int($iSeconds / $aDiv[$i]) = 1 Then
    $sOut &= StringTrimRight($aFormat[$i][$iLang], 1) & ', '
    Else
    $sOut &= $aFormat[$i][$iLang] & ', '
    EndIf
    $bCheck = True
    EndIf
    $iSeconds = Mod($iSeconds, $aDiv[$i])
    Next
    If $bNegative Then $sOut = ' - ' & $sOut
    Return StringTrimRight($sOut, 2)
    EndFunc

    [/autoit]

    Zu deinen drei fragen lautet die antwort übrigens JA
    Hab an den stellen im script kommentare eingefügt ;)

  • danke erst mals, aber da stimmt irgendwas nicht mit zeile7:adlibregister. mmm sorry bin kein profi mit autoit aber muss man nnicht dafür dann extra Func machen????
    P.S. sie können den script testen, der war funktionizibel ;)

  • Sehr schön :)

    wenn das Problem gelöst ist könntest du es als gelöst markieren
    einfach den ersten post editieren, das Präfix auf gelöst setzen und Absenden ;)