Quote from CDY@44 on December 28, 2019, 10:51 pm

Cool  !!

Quote from Gaev on December 29, 2019, 12:56 am

@luishp

Appears to work as expected; however some thoughts for your consideration ...

1) Can you specify more than one possible DragObject for a particular drag-able object ? e.g. ...

neoDragSetDropObject "yellow" "yellowdrop,purpledrop" "center" "ondropsuccess" "ondropfail"
OR
neoDragSetDropObject "red" "[reddrop,orangedrop,purpledrop]" "center" "ondropsuccess" "ondropfail"

... as might be the case in a number of games ... and if so, would the success/fail objects be informed of source/sink object names ?

2) After a successful drop, do you need to redefine the (future) drop capabilities of the 'just dropped' object ? in the onDropSuccess event routine ?

3) Can drag-able objects be of any kind ? ... Container, Image, Text, PushButton etc. etc. ?

4) Can dropped objects still be moved, hidden/shown, resized etc. via script (after being dropped) ?

5) After a successful drop, the mouse pointer is still showing as 'drag-able' (i.e. 4-headed-arrow) ... perhaps it needs to be reset to regular arrow.

Quote from Vadim on December 29, 2019, 8:37 am

@luishp

Super!!! Very useful features !!!

Quote from luishp on December 29, 2019, 12:30 pm

1) Can you specify more than one possible DragObject for a particular drag-able object ? e.g. ...

Yes, just add a new neoDragSetDropObject action command.

2) After a successful drop, do you need to redefine the (future) drop capabilities of the 'just dropped' object ? in the onDropSuccess event routine ?

By default the dragging capabilities become disabled once a successful drop happens. If you want to keep them enabled, just add a neoDragEnable in the object click event. This way you can redrop the object in another place.

3) Can drag-able objects be of any kind ? ... Container, Image, Text, PushButton etc. etc. ?

Most of them will work, except probably SVG objects (circle, rectangle...). I have to find a different solution for them.

4) Can dropped objects still be moved, hidden/shown, resized etc. via script (after being dropped) ?

Yes.

5) After a successful drop, the mouse pointer is still showing as 'drag-able' (i.e. 4-headed-arrow) ... perhaps it needs to be reset to regular arrow.

I will look into it. Thank you very much for your comments @gaev !

Quote from rrey on December 29, 2019, 12:38 pm

Muchas gracias @luishp ,

Me parece muy potente. Ya estoy esperando esa actualización.

Roger Rey

Quote from luishp on December 29, 2019, 12:45 pm

@gaev I have updated the sample to show two drop targets for the same draggable object.
The onsuccess subroutine can optionally accept two STRING parameters: first one is the name of the draggable object and the second one the drop target object name.

Quote from luishp on December 30, 2019, 7:16 pm

I have added a new sample. It's a puzzle game. The images are not sliced so it's possible to use any image. Note that you can choose between different puzzle images before pressing the "start" button.

https://visualneo.com/tutorials/dragdrop2

Regards.

 

 

Quote from Vadim on December 30, 2019, 8:51 pm

Very well!!! Thank you very much Luis !!!

It's nice to see how dynamically growing the possibilities of VisualNEO!

Quote from luishp on January 9, 2020, 8:54 pm

Well, the new version is closer.
I'm doing a lot of optimizations to simplify this plugin as much as possible.
This is a new sample done with only 7 lines of code:

https://visualneo.com/tutorials/dragdrop3/

Complete sample code:

AppBackgroundColor "#000000"
SetVar [points] 0
Loop 1 8 [num]
   neoDragInit "p[num]"
   neoDragSetSnapObject "p[num]" "d1,d2,d3,d4,d5,d6,d7,d8"
   neoDragSetDropObject "p[num]" "d[num]" [points] true "" ""
EndLoop

 

Quote from vwatson on January 10, 2020, 1:03 am

You're tempting me to buy the web version, too. :)

Quote from Carlos Alberto Montoya Cano on October 20, 2020, 6:20 pm

Luis. Buenos dias.

He realizado dos versiones distintas de ejemplos de DragDrop y me suceden cosas que me gustaria observaras y me dieras una explicacion clara una vez probaras las aplicaciones.

Quiero Trabajar este tema respondiendo a las preguntas de una base de datos, es decir, que por cada pregunta debo de arrastrar un objeto único a la respuesta correcta. El control lo hago asi:

Primero leo un registro, saco datos y llamo la subrutina arrastre

CreateEmptyArray [arrayData]
setvar [arrayData][data]
ArrayLen [arrayData][total]
setvar [CurrentRecord] 0
setvar [id][arrayData([CurrentRecord]).id]
setvar [pregunta][arrayData([CurrentRecord]).pregunta]
setvar [runo][arrayData([CurrentRecord]).runo]
setvar [rdos][arrayData([CurrentRecord]).rdos]
setvar [rtres][arrayData([CurrentRecord]).rtres]
setvar [rcuatro][arrayData([CurrentRecord]).rcuatro]
setvar [correcta][arrayData([CurrentRecord]).correcta]
setvar [mcorrecta][arrayData([CurrentRecord]).mcorrecta]
setvar [mmal][arrayData([CurrentRecord]).mmal]

arrastre

Con esta subrutina, sin considerar las lineas de comentarios, el primer arrastre funciona perfectamente, y para los siguientes registros el objeto arrastre queda anclado y deja de ser funcional.

slDraggableInit "obarrastre" "both" "" 0 0 ""
.slDraggableSetDropObject "obarrastre" "droprcuatro" "center" "ondropsuccess" "ondropfail"
.slDraggableSetDropObject "obarrastre" "dropruno" "center" "ondropsuccess" "ondropfail"
.slDraggableSetDropObject "obarrastre" "droprdos" "center" "ondropsuccess" "ondropfail"
.slDraggableSetDropObject "obarrastre" "droprtres" "center" "ondropsuccess" "ondropfail"

AlertBox "Variables" "Correcta: [correcta]" ""

If [correcta] == 4
slDraggableSetDropObject "obarrastre" "droprcuatro" "center" "ondropsuccess" "ondropfail"
Endif
If [correcta] == 1
slDraggableSetDropObject "obarrastre" "dropruno" "center" "ondropsuccess" "ondropfail"
Endif
If [correcta] == 2
slDraggableSetDropObject "obarrastre" "droprdos" "center" "ondropsuccess" "ondropfail"
Endif
If [correcta] == 3
slDraggableSetDropObject "obarrastre" "droprtres" "center" "ondropsuccess" "ondropfail"
Endif

Le habilito las 4 lineas anteriores de comentarios y ya el objeto se queda en cualquiera de los lugares de arrastre y queda inhabilitado.

Esta es la porcion de codigo cuando recorro hacia adelante los datos

SetVar [CurrentRecord] [CurrentRecord]+1
If [grabados] >= [total]
SetVar [CurrentRecord] [CurrentRecord]-1
AlertBox "Muy Bien !" "Haz Terminado !" ""
Refresh
Else
If [CurrentRecord] >= [total]
setvar [CurrentRecord] [CurrentRecord]-1
EndIf
setvar [id][arrayData([CurrentRecord]).id]
setvar [pregunta][arrayData([CurrentRecord]).pregunta]
setvar [runo][arrayData([CurrentRecord]).runo]
setvar [rdos][arrayData([CurrentRecord]).rdos]
setvar [rtres][arrayData([CurrentRecord]).rtres]
setvar [rcuatro][arrayData([CurrentRecord]).rcuatro]
setvar [correcta][arrayData([CurrentRecord]).correcta]
setvar [mcorrecta][arrayData([CurrentRecord]).mcorrecta]
setvar [mmal][arrayData([CurrentRecord]).mmal]
slDraggableSetPosition "obarrastre" "30" "275"
slDraggableEnable "obarrastre"
Refresh
arrastre
Endif

Tambien intente cambiar la llamada a la subrutina y el objeto de arrastre queda inhabilitado totalmente.

neoDragSetEvents "obarrastre" "arrastre" "" ""

Las subrutinas de control no sufren modificaciones, pero hay una subrutina (DragStar) que en los ejemplos tu utilizas, pero no sé en que parte de la aplicacion la invocas y me podrias decir para que sirve.

neoDragGetPositionX "obarrastre" [xpos]
neoDragGetPositionY "obarrastre" [ypos]
Refresh
AlertBox "Drag Start" "Dragging has started [xpos] [ypos]" ""

Bueno. Te sigo comentando.

La otra version que realice, la inicie a partir del ejemplo con los rectangulos de color amarillo, rojo y azul que tu adjuntaste y para hacerla funcionar indefinidamente le coloqué un boton que me llevara a una nueva pagina y de esta retornarla nuevamente a la pagina actual para reinicie los valores de arrastre. Trato de hacer lo mismo en esta version y sigo con los mismos problemas

En eventos de aplicacion cargo los datos del primer registro

setvar [grabados] 0
neoPhpExecSql "db1" "select" "" "parseData"

Este es el codigo de la pagina

slDraggableInit "obarrastre" "both" "" 0 0 ""
.slDraggableSetDropObject "obarrastre" "dropruno" "center" "ondropsuccess" "ondropfail"
.slDraggableSetDropObject "obarrastre" "droprdos" "center" "ondropsuccess" "ondropfail"
.slDraggableSetDropObject "obarrastre" "droprtres" "center" "ondropsuccess" "ondropfail"
.slDraggableSetDropObject "obarrastre" "droprcuatro" "center" "ondropsuccess" "ondropfail"
AlertBox "Variables" "Correcta: [lacorrecta]" ""

.neoDragSetEvents "obarrastre" "arrastre" "" ""
arrastre

En este punto sucede algo bien extraño. En el mensaje de alerta la variable [lacorrecta] muestra Undefined, pero en un container me lo muestra bien.

En la anterior, sin las lineas de comentarios funcionó la primera correctamente y en este caso no.

Si habilito las lineas de comentarios no hay variaciones ni cambios en los resultados.

Subrutina arrastre

If [lacorrecta] == 4
. neoDragSetDropObject "arrastre" "droprcuatro" "" true "ondropsuccess" "ondropfail"
slDraggableSetDropObject "obarrastre" "droprcuatro" "center" "ondropsuccess" "ondropfail"
Endif
If [lacorrecta] == 1
. neoDragSetDropObject "arrastre" "dropruno" "" true "ondropsuccess" "ondropfail"
slDraggableSetDropObject "obarrastre" "dropruno" "center" "ondropsuccess" "ondropfail"
Endif
If [lacorrecta] == 2
. neoDragSetDropObject "arrastre" "droprdos" "" true "ondropsuccess" "ondropfail"
slDraggableSetDropObject "obarrastre" "droprdos" "center" "ondropsuccess" "ondropfail"
Endif
If [lacorrecta] == 3
. neoDragSetDropObject "arrastre" "droprtres" "" true "ondropsuccess" "ondropfail"
slDraggableSetDropObject "obarrastre" "droprtres" "center" "ondropsuccess" "ondropfail"
Endif
setvar [grabados] [grabados]+1

Te adjunto los archivos fuentes y la base de datos.

Lo otro que queria comentarte es lo siguiente y tiene que ver con anomalias de la plataforma.

1. Tengo objetos de igual tamaño en ancho y alto que visualmente no son iguales
2. Cuando en la plataforma se cambian propiedades de tamaño, no se puede presionar tecla de borrado o enter porque se pierden los elemento
3. Hay, por ahi, en alguna parte un boton que ejecuta una accion correcta y el mensaje es cancelar. luego te diré exactamente en donde.

Respecto a esto, te pregunto si quizas solucione este inconveniente. desinstalando totalmente la aplicacion y si puedo partir desde cero con el ZIP que me enviaste o me exliques como tendria que hacerlo.

Sigo pensando tambien que necesitamos mas manuales.

Como la base de datos no se puede cargar por impedimento de la plataforma estos son sus campos

pregunta, runo, rdos, rtres, rcuatro, correcta, mcorrecta, mmal

Quote from Carlos Alberto Montoya Cano on October 22, 2020, 5:17 pm

Buenos días.

 

Alguna respuesta a mi inquietud.

Gracias

Quote from luishp on October 23, 2020, 7:37 am

Hola @carlos-alberto-montoya-cano,

Para poder ayudarte necesito preguntas más concisas. Preguntas muchas cosas al mismo tiempo y en base a ejemplos que no puedo probar. De todos modos, en lo referente a los plugins slDraggable y neoDrag, ten en cuenta que se trata de dos plugins diferentes. El primero es más antiguo y sigue presente por retrocompatibilidad y porque funciona mejor en algunas circunstancias determinadas, pero neoDrag es más moderno y con más opciones. Puedes utilizar uno u otro, pero no mezclarlos.

Por favor, intenta que las preguntas sean concretas con ejemplos lo más sencillos posibles de modo que yo pueda probarlos rápidamente y entender el problema.

Muchas gracias.

Quote from Carlos Alberto Montoya Cano on October 23, 2020, 6:43 pm

Buenos dias.

 

Sinceramente no estoy satisfecho con tu respuesta, me parece más bien evasiva, y asi lo has hecho con todas las preguntas que se te formulan,  y lo que buscamos, quienes compramos esta aplicacion es poder aprenderla y entenderla, no a traves de tus ejemplos basicos sino a traves de nuestras necesidades de programacion.

Te he colocado los pasos que estoy siguiendo para encontrar la solucion a un problema, te he colocado los archivos originales y solo tendrias que crear la base de datos con tres o cuatro registros con el objeto de que la pruebes y me des una respuesta al problema. Adémas, todas nuestras inquietudes redundaran en mejoras de tu aplicativo.

Quiero estar seguro de que el problema es mio y no de la aplicacion, por eso quiero que lo pruebes y me des una respuesta clara y si tu no lo quieres hacer, le agradeceré a cualquier otra persona que lo intente.

 

Gracias

Quote from luishp on October 24, 2020, 1:20 pm

Hola @carlos-alberto-montoya-cano.

Si te fijas en el número que aparece debajo de mi fotografía, indica el número de mis intervenciones en el foro (más de 1800), la mayoría de ellas resolviendo, o tratando de resolver cuestiones de todo tipo, por lo que es dificil considerar que soy evasivo en todas mis respuestas. De hecho dedico más tiempo en este foro del que me puedo permitir a ayudar tanto en el aprendizaje como a localizar errores de programación.

En general en tus preguntas incluyes varios temas, lo que dificulta que puedan servir de ayuda a otros en el futuro y tampoco tratas de aislar el problema para facilitar que otros puedan entenderlo y facilitar así su resolución. Si además los ejemplos que adjuntas no pueden ejecutarse directamente, resulta aun más trabajoso poder entender lo que necesitas o simplemente lo que pretendes hacer.

Si te he parecido evasivo es porque he considerado que la relación esfuerzo/beneficio en esta pregunta en concreto, simplemente no puedo permitírmela y es por eso que te pido que trates de acotar mejor el problema.

No obstante seguiré haciendo lo que esté en mi mano (razonablemente) para ayudarte en todo aquello que necesites relacionado con VisualNEO.

Muchas gracias de antemano por tu comprensión.

Un saludo.

Quote from Palamar on October 24, 2020, 8:19 pm

Excelente @luishp, gran trabajo. No he necesitado aún el drag and drop pero creo que para apps educativas es genial.