PARA LOS MASTER... SOBRE COORDENADAS

[mantonio_08]

necesito saber como obtener la posicion de pintado de un objeto::

si asi como lo leen,, digamos un boton,, como saber dnd se pinta,, que no es lo mismo que GetCoors() no sirve saber el ntop,nlef.....bla bla..; sino el punto dnd window la pinta dentro de la pantalla::

para aclarar mas ejemplo:: si creas un menu popup para un objeto:: y de ese objeto no se puede obtener el nrow, ncol,, entonces nos vemos en la obligacion de fijar el menu a una cordinada x , y siempre estable.. digamos 80,120 ,, si nuestra aplicacion la tomanos y la movemos dentro de la pantalla,, ese menupopup siempre aparecera en la misma coordenada, lo logico seria poder obtener nrow y ncol de cualquier objeto.. entonces ahi la ??????

1.- como obtener la nrow y ncol de un objeto se cual sea..
2.- como obtener las dimensiones de un memu popup,,


A los master a ver si saben... pq yo ya me he vuelto chino hace muchos dias con el TEMA:

muy agradecido::
un servidor::

[Willi Quintana]

Hola, echale un ojo a este codigo..
Salu2

Code: Select all  Expand view

.
..
...
REDEFINE BUTTOM oReportes ;
               ACTION ImpReportes(oDlg, oReportes) ;
               ID 102 OF oDlg

...
..
.

Function  ImpReportes(oDlg, oObjt)
local nTopR, nLeftR, oMenu, nOption

nTopR     := oObjt:nTop           // posicion del control que hizo la llamada
nLeftR    := oObjt:nLeft

nOption := 0
MENU oMenu POPUP 2007
         MENUITEM "Reporte 1" ;
               ACTION nOption := 1
         MENUITEM "Reporte 2" ;
               ACTION nOption := 2  
ENDMENU
ACTIVATE POPUP oMenu AT nTopR + 50, nLeftR OF oDlg

If nOption = 0
   Return(.f.)
EndIf
...
..
.