[Antoschka2]

Сам решил

[Creat0R]

Вместо ToolTip можно просто создать Label, а ему уже можно задать и размер, и позицию, и шрифт...
Я бы так сделал:

Код:

#NoTrayIcon
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstants.au3>
#include <Date.au3>

HotKeySet("+!i", "exitProg")

Global $IDC_PICTURE, $IDC_EXIT, $IDC_CLOCK, $MainGUI

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

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

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

$IDC_CLOCK = GUICtrlCreateLabel("", 0, 216, $Width, 30, $SS_CENTER)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetColor(-1, 0xFF80FF)

GUISetState(@SW_SHOW)
AdlibRegister("_SetClock_Proc", 500)

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

Func _SetClock_Proc()
    $iDiff = _DateDiff('s', '2010/01/01 00:00:00', _NowCalc())
    $sDateTime = _SecondsToDateTime($iDiff)

    If GUICtrlRead($IDC_CLOCK) <> $sDateTime Then
        GUICtrlSetData($IDC_CLOCK, $sDateTime)
    EndIf
EndFunc

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

Func _Stop()
    AdlibUnRegister("_SetClock_Proc")
EndFunc

Func ExitProg()
    Exit 0
EndFunc

Сам решил »

Было бы интересно посмотреть как