ScrResolution(), descontrol de dialogos?

[noe aburto]

Saludos

Estimados, uso la funcion ScrResolution() para poder ubicar la ventana principal en cierto lugar de la pantalla (ejemplo abajo).
Pero al usarla, algunos dialogos que creo posterior a la funcion ScrResolution() ya no me funcionan igual.
por ejemplo: en un dialogo uso:

nBot:=oDlg:nBottom

y este ya no tiene relacion alguna con el oDlg:Bottom del dialogo...

Esta funcion tiene algo que ver con las dimensiones o posiciones de mis dialogos o ventanas que creo?

Gracias.

// --- regresa las coor. de pantalla
function CoordenadasPant(nAncho,nAlto)

nAncho:=ScrResolution()[1]
nAlto :=ScrResolution()[2]
return NIL

[Antonio Linares]

Noe,

Tienes que modificar la posición del diálogo desde la claúsula ON INIT:

ACTIVATE DIALOG oDlg ON INIT ...

ya que en ese momento el diálogo ha sido creado por Windows y las coordenadas ya estan basadas en pixeles y no en "units":

https://msdn.microsoft.com/en-us/library/windows/desktop/ms645475(v=vs.85).aspx

Retrieves the system's dialog base units, which are the average width and height of characters in the system font. For dialog boxes that use the system font, you can use these values to convert between dialog template units, as specified in dialog box templates, and pixels

[Jairo Barbosa]

Noe buen dia

Yo he utilizado con exito pero en ventanas
nResoancho := GetSysMetrics(0)
nResoAlto := GetSysMetrics(1)

Si te puedo colaborar en algo cuenta conmigo con gusto

Jairo

[antolin]

Noe, Antonio tiene razón, la única solución es el ON INT.

Normalmente creo mis diálogos asi:

Code: Select all  Expand view

LOCAL aCtrl[10]
*
DEFINE DIALOG oDlg ...
   @ 0,0 SAY oCtrl[1] ....
   @ 0,0 SAY oCtrl[2] ....
   ...
   @ 0,0 SAY oCtrl[10] ....
ACTIVATE DCIALOG oDLg ON INIT IniDiag(oCtrl)
*
FUNCTION IniDiag(oCt)
   oCt[1]:Move(10,10)
   oCt[2]:Move(26,10)
   ...
   oCt[10]:Move(144,10,100,20)
   ...
RETURN NIL
 

Y para solventar problemas de resolución, utilizo coordenadas relativas en luigar de absolutas.
Por ejemp,lo 50 pixel antes del bottom, Ancho pabntalla/3+20, oCtrl[1]:nLeft+oCtrl[1]:nWidth+10, etc..

los GetSysMetrics son muy socorridos. Por ejemplo, para calcular la parte baja de mi pantalla, justo por encima de la barra de estado utilizo:

Code: Select all  Expand view

GetSysMetrics(4)+GetSysMetrics(17)
Que es lo que mide el titulo+altura área de clientes

Un saludo