FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin for Harbour/xHarbour Consulta del ListBox con Array
Blessed
Posts: 243
Joined: Wed Sep 19, 2007 04:32 PM

Consulta del ListBox con Array

Posted: Mon Sep 24, 2007 06: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

Oscar A. Martinez
http://www.multisofthn.com
Honduras, Centro America
xHarbour Enterprise 1.2.2, Fivewin 13.06
James Bott
Posts: 4840
Joined: Fri Nov 18, 2005 04:52 PM

Consulta del ListBox con Array

Posted: Mon Sep 24, 2007 07:48 PM

fwh\samples\gallery\mselect

FWH 18.05/xHarbour 1.2.3/BCC7/Windows 10
Blessed
Posts: 243
Joined: Wed Sep 19, 2007 04:32 PM

Siento el haber demorado

Posted: Fri Sep 28, 2007 03: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?
Oscar A. Martinez
http://www.multisofthn.com
Honduras, Centro America
xHarbour Enterprise 1.2.2, Fivewin 13.06
Blessed
Posts: 243
Joined: Wed Sep 19, 2007 04:32 PM

Y perdon por mi descortesia...

Posted: Fri Sep 28, 2007 03:47 PM

James

Gracias desde Honduras :D

Oscar A. Martinez
http://www.multisofthn.com
Honduras, Centro America
xHarbour Enterprise 1.2.2, Fivewin 13.06
James Bott
Posts: 4840
Joined: Fri Nov 18, 2005 04:52 PM

Consulta del ListBox con Array

Posted: Fri Sep 28, 2007 04:59 PM
Code: Select all Collapse
// 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

//----------------------------------------------------------------------------//
FWH 18.05/xHarbour 1.2.3/BCC7/Windows 10
James Bott
Posts: 4840
Joined: Fri Nov 18, 2005 04:52 PM

Consulta del ListBox con Array

Posted: Fri Sep 28, 2007 05:22 PM
Una muestra mejor:

Code: Select all Collapse
// 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

//----------------------------------------------------------------------------//
FWH 18.05/xHarbour 1.2.3/BCC7/Windows 10
Blessed
Posts: 243
Joined: Wed Sep 19, 2007 04:32 PM

Consulta del ListBox con Array

Posted: Fri Sep 28, 2007 05:48 PM

Nuevamente, Gracias James
Me pondre a trabajar de inmediato :D

Oscar A. Martinez
http://www.multisofthn.com
Honduras, Centro America
xHarbour Enterprise 1.2.2, Fivewin 13.06
Blessed
Posts: 243
Joined: Wed Sep 19, 2007 04:32 PM

Consulta del ListBox con Array

Posted: Mon Oct 01, 2007 04: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.
Oscar A. Martinez
http://www.multisofthn.com
Honduras, Centro America
xHarbour Enterprise 1.2.2, Fivewin 13.06
Blessed
Posts: 243
Joined: Wed Sep 19, 2007 04:32 PM

Consulta del ListBox con Array

Posted: Tue Oct 02, 2007 04: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 :-)
Oscar A. Martinez
http://www.multisofthn.com
Honduras, Centro America
xHarbour Enterprise 1.2.2, Fivewin 13.06

Continue the discussion

Static archive · New replies & topics via GitHub Discussions