FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour PARA LOS MASTER... SOBRE COORDENADAS
Posts: 330
Joined: Fri May 25, 2007 09:06 PM
PARA LOS MASTER... SOBRE COORDENADAS
Posted: Mon Aug 17, 2009 01:09 PM

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

Posts: 1054
Joined: Sun Oct 09, 2005 10:41 PM
Re: PARA LOS MASTER... SOBRE COORDENADAS
Posted: Mon Aug 17, 2009 02:32 PM
Hola, echale un ojo a este codigo..
Salu2
Code (fw): Select all Collapse
.
..
...
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
...
..
.

Continue the discussion