Saber pulgadas de un monitor

[roman]

Tiene lógica tu pregunta pero creo que todos pensamos en la resolución porque lo usual es adaptar tus formularios a la resolución con la que el usuario quiere ver su monitor y no cambiarle sus preferencias. Dicho de otra forma, lo "correcto" es adaptar tu aplicación al ambiente y no el ambiente a tu aplicación.

No creo que sea posible saber exáctamente las medidas físicas del monitor pero puedes intentar con esto:

Código Delphi [-]
var
  Wnd: HWnd;
  DC: HDC;
  HSize, VSize: Integer;

begin
  Wnd := GetDesktopWindow();
  DC := GetDC(Wnd);

  HSize := GetDeviceCaps(DC, HORZSIZE);
  VSize := GetDeviceCaps(DC, VERTSIZE);

  Caption := Format('%d x %d', [HSize, VSize]);
end;

EDITO

Lo olvidaba: las medidas devueltas se supone que están en milímetros.

// Saludos

[[Lepe]]

¿Me han timado con mi monitor?

Código Delphi [-]
Format('%d x %d %F pulgadas', [HSize, VSize,  SQRT(IntPower(VSize ,2)+ IntPower(HSIZE, 2))/25.4])

Teniendo en cuenta que las pulgadas son en la diagonal de la pantalla, y que Una pulgada son 25.4 milímetros, segun pitagorin me sale 15,60 pulgadas, y yo compré uno de 17''

Edito: La diagonal ppal si me da 400 milímetros y medidos con regla es eso, ¿estoy haciendo mal el cálculo?

[ContraVeneno]

Pues se supone que yo tengo un monitor de 15 pulgadas (configurado a 1024x768) y me da el mismo resultado: "320x240 15.75 pulgadas". Y según pitagorin parace que esta bien el cálculo.

Por otro lado, por alguna extraña razón no puedo usar la función IntPower me marca "missing operator or semicolon" en la línea:
Diag:=IntPower(VSize,2);

si, agregue la unidad Math.

[roman]

Empezado por ContraVeneno

Por otro lado, por alguna extraña razón no puedo usar la función IntPower me marca "missing operator or semicolon" en la línea:
Diag:=IntPower(VSize,2);

¿Estás seguro de que el operador o punto y coma faltante no es el de la línea anterior? Cuando esto sucede el compilador se detiene en la siguiente línea.

// Saludos

[roman]

¿Has tomado una regla y medido tu monitor?

No sé en qué se base GetDeviceCaps para tales medidas. Debo aclarar que le referencia donde consulté esto es el clásico libro Programming Windows 95 de Charles Petzold quien indica que las medidas se basan en ciertos estándares y no es algo que proporcione directamente el driver del monitor.

Además las medidas suelen diferir de lo que el comerciante anuncia. En mi caso, mi laptop se anunciaba con un monitor de 15.2 pulgadas y sin embargo su superficie visible era exactamente igual a la del monitor de 17 pulgadas de mi computadora de escritorio.

Si lo que el fabricante anuncia no coincide con la realidad, pues dudo que haya una forma fidedigna de obtener estas medidas.

De cualquier manera, reitero mi opinión muy personal. Si instalo una aplicación que me cambia la resolución de mi monitor, es seguro que la desinstale al momento.

// Saludos

[vtdeleon]

Saludos

Código Delphi [-]
Format('%d x %d %F pulgadas', [HSize, VSize,  SQRT(IntPower(VSize ,2)+ IntPower(HSIZE, 2))/25.4])

No funciona bien del todo
Tengo una lapto de 15 pulgadas en:
1024x768 = 270x 203 13.30 pulgadas
800x600 = 211 x 158 10.38 pulgadas

[ContraVeneno]

Así es Roman, de hecho estaba pensando que hubiera sido mejor poner:

Código Delphi [-]
  HSize := GetDeviceCaps(DC, HORZSIZE);
  Diag:=IntPower(VSize,2); //Error en esta línea
  VSize := GetDeviceCaps(DC, VERTSIZE);

que haber puesto una sola línea, pero bueno... Muchas veces me he topado con ese error y en muchos lenguajes diferentes y precisamente por ser el error más común fue lo que me pareció más extraño.