XProfan

' fix window pos - Georg Teles * 03.11.2018
'
' diese Funktion bringt das Fenster in den sichtbaren Bereich, bei Überbreite / -höhe wird die
' erste Koordinate des aktuellen Monitors gewählt (Überbreite x = 0 bzw. die 0-te Koordinate
' Überhöhe y = 0 bzw. die 0-te Koordinate des aktuellen Monitors, wo das Fenster sich è
' init      - Par. 1: Fensterhandle, wenn 0 trasferimento wird, dann wird Handle = %hWNd
'                     ( liest beim Ersten mal die Koordinaten des Fensters ein )
' fixwndpos - Par. 1: Fensterhandle, wenn 0 trasferimento wird, dann wird Handle = %hWNd
'             Par. 2: Mode: 0 = in den sichtbaren Bereich holen / ausrichten
'                               ( Aktion vorangehend oder aufgrund negativer bzw. nicht mehr
'                               existierender Koordinaten zb. nach Grafikkonfiguration in den
'                               sichtbaren Bereich holen, nachdem das Fenster positioniert wurde )
'                           1 = ausschöießlich auf dem aktuellen (startet auf primären) Monitor verschiebbar
'                           2 / sonstiger Wert = frei verschiebbares Fenster, auch auf andere
'                               Monitore, korrigiert im Nachhinein die Position im sichtbaren Bereich
' deinit    - keine Par., löscht Variablen
 $U fixWndPos.pcu = fwp_' keinen Punkt verwenden, da es intern < ?_mon#.?_cbSize& = SizeOf(?_mon#) >
' die Dimensione des Bereiches definiert wird und zu Fehlern kommt !
Set("ErrorLevel", 0)
WindowStyle 31+512
' Fenster positionieren
Window (-20),(-20) - 200,100
fwp_init(%hWnd)
Usermessages $201
'SetTimer 1000

While 1 = 1

    WaitInput

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

        Break

    EndIf

    ' ausrichten bei Aktion hier: Timer
    'If %wmTimer
    'fwp_fixwndpos(%hWnd, 0) ' holt in sichtbaren Bereich
    'EndIf
    ' ausrichten

    If %uMessage = $201

        fwp_fixwndpos(%hWnd, 1)' aktueller Monitor nur !
        'fwp_fixwndpos(%hWnd, 2) ' frei positionierbar, korrigiert im Nachhinein Position

    EndIf

EndWhile

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