home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l044 / 4.ddi / DOCDEMOS.ZIP / TVGUID02.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-10-23  |  968 b   |  41 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. program TVGUID02;
  11.  
  12. uses Objects, Drivers, Views, Menus, App;
  13.  
  14. type
  15.   TMyApp = object(TApplication)
  16.     procedure InitStatusLine; virtual;
  17.   end;
  18.  
  19. procedure TMyApp.InitStatusLine;
  20. var R: TRect;
  21. begin
  22.   GetExtent(R);
  23.   R.A.Y := R.B.Y - 1;
  24.   StatusLine := New(PStatusLine, Init(R,
  25.     NewStatusDef(0, $FFFF,
  26.       NewStatusKey('~Alt-X~ Exit', kbAltX, cmQuit,
  27.       NewStatusKey('~Alt-F3~ Close', kbAltF3, cmClose,
  28.       nil)),
  29.     nil)
  30.   ));
  31. end;
  32.  
  33. var
  34.   MyApp: TMyApp;
  35.  
  36. begin
  37.   MyApp.Init;
  38.   MyApp.Run;
  39.   MyApp.Done;
  40. end.
  41.