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

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

At 08 AUG 2001 02:33:05PM d schranz wrote:

OpenInsight Specific

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

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:

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.

The Sprezzatura Group

World Leaders in all things RevSoft

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

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

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

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

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

Colin

My Email is dschranz@dakarsoftware.com

I'd like to try your code.

Thanks

David Schranz

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

Colin

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

TIA

barry@bsbsoft.com.au

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

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

View this thread on the forum...