home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / tvision / gravis / gv / gvgadget.int < prev    next >
Encoding:
Text File  |  1994-05-23  |  861 b   |  46 lines
  1. Unit GVGadget;
  2.  
  3.  
  4. { Diese Unit bietet zwei nützliche Hilfsmittel: Uhr und Freier Heap Anzeiger.
  5. }
  6.  
  7. Interface
  8.  
  9. Uses Dos, Drivers, Objects, Views, GVViews, GVApp;
  10.  
  11. Type
  12.  
  13. { THeapView object }
  14.  
  15.   { Palette layout }
  16.   { 1 = Background }
  17.   { 2 = Text }
  18.  
  19.   PHeapView = ^THeapView;
  20.   THeapView = object(TGView)
  21.     OldMem : LongInt;
  22.     constructor Init(var Bounds: TRect);
  23.     procedure Draw; virtual;
  24.     procedure Update;
  25.   end;
  26.  
  27. { TClockView object }
  28.  
  29.   { Palette layout }
  30.   { 1 = Background }
  31.   { 2 = Text }
  32.  
  33.   PClockView = ^TClockView;
  34.   TClockView = object(TGView)
  35.     Refresh: Byte;
  36.     LastTime: DateTime;
  37.     TimeStr: String[10];
  38.     constructor Init(var Bounds: TRect);
  39.     procedure Draw; virtual;
  40.     function FormatTimeStr(H, M, S: Word): String; virtual;
  41.     procedure Update; virtual;
  42.   end;
  43.  
  44.  
  45. implementation
  46.