¿Cómo ocultar los botones de un componente "TCategoryButtons"?

[dec]

Hola a todos,

¡A ver si podéis echarme una mano con esto! Estoy utilizando un componente "TCategoryButtons" en cierto programa, y, me gustaría que se pudieran filtrar los botones para que sólo se mostrasen los que coincidiesen con aquello que busque el usuario. Es decir, suponiendo que tengo una lista de botones como:

Manolo
Pedrito
Francisco

... suponiendo que el usuario busque "Manolo", me gustaría que "Pedrito" y "Francisco" no apareciesen. El asunto no parece baladí, puesto que, cada botón de "TCategoryButtons" es un objeto "TButtonItem", que, no cuenta con una propiedad "Visible" o similar. Es decir, puedo "recorrer" todos los botones del componente, pero, no puedo ocultarlos llegado el caso.

Estoy a punto de descartar que exista la posibilidad de hacer lo que quiero, sin embargo, me llama la atención que el propio IDE de Delphi (al menos en Delphi XE2 es así) muestra la paleta de componentes en un "TCategoryButton", al menos el programa WinSpy indica que su clase se llama "TIDECategoryButtons", y, como sabéis, sí que es posible filtrar dicha lista de componentes...

¿Alguien se ha topado algún vez con este "problema"? ¿Y conoce la solución? ¿Y la quiere compartir?

¡Muchas gracias!

[Neftali [Germán.Estévez]]

Pues la verdad es que a primera vista no se ve forma de hacerlo.
He revisado un poco el código (imagino que igual que has hecho tú) y si hay forma de hacerlo no es trivial.

[dec]

Hola,

Gracias Germán. En efecto, al menos en un "TCategoryButtons" estándar, parece que no se contempla esa posibilidad.

[jhonny]

Caramba, después de voltear un poco buscando, aparentemente no hay una manera "usual" de hacerlo, si alguno la tiene, por favor dígalo...

Lo único que se me ocurrió fue simplemente liberar los botones que no coincidan con tu búsqueda, luego de recorrer los TButtonItem y luego crearlos en ejecución cuando sean requeridos.

Adecuando el siguiente código para la necesidad de "ocultar":

Código Delphi [-]
CategoryButtons1.Categories[0].Items[0].Free;

Y el del siguiente link para la necesidad de volver a "mostrar":

Código sacado de http://www.functionx.com/delphi/cont...rybuttons.htm:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
var
    SeriesOfButtons : TCategoryButtons;
    Category        : TButtonCategory;
    btn             : TButtonItem;
begin
    SeriesOfButtons := TCategoryButtons.Create(Self);
    SeriesOfButtons.Parent := Self;

    SeriesOfButtons.Left := 8;
    SeriesOfButtons.Top  := 40;

    Category := SeriesOfButtons.Categories.Add;

    btn := Category.Items.Add();
end;

[dec]

Hola Jhonny,

Pensé en la solución que propones, pero, no está demás volver sobre ello. En un principio la descarté, porque, precisamente, digamos que aprovecho la posibilidad de preparar dichos botones en tiempo de diseño, desde el mismo IDE de Delphi. Sin embargo, si no hay más remedio (tal vez cambiar a otro componente que permita lo que queremos de forma "natural") sería cuestión de ver el desempeño final de dicha solución.

Gracias por responder Jhonny. Si decido hacerlo ya contaré cómo va el asunto.

[jhonny]

Empezado por dec

Hola Jhonny,

Gracias por responder Jhonny. Si decido hacerlo ya contaré cómo va el asunto.

Estaré atento