I have the same code for months now to fill my dropdown. Because 99% of our users work on our ASP environment the use IE. On IE all is working well. Now this morning, right back from holiday, i openend the form in Chrome and now the dropdown does not show the items. WHile debugging i see that the items are filled, However none are shown.
i also add 2 items my self , even these 2 are not shown.
I see no errors in debugmode
I work with grouping
Part of the code,
- Code: Select all
procedure IWDropDownVendorGetDropDownData
if (LastvendorID <> ProductCatalogItem.VendorID) then
begin
if (LastvendorID <> DEF_NUMBER) then
begin
AJSon.AsArray.Add(TempObj);
end;
TempObj:= SO();
TempObj.B['isgroup']:= True;
TempObj.S['label']:= ProductCatalogItem.VendorDescription;
TempObj.O['children']:= TSuperObject.Create(stArray);
LastvendorID := ProductCatalogItem.VendorID;
end;
AuxObj:= SO();
AuxObj.S['value'] := IntToStr(ProductCatalogItem.ProductID);
AuxObj.S['label'] := ProductCatalogItem.ProductDescription + '<i style="visibility:hidden"> '+
ProductCatalogItem.VendorDescription + '</i>';
TempObj.O['children'].AsArray.Add(AuxObj);
TempObjHasValue := True;
AJSon.AsArray.Add(TempObj);
TempObj:= SO();
TempObj.B['isgroup']:= True;
TempObj.S['label']:= CONST_UNLISTED_VENDOR;
TempObj.O['children']:= TSuperObject.Create(stArray);
AuxObj:= SO();
AuxObj.S['value']:= CONST_UNLISTED_ID;
AuxObj.S['label']:= CONST_UNLISTED_PRODUCT;
TempObj.O['children'].AsArray.Add(AuxObj);
AJSon.AsArray.Add(TempObj);
AIsMore := False;