DC_VarToListBox function sets my PC Slow

[digitsoft]

Hi Roger
DC_VarToListBox function sets my PC Slow

Paulino Nolberto
A cordial greeting

[Auge_Ohr]

DC_VarToListBox function sets my PC Slow

how big is you Array
hide Listbox when "fill" will speed up a lot.

[digitsoft]

DC_VarToListBox function sets my PC Slow

how big is you Array
hide Listbox when "fill" will speed up a lot.

Hi Jimmy
It is an array of 10 Items to Maximo
The slow when I give presents him several times to load the DCCOMBOBOX Array

Paulino Nolberto
Regards

[rdonnay]

I looked at the code and there is nothing there that looks unusual.
This may be a behavior of the XbpComboBox.
I have seen other problems with that class in the past.
It didn't generate events correctly.

Code: Select all

FUNCTION DC_VarToListBox( oXbp, aVar, aMarked )

LOCAL bVar, aArray, i, oListBox, aArrayLeft, aArrayRight

IF oXbp:isDerivedFrom('XbpComboBox')
  oListBox := oXbp:XbpListBox
ELSEIF oXbp:isDerivedFrom('XbpListBox')
  oListBox := oXbp
ELSEIF oXbp:isDerivedFrom('DC_XbpPickList')
  oXbp:leftListBox:clear()
  oListBox := oXbp:leftListBox
  IF Valtype(aVar) = 'A'
    aArrayLeft := aVar
  ELSE
    bVar := oXbp:leftAnchor
    aArrayLeft := Eval(bVar)
  ENDIF
  oXbp:rightListBox:clear()
  oListBox := oXbp:rightListBox
  IF Valtype(aMarked) = 'A'
    aArrayRight := aMarked
  ELSE
    bVar := oXbp:dataLink
    aArrayRight := Eval(bVar)
  ENDIF
  oXbp:SetData(aArrayLeft,aArrayRight)
  RETURN nil
ELSE
  RETURN nil
ENDIF
oListBox:clear()
IF Valtype(aVar) = 'A'
   aArray := aVar
ELSE
  bVar := oXbp:listBlock
  aArray := Eval(bVar)
ENDIF
IF Valtype(aArray) = 'A'
  FOR i := 1 TO LEN(aArray)
    oListBox:Additem(aArray[i])
  NEXT
  IF oXbp:isDerivedFrom('XbpPickList')
    oXbp:SetData(aArray)
  ELSEIF Valtype(aMarked) = 'A' // Preset the list
    oListBox:setData(aMarked, .T.)
    DC_VarFromListBox(oXbp)
  ENDIF
ENDIF

RETURN nil

[digitsoft]

Thanks Roger
I check the code and when it reaches this line oListBox: clear ()
remains firzado

if the annulus using *** oListBox: clear () on the line the combo box
limpra not the array but is not frizzy.

Paulino Nolberto
Best Regards

I looked at the code and there is nothing there that looks unusual.
This may be a behavior of the XbpComboBox.
I have seen other problems with that class in the past.
It didn't generate events correctly.

Code: Select all

FUNCTION DC_VarToListBox( oXbp, aVar, aMarked )

LOCAL bVar, aArray, i, oListBox, aArrayLeft, aArrayRight

IF oXbp:isDerivedFrom('XbpComboBox')
  oListBox := oXbp:XbpListBox
ELSEIF oXbp:isDerivedFrom('XbpListBox')
  oListBox := oXbp
ELSEIF oXbp:isDerivedFrom('DC_XbpPickList')
  oXbp:leftListBox:clear()
  oListBox := oXbp:leftListBox
  IF Valtype(aVar) = 'A'
    aArrayLeft := aVar
  ELSE
    bVar := oXbp:leftAnchor
    aArrayLeft := Eval(bVar)
  ENDIF
  oXbp:rightListBox:clear()
  oListBox := oXbp:rightListBox
  IF Valtype(aMarked) = 'A'
    aArrayRight := aMarked
  ELSE
    bVar := oXbp:dataLink
    aArrayRight := Eval(bVar)
  ENDIF
  oXbp:SetData(aArrayLeft,aArrayRight)
  RETURN nil
ELSE
  RETURN nil
ENDIF
oListBox:clear()
IF Valtype(aVar) = 'A'
   aArray := aVar
ELSE
  bVar := oXbp:listBlock
  aArray := Eval(bVar)
ENDIF
IF Valtype(aArray) = 'A'
  FOR i := 1 TO LEN(aArray)
    oListBox:Additem(aArray[i])
  NEXT
  IF oXbp:isDerivedFrom('XbpPickList')
    oXbp:SetData(aArray)
  ELSEIF Valtype(aMarked) = 'A' // Preset the list
    oListBox:setData(aMarked, .T.)
    DC_VarFromListBox(oXbp)
  ENDIF
ENDIF

RETURN nil

[digitsoft]

Hi Roger
The problem was not the COMBOBOX Table or Database had a register in Blanc and the system to stay Very Slow

Thanks for your help
Paulino Nolberto
Regards