Holas Amigos...
Otra vez dando la lata... como podria obtener las coordenadas de un dialogo ? la idea es que haciendo un click en cualquier area de dialogo o en un boton, se llamara a otro dialogo en la posision en la que de hizo click....
Salu2
Willi
Willi,
Puedes usar GetCoors( oDlg:hWnd ) que te devuelve un array con nTop, nLeft, nBottom y nRight.
Antonio,
y en el caso de una celda de la tsbrowser? o sea quiero que cuando no se ingrese algo, se crea un dialogo, tengo todo el codigo, pero no se como saber las coordenadas de esa celda.
Espero te sirva...
// -----
func opcturnos(nombre,objeto)
// -----
local omenu
// nombre trae oBtn o oBrw por si presiona un boton o boton derecho sobre el browse()
// objeto trae el nombre en si del objeto definido en la ventana, podria ser un solo parametro tambien.
if upper(nombre)$"OBTN"
aRect:=GetClientRect(objeto:hWnd)
elseif upper(nombre)$"OBRW"
aRect:=GetCursorPost()
// Esto deberia ser lo que te de la posic.
endif
menu omenu popup
menuitem "Modificar" action editarturno("O")
menuitem "Desocupar" action editarturno("D")
menuitem "Mover" action moverturno()
endmenu
if upper(nombre)$"OBTN"
activate popup omenu at aRect[3], aRect[2]-1 of objeto
elseif upper(nombre)$"OBRW"
activate popup omenu at aRect[1]-140, aRect[2]-270 of objeto
endif
return nil
Salu2.
