I have 2 objects, on an entry form. Process 1, in process 2 I have a listing of records the user can select from and drag to the entry form. They can drop on either object A - invisible button B - a text variable (set not enterable)
I have code called in both to manage drag n drop. : (Form event=On Drop) //user is dropping an animal to set as founder If (utl_Drop_Action_Verify (Form event;<>x_Drop_One_Record_Only;->[Animal])=0) [Genotyping]Animal_ID:=[Animal]Animal_ID x_Founder:=[Animal]Animal_Name $0:=0 utl_selection_Clear (->[Animal]) Else //this shoudl never be true, as this is started from a drop the record must exist $0:=-1 End if // : (Form event=On Drag Over) //user is dropping an animal to set as founder $0:=utl_Drop_Action_Verify (Form event;<>x_Drop_One_Record_Only;->[Animal]) utl_Drop_Action_Verify : On drag over - checks that the source is allowed (pointer to table as parameter 3), and number of records dropped is allowed (in this instance only 1 record is allowed) returns 0 if allowed, -1 if not. ON Drop - does needed work to get the dropped record(s) into the current selection for the estimation process. This code expects the drag source to be another process [and it is]. What is happening: The objects generate an On Drag Over event (during the drag over), and the method utl_Drop_Action_Verify returns an expected 0 value (everything is OK). BUT the objects are NOT generating an On Drop event!!! I have placed traces in the code - the On Drop event is NOT being triggered. I have checked that: - the objects have the events On Drag over, and On Drop turned on. - The form : the same - THe objects have the object property : action: droppable enabled Any Ideas??? Thanks Chip ********************************************************************** 4D Internet Users Group (4D iNUG) FAQ: http://lists.4d.com/faqnug.html Archive: http://lists.4d.com/archives.html Options: http://lists.4d.com/mailman/options/4d_tech Unsub: mailto:[email protected] **********************************************************************
