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