home *** CD-ROM | disk | FTP | other *** search
/ PC-X 1997 March / pcx08_9703.iso / melyviz / pcx-user / oop / tview.int < prev   
Encoding:
Text File  |  1996-12-14  |  3.6 KB  |  91 lines
  1.   TView object's metods: (From Borland Pascal 7.0 Help file)
  2.  
  3.   TView = Object(TObject)
  4.     Owner    : PGroup;
  5.     Next     : PView;
  6.     Origin,
  7.     Size,
  8.     Cursor   : TPoint;
  9.     GrowMode,
  10.     DragMode : Byte;
  11.     HelpCtx,
  12.     State,
  13.     Options,
  14.     EventMask: Word;
  15.     constructor Init(var Bounds: TRect);
  16.     constructor Load(var S: TStream);
  17.     destructor  Done; virtual;
  18.     procedure Awaken; virtual;
  19.     procedure BlockCursor;
  20.     procedure CalcBounds(var Bounds: TRect; Delta: TPoint); virtual;
  21.     procedure ChangeBounds(var Bounds: TRect); virtual;
  22.     procedure ClearEvent(var Event: TEvent);
  23.     function  CommandEnabled(Command: Word): Boolean;
  24.     function  DataSize: Word; virtual;
  25.     procedure DisableCommands(Commands: TCommandSet);
  26.     procedure DragView(Event: TEvent; Mode: Byte; var Limits: TRect; 
  27.                MinSize, MaxSize: TPoint);
  28.     procedure Draw; virtual;
  29.     procedure DrawView;
  30.     procedure EnableCommands(Commands: TCommandSet);
  31.     procedure EndModal(Command: Word); virtual;
  32.     function  EventAvail: Boolean;
  33.     function  Execute: Word; virtual;
  34.     function  Exposed: Boolean;
  35.     function  Focus: Boolean;
  36.     procedure GetBounds(var Bounds: TRect);
  37.     procedure GetClipRect(var Clip: TRect);
  38.     function  GetColor(Color: Word): Word;
  39.     procedure GetCommands(var Commands: TCommandSet);
  40.     procedure GetData(var Rec); virtual;
  41.     procedure GetEvent(var Event: TEvent); virtual;
  42.     procedure GetExtent(var Extent: TRect);
  43.     function  GetHelpCtx: Word; virtual;
  44.     function  GetPalette: PPalette; virtual;
  45.     procedure GetPeerViewPtr(var S: TStream; var P);
  46.     function  GetState(AState: Word): Boolean;
  47.     procedure GrowTo(X, Y: Integer);
  48.     procedure HandleEvent(var Event: TEvent); virtual;
  49.     procedure Hide;
  50.     procedure HideCursor;
  51.     procedure KeyEvent(var Event: TEvent);
  52.     procedure Locate(var Bounds: TRect);
  53.     procedure MakeFirst;
  54.     procedure MakeGlobal(Source: TPoint; var Dest: TPoint);
  55.     procedure MakeLocal(Source: TPoint; var Dest: TPoint);
  56.     function  MouseEvent(var Event: TEvent; Mask: Word): Boolean;
  57.     function  MouseInView(Mouse: TPoint): Boolean;
  58.     procedure MoveTo(X, Y: Integer);
  59.     function  NextView: PView;
  60.     procedure NormalCursor;
  61.     function  Prev: PView;
  62.     function  PrevView: PView;
  63.     procedure PutEvent(var Event: TEvent); virtual;
  64.     procedure PutInFrontOf(Target: PView);
  65.     procedure PutPeerViewPtr(var S: TStream; P: PView);
  66.     procedure Select;
  67.     procedure SetBounds(var Bounds: TRect);
  68.     procedure SetCommands(Commands: TCommandSet);
  69.     procedure SetCmdState(Commands: TCommandSet; Enable: Boolean);
  70.     procedure SetCursor(X, Y: Integer);
  71.     procedure SetData(var Rec); virtual;
  72.     procedure SetState(AState: Word; Enable: Boolean); virtual;
  73.     procedure Show;
  74.     procedure ShowCursor;
  75.     procedure SizeLimits(var Min, Max: TPoint); virtual;
  76.     procedure Store(var S: TStream);
  77.     function  TopView: PView;
  78.     function  Valid(Command: Word): Boolean; virtual;
  79.     procedure WriteBuf(X, Y, W, H: Integer; var Buf);
  80.     procedure WriteChar(X, Y: Integer; C: Char; Color: Byte;
  81.                 Count: Integer);
  82.     procedure WriteLine(X, Y, W, H: Integer; var Buf);
  83.     procedure WriteStr(X, Y: Integer; Str: String; Color: Byte);
  84.   private
  85.     procedure DrawCursor;
  86.     procedure DrawHide(LastView: PView);
  87.     procedure DrawShow(LastView: PView);
  88.     procedure DrawUnderRect(var R: TRect; LastView: PView);
  89.     procedure DrawUnderView(DoShadow: Boolean; LastView: PView);
  90.     procedure ResetCursor; virtual;
  91.   end;