[решено] ToolTip в правом нижнем углу

madmasles · Конфигурация компьютера

beve,
У меня на XP SP3 эта функция неправильно определяет угол, если в Свойствах панели задач и меню "Пуск" стоит "галка" Автоматически скрывать панель задач. С этой "галкой" у меня так работает:

Код:

HotKeySet('{ESC}', 'MyExit') ;Esc - выход

$aPosTray = ControlGetPos('[Class:Shell_TrayWnd]', '', '[CLASS:TrayNotifyWnd; INSTANCE:1]')
$aPosWindow = ControlGetPos('[Class:Progman]', '', '[CLASS:SysListView32; INSTANCE:1]')
While 1
    If $aPosWindow[3] = @DesktopHeight Then
        $aPosMouse = MouseGetPos()
        If $aPosMouse[1] > @DesktopHeight - 3 Then
            ToolTip('Test ToolTip', @DesktopWidth - 100, @DesktopHeight - $aPosTray[3] - 16)
        EndIf
        If $aPosMouse[1] < @DesktopHeight - $aPosTray[3] - 12 Then
            ToolTip('Test ToolTip', @DesktopWidth - 100, @DesktopHeight - 16)
        EndIf
    Else
        ToolTip('Test ToolTip', @DesktopWidth - 100, $aPosWindow[3] - 16)
    EndIf
    Sleep(100)
WEnd

Func MyExit()
    Exit
EndFunc   ;==>MyExit