Abstand zwischen Kategorien bei TCategoryButtons

[ringli]

Zitat von toyohj60:

Hallo,

ich hab das gleiche Problem und möchte nicht erst schlafen gehen

Was ist denn die Lösung dafür?

tschüß, Steffen

Ups... habe gar nicht gesehen das auf diesen Beitrag noch jemand geantwortet hat.

Also ich habe mir das in der "CategoryButtons.pas" so angepasst:

Delphi-Quellcode:

private
  FCategorySpacing: Integer;
  .
  .
  .
  procedure SetCategorySpacing(const Value: Integer);
published
  property CategorySpacing: Integer read FCategorySpacing write SetCategorySpacing default 0;
.
.
.
procedure TCategoryButtons.Resize;

  function CalcCategoryHeights: Integer;
  .
  .
  .
  Category.FEnd := Y + CalcCategoryHeight(Category, ButtonsPerRow) + FCategorySpacing;
.
.
.
procedure TCategoryButtons.SetCategorySpacing(const Value: Integer);
begin
  if (FCategorySpacing <> Value) and (Value > 0) then
  begin
    FCategorySpacing := Value;
    Resize;
    UpdateAllButtons;
  end;
end;

Hoffe ich konnte dir damit helfen.