SplashTextOn problem

[Alexz]

I'm using simple script on different computers(windows xp). It shows on splash screen coordinates and color under cursor. On some PCs text starting from the position which one line lower and 1-2 simbols to the right. On this PCs I need to make double height window to see a text.

This is probably not AutoIt problem. I think this is something about metrics. May be somebody can show me a direction where to dig inside windows. Which parameters SplashTextOn using from windows?

[guinness]

Check that you have the correct Options set in the [Optional] parameter "opt". Otherwise failing that create a GUI with $WS_POPUP as the Style!

[somdcomputerguy]

Help others help you. Post the script you're having these difficulties with.

[Alexz]

I'm not using any Options sets.

expandcollapse popup

#Include <Misc.au3>

If _Singleton("MouseInfo",1) = 0 Then
    Exit
EndIf

HotKeySet("{TAB}", "Get")
HotKeySet("{DOWN}", "Down")
HotKeySet("{UP}", "Up")
HotKeySet("{LEFT}", "Left")
HotKeySet("{RIGHT}", "Right")
HotKeySet("!x", "Close")

Dim $chek[5] = [0,0,0,0,0]
$mir = -20
$count = 0

Do
    $p = MouseGetPos()
    $col = PixelGetColor($p[0], $p[1])
    If $p[0] > @DesktopWidth-170 Then
        $mir = 165
    Else
        $mir = -20
    EndIf
    $chek[0] = ""& $p[0] & ", " & $p[1] & " " & $col &" "& @DesktopDepth

    SplashTextOn("", "0=" & $chek[0] &@LF&"1="& $chek[1] &@LF&"2="& $chek[2] &@LF&"3="& $chek[3] &@LF&"4="& $chek[4], _
                160, 35+15*$count, $p[0]-$mir, $p[1], 5, "Tahoma", 9)
    Sleep(250)
Until 0

;#############################################
Func Up()
    MouseMove($p[0], $p[1]-1, 1)
EndFunc
;#############################################
Func Down()
    MouseMove($p[0], $p[1]+1, 1)
EndFunc
;#############################################
Func Left()
    MouseMove($p[0]-1, $p[1], 1)
EndFunc
;#############################################
Func Right()
    MouseMove($p[0]+1, $p[1], 1)
EndFunc
;#############################################
Func Get()
    $count = $count+1
    If $count = 5 Then
        ClipPut("")
        $count = 0
        $chek[1] = 0
        $chek[2] = 0
        $chek[3] = 0
        $chek[4] = 0
        Return
    EndIf
    $chek[$count] = $chek[0]
    ClipPut($chek[1] & @CRLF & $chek[2] & @CRLF & $chek[3] & @CRLF & $chek[4] & @CRLF)
EndFunc
;#############################################
Func Close()
    ClipPut("")
    HotKeySet("{TAB}")
    HotKeySet("{DOWN}")
    HotKeySet("{UP}")
    HotKeySet("{LEFT}")
    HotKeySet("{RIGHT}")
    HotKeySet("!x")
    Exit
EndFunc
;#############################################

[somdcomputerguy]

I changed the $count variable from 0 to 1 thru 5. I believe this may have something to do with this issue. If $count is too great, an array subscript error occurs after executing the 'Get' function.

[Alexz]

This is not about errors.

Simple test programm

HotKeySet("!x", "Close")
Do
    SplashTextOn("", "This is test!", 170, 35, -1, -1, 5, "Tahoma", 9)
    Sleep(250)
Until 0
;-----------------------------------
Func Close()
    HotKeySet("!x")
    Exit
EndFunc

Sorry! Can not show screenshots.

Normally it looks:
 ____________________
|This is test!       |
|                    |
|____________________|
But on some PCs :
 ____________________
|                    |
|   This is test!    |
|____________________|