Consulta del ListBox con Array

[Blessed]

Tengo un problema mas bien una duda con un Listbox con arreglo, en el cual necesito se seleccione de manera multiple, lo cual he logrado gracias a los ejemplos de fivewin.
Pero la seleccion es de un elemento a la vez, y ya tengo quejas de los usuarios.
Como hacer para seleccionar varios a la vez, con el mouse, con solo arrastrar, o bien con el teclado con SHIFT y las teclas del cursor.

Gracias de antemano

[James Bott]

fwh\samples\gallery\mselect

[Blessed]

revise el ejemplo que recomiendas

fwh\samples\gallery\mselect

Pero en este ejemplo solo se puede seleccionar todos o ninguno.

Estoy Utilizando Fivewin 2.6 y no se si es necesario actualizar, para que en un listbox puedas seleccionar a manera como lo haces en Excel, solo marcas uno y arrastras.

Este problema lo tengo con un cliente que ingresa productos con numeros de serie, hay productos que presentan 50 o mas series, y necesitas facturar 20, solo seleccionas uno arrastras hasta donde requieres.

Es posible?

[Blessed]

James

Gracias desde Honduras

[James Bott]

Code: Select all  Expand view  RUN

// FiveWin - own Drag&Drop new features !!!
// Drag item from one listbox to another listbox

#include "FiveWin.ch"

//----------------------------------------------------------------------------//

function Main()

   local oWnd, oCursor, oLbx, oLbx2
   local cItem:=""

   DEFINE CURSOR oCursor hand

   DEFINE WINDOW oWnd TITLE "FiveWin's own Drag & Drop features!!!"

   @ 6, 3 LISTBOX oLbx VAR cItem ;
      ITEMS { "Item 1","Item 2","Item 3","Item 4" } SIZE 200, 200

   oLbx:oDragCursor = oCursor         // Select a Drag cursor
   oLbx:bDragBegin  = { | nRow, nCol, nKeyFlags | ;
                        SetDropInfo( oLbx:getSelText() ),;   // Save drop info !!!
                        oWnd:SetMsg( "Dragging..." ) }

   @ 6, 30 LISTBOX oLbx2 var cItem;
      ITEMS {} size 200,200

   // Set a DropOver action for the ListBox
   oLbx2:bDropOver = { | uDropInfo, nRow, nCol, nKeyFlags | ;
                      oLbx2:Add( uDropInfo ), MsgBeep() }

   SET MESSAGE OF oWnd ;
      TO "FiveWin - own DragDrop interface !!!" CENTER

   ACTIVATE WINDOW oWnd MAXIMIZED

return nil

//----------------------------------------------------------------------------//

[James Bott]

Una muestra mejor:

Code: Select all  Expand view  RUN

// FiveWin - own Drag&Drop new features !!!
// Drag item from one listbox to another listbox

#include "FiveWin.ch"

//----------------------------------------------------------------------------//

function Main()

   local oWnd, oCursor, oLbx, oLbx2
   local cItem:=""

   DEFINE CURSOR oCursor hand

   DEFINE WINDOW oWnd TITLE "FiveWin's own Drag & Drop features!!!"

   @ 6, 3 LISTBOX oLbx VAR cItem ;
      ITEMS { "Item 1","Item 2","Item 3","Item 4" } SIZE 200, 200

   // Set a DropOver action for the ListBox
   oLbx:bDropOver = { | uDropInfo, nRow, nCol, nKeyFlags | ;
                      oLbx:Add( uDropInfo ), oLbx2:del(), MsgBeep() }

   oLbx:oDragCursor = oCursor         // Select a Drag cursor
   oLbx:bDragBegin  = { | nRow, nCol, nKeyFlags | ;
                        SetDropInfo( oLbx:getSelText() ),;   // Save drop info !!!
                        oWnd:SetMsg( "Dragging..." ) }

   @ 6, 30 LISTBOX oLbx2 var cItem;
      ITEMS {} size 200,200

   // Set a DropOver action for the ListBox
   oLbx2:bDropOver = { | uDropInfo, nRow, nCol, nKeyFlags | ;
                      oLbx2:Add( uDropInfo ), oLbx:del(), MsgBeep() }

   oLbx2:oDragCursor = oCursor         // Select a Drag cursor
   oLbx2:bDragBegin  = { | nRow, nCol, nKeyFlags | ;
                        SetDropInfo( oLbx2:getSelText() ),;   // Save drop info !!!
                        oWnd:SetMsg( "Dragging..." ) }

   SET MESSAGE OF oWnd ;
      TO "FiveWin - own DragDrop interface !!!" CENTER

   ACTIVATE WINDOW oWnd MAXIMIZED

return nil

//----------------------------------------------------------------------------//

[Blessed]

Nuevamente, Gracias James
Me pondre a trabajar de inmediato

[Blessed]

Saludos, de nuevo aqui...

Tando lo del ejemplo del MSelect
Como el Codigo para arrastar y pegar (Drag&Drop)
Me ha han sido muy utiles.


Lo que que he pretendido es saber como puedo hacer si tengo una lista de 50 items en un Listbox, pero quiero seleccionar 20 de ellos a la manera de Excel bastaria hacer Clic y deslizarlo y de una vez seleccionar los veinte, y el MSelect para el caso, lo hace de uno a uno, y vi otros ejemplos con la relacion de todos o ninguno.


Gracias por tu tiempo.

[Blessed]

Bien he revisado el foro y me he encontrado con un Un Post del 2005

http://fivetechsoft.com/forums/viewtopi ... tbox+multi

En el cual el Maestro Antonio Linares afirma que para ese entonces, la seleccion multiple aun no caminaba como lo hace Excel no se si ya se habra resuelto, o puesto en marcha.

Aun no me actualizo a la nueva version de FWH, no si si alguien habra solucionado esto de ulguna manera.

Saludos desde Honduras