Einzelnen Beitrag anzeigen

ringli

Registriert seit: 7. Okt 2004
509 Beiträge
 
Delphi 11 Alexandria
 
#4

Re: Abstand zwischen Kategorien bei TCategoryButtons

  Alt 16. Nov 2008, 18:52
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.
  Mit Zitat antworten Zitat