TGroup

type TGroup = object(TView)

  Phase: ;

  EndState: Word;

  Current: PView;

  Last: PView;

  Buffer: PVideoBuf;

  constructor Init();

  constructor Load();

  destructor Done; virtual;

  function First;

  function Execute; virtual;

  function GetHelpCtx; virtual;

  function DataSize; virtual;

  function ExecView(); virtual;

  function FirstThat();

  function Valid(); virtual;

  function FocusNext();

  procedure Draw; virtual;

  procedure Lock;

  procedure UnLock;

  procedure ResetCursor; virtual;

  procedure Awaken; virtual;

  procedure ReDraw;

  procedure SelectDefaultView;

  procedure Insert();

  procedure Delete();

  procedure ForEach();

  procedure EndModal(); virtual;

  procedure SelectNext();

  procedure InsertBefore();

  procedure SetState(); virtual;

  procedure GetData(); virtual;

  procedure SetData(); virtual;

  procedure Store();

  procedure EventError(); virtual;

  procedure HandleEvent(); virtual;

  procedure ChangeBounds(); virtual;

  procedure GetSubViewPtr();

  procedure PutSubViewPtr();

  function ClipChilds; virtual;

  procedure BeforeInsert(); virtual;

  procedure AfterInsert(); virtual;

  procedure BeforeDelete(); virtual;

  procedure AfterDelete(); virtual;

end;

TGroup

TView

TObject