TCluster

type TCluster = object(TView)

  Id: Sw_Integer;

  Sel: Sw_Integer;

  Value: LongInt;

  EnableMask: LongInt;

  Strings: TStringCollection;

  constructor Init();

  constructor Load();

  destructor Done; virtual;

  function DataSize; virtual;

  function GetHelpCtx; virtual;

  function GetPalette; virtual;

  function Mark(); virtual;

  function MultiMark(); virtual;

  function ButtonState();

  procedure Draw; virtual;

  procedure Press(); virtual;

  procedure MovedTo(); virtual;

  procedure SetState(); virtual;

  procedure DrawMultiBox();

  procedure DrawBox();

  procedure SetButtonState();

  procedure GetData(); virtual;

  procedure SetData(); virtual;

  procedure Store();

  procedure HandleEvent(); virtual;

end;

TCluster

TView

TObject