TView

type TView = object(TObject)

  GrowMode: Byte;

  DragMode: Byte;

  TabMask: Byte;

  ColourOfs: Sw_Integer;

  HelpCtx: Word;

  State: Word;

  Options: Word;

  EventMask: Word;

  Origin: TPoint;

  Size: TPoint;

  Cursor: TPoint;

  Next: PView;

  Owner: PGroup;

  HoldLimit: PComplexArea;

  RevCol: Boolean;

  BackgroundChar: Char;

  constructor Init();

  constructor Load();

  destructor Done; virtual;

  function Prev;

  function Execute; virtual;

  function Focus;

  function DataSize; virtual;

  function TopView;

  function PrevView;

  function NextView;

  function GetHelpCtx; virtual;

  function EventAvail;

  function GetPalette; virtual;

  function MapColor();

  function GetColor();

  function Valid(); virtual;

  function GetState();

  function TextWidth();

  function CTextWidth();

  function MouseInView();

  function CommandEnabled();

  function OverLapsArea();

  function MouseEvent();

  procedure Hide;

  procedure Show;

  procedure Draw; virtual;

  procedure ResetCursor; virtual;

  procedure Select;

  procedure Awaken; virtual;

  procedure DrawView;

  procedure MakeFirst;

  procedure DrawCursor; virtual;

  procedure HideCursor;

  procedure ShowCursor;

  procedure BlockCursor;

  procedure NormalCursor;

  procedure FocusFromTop; virtual;

  procedure MoveTo();

  procedure GrowTo();

  procedure EndModal(); virtual;

  procedure SetCursor();

  procedure PutInFrontOf();

  procedure SetCommands();

  procedure EnableCommands();

  procedure DisableCommands();

  procedure SetState(); virtual;

  procedure SetCmdState();

  procedure GetData(); virtual;

  procedure SetData(); virtual;

  procedure Store();

  procedure Locate();

  procedure KeyEvent();

  procedure GetEvent(); virtual;

  procedure PutEvent(); virtual;

  procedure GetExtent();

  procedure GetBounds();

  procedure SetBounds();

  procedure GetClipRect();

  procedure ClearEvent();

  procedure HandleEvent(); virtual;

  procedure ChangeBounds(); virtual;

  procedure SizeLimits(); virtual;

  procedure GetCommands();

  procedure GetPeerViewPtr();

  procedure PutPeerViewPtr();

  procedure CalcBounds(); virtual;

  function Exposed;

  procedure WriteBuf();

  procedure WriteLine();

  procedure MakeLocal();

  procedure MakeGlobal();

  procedure WriteStr();

  procedure WriteChar();

  procedure DragView();

end;

TView

TObject