www.FiveTechSoft.com
http://forums.fivetechsoft.com/
jgayoso wrote:Señores necesito saber como hacer un multiple selector, el ListBox me funciona, pero solo puedo seleccionar un solo elemento de una matriz.
Desde ya se agradece vuestra ayuda.
Code: Select all
@ 269,14 LISTBOX oLbasocDomi VAR uLbasocDomi ITEMS aDomi SIZE 376,154 OF ;
oAdReCo01 COLORS nmicolortexto,nmicolorfondo PIXEL FONT omifont MULTIPLEFiveWiDi wrote:jgayoso wrote:Señores necesito saber como hacer un multiple selector, el ListBox me funciona, pero solo puedo seleccionar un solo elemento de una matriz.
Desde ya se agradece vuestra ayuda.Aunque yo investigaría como hacerlo con XBrowse, es lo que tengo pendiente de hacer.Code: Select all
@ 269,14 LISTBOX oLbasocDomi VAR uLbasocDomi ITEMS aDomi SIZE 376,154 OF ; oAdReCo01 COLORS nmicolortexto,nmicolorfondo PIXEL FONT omifont MULTIPLE
Code: Select all
// Using a browse to display a multidimensional array
#include "FiveLinux.ch"
function Main()
local oWnd, oBrw, aTest := { { .F., "one", "two" }, { .F., "three", "four" }, { .F., "five", "six" } }
DEFINE WINDOW oWnd TITLE "Testing Browses" SIZE 522, 317
@ 2, 2 BROWSE oBrw OF oWnd ;
HEADERS "Selected", "First", "Second" ;
FIELDS If( aTest[ oBrw:nAt ][ 1 ], "X", " " ), aTest[ oBrw:nAt ][ 2 ], aTest[ oBrw:nAt ][ 3 ]
oBrw:SetArray( aTest )
oBrw:nRowPos = 2
oBrw:nAt = 2
@ 28, 2 BUTTON "_Ok" OF oWnd ACTION oWnd:End()
@ 28, 30 BUTTON "Add" OF oWnd ACTION ( AAdd( aTest, { .F., "five", "six" } ), oBrw:SetArray( aTest ), oBrw:GoTop(), oBrw:Refresh() )
@ 28, 40 BUTTON "Select" OF oWnd ACTION ( aTest[ oBrw:nRowPos ][ 1 ] := ! aTest[ oBrw:nRowPos ][ 1 ], oBrw:Refresh() )
ACTIVATE WINDOW oWnd
return nil
jgayoso wrote:Carlos, estoy trabajando con FiveLinux y MULTIPLE me da error.
Con FiveWin no tengo problemas, el problema es con FiveLinux.
Quedo a la espera de cualquier ayuda.
FiveWiDi wrote:jgayoso wrote:Señores necesito saber como hacer un multiple selector, el ListBox me funciona, pero solo puedo seleccionar un solo elemento de una matriz.
Desde ya se agradece vuestra ayuda.Aunque yo investigaría como hacerlo con XBrowse, es lo que tengo pendiente de hacer.Code: Select all
@ 269,14 LISTBOX oLbasocDomi VAR uLbasocDomi ITEMS aDomi SIZE 376,154 OF ; oAdReCo01 COLORS nmicolortexto,nmicolorfondo PIXEL FONT omifont MULTIPLE