TCategoryButtons

[dec]

Hola,

Empezado por dec

Hola,

El caso es que tiene su miga. Resulta que el componente tiene un evento "OnCategoryCollapse" que se dispara cuando se colapsa o expande una categoría. Yo he intentado ahí que cuando una categoría se expanda el resto de colapse (que creo que es lo que necesita el compañero), pero, nada, que no ha habido manera.

Sin embargo, algo así parece funcionar como se espera:

Código Delphi [-]
procedure TToolsDockForm.CategoryButtonsCategoryCollapase(
 Sender: TObject; const Category: TButtonCategory);
var
  I: Integer;
begin
  CategoryButtons.OnCategoryCollapase := nil;
  for I := 0 to CategoryButtons.Categories.Count - 1 do
  begin
    CategoryButtons.Categories.Items[i].Collapsed :=
     CategoryButtons.Categories.Items[i] <> Category;
  end;
  CategoryButtons.OnCategoryCollapase :=
   CategoryButtonsCategoryCollapase;
end;