2 respuestas en este tema

[escafandra]

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:
 


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

function  GetTrueWindowRect(hWin: HWND; var Rect: TRect): BOOL;
type
  PDwmGetWindowAttribute  = function(hWin: HWND; dwAttribute: DWORD; pvAttribute: Pointer; cbAttribute:DWORD): HRESULT; stdcall; //Dwmapi.dll
var
  hLib: HMODULE;
  _DwmGetWindowAttribute: PDwmGetWindowAttribute;
begin
  Result:= GetWindowRect(hWin, Rect);
  if Win32MajorVersion >= 6 then
  begin
    hLib:= LoadLibrary('Dwmapi.dll');
    @_DwmGetWindowAttribute:= GetProcAddress(hLib, 'DwmGetWindowAttribute');
    if @_DwmGetWindowAttribute <> nil then
      Result:= (0 = _DwmGetWindowAttribute(hWin, 9 {DWMWA_EXTENDED_FRAME_BOUNDS}, @Rect, sizeof(TRect)));
    FreeLibrary(hLib);
  end;
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.

[escafandra]

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

cpp

BOOL GetTrueWindowRect(HWND hWnd, RECT* Rect)
{
  typedef int (__stdcall *PDwmGetWindowAttribute)(HWND hwnd, DWORD dwAttribute, PVOID pvAttribute, DWORD cbAttribute); //Dwmapi.dll
  BOOL Result = GetWindowRect(hWnd, Rect);
  if(Win32MajorVersion >= 6){
    HMODULE hLib = LoadLibrary("Dwmapi.dll");
    PDwmGetWindowAttribute _DwmGetWindowAttribute = (PDwmGetWindowAttribute)GetProcAddress(hLib, "DwmGetWindowAttribute");
    if(_DwmGetWindowAttribute)
      Result = 0 == _DwmGetWindowAttribute(hWnd, 9 /*DWMWA_EXTENDED_FRAME_BOUNDS*/, Rect, sizeof(RECT));
    FreeLibrary(hLib);
  }
  return Result;
}

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

 

Saludos..

[egostar]

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