Drag and Drop in OI (OpenInsight Specific) [Revelation On-Line Wiki]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
[[https://www.revelation.com/|Sign up on the Revelation Software website to have access to the most current content, and to be able to ask questions and get answers from the Revelation community]]


==== Drag and Drop in OI (OpenInsight Specific) ====
=== At 08 AUG 2001 02:33:05PM d schranz wrote: ===
 
{{tag>"OpenInsight Specific"}}
 
<QUOTE>
Is they any way of incorporating the Drag and Drop facility within OI.



This facility is available in practically all Window products, we cannot seem to do this in OI.



Any suggestions?



Thanks

David Schranz
</QUOTE>
----

=== At 08 AUG 2001 03:57PM [url=http://www.sprezzatura.com" onMouseOver=window.status=Click here to visit our web site?';return(true)]The Sprezzatura Group[/url]  wrote:  ===

<QUOTE>It can be done but it is hard work. So far we have not found the effort required commercially worthwhile. Whilst presentation server processes the messages required it does not expose them easily.



[url=http://www.sprezzatura.com" ]The Sprezzatura Group[/url] 

[i]World Leaders in all things RevSoft[/i] 

[img]http://www.sprezzatura.com/zz.gif[/img] 

 



</QUOTE>

----

=== At 08 AUG 2001 05:08PM David Pociu wrote:  ===

<QUOTE>For 32 bit functionality, you may want to look at the newest Revelation tool - Java for OpenInsight (JOI) which will allow you to build a Java front-end to your OI application, and therefore let you use the drag and drop functionality and a LOT more(including 3rd party controls).



Dave

</QUOTE>

----

=== At 13 AUG 2001 05:50AM Colin Rule wrote:  ===

<QUOTE>It depends on what you want to do.

I have the following code in an omnievent of a form which I use to allow the user to create a report using drag/drop.

Various other subroutines are used here, but if you advise your Email address I can send and explain in more detail.

It even includes snap to the nearest 10 pixels etc amongst other things, such as line drawing, fonts, colours etc.



Regards



Colin







BUTTONDOWN:

	XDOWN=PARAM1

	YDOWN=PARAM1

	NO_OBJECTS=COUNT(OBJECT_TABLE,@VM)+(OBJECT_TABLE#"")

	FOUND=0

	FOR I=1 TO NO_OBJECTS UNTIL FOUND

		OBJECT=OBJECT_TABLE

		IF COUNT(OBJECT,"FINANCIAL_DESIGN.LINE") THEN

			XPOS1=OBJECT_TABLE

			YPOS1=OBJECT_TABLE

			XPOS2=OBJECT_TABLE

			YPOS2=OBJECT_TABLE

			LINE_ANCHOR=0

			IF ABS(XPOS1-XDOWN)

			YSTART=OBJECT_TABLE

			XEND=XSTART+OBJECT_TABLE

			YEND=YSTART+OBJECT_TABLE

			IF XDOWN]=XSTART AND YDOWN]=YSTART AND XDOWNFOCUS=0

RETURN



BUTTONUP:

	XDOWN=PARAM1

	YDOWN=PARAM1

	XUP  =PARAM1

	YUP  =PARAM1

	PROPERTIES=.PROPERTIES-]ARRAY

	OBJECT=PROPERTIES

	IF NOT(OBJECT) THEN RETURN

	IF COUNT(OBJECT,"FINANCIAL_DESIGN.LINE") THEN

		BEGIN CASE

			CASE LINE_ANCHOR=0

				RETURN

			CASE LINE_ANCHOR=1

				XPOS1=PROPERTIES

				YPOS1=PROPERTIES

				XPOS=XPOS1+(XUP-XDOWN)

				YPOS=YPOS1+(YUP-YDOWN)

				GOSUB CALC_SNAP

			CASE LINE_ANCHOR=2

				XPOS2=PROPERTIES

				YPOS2=PROPERTIES

				XPOS=XPOS2+(XUP-XDOWN)

				YPOS=YPOS2+(YUP-YDOWN)

				GOSUB CALC_SNAP

		END CASE

	END ELSE

		XPOS=PROPERTIES

		YPOS=PROPERTIES

		XPOS=XPOS+(XUP-XDOWN)

		YPOS=YPOS+(YUP-YDOWN)

		GOSUB CALC_SNAP

	END

	GOSUB PROPERTIES

	GOSUB REFRESH

RETURN

</QUOTE>

----

=== At 13 AUG 2001 07:05PM d schranz wrote:  ===

<QUOTE>Colin



My Email is dschranz@dakarsoftware.com



I'd like to try your code.



Thanks

David Schranz

</QUOTE>

----

=== At 14 AUG 2001 01:35AM B Stevens wrote:  ===

<QUOTE>Colin



I would be interested in a copy of your code and info.



TIA



barry@bsbsoft.com.au

</QUOTE>

----

=== At 14 AUG 2001 09:40AM Colin Rule wrote:  ===

<QUOTE>Barry, David,



I have sent you Emails with code attached etc.

Please let me know how you get on and whether this was relevant.



Colin

</QUOTE>


[[https://www.revelation.com/revweb/oecgi4p.php/O4W_HANDOFF?DESTN=O4W_RUN_FORM&INQID=NONWORKS_READ&SUMMARY=1&KEY=9337EB12BD8C154285256AA20065E7E5|View this thread on the  forum...]]