home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / tvision / gravis / gv / gvguid02.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-05-23  |  1.0 KB  |  43 lines
  1. {************************************************}
  2. {                                                }
  3. {   Turbo Pascal 6.0                             }
  4. {   Demo program from the Turbo Vision Guide     }
  5. {                                                }
  6. {   Copyright (c) 1990 by Borland International  }
  7. {                                                }
  8. {************************************************}
  9.  
  10. { modifiziert für Graphics Vision von Stefan Milius }
  11.  
  12. program GVGUID02;
  13.  
  14. uses Objects, Drivers, GVViews, GVMenus, GVApp;
  15.  
  16. type
  17.   TMyApp = object(TApplication)
  18.     procedure InitStatusLine; virtual;
  19.   end;
  20.  
  21. procedure TMyApp.InitStatusLine;
  22. var R: TRect;
  23. begin
  24.   GetExtent(R);
  25.   R.A.Y := R.B.Y - 21;
  26.   StatusLine := New(PStatusLine, Init(R,
  27.     NewStatusDef(0, $FFFF,
  28.       NewStatusKey('~Alt-X~ Exit', kbAltX, cmQuit,
  29.       NewStatusKey('~Alt-F3~ Close', kbAltF3, cmClose,
  30.       nil)),
  31.     nil)
  32.   ));
  33. end;
  34.  
  35. var
  36.   MyApp: TMyApp;
  37.  
  38. begin
  39.   MyApp.Init;
  40.   MyApp.Run;
  41.   MyApp.Done;
  42. end.
  43.