Cita:
Empezado por ixMike
¿eso no explota?
|
¡Claro que no!
Gracias al estupendo trabajo del equipo de desarrollo de la VCL!
Código Delphi
[-]
procedure TCustomListBox.SetItems(Value: TStrings);
begin
if Style in [lbVirtual, lbVirtualOwnerDraw] then
case Style of
lbVirtual: Style := lbStandard;
lbVirtualOwnerDraw: Style := lbOwnerDrawFixed;
end;
Items.Assign(Value);
end;
¡gracias, chavales! Por eso es un placer programar en Delphi!
