das Laden Additem() dauert für 13 Datensätze 2 davon sind als gelöscht makiert 15 sekunden - das ist zu lange. Hat jemand eine Idee warum? gibt es bei Listbox etwas zu beachten
Code: Alles auswählen
LOCAL nEvent, mp1, mp2
LOCAL oDlg, oXbp, drawingArea, aEditControls := {}, aPos:={50,500}
Local cVerz:=CurDrive()+":\"+CurDir(), cUser:="", aHProd:={}, oListbox
If empty(cSatz)
msgbox("Parameterübergabe falsch!"+CRLF+"Bitte das Programm über CRM-Modul starten")
Return
Endif
cUser:=cVerz+"\user"+cSatz
oDlg:=DialogErzeugen({50,50},{800,600},"Haupt-Produkte-Auswahl","UP","m")
drawingArea := oDlg:drawingArea
drawingArea:setFontCompoundName( "9.Arial")
aSize:=oDlg:CurrentSize()
aPos:={100,150}
use HProd New
set index to "hprod.cdx"
HProd->(DbGotop())
Do while HProd->(!eof())
AAdd(aHProd,{alltrim(HProd->Name),HProd->Notiz,HProd->(Recno())} )
HProd->(DbSkip(+1))
Enddo
Close Data
oListBox := XbpListbox():new(oDlg,, aPos, {800, 480})
oListBox:markMode := XBPLISTBOX_MM_SINGLE
oListbox:ItemSelected:={||HProd(oDlg,oListBox,"bea",aHProd) }
oListBox:create( )
For j = 1 to Len(aHProd)
oListbox:addItem(aHProd[j][1] )
Next j