home *** CD-ROM | disk | FTP | other *** search
/ Reverse Code Engineering RCE CD +sandman 2000 / ReverseCodeEngineeringRceCdsandman2000.iso / RCE / Tools / Turbo Pascal V7 / DOCDEMO.ZIP / INSWIN.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-11-03  |  1.2 KB  |  55 lines
  1. {************************************************}
  2. {                                                }
  3. {   Turbo Vision 2.0 Demo                        }
  4. {   Copyright (c) 1992 by Borland International  }
  5. {                                                }
  6. {************************************************}
  7.  
  8. program InsWin;
  9.  
  10. uses Objects, App, Drivers, Views, Menus;
  11.  
  12. const
  13.   cmNewWin = 2000;
  14.  
  15. type
  16.   TInsApp = object(TApplication)
  17.     WinCount: Integer;
  18.     procedure HandleEvent(var Event: TEvent); virtual;
  19.     procedure InitMenuBar; virtual;
  20.   end;
  21.  
  22. procedure TInsApp.HandleEvent(var Event: TEvent);
  23. var
  24.   R: TRect;
  25. begin
  26.   inherited HandleEvent(Event);
  27.   if Event.What = evCommand then
  28.   begin
  29.     if Event.Command = cmNewWin then
  30.     begin
  31.       Inc(WinCount);
  32.       Desktop^.GetExtent(R);
  33.       InsertWindow(New(PWindow, Init(R, 'Test window', WinCount)));
  34.     end;
  35.   end;
  36. end;
  37.  
  38. procedure TInsApp.InitMenuBar;
  39. var
  40.   R: TRect;
  41. begin
  42.   GetExtent(R);
  43.   R.B.Y := R.A.Y + 1;
  44.   MenuBar := New(PMenuBar, Init(R, NewMenu(
  45.     NewItem('~A~dd window', 'F3', kbF3, cmNewWin, hcNoContext, nil))));
  46. end;
  47.  
  48. var
  49.   InsApp: TInsApp;
  50. begin
  51.   InsApp.Init;
  52.   InsApp.Run;
  53.   InsApp.Done;
  54. end.
  55.