XProfan

' fix window pos - Georg Teles * 03.11.2018
'
' cet Funktion bringt cela la fenêtre dans den sichtbaren Bereich, chez Überbreite / -höhe wird qui
' erste Koordinate des aktuellen Monitors gewählt (Überbreite x = 0 bzw. qui 0-te Koordinate
' Überhöhe y = 0 bzw. qui 0-te Koordinate des aktuellen Monitors, wohin cela la fenêtre sich est
' init      - Par. 1: Fensterhandle, si 0 transfert wird, ensuite wird Handle = %hWNd
'                     ( liest beim Ersten fois le Koordinaten des Fensters un )
' fixwndpos - Par. 1: Fensterhandle, si 0 transfert wird, ensuite wird Handle = %hWNd
'             Par. 2: Mode: 0 = dans den sichtbaren Bereich holen / ausrichten
'                               ( Aktion vorangehend ou bien aufgrund negativer bzw. pas plus
'                               existierender Koordinaten zb. pour Grafikkonfiguration dans den
'                               sichtbaren Bereich holen, après que cela la fenêtre positionné wurde )
'                           1 = ausschöießlich sur dem aktuellen (startet sur primären) Monitor verschiebbar
'                           2 / sonstiger Wert = libre verschiebbares la fenêtre, aussi sur autre
'                               Monitore, korrigiert im Nachhinein qui Position im sichtbaren Bereich
' deinit    - aucun Par., löscht Variablen
 $U fixWndPos.pcu = fwp_' keinen Punkt verwenden, là es interne < ?_mon#.?_cbSize& = SizeOf(?_mon#) >
' qui Taille des Bereiches défini wird et trop Fehlern venez !
Set("ErrorLevel", 0)
Fenêtre Style 31+512
' la fenêtre positionieren
Fenêtre (-20),(-20) - 200,100
fwp_init(%hWnd)
Usermessages $201
'SetTimer 1000

Tandis que 1 = 1

    WaitInput

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

        Pause

    EndIf

    ' ausrichten chez Aktion ici: Minuteur
    'Si %wmtimer
    'fwp_fixwndpos(%hWnd, 0) ' holt dans sichtbaren Bereich
    'EndIf
    ' ausrichten

    Si %uMessage = $201

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

    EndIf

Endwhile

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