tcyBevels

type tcyBevels = class(TCollection)

protected

  function GetOwner; override;

  procedure Update(); override;

public

  constructor Create();

  function Add;

  procedure Delete();

  procedure DrawBevels();

  function xBevelsWidth;

  function BevelsWidth;

  property Items []: tcyBevel; default; [r]

  property NeedOwnerRealign: Boolean; [r]

  property OnChange: TNotifyEvent; [rw]

end;

tcyBevels

TObject