Stanis Luksys escreveu:Ola,
Existe alguma funcao no harbour / miniGUI para saber a resolucao de tela utilizada pelo PC?
Agradeco.
Código: Selecionar todos
#include "minigui.ch"
func main()
local w := getdesktopwidth() , h := getdesktopheight()
define window teste ;
at 0,0 ;
width 535 ;
height 350 ;
title 'Resolução' ;
main ;
icon nil
@ 200,180 label l1 value 'Lagura :' width 300 height 24 font 'arial' size 10 bold
@ 240,180 label l2 value 'Altura :' width 300 height 24 font 'arial' size 10 bold
@ 200,250 label l3 value str(w) width 300 height 24 font 'arial' size 10 bold
@ 240,250 label l4 value str(h) width 300 height 24 font 'arial' size 10 bold
end window
teste.center()
teste.activate()
return nil