XProfan

' fix window pos - Georg Teles * 03.11.2018
'
' these function brings Window into visible area, with Überbreite / -höhe becomes The
' first Koordinate the current Monitors chosen (Überbreite x = 0 or. The 0-th Koordinate
' Überhöhe y = 0 or. The 0-th Koordinate the current Monitors, where the window itself befindet
' init      - Par. 1: Fensterhandle, if 0 transfer becomes, then becomes lever = %hWNd
'                     ( reads at first times the Coordinates the Fensters one )
' fixwndpos - Par. 1: Fensterhandle, if 0 transfer becomes, then becomes lever = %hWNd
'             Par. 2: fashion: 0 = into visible area fetch / report
'                               ( action vorangehend or because of negativer or. not any more
'                               existierender Coordinates zb. to Grafikkonfiguration into
'                               visible area fetch, after the window positioniert watts )
'                           1 = ausschöießlich on the actually (launch on primären) Monitor verschiebbar
'                           2 / sonstiger worth = spare verschiebbares Window, on others
'                               monitors, korrigiert in the Nachhinein The position in the visible area
' deinit    - no Par., deletes variables
 $u fixWndPos.pcu = fwp_' none point use, there it intern < ?_mon#.?_cbSize& = SizeOf(?_mon#) >
' The Size the Bereiches definiert and is To Fehlern comes !
Set("ErrorLevel", 0)
Window Style 31+512
' Window positionieren
Window (-20),(-20) - 200,100
fwp_init(%hWnd)
User Messages $201
'SetTimer 1000

While 1 = 1

    WaitInput

    If (%Key = 2) | (%Key = 27)

        Break

    EndIf

    ' report with action here: Timer
    'If %wmtimer
    'fwp_fixwndpos(%hWnd, 0) ' fetch in visible area
    'EndIf
    ' report

    If %uMessage = $201

        fwp_fixwndpos(%hWnd, 1)' current Monitor only !
        'fwp_fixwndpos(%hWnd, 2) ' spare positionierbar, korrigiert in the Nachhinein position

    EndIf

EndWhile

'KillTimer
' straighten up
fwp_deinit()
Print "aufgeräumt !"
Sleep 300