Mi Combo y yo

[andres1569]

Hola:

En tu nuevo componente deberías interceptar cuándo se han añadido, borrado o cambiado elementos de la propiedad Items. Es preferible que esto lo controle el componente, y no hacerlo "manualmente" desde tu programa, llamando a Repaint (este método no es el mejor para esto, puesto que se llama cada vez que se redibuja el control, aunque no esté desplegado).

Puesto que estás de practicas no te voy a ofrecer una solución completa, sólo algunas pistas. La propiedad Items de un Combo es del tipo TComboBoxStrings (todo esto lo puedes ver en la VCL). Cuando se inserta, elimina o cambia un Item, Items envía mensajes del tipo CB_ADDSTRING, CB_DELETESTRING ... etc al ComboBox asociado. Si el ComboBox intercepta estos mensajes, puedes poner a TRUE una variable booleana, llamémosla FItemsChanged, que indique que ha algo cambiado. Luego sobrescribes el método DropDown y ahí recalculas todo si ha habido cambios.

Otra cosa, he visto el codigo del componente. En el método Set de la propiedad Autowidth podrías comprobar en primer lugar que el valor pasado es diferente al valor de la propiedad, para evitar operaciones innecesarias.

Si finalmente lo implementas como he explicado arriba, podrías simplificar ese método Set de forma que pusiera la variable FItemsChanged a TRUE, sin recalcular el ancho de los Items. Esta operación sólo se realizaría en el DropDown, si hace falta.