I am looking to this code trying to create a listbox But I need a multiselect listbox
Is that implemented ? how to use If not , it is posible ? This is a printscreen of what I am talking but in another languaje http://www.postimage.org/image.php?v=TslpW6S Thanks Bruno _______________________________________________________________________________ FUNCTION Build_ListBox( oWnd ) LOCAL oListBox, aItems aItems := { "India", "United States", "England", "Japan", "Hungary", "Argentina", "China" } // Create list box that allows multiple selections oListBox := XbpListBox():new() //oListBox:markMode := XBPLISTBOX_MM_MULTIPLE oListBox:create( oWnd, , {10,10}, {150,320} ) // Copy field names from the DbStruct() array to the list box aeval( aItems, {|e| oListBox:addItem( e ) } ) // Code block for list box selection: // oListBox:ItemSelected := {|mp1, mp2, obj| UNU( obj ), mp1:=oListBox:getData(), mp2:=oListBox:getItem( mp1 ), MsgBox( "itemSelected: "+mp2 ) } oListBox:setColorFG( GraMakeRGBColor( {227,12,110} ) ) oListBox:setColorBG( GraMakeRGBColor( {50,45,170} ) ) // oListBox:setPointer( , XBPSTATIC_SYSICON_MOVE, XBPWINDOW_POINTERTYPE_SYSPOINTER ) RETURN nil
_______________________________________________ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
