Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros temas > Trucos
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Los mejores trucos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 15-01-2020
Avatar de escafandra
[escafandra] escafandra is offline
Miembro Premium
 
Registrado: nov 2007
Posts: 2.195
Poder: 20
escafandra Tiene un aura espectacularescafandra Tiene un aura espectacular
Obtener las verdaderas coordenadas de una ventana en Windows 10

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.


Código Delphi [-]
function  GetTrueWindowRect(hWin: HWND; var Rect: TRect): BOOL;
type
  PDwmGetWindowAttribute  = function(hWin: HWND; dwAttribute: DWORD; pvAttribute: Pointer; cbAttributeWORD): 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.
Responder Con Cita
  #2  
Antiguo 15-01-2020
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Gracias por compartirlo
Responder Con Cita
  #3  
Antiguo 16-01-2020
Avatar de kurono
[kurono] kurono is offline
Miembro Premium
 
Registrado: jul 2007
Ubicación: Republica Dominicana
Posts: 1.126
Poder: 18
kurono Va por buen camino
¿esto solo ocurre en windows 10? no me habia dado cuenta
Responder Con Cita
  #4  
Antiguo 16-01-2020
Avatar de escafandra
[escafandra] escafandra is offline
Miembro Premium
 
Registrado: nov 2007
Posts: 2.195
Poder: 20
escafandra Tiene un aura espectacularescafandra Tiene un aura espectacular
Cita:
Empezado por kurono Ver Mensaje
¿esto solo ocurre en windows 10? no me habia dado cuenta
En principio sólo lo he observado en Win10. En Win8.1 Los marcos de las ventanas son muy parecidas a Win10 pero el bordes son mas gruesos. Quizás en Win10 han querido dejarlos más finos para que el efecto de poner las ventanas en paralelo, quede un espacio transparente entre ellas de 14 pixels. En Win8.1 quedarían pegadas mientras que en Win10 quedaría un espacio.

Me llamó la atención la discordancia del resultado de GetWindowRect con lo que se ve porque necesitaba enmarcar las ventanas en un proyecto, así que investigué el asunto y publico el truco.


Saludos.
Responder Con Cita
  #5  
Antiguo 16-01-2020
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.233
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Gracias.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #6  
Antiguo 17-01-2020
Avatar de kurono
[kurono] kurono is offline
Miembro Premium
 
Registrado: jul 2007
Ubicación: Republica Dominicana
Posts: 1.126
Poder: 18
kurono Va por buen camino
aaahh ok gracias por la explicacion
Responder Con Cita
  #7  
Antiguo 26-01-2020
hal1967 hal1967 is offline
Miembro
 
Registrado: feb 2012
Posts: 32
Poder: 0
hal1967 Va por buen camino
Muy agradecido. Esto me lleva a revisar algún código que me fallaba
Responder Con Cita
  #8  
Antiguo 27-04-2020
Julibest Julibest is offline
Registrado
 
Registrado: abr 2020
Posts: 2
Poder: 0
Julibest Va por buen camino
chevre ni sabia esos trucos
Responder Con Cita
  #9  
Antiguo 27-04-2020
Avatar de MAXIUM
MAXIUM MAXIUM is offline
Miembro
 
Registrado: may 2005
Posts: 1.485
Poder: 20
MAXIUM Va camino a la fama
Gracias.

Esto lo podemos aunar a un código que distinga si la APP corre sobre Win10, 8.1 o 7
Responder Con Cita
  #10  
Antiguo 28-04-2020
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.233
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
¿Sabemos si tiene algo que ver con los temas?
¿Si desactivo temas en Windows 10 el valor será correcto?
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Obtener Coordenadas de un Form deliriun Varios 2 22-04-2015 05:04:57
Obtener Coordenadas X, Y en un DBGRID al hacer click lechefrita Conexión con bases de datos 3 09-03-2007 14:42:15
Verdaderas frases celebres Arcioneo La Taberna 17 16-11-2006 21:48:39
pasar coordenadas gps a coordenadas builder iaav1 C++ Builder 3 03-07-2006 20:59:02
Verdaderas razones para no usar InterBase Open Source 6.0.1 Equinoxe Firebird e Interbase 8 28-01-2006 02:16:08


La franja horaria es GMT +2. Ahora son las 20:52:39.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi