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
-
kachenco
- Usuário Nível 1
- Mensagens: 7
- Registrado em: 15 Fev 2006 16:53
- Localização: Americana - SP - Brasil
- Contato:
Como saber a resolução do desktop que o cliente esta usando
Celso Zacarchenco Junior
EMotta Sistemas
xHb.com ( Enterprise )
EMotta Sistemas
xHb.com ( Enterprise )
-
FARLEY RIBEIRO
- Usuário Nível 2
- Mensagens: 89
- Registrado em: 24 Jul 2007 10:26
- Localização: MONTES CLAROS-MG
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)