XProfan

' fix window pos - Georg Teles * 03.11.2018
'
' esta Función bringt el Ventana en el sichtbaren Zona, en Überbreite / -höhe se el
' erste Koordinate des aktuellen Monitors gewählt (Überbreite x = 0 o. el 0-te Koordinate
' Überhöhe y = 0 o. el 0-te Koordinate des aktuellen Monitors, wo el Ventana se befindet
' init      - Par. 1: Fensterhandle, si 0 transferencia se, Luego se Handle = %hWNd
'                     ( liest beim Ersten veces el Koordinaten la ventana una )
' fixwndpos - Par. 1: Fensterhandle, si 0 transferencia se, Luego se Handle = %hWNd
'             Par. 2: Mode: 0 = en el sichtbaren Zona holen / ausrichten
'                               ( Aktion vorangehend oder aufgrund negativer o. no mehr
'                               existierender Koordinaten zb. después de Grafikkonfiguration en el
'                               sichtbaren Zona holen, después de el Ventana positioniert wurde )
'                           1 = ausschöießlich en el aktuellen (startet en primären) Monitor verschiebbar
'                           2 / sonstiger Valor = frei verschiebbares Ventana, auch en otro
'                               Monitore, korrigiert en el Nachhinein el Position en el sichtbaren Zona
' deinit    - no Par., löscht Variables
 $U fixWndPos.pcu = fwp_' no Punkt uso, como lo intern < ?_mon#.?_cbSize& = SizeOf(?_mon#) >
' el Größe des Bereiches definiert se y a Fehlern kommt !
Conjunto("ErrorLevel", 0)
Ventana de Estilo 31+512
' Ventana positionieren
Ventana (-20),(-20) - 200,100
fwp_init(%hWnd)
Usermessages $201
'SetTimer 1000

Mientras que 1 = 1

    WaitInput

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

        Romper

    EndIf

    ' ausrichten en Aktion hier: Temporizador
    'If %wmtimer
    'fwp_fixwndpos(%hWnd, 0) ' holt en sichtbaren Zona
    'EndIf
    ' ausrichten

    If %uMessage = $201

        fwp_fixwndpos(%hWnd, 1)' aktueller Monitor sólo !
        'fwp_fixwndpos(%hWnd, 2) ' frei positionierbar, korrigiert en el Nachhinein Position

    EndIf

EndWhile

'KillTimer
' aufräumen
fwp_deinit()
Imprimir "aufgeräumt !"
Sleep 300