home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l044 / 4.ddi / DOCDEMOS.ZIP / TVGUID03.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-10-23  |  1.7 KB  |  69 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 TVGUID03;
  11.  
  12. uses Objects, Drivers, Views, Menus, App;
  13.  
  14. const
  15.   cmFileOpen = 100;
  16.   cmNewWin   = 101;
  17.  
  18. type
  19.   TMyApp = object(TApplication)
  20.     procedure InitMenuBar; virtual;
  21.     procedure InitStatusLine; virtual;
  22.   end;
  23.  
  24. { TMyApp }
  25. procedure TMyApp.InitMenuBar;
  26. var R: TRect;
  27. begin
  28.   GetExtent(R);
  29.   R.B.Y := R.A.Y + 1;
  30.   MenuBar := New(PMenuBar, Init(R, NewMenu(
  31.     NewSubMenu('~F~ile', hcNoContext, NewMenu(
  32.       NewItem('~O~pen', 'F3', kbF3, cmFileOpen, hcNoContext,
  33.       NewItem('~N~ew', 'F4', kbF4, cmNewWin, hcNoContext,
  34.       NewLine(
  35.       NewItem('E~x~it', 'Alt-X', kbAltX, cmQuit, hcNoContext,
  36.       nil))))),
  37.     NewSubMenu('~W~indow', hcNoContext, NewMenu(
  38.       NewItem('~N~ext', 'F6', kbF6, cmNext, hcNoContext,
  39.       NewItem('~Z~oom', 'F5', kbF5, cmZoom, hcNoContext,
  40.       nil))),
  41.     nil))
  42.   )));
  43. end;
  44.  
  45. procedure TMyApp.InitStatusLine;
  46. var R: TRect;
  47. begin
  48.   GetExtent(R);
  49.   R.A.Y := R.B.Y - 1;
  50.   StatusLine := New(PStatusLine, Init(R,
  51.     NewStatusDef(0, $FFFF,
  52.       NewStatusKey('', kbF10, cmMenu,
  53.       NewStatusKey('~Alt-X~ Exit', kbAltX, cmQuit,
  54.       NewStatusKey('~F4~ New', kbF4, cmNewWin,
  55.       NewStatusKey('~Alt-F3~ Close', kbAltF3, cmClose,
  56.       nil)))),
  57.     nil)
  58.   ));
  59. end;
  60.  
  61. var
  62.   MyApp: TMyApp;
  63.  
  64. begin
  65.   MyApp.Init;
  66.   MyApp.Run;
  67.   MyApp.Done;
  68. end.
  69.