OLá PessoALL,
Estou tentando gerar um dialog que precisa acompanhar a dimensao de largura do desktop do cliente, mas nao estou conseguindo obter o tamanho dele, aguem sabe como posso fazer isso ??
Como saber a resolução do desktop que o cliente esta usando
Moderador: Moderadores
3 Mensagens • Página 1 de 1
Como saber a resolução do desktop que o cliente esta usando
por kachenco » 01 Nov 2007 13:37
Celso Zacarchenco Junior
EMotta Sistemas
xHb.com ( Enterprise )
EMotta Sistemas
xHb.com ( Enterprise )
-
kachenco Usuário NÃvel 1 
- Mensagens: 7
- Data de registro: 15 Fev 2006 15:53
- Cidade/Estado: Americana - SP - Brasil
- Curtiu: 0 vez
- Mens.Curtidas: 0 vez
por FARLEY RIBEIRO » 01 Nov 2007 14:38
Olá veja se essa rotina ajuda...
Abraços
Farley
Use esta função no inÃcio do seu Sistema.
Function Main()
PRIVATE aCoo:={}, wRESOLUCAO:=0
aCoor = GetCoors(GetDesktopWindow())
IF aCoor[4]=640 .and. aCoor[3]=480
wRESOLUCAO:=1
ELSEIF aCoor[4]=800 .and. aCoor[3]=600
wRESOLUCAO:=2
ELSEIF aCoor[4]=1024 .and. aCoor[3]=768
wRESOLUCAO:=3
ELSEIF aCoor[4]=1280 .and. aCoor[3]=1024
wRESOLUCAO:=4
ELSEIF aCoor[4]=1600 .and. aCoor[3]=1200
wRESOLUCAO:=5
ENDIF
Abraços
Farley
Use esta função no inÃcio do seu Sistema.
Function Main()
PRIVATE aCoo:={}, wRESOLUCAO:=0
aCoor = GetCoors(GetDesktopWindow())
IF aCoor[4]=640 .and. aCoor[3]=480
wRESOLUCAO:=1
ELSEIF aCoor[4]=800 .and. aCoor[3]=600
wRESOLUCAO:=2
ELSEIF aCoor[4]=1024 .and. aCoor[3]=768
wRESOLUCAO:=3
ELSEIF aCoor[4]=1280 .and. aCoor[3]=1024
wRESOLUCAO:=4
ELSEIF aCoor[4]=1600 .and. aCoor[3]=1200
wRESOLUCAO:=5
ENDIF
Borland BCC(5.51)/PellesC(5.01)/Fivewin(2.6)/xHarbour.org(0.99.50)/Med(3.02)/DBFNTX/DBFCDX /WvWToools(0.83)
-
FARLEY RIBEIRO Usuário NÃvel 2 
- Mensagens: 82
- Data de registro: 24 Jul 2007 10:26
- Cidade/Estado: MONTES CLAROS-MG
- Curtiu: 0 vez
- Mens.Curtidas: 0 vez
por kachenco » 01 Nov 2007 14:45
Perfeito colega, eh isto mesmo que eu precisava. Valew :xau
Celso Zacarchenco Junior
EMotta Sistemas
xHb.com ( Enterprise )
EMotta Sistemas
xHb.com ( Enterprise )
-
kachenco Usuário NÃvel 1 - Mensagens: 7
- Data de registro: 15 Fev 2006 15:53
- Cidade/Estado: Americana - SP - Brasil
- Curtiu: 0 vez
- Mens.Curtidas: 0 vez
Ver tópicos ativos •
3 Mensagens • Página 1 de 1
Quem está online
Usuários vendo este fórum: Nenhum usuário registrado online e 3 visitantes

Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
