PC Toledo

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 ??

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

Perfeito colega, eh isto mesmo que eu precisava. Valew :xau