home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Pascal / BPASCAL.700 / D11 / DDOCDEMO.ZIP / TWOSTAT.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1992-10-01  |  1.3 KB  |  59 lines
  1. {************************************************}
  2. {                                                }
  3. {   Turbo Vision 2.0 Demo                        }
  4. {   Copyright (c) 1992 by Borland International  }
  5. {                                                }
  6. {************************************************}
  7.  
  8. program TwoStat;
  9.  
  10. uses Objects, Drivers, Views, App, Menus;
  11.  
  12. type
  13.   TStatApp = object(TApplication)
  14.     constructor Init;
  15.     procedure InitStatusLine; virtual;
  16.   end;
  17.  
  18. constructor TStatApp.Init;
  19. var
  20.   R: TRect;
  21.   Window: PWindow;
  22. begin
  23.   inherited Init;
  24.   Desktop^.GetExtent(R);
  25.   R.B.X := R.B.X div 2;
  26.   Window := New(PWindow, Init(R, 'Window A', 1));
  27.   InsertWindow(Window);
  28.   Desktop^.GetExtent(R);
  29.   R.A.X := R.B.X div 2;
  30.   Window := New(PWindow, Init(R, 'Window B', 2));
  31.   Window^.HelpCtx := $8000;
  32.   InsertWindow(Window);
  33. end;
  34.  
  35. procedure TStatApp.InitStatusLine;
  36. var
  37.   R: TRect;
  38. begin
  39.   GetExtent(R);
  40.   R.A.Y := R.B.Y - 1;
  41.   New(StatusLine, Init(R,
  42.     NewStatusDef(0, $7FFF,
  43.       NewStatusKey('~F6~ Go to B', kbF6, cmNext,
  44.       StdStatusKeys(nil)),
  45.     NewStatusDef($8000, $FFFF,
  46.       NewStatusKey('~F6~ Go to A', kbF6, cmNext,
  47.       StdStatusKeys(nil)),
  48.     nil))));
  49. end;
  50.  
  51. var
  52.   StatApp: TStatApp;
  53.  
  54. begin
  55.   StatApp.Init;
  56.   StatApp.Run;
  57.   StatApp.Done;
  58. end.
  59.