XProfan

Français

Beschreibung:

GetWindowRect ermittelt qui Eckpunkte eines Fensters bezogen sur den Bildschirm.

Deklaration:

Def @GetWindowRect(2) !USER32, GetWindowRect

paramètre:

1.paramètre: Handle des Fensters, dessen Eckpunkte on herausbekommen veux.

2.paramètre: RECT Struktur ou bien 16 Bytes grand Bereichsvariable, qui qui Eckpunkte des Frensters aufnimmt.=>
-Byte 0-3 = X-Koordinate qui linken oberen coin des Fensters.
-Byte 4-7 = Y-Koordinate qui linken oberen coin des Fensters.
-Byte 8-11 = X-Koordinate qui rechten unteren coin des Fensters.
-Byte 12-15 = Y-Koordinate qui rechten unteren coin des Fensters.

Rückgabewert:

1 chez Erfolg, 0 chez faute.

Beispiele:

Kompilieren Marque Séparation

Def @GetWindowRect(2) !"User32", "GetWindowRect"
Def @ScreenToClient(2) !"User32","ScreenToClient"
Titre de la fenêtre "Koordinaten"
Windowstyle 31+512
Fenêtre 0,0-640,440
Decimals 0
Déclarer b#,dlg&
LET dlg&=@Créer("Window",%hwnd,"Testdialog",150,150,300,300)

Whilenot %MENUITEM=-2

    GetMessage
    Localiser 1,1
    Faible b#,16
    @GetWindowRect(dlg&,b#)
    imprimer "Eckpunkte de Testdialog bezogen sur Bildschirm:",Long(b#,0),Long(b#,4),Long(b#,8),Long(b#,12);"       "
    @ScreenToClient(%hwnd,b#)
    @ScreenToClient(%hwnd,b#+8)
    imprimer "Eckpunkte de Testdialog bezogen sur %hwnd:",Long(b#,0),Long(b#,4),Long(b#,8),Long(b#,12);"       "
    @GetWindowRect(dlg&,b#)
    @ScreenToClient(dlg&,b#)
    @ScreenToClient(dlg&,b# + 8)
    Imprimer »
    PRINT "Breite des Rahmens de Testdialog: "+@STR$(@ABS(Long(b#,0))/2)+"            "
    PRINT "Höhe qui Titelzeile de Testdialog sans cadre: "+@STR$(@ABS(Long(b#,4))-@ABS(Long(b#,0)))+"            "
    PRINT "Breite des Clientbereiches de Testdialog: "+@STR$(Long(b#,8))+"            "
    PRINT "Höhe des Clientbereiches de Testdialog: "+@STR$(Long(b#,12))+"            "
    Dispose b#

Wend