FoxPro/Visual FoxPro - ARRASTRAR Y SOLTAR

   
Vista:

ARRASTRAR Y SOLTAR

Publicado por JOSÉ ÁNGEL LUNA GRAJEDA (62 intervenciones) el 18/11/2013 04:31:30
Hola colegas:
Tengo una fotografía y varios contenedores image que contienen sombreros o piezas de ropa, quiero poder arrastrarlos y soltarlos sobre la fotografía para cambiarle la apariencia quedando superpuestos los artículos que arrastre y suelte sobre la fotografía. Yo no me imagino como pudiera hacer esto, si me dicen el procedimiento que debo de aplicar en el form les agradezco de antemano su ayuda, que tengan un buen día.
José Ángel
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

ARRASTRAR Y SOLTAR

Publicado por Fidel José (558 intervenciones) el 18/11/2013 16:05:58
Para cualquier objeto:

MouseMove Event
LPARAMETERS nButton, nShift, nXCoord, nYCoord
IF nbutton=1
this.Top=nyCoord
this.Left=nxCoord
ENDIF

1) Puedes crear una clase Image con ese código (recomendado)
Luego subes al form, o a un container las imágenes desde la clase Image creada.


2) Puedes utilizar BindEvent() si las imágenes ya están creadas (y son muchas)
Creas un método en el form, por ejempo, "Movimage"
En el Init del form, estando las imágenes sobre el form.
Si las imágenes están dentro de controles Container o Pageframe, se complica un poco el rulo.
1
2
3
4
5
for each oControl in thisform.Controls
	if ocontrol.BaseClass=="Image"
		BindEvent(oControl , "MouseMove" , Thisform , "Movimage" )
	endif
endfor

* Código del método delegado "Movimage"
1
2
3
4
5
6
7
8
9
10
11
12
13
14
LPARAMETERS nButton, nShift, nXCoord, nYCoord
LOCAL obj,nEvents,nSalto
nSalto=7
nEvents=AEVENTS(gaEvents,0)
IF nEvents=0
	RETURN
ENDIF
obj=gaEvents[1]
IF nButton=1
	WITH obj
		.Top=nYCoord
		.Left=nXCoord
	ENDWITH
ENDIF
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

OTRA MOLESTIA

Publicado por JOSÉ ÁNGEL LUNA GRAJEDA (62 intervenciones) el 18/11/2013 20:18:45
Muchas gracias Fidel, ya funcionó perfectamente, pero ahora la duda que tengo es como darle tamaño ya que lo moví...¡GRACIAS!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar