RESOLUCAO DE TELA

[Stanis Luksys]

Ola,

Existe alguma funcao no harbour / miniGUI para saber a resolucao de tela utilizada pelo PC?

Agradeco.

[Antonio]

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