Drag and Drop - How to get what was dropped onto 
Author Message
 Drag and Drop - How to get what was dropped onto

Hi All,

What I am trying to do is drag from one list of records and drop onto
another. But I want to know which record I dropped onto.

I tried using CHOICE() on the second list but it returns 0. How can I
get the record I have dropped on?

Thanks,

Neil



Sun, 24 Jul 2005 11:09:24 GMT  
 Drag and Drop - How to get what was dropped onto
Have a look at PROPLIST:MouseUpRow

Cheers
Owen Brunker


Quote:
> Hi All,

> What I am trying to do is drag from one list of records and drop onto
> another. But I want to know which record I dropped onto.

> I tried using CHOICE() on the second list but it returns 0. How can I
> get the record I have dropped on?

> Thanks,

> Neil



Sun, 24 Jul 2005 11:10:19 GMT  
 Drag and Drop - How to get what was dropped onto
Hi,

  I currently use drap/drop functions in my applications (legacy).  Here is
a code example of what I did.  Hope it helps.

Stphane

On list under drop propertie:

  IF DROPID()
      DO OBT_MBLELM_INFO
      ...
  END

Within procedure routines:

OBT_MBLELM_INFO ROUTINE

  IF SPC_OPER = 'D'
    REL1::CurrentChoice = ?RelTree{PropList:MouseMoveRow}
  ELSE
    REL1::CurrentChoice = CHOICE(?RelTree)
  END
  GET(Queue:RelTree,REL1::CurrentChoice)

  CASE ABS(REL1::Level)
    OF 0
      DROP_SEQ_CMPS = 0
      DROP_TYP_CMPS = 'M'
      DROP_COMPOS   = CLIP(AEN:NO_SERIE) & '-' & CLIP(AEN:NO_MEUBLE) & '
' & CLIP(AEN:CODV_COUL)
      DROP_ACAD_SPC = ''
      DROP_DSNREF   = ''
    OF 1
      REGET(ARCH_STR0,REL1::Position)
      DROP_SEQ_CMPS = AST0:SEQ_COMPOS
      DROP_TYP_CMPS = AST0:TYPE_COMPOS
      DROP_COMPOS   = AST0:COMPOSANTE
      DROP_ACAD_SPC = AST0:ACAD_SPEC
      DROP_DSNREF   = AST0:REF_NODESSIN
    OF 2
      REGET(ARCH_STR1,REL1::Position)
      DROP_SEQ_CMPS = AST1:SEQ_COMPOS
      DROP_TYP_CMPS = AST1:TYPE_COMPOS
      DROP_COMPOS   = AST1:COMPOSANTE
      DROP_ACAD_SPC = AST1:ACAD_SPEC
      DROP_DSNREF   = AST1:REF_NODESSIN
    OF 3
      REGET(ARCH_STR2,REL1::Position)
      DROP_SEQ_CMPS = AST2:SEQ_COMPOS
      DROP_TYP_CMPS = AST2:TYPE_COMPOS
      DROP_COMPOS   = AST2:COMPOSANTE
      DROP_ACAD_SPC = AST2:ACAD_SPEC
      DROP_DSNREF   = AST2:REF_NODESSIN
    OF 4
      REGET(ARCH_STR3,REL1::Position)
      DROP_SEQ_CMPS = AST3:SEQ_COMPOS
      DROP_TYP_CMPS = AST3:TYPE_COMPOS
      DROP_COMPOS   = AST3:COMPOSANTE
      DROP_ACAD_SPC = AST3:ACAD_SPEC
      DROP_DSNREF   = AST3:REF_NODESSIN
    OF 5
      REGET(ARCH_STR4,REL1::Position)
      DROP_SEQ_CMPS = AST4:SEQ_COMPOS
      DROP_TYP_CMPS = AST4:TYPE_COMPOS
      DROP_COMPOS   = AST4:COMPOSANTE
      DROP_ACAD_SPC = AST4:ACAD_SPEC
      DROP_DSNREF   = AST4:REF_NODESSIN
    OF 6
      REGET(ARCH_STR5,REL1::Position)
      DROP_SEQ_CMPS = AST5:SEQ_COMPOS
      DROP_TYP_CMPS = AST5:TYPE_COMPOS
      DROP_COMPOS   = AST5:COMPOSANTE
      DROP_ACAD_SPC = AST5:ACAD_SPEC
      DROP_DSNREF   = AST5:REF_NODESSIN
    OF 7
      REGET(ARCH_STR6,REL1::Position)
      DROP_SEQ_CMPS = AST6:SEQ_COMPOS
      DROP_TYP_CMPS = AST6:TYPE_COMPOS
      DROP_COMPOS   = AST6:COMPOSANTE
      DROP_ACAD_SPC = AST6:ACAD_SPEC
      DROP_DSNREF   = AST6:REF_NODESSIN
  END

  CURV_SEQ_CMPS = DROP_SEQ_CMPS
  DO VERIF_ORIG_STRUC

EXIT



Quote:
> Have a look at PROPLIST:MouseUpRow

> Cheers
> Owen Brunker



> > Hi All,

> > What I am trying to do is drag from one list of records and drop onto
> > another. But I want to know which record I dropped onto.

> > I tried using CHOICE() on the second list but it returns 0. How can I
> > get the record I have dropped on?

> > Thanks,

> > Neil



Mon, 25 Jul 2005 03:01:10 GMT  
 
 [ 3 post ] 

 Relevant Pages 

1. Drag'n'dropping font names onto parts

2. Tkinter: drag-and-drop files (filenames) onto application?

3. Dropping files onto apps

4. Dropping folder of files onto RB application

5. Dropping files onto the app icon?

6. Dropping onto specific row?

7. Drop combo related to another drop combo

8. Drop Combo dependent on another drop combo

9. Drop Combo to Auto Drop

10. another General publicly calling to drop Ada (drop the General instead :-)

11. Drop-N-Drop bet Motif apps and tcl/tk apps

12. Drag and Drop from non-List widgets?

 

 
Powered by phpBB® Forum Software