Abstand zwischen Kategorien bei TCategoryButtons

[ringli]

Gibt es eigentlich eine Möglichkeit bei der TCategoryButtons-Komponente (die bei Delphi 2007 dabei ist) einen Abstand zwischen den Kategorien einzufügen?

Ich habe schon versucht im Quelltext der Komponente die entsprechende Stelle zu finden an der ich ein paar zusätzliche Pixel einfügen kann, aber leider habe ich die entsprechende Stelle noch nicht gefunden.

Ausserdem habe ich versucht probehalber mal eine leere Kategorie einzufügen. Das funktioniert prinzipiell zwar, aber dummerweise wird da noch ein 1 Pixel breiter Rahmen um die Kategorie gezeichnet was natürlich nicht so schön ist.

[ringli]

Ich hoffe das wird jetzt nicht als pushen angesehen... :oops:

Inzwischen konnte ich das Problem mit dem Abstand zwischen den Kategorien selber lösen. Manchmal hilft es doch wenn man eine Nacht drüber schläft. :)

[toyohj60]

Hallo,

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

Was ist denn die Lösung dafür?

tschüß, Steffen

[ringli]

Zitat:

Zitat von toyohj60

Hallo,

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

Was ist denn die Lösung dafür?

tschüß, Steffen

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

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. :)