Clarion - Salto de linea SETCLIPBOARD

Que1 QUEUE

     STRING(30)

    END

Que2 QUEUE

    STRING(30)

    END

WinOne WINDOW,AT(0,0,160,400)

    LIST,AT(120,0,20,20),USE(?List1),FROM(Que1),DRAGID('List1')                       !Allows drags, but not drops

    LIST,AT(120,120,20,20),USE(?List2),FROM(Que2),DROPID('List1')                       !Allows drops from List1, but no drags

   END

CODE

OPEN(WinOne)

ACCEPT

 CASE EVENT()

 OF EVENT:Drag         !When a drag event is attempted

  IF DRAGID()          !check for success

   SETCLIPBOARD(Que1)  !and setup info to pass

  END

 OF EVENT:Drop         !When drop event is successful

  Que2 = CLIPBOARD()   !get dropped info

  ADD(Que2)            !and add it to the queue

 END

END

!ENCABEZADO

 LOC:ClipBoard = 'COLUMNA1<09>COLUMNA2<09>COLUMNA3<10>'

!EL <10> ES EL SALTO DE  LINEA

!RECORRES LA QUEUE

LOOP I#=1 TO RECORDS (TU_QUEUE)

    GET(TU_QUEUE,I#)

    if errorcode() then break.

    LOC:ClipBoard = CLIP(LOC:ClipBoard) & CAMPO1 &'<09>'& CAMPO2 &'<09>'& CAMPO3 &'<10>'

END

!Mandamos al Clipboard.

SETCLIPBOARD( CLIP(LOC:ClipBoard) )