Windows LiveWindows Live™
 
 
Carlos's profileLIBs Gráfica para (x)Har...BlogListsNetwork Tools Help

Blog
    8/5/2008

    Testar a resolução do cliente


    Para saber a resolução usada no computador do cliente use a seguinte função:

    ***************************************************
    * Funcao.....:   ValidaResolucao()
    * Proposito..:   Validar a resolução minima do sistema
    * Parametros.:  
    * Retorna....:   .T. se a resolução é maior que 800x600
    * Observacao.:  
    *
    Function  ValidaResolucao()
        if getdesktopwidth()<800 .or. getdesktopheight()<600
           msginfo('800 x 600 ou maior requerida','Erro: Resolução de Vídeo')
           Return .F.
        endif
    Return .T.


    Carlos Alberto Nunes Susviela
    Santana do Livramento - RS
    Power Informática.


    12:34 PM | Add a comment | Permalink | Blog it | Programando Lib - ooHG