Ir al contenido



Foto

[MULTILENGUAJE] Obtener las verdaderas coordenadas de una ventana en Windows 10


  • Por favor identifícate para responder
2 respuestas en este tema

#1 escafandra

escafandra

    Advanced Member

  • Moderadores
  • PipPipPip
  • 3.946 mensajes
  • LocationMadrid - España

Escrito 15 enero 2020 - 06:18

El titulo puede parecer curioso pero me torturé la cabeza cuando me di cuenta de que en Win 10 las coordenadas del TRect devuelto por la API GetWindoRect ha dejado de ser correctas. En concreto:
 
1.- Top es correcto
2.- Left se desplaza 7 pixels a la izquierda
3.- Right se desplaza 7 pixels a la deracha
4.- Bottom de desplaza 7 pixels hacia abajo
 
Curiosamente en ese marco de 7 pixels ,a API WindowFromPoint Localiza la ventana con lo que parece que ese margen que parece que no es de la ventana y que es transparente, si es la ventana. Lo que parece es que M$ ha querido hacer un efecto visual, de hecho las ventanas en Win8 son un poco mas gruesas en su margen. Lo que parece es que es una especie de herencia del Aero de Vista
 
Todo esto no tendría ningún interés si no quisiésemos localizar con precisión lo que realmente estamos viendo dela ventana, por ejemplo para colocar un margen que nos la localice visualmente con exactitud. Veamos una imagen:
 
e850c1eb0621388cb5474ecd7b0865aeo.jpg73c0592b02bbad0b7fd25e26dd90dce4o.jpg

Ahora el tema está en ver como se corrige el aparente error.
 

La base es la API DwmGetWindowAttribute solicitando el parámetro DWMWA_EXTENDED_FRAME_BOUNDS y nos devolverá el rectángulo visual de la ventana.


delphi
  1. function GetTrueWindowRect(hWin: HWND; var Rect: TRect): BOOL;
  2. type
  3. PDwmGetWindowAttribute = function(hWin: HWND; dwAttribute: DWORD; pvAttribute: Pointer; cbAttribute:DWORD): HRESULT; stdcall; //Dwmapi.dll
  4. var
  5. hLib: HMODULE;
  6. _DwmGetWindowAttribute: PDwmGetWindowAttribute;
  7. begin
  8. Result:= GetWindowRect(hWin, Rect);
  9. if Win32MajorVersion >= 6 then
  10. begin
  11. hLib:= LoadLibrary('Dwmapi.dll');
  12. @_DwmGetWindowAttribute:= GetProcAddress(hLib, 'DwmGetWindowAttribute');
  13. if @_DwmGetWindowAttribute <> nil then
  14. Result:= (0 = _DwmGetWindowAttribute(hWin, 9 {DWMWA_EXTENDED_FRAME_BOUNDS}, @Rect, sizeof(TRect)));
  15. FreeLibrary(hLib);
  16. end;
  17. end;

El uso de esta función, GetTrueWindowRect, es idéntico a GetWindowRect pero el resultado será el rectángulo corregido si nuestro S.O. es Vista o superior y el clásico en los otros casos.

 

 

Saludos.


  • 2

#2 escafandra

escafandra

    Advanced Member

  • Moderadores
  • PipPipPip
  • 3.946 mensajes
  • LocationMadrid - España

Escrito 15 enero 2020 - 06:22

Como el código original lo escribí en C, aquí os lo dejo:


cpp
  1. BOOL GetTrueWindowRect(HWND hWnd, RECT* Rect)
  2. {
  3. typedef int (__stdcall *PDwmGetWindowAttribute)(HWND hwnd, DWORD dwAttribute, PVOID pvAttribute, DWORD cbAttribute); //Dwmapi.dll
  4. BOOL Result = GetWindowRect(hWnd, Rect);
  5. if(Win32MajorVersion >= 6){
  6. HMODULE hLib = LoadLibrary("Dwmapi.dll");
  7. PDwmGetWindowAttribute _DwmGetWindowAttribute = (PDwmGetWindowAttribute)GetProcAddress(hLib, "DwmGetWindowAttribute");
  8. if(_DwmGetWindowAttribute)
  9. Result = 0 == _DwmGetWindowAttribute(hWnd, 9 /*DWMWA_EXTENDED_FRAME_BOUNDS*/, Rect, sizeof(RECT));
  10. FreeLibrary(hLib);
  11. }
  12. return Result;
  13. }

Como podéis observar es prácticamente idéntico al escrito para delphi con las particularidades propias de cada lenguaje

 

Saludos..


  • 2

#3 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 14.130 mensajes
  • LocationMéxico

Escrito 16 enero 2020 - 11:15

En los pequeños detalles radica la perfección mi estimado amigo.

 

Algo que pareciera sin importancia para algunos (incluyendome) le has puesto la cereza del pastel :)

 

Saludos (y)


  • 1