FiveTech Software tech support forums

Posted: **Mon Sep 24, 2007 6:18 pm**

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

Posted: **Mon Sep 24, 2007 7:48 pm**

fwh\samples\gallery\mselect

Posted: **Fri Sep 28, 2007 3:40 pm**

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?

Posted: **Fri Sep 28, 2007 3:47 pm**

James

Gracias desde Honduras

Posted: **Fri Sep 28, 2007 4:59 pm**

Code: Select all

// 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

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

Posted: **Fri Sep 28, 2007 5:22 pm**

Una muestra mejor:

Code: Select all

// 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

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

Posted: **Fri Sep 28, 2007 5:48 pm**

Nuevamente, Gracias James
Me pondre a trabajar de inmediato

Posted: **Mon Oct 01, 2007 4:06 pm**

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.

Posted: **Tue Oct 02, 2007 4:27 pm**

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

FiveTech Software tech support forums

Consulta del ListBox con Array

Consulta del ListBox con Array

Siento el haber demorado

Y perdon por mi descortesia...