Page 1 of 1
Cordenadas de un dialogo
Posted: Fri Dec 16, 2005 5:09 pm
by Willi Quintana
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
Posted: Sat Dec 17, 2005 6:18 am
by Antonio Linares
Willi,
Puedes usar GetCoors( oDlg:hWnd ) que te devuelve un array con nTop, nLeft, nBottom y nRight.
Posted: Sat Mar 25, 2006 1:07 pm
by goosfancito
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.
Posición de la celda
Posted: Tue Apr 04, 2006 12:29 am
by carlosortiz
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.