How To Disable Items In A ComBo Box

[acwoo1]

Hi

Code: Select all  Expand view

function main

   local oDlg
   local oCombo1
   local oCombo2
   local oCombo3
   local oCombo4
   local cCombo1
   local cCombo2
   local cCombo3
   local cCombo4


   aUsers1_ := {}
   aUsers2_ := {}
   aUsers3_ := {}
   aUsers4_ := {}
 
        DEFINE DIALOG oDlg FROM 0, 0 TO 26, 79 ;
        TITLE "Test" ;
          GRADIENT { { 1, nRGB( 199, 216, 237 ), nRGB( 237, 242, 248 ) } }

            aadd(aUsers1_, "A")
            aadd(aUsers1_, "B")
            aadd(aUsers1_, "C")
            aadd(aUsers1_, "D")

   @  8.1, 7 COMBOBOX oCombo1 VAR cCombo1 ITEMS aUsers1_ ;
      OF oDlg;
      ON CHANGE testcombo( cCombo1 )

   @ 9.95, 25.7 BUTTON "&Exit" OF oDlg SIZE 50, 12 ACTION ( oDlg:End() )

   ACTIVATE DIALOG oDlg CENTERED

 return nil
**********************************************
function testcombo( cCombo1 )


 mtest1  = cCombo1

return cCombo1
***********************

 

How do I disable items "B" and "C" in the combo box ?

Thanks
ACWoo
FWH1302+Harbour+bcc582

[Enrico Maria Giordano]

You can't disable combobox items, as far as I know. But you can remove them from the list.

EMG

[ukoenig]

Not delete, but replace the Items :

FUNCTION MAIN()
local oDlg
local oCombo1
local oCombo2
local oCombo3
local oCombo4

local cCombo1
local cCombo2
local cCombo3
local cCombo4

aUsers1_ := {}
aUsers2_ := {}
aUsers3_ := {}
aUsers4_ := {}

DEFINE DIALOG oDlg FROM 0, 0 TO 26, 79 ;
TITLE "Test" ;
GRADIENT { { 1, nRGB( 199, 216, 237 ), nRGB( 237, 242, 248 ) } }

aadd(aUsers2_, "B")
aadd(aUsers2_, "C")

aadd(aUsers1_, "A")
aadd(aUsers1_, "B")
aadd(aUsers1_, "C")
aadd(aUsers1_, "D")

@ 8.1, 7 COMBOBOX oCombo1 VAR cCombo1 ITEMS aUsers1_ ;
OF oDlg;
ON CHANGE testcombo( cCombo1 )

// Repaint with new Items
@ 9.95, 15 BUTTON "&Change" OF oDlg SIZE 50, 12 ;
ACTION ( oCombo1:SetItems( aUsers2_, .T. ), oCombo1:Select( 1 ) )

@ 9.95, 25.7 BUTTON "&Exit" OF oDlg SIZE 50, 12 ACTION ( oDlg:End() )

ACTIVATE DIALOG oDlg CENTERED

RETURN NIL



Best Regards
Uwe

[acwoo1]

Thanks

Is there any other way to workaround this ?

Regards

ACWoo
FHW1302+Harbour+bcc582