XProfan

Español

Descripción:

GetWindowRect ermittelt el Eckpunkte uno Fensters bezogen en el Bildschirm.

Deklaration:

Def @GetWindowRect(2) !USER32, GetWindowRect

Parámetro:

1.Parámetro: Handle la ventana, dessen Eckpunkte uno herausbekommen voluntad.

2.Parámetro: RECT Struktur oder 16 Bytes große Bereichsvariable, el el Eckpunkte des Frensters aufnimmt.=>
-Byte 0-3 = X-Koordinate el linken oberen Ecke la ventana.
-Byte 4-7 = Y-Koordinate el linken oberen Ecke la ventana.
-Byte 8-11 = X-Koordinate el rechten unteren Ecke la ventana.
-Byte 12-15 = Y-Koordinate el rechten unteren Ecke la ventana.

Rückgabewert:

1 en Erfolg, 0 en Fehler.

Beispiele:

Kompilieren Marca Separación

Def @GetWindowRect(2) !"USER32", "GetWindowRect"
Def @ScreenToClient(2) !"USER32","ScreenToClient"
Título de la ventana "Koordinaten"
Windowstyle 31+512
Ventana 0,0-640,440
Decimals 0
Declarar b#,dlg&
LET dlg&=@Crear("Window",%hwnd,"Testdialog",150,150,300,300)

Sinestar encargado %MENUITEM=-2

    GetMessage
    Localizar 1,1
    Dim b#,16
    @GetWindowRect(dlg&,b#)
    imprimir "Eckpunkte de Testdialog bezogen en Bildschirm:",Largo(b#,0),Largo(b#,4),Largo(b#,8),Largo(b#,12);"       "
    @ScreenToClient(%hwnd,b#)
    @ScreenToClient(%hwnd,b#+8)
    imprimir "Eckpunkte de Testdialog bezogen en %hwnd:",Largo(b#,0),Largo(b#,4),Largo(b#,8),Largo(b#,12);"       "
    @GetWindowRect(dlg&,b#)
    @ScreenToClient(dlg&,b#)
    @ScreenToClient(dlg&,b# + 8)
    Imprimir ""
    PRINT "Breite des Rahmens de Testdialog: "+@STR$(@ABS(Largo(b#,0))/2)+"            "
    PRINT "Höhe el Titelzeile de Testdialog sin Rahmen: "+@STR$(@ABS(Largo(b#,4))-@ABS(Largo(b#,0)))+"            "
    PRINT "Breite des Clientbereiches de Testdialog: "+@STR$(Largo(b#,8))+"            "
    PRINT "Höhe des Clientbereiches de Testdialog: "+@STR$(Largo(b#,12))+"            "
    Disponer b#

Wend